[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] QQ2009自动登录VBS脚本(加密QQ密码)

高手看看这个登陆代码那里出错

============================================
QQ.txt 文件写入QQ和加密的QQ密码

1234567890;4QrcOUm6Wau+VuBX8g+IPg==
2233556677;GcioeAxPQuUY7VBL+vT/cg==
============================================

vbs代码
  1. Dim fso,file,tmp,wshshell
  2. Set fso = CreateObject ("scripting.filesystemobject")
  3. Set wshshell=WScript.CreateObject("wscript.shell")
  4. Set file =fso.OpenTextFile("qq.txt") '文件目录不能为中文目录,否则不能打开
  5. 'qq.txt中书写方式:QQ号码;QQ密码
  6. '支持多QQ号码的自动登录,每个号码单独写一行;
  7. '填写的密码是加密的密码,密码加密方式见VBS实现数据加密解密;
  8. While Not file.AtEndOfStream
  9.      tmp=Split(file.ReadLine,";")
  10.             wshshell.Run "c:\Progra~1\Tencent\QQ2009\Bin\QQ.exe" 'QQ文件目录不能为中文目录,否则不能打开
  11.             Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")
  12.             Set ps = objWMIService.ExecQuery("Select * from Win32_Process Where (name='qq.exe')")
  13.             For Each ps2 in ps '列出系统中所有QQ正在运行的程序
  14.                 if ps2.name="QQ.EXE" or ps2.name="qq.exe" or ps2.name="QQ.exe" then
  15.                    WScript.Sleep 1000
  16.                    WshShell.AppActivate"QQ用户登录"
  17.                 else
  18.                   msgbox"QQ程序启动失败!"
  19.                  'wscript.echo "QQ程序启动失败!"
  20.                  'wscript.quit
  21.                 end if
  22.             Next
  23.             '发送tab键
  24.             WScript.Sleep 200
  25.             WshShell.AppActivate"QQ用户登录"
  26.      wshshell.SendKeys "{tab}"
  27.             '发送tmp(0)
  28.             WScript.Sleep 200
  29.             WshShell.AppActivate"QQ用户登录"
  30.             wshshell.SendKeys tmp(0)
  31.             '发送tab键
  32.             WScript.Sleep 200
  33.             WshShell.AppActivate"QQ用户登录"
  34.      wshshell.SendKeys "{tab}"
  35.             '发送tmp(1)
  36.             WScript.Sleep 200
  37.             WshShell.AppActivate"QQ用户登录"
  38.             wshshell.SendKeys tmp2(a)
  39.             '发送enter键
  40.             WScript.Sleep 200
  41.             WshShell.AppActivate"QQ用户登录"
  42.             wshshell.SendKeys "{enter}"
  43. Wend
  44. '以下是QQ密码解密过程
  45. Function tmp2(a)
  46. a=tmp(1)
  47. Key1=1
  48. Key2=0
  49. For i = 1 To Len(a)
  50.      '从待加(解)密字符串中取出一个字符
  51.      strChar = Mid(a, i, 1)
  52.      '取字符的低字节和Key1进行异或运算
  53.      bLowData = AscB(MidB(strChar, 1, 1)) Xor Key1
  54.      '取字符的高字节和K2进行异或运算
  55.      bHigData = AscB(MidB(strChar, 2, 1)) Xor Key2
  56.      '将运算后的数据合成新的字符
  57.      str = str & ChrB(bLowData) & ChrB(bHigData)
  58. Next
  59. tmp2 = str
  60. 'MsgBox "输入的字符串加密后为" & tmp1
  61. End Function
复制代码

返回列表