DimWshShell,QQPath,QQselectQQPath="G:\腾讯QQ\QQ.exe"SetWshShell=WScript.CreateObject("WScript.Shell")WshShell.RunQQPathWScript.Sleep2000WshShell.AppActivate"Q登录"WshShell.SendKeys"+{TAB}"WshShell.SendKeys"59619752"WScript.Sleep200WshShell.SendKeys"{TAB}"WshShell.SendKeys"HAPPY808"