让QQ永久在线——挂QQ的办法

lh666785

让QQ永久在线——挂QQ的办法
很多人都想着QQ级别高...这可可以理解.但是用高低来看人.我鄙视这种人.

难道说我就可以在某地区受到特殊待遇么. 那叫放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等级的做法 。

junxiang

我只是来向楼主学习的，我不爱挂QQ！

曹云

真的吗？等会试试看

LZsidney

版主真是有研究呀，但我是不挂的