如何用vbs自動登錄qq

　　如何用vbs自動登錄qq?怎樣制作一個VBS腳本讓QQ自動登陸呢?下面這個代碼，只要換下QQ安裝路徑，QQ號和密碼就能使用了。

　　vbs自動登錄qq步驟

　　新建一個文本文檔。

　　輸入下列代碼。

　　Dim Program1

　　Program1= "QQ路徑"

　　Set WshShell=createobject("wscript.shell")

　　Set oExec=WshShell.Exec(Program1)

　　WScript.Sleep 3000

　　WshShell.AppActivate "cncn"

　　WshShell.SendKeys "+{TAB}"

　　WshShell.SendKeys "QQ號"

　　WScript.Sleep 200

　　WshShell.SendKeys "{TAB}"

　　WshShell.SendKeys "密碼"

　　WScript.Sleep 200

　　WshShell.SendKeys "{ENTER}"

　　然后點擊“文件”——“另存為”。

　　選擇保存路徑及輸入文件名“QQ自動登陸.vbs”，保存。

　　然后雙擊運行該文件，即可自動登錄QQ。