Dim WshShell, QQPath, QQselect

【文件属性】：
文件名称：Dim WshShell, QQPath, QQselect
文件大小：364B
文件格式：VBS
更新时间：2013-02-15 17:18:59
Dim WshShell, QQPath, QQselect Dim WshShell, QQPath, QQselect QQPath="G:\腾讯QQ\QQ.exe" Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath WScript.Sleep 2000 WshShell.AppActivate "Q登录" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "59619752" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WshShell.SendKeys "HAPPY808" WScript.Sleep 200 WshShell.SendKeys "{ENTER}"