QQ自動登錄

Set ws = CreateObject("Wscript.Shell")
Set sfso = CreateObject("Scripting.FileSystemObject")
Set myfile = sfso.OpenTextFile("D://ocean//test",1)
Do Until myfile.AtEndOfStream
userpwd = myfile.ReadLine
MyArray = Split(userpwd,"----")
qquser = MyArray(0)
qqpwd = MyArray(1)
ws.Run """D:\\mine\\soft\\Tencent\\QQ\\Bin\\QQScLauncher.exe"""(這裏替換成自己QQ的路徑即可)
WScript.Sleep 2000
ws.sendKeys "+{TAB}"
ws.sendKeys "{ENTER}"
WScript.Sleep 100
ws.SendKeys qquser
WScript.Sleep 200
ws.SendKeys "{TAB}"
ws.SendKeys qqpwd
WScript.Sleep 200
ws.SendKeys "{ENTER}"
WScript.Sleep 100
loop
myfile.Close