Dim guwan
guwan="D:\Program Files\Tencent\QQ\QQ.exe"
Set baobei=createObject("wscript.shell")
Set pangchao=baobei.exec(guwan)
wscript.sleep 4000
baobei.AppActivate"QQ用戶登錄"
baobei.Sendkeys"{TAB}"
baobei.Sendkeys"123456"
wscript.sleep 1000
baobei.Sendkeys"{TAB}"
wscript.sleep 1000
baobei.Sendkeys"000000"
wscript.sleep 1000
baobei.Sendkeys"{ENTER}"
wscript.Quit
要註意的是:
1、D:\Program Files\Tencent\QQ\QQ.exe 要改成為自己電腦裏的QQ路徑。
2、123456 要改為自己要登陸的QQ號。
3、000000 要改為自己要登陸的QQ號的密碼。
然後以.vbs的格式保存 。雙擊運行試試看 是不是自己的QQ就自動登陸了呢?
如果有好幾個QQ自己再把代碼改改就可以了 這樣是不是就簡單多了 省得每次開機都要輸好多次QQ號和密碼。