让QQ永久在线

来源:百度文库 编辑:神马文学网 时间:2024/04/29 22:52:23
很多人都想着QQ级别高...这可可以理解.但是用高低来看人.我鄙视这种人.虽然我QQ 42级了 但是我也只是偶尔上线.或者在做东西的时候才上线.难道说我就可以在某地区受到特殊待遇么. 那叫放P.我在大街上都他妈没人理我.今天给大家做的教程QQ永远在线..鄙视挂QQ的.声明.我不是挂QQ.我是真的每时每刻在和QQ上的朋友互相交流....现在我们开始吧~~~看好.麦克风就不说了>QQ或TM程序,再运行本脚本"elsedo \'循环检测myqqin=chkuin(QQUIN) \'检测上面提取出来的QQ号码是否有在本机打开if not myqqin then \'如果没有运行则,重新运行QQ程序并登录runapp(AppPath) \'wscript.sleep 10000 \'等待10秒elsewscript.sleep 5000 \'等待5秒end ifloop \'返回继续检测end iffunction RunApp(AppPath)dim objset obj = createobject("WScript.Shell")obj.exec(AppPath)end functionfunction 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" thenAppPatht=ps.commandline\'by chenall qq 2193313tmp=Replace(AppPatht,chr(34),space(1))UIN1=instr(tmp,"QQUIN:")+6QQUINTMP=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1)if QQUINTMP=QQUIN then chkuin=true end ifend ifnextend function将以上代码存储为"*.vbs"文件。而后登录QQ,一键切换到TM,再运行VBS脚本。此后,即使关闭了TM/QQ,它也会自动启动并登录至网络。经笔者在Windows XP SP2系统上测试,完全有效。小编提示:对于用户挂QQ这个事情,对此并不赞同,因为除了能得到心里上的满足以外,其余任何事情都不能做到,而且还大量地浪费了国家的电能,所以在此小编提示大家,这个技巧只是叫大家明白,我们可以用VBS实现这一功能,绝对不是提倡这种挂QQ等级的做法()