不用刻意的挂Q，Q就能在线

蕏蕏渧夢 · 发表于 2008-11-19 11:50:11

很多人都想着QQ级别高...这可可以理解.但是用高低来看人.我鄙视这种人.
虽然我QQ 30级了但是我也只是偶尔上线.或者在做东西的时候才上线.
难道说我就可以在某地区受到特殊待遇么. 那叫放P.我在大街上都他妈没人理我.
今天给大家做的教程QQ永远在线..鄙视挂QQ的.声明.我不是挂QQ.我是真的每时每刻在和QQ上的朋友互相交流....
现在我们开始吧~~~看好.麦克风就不说了

>QQ或TM程序,再运行本脚本"
else
do \'循环检测
myqqin=chkuin(QQUIN) \'检测上面提取出来的QQ号码是否有在本机打开
if not myqqin then \'如果没有运行则,重新运行QQ程序并登录
runapp(AppPath) \'
wscript.sleep 10000 \'等待10秒
else
wscript.sleep 5000 \'等待5秒
end if
loop \'返回继续检测
end if

function RunApp(AppPath)
dim obj
set obj = createobject("WScript.Shell")
obj.exec(AppPath)
end function

function chkuin(QQUIN)
for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then
AppPatht=ps.commandline
\'by chenall qq 2193313
tmp=Replace(AppPatht,chr(34),space(1))
UIN1=instr(tmp,"QQUIN:")+6
QQUINTMP=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1)
if QQUINTMP=QQUIN then chkuin=true end if
end if
next
end function
将以上代码存储为"*.vbs"文件。而后登录QQ，一键切换到TM，再运行VBS脚本。此后，即使关闭了TM/QQ，它也会自动启动并登录至网络。经笔者在Windows XP SP2系统上测试，完全有效。
小编提示：对于用户挂QQ这个事情，对此并不赞同，因为除了能得到心里上的满足以外，其余任何事情都不能做到，而且还大量地浪费了国家的电能，所以在此小编提示大家，这个技巧只是叫大家明白，我们可以用VBS实现这一功能，绝对不是提倡这种挂QQ等级的做法

kick · 发表于 2008-12-5 13:25:37

真假的？？？

dai5200 · 发表于 2009-4-13 20:06:40

先顶个

zhaoshuai515 · 发表于 2009-4-13 20:07:25

加密的相册

zhaoshuai515 · 发表于 2009-4-13 20:10:30

小第前来看一下，好帖子:)

QQ123456 · 发表于 2009-4-14 17:03:46

谢谢分享!!!

lyl001abc · 发表于 2009-4-14 17:22:55

眼花了。。看不懂了。。

jkll2003201 · 发表于 2009-4-14 17:41:51

多谢哈哈

vvanmvp · 发表于 2009-4-14 19:40:45

挂Q就是浪费电，少挂的好

djialiang · 发表于 2009-4-15 12:13:33

试下去了

heihei0005 · 发表于 2009-4-15 12:18:11

先顶个，安全吗

yuan4538 · 发表于 2009-4-16 21:45:33

网络没连到照样上不了　　:lol

whylyh · 发表于 2009-4-17 11:41:41

好厉害、、、、我顶- -。。。:lol

heiheigao · 发表于 2009-4-18 03:37:26

测试测试

luoyadi · 发表于 2009-4-18 11:51:48

怎么存成*.vbs"文件，不代码复制在记事本里么

账号		自动登录	找回密码
密码			注册[Register]

[分享] 不用刻意的挂Q，Q就能在线

评分

评分