利用VBS脚本让qq永远在线

利用VBS脚本让qq永远在线
2011年06月07日
  让QQ"永远"运行
  自从QQ出现了等级制度之后,现在有不少人都开始了疯狂挂级,希望在联机状态下始终运行QQ,即便被人关闭也能自动启动登录,而且还要防止因异常错误而退出。其实这些事情我们可以使用两个VBS脚本来实现这一目的。
  1.QQ自动登录脚本
  set fso = Wscript.createObject("Scripting.FileSystemObject")
  Set f = fso.createTextFile("QQ自动登录.bat",true)
  f.WriteLine "@echo off" & vbcrlf
  for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ \'列出系统中所有正在运行的程序
  if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then \'检测是否QQ或TM
  QQCMD=ps.commandline \'提取QQ程序的命行
  tmp=Replace(QQCMD,chr(34),space(1))
  UIN1=instr(tmp,"QQUIN:")+6
  if not len(UIN1)=0 then
  QQUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) \'取QQ号码.
  QQ=QQ+1
  QQNUM=QQNUM & "QQ号码" & QQ & ":" & vbtab & QQUIN & vbcrlf
  f.WriteLine "ECHO QQ号码:" & QQUIN
  f.WriteLine "ECHO 命令行:" & QQCMD
  f.WriteLine QQCMD & vbcrlf
  end if
  end if
  next
  if not len(QQ)=0 then
  MSGBOX "已经成功提取以下QQ号码的自动登录命令行" & vbcrlf & vbcrlf & QQNUM & vbcrlf & "具体请查看当前目录下的文件",0,"QQ自动
  登录命令提取脚本 BY chenall QQ:XXXXXX"
  else
  msgbox "提取QQ自动登录命令失败,请查看QQ或TM是否正在运行.",0,"QQ自动登录命令提取脚本 BY chenall QQ:XXXXXX"
  f.close
  set f = fso.getfile("QQ自动登录.bat")
  f.delete
  end if
  将这些代码存储为"*.vbs"文件。然后将所有需要自动登录的QQ号码全部登录,再在一个QQ上点击"菜单"→"一键切换到TM"。此后运行该VBS脚本,会发现在当前目录下生成了一个"QQ自动登陆.bat"的文件,运行该文件即可自动登录所有QQ号码。
  小提示:代码中的"XXXXXX"代表你的QQ号。
  2.QQ防止关闭脚本
  dim 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 \'检测是否QQ或TM
  AppPath=ps.commandline \'提取QQ程序的命行
  tmp=Replace(AppPath,chr(34),space(1))
  UIN1=instr(tmp,"QQUIN:")+6
  QQUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) \'取QQ号码.
  end if
  next
  if len(QQUIN)=0 then
  msgbox "系统中没有运行QQ或TM程序,请重新启动QQ或TM,登陆后再使用一键换切换一下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 368178720
  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等级的做法。
  *******************************************************************************************************************
  方法绝对有效,
  只是复杂了一点,但正是因为复杂知道的人很少,所以到现在还没被封
  希望那些没有认真看就说闲话的人最好闭上你的嘴巴
  尊重人家的劳动成果
  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

iteye_17235

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值