Dim Program1
Program1= "D:\Program Files\Tencent\qq\QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "271990865"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "mrhuo65"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"








