Dim Program1Program1="C:\program files\tencent\qq\qq.exe"Set WshShell=createobject("wscript.shell")Set Exec=WshShell.Exec(Program1)WScript.Sleep 3000WshShell.AppActivate"用户登陆"WshShell.SendKeys"{TAB}"WshShell.SendKeys"123456789" 'qq号码'WScript.Sleep 1000WshShell.SendKeys"{TAB}"WshShell.SendKeys...