DIY你的QQ登陆器

     

        很多人一般会有2-3个QQ，一个一个登陆太麻烦了，有个方便的办法DIY自己的QQ登陆器（如下,输入到哪里都行,可以新建个文本文档）

 

Dim  WshShell,QQPath,QQselect
  QQPath = " C:Progra~1TencentQQQQ.exe " (引号内是QQ程序的安装地址,这里以默认为准,由于 " program files " 过长了,所以用 " progra~1表示 " )
   Set  WshShell = WScript.CreateObject( " WScript.Shell " )
  WshShell.Run QQPath
  WScript.Sleep  2000
  WshShell.AppActivate " Q登陆 "
  WshShell.SendKeys " +{TAB} "
  WshShell.SendKeys " 123456789 " (引号内容为你的QQ号)
  WScript.Sleep  200
  WshShell.SendKeys " {TAB} "
  WshShell.SendKeys " 1234567890 " (你的QQ密码)
  WScript.Sleep  200
  WshShell.SendKeys " {ENTER} "
  QQPath = " C:Progra~1TencentQQQQ.exe " (程序地址)
   Set  WshShell = WScript.CreateObject( " WScript.Shell " )
  WshShell.Run QQPath
  WScript.Sleep  2000
  WshShell.AppActivate " Q登陆 "
  WshShell.SendKeys " +{TAB} "
  WshShell.SendKeys " 234567891 " (第二个QQ)
  WScript.Sleep  200
  WshShell.SendKeys " {TAB} "
  WshShell.SendKeys " 2345678901 " (第二个QQ的密码)
  WScript.Sleep  200
  WshShell.SendKeys " {ENTER} "

 

        如果你有第3个QQ就以次类推了``然后将这个保存下来,比如保存为"新建 文本文档.txt"将".txt"改为".vbs" .  它的图标就变为白纸上一个蓝色的条条,双击那个东西,你的QQ就相继登陆了