利用VBS脚本让QQ永远在线

• 让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 & "具体请查看当前目录下的<QQ自动登录.bat>文件",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
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 利用VBS脚本让QQ永远在线 相关文章：
• ·利用VBS脚本让QQ永远在线
• 利用VBS脚本让QQ永远在线 相关软件

上一篇:游戏私服安全攻防技巧之中级篇

下一篇:最全的网络硬盘(免费)

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐