Dim WshShell, QQPath, QQselect
QQPath="d:\progra~1\tencent\qq2005\CoralQQ.exe" 'QQ路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{ TAB }"
WshShell.SendKeys "12345678" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{ TAB }"
WshShell.SendKeys "1234" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ ENTER }"
QQPath="d:\progra~1\tencent\qq2005\CoralQQ.exe" 'QQ路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{ TAB }"
WshShell.SendKeys "12345678" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{ TAB }"
WshShell.SendKeys "1234" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ ENTER }"
评论Feed: http://www.85815.com/feed.asp?q=comment&id=328
引用链接: http://www.85815.com/trackback.asp?id=328&key=
那QQ升级,有好多用呢,
晕,我伤心的很,
那QQ升级,有好多用呢,