自動登錄qq郵箱腳本

『壹』 求自動登錄qq腳本

Dim WshShell, QQPath, QQselect
QQPath="D:\software\qq\QQ.exe" 'QQ所在路徑
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2500
WshShell.AppActivate "QQ用戶登錄"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "￥￥￥￥￥￥" 'qq號
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "￥￥￥￥￥￥￥'密碼
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"

『貳』 用C語言或C++寫一個QQ自動登陸器

建議樓主改用 AutoIt、按鍵精靈、易語言……
Let's AutoIt 基礎語法， 關鍵還是 得多看幫助文檔

例如 我自己用的登陸qq的腳本

ShellExecute("F:\Program Files\Tencent\QQ2011beta\Bin\QQ.exe")
While Not WinExists("QQ2011")
Sleep(1000)
WEnd

TrayTip("正在登陸QQ", "請稍候...", 3, 1)
Sleep(2000)

WinActivate("QQ2011")
Sleep(500)
Opt("MouseCoordMode", 2)

MouseClick("left", 180, 145)
Send("^A")
Send("622053851")

MouseClick("left", 180, 180)
Send("^A")
Send("")
Send("{ENTER}")