Dim WshShell, QQPath, QQselect QQPath="G:\腾讯QQ\QQ.exe" Set WshShell=Wscr ipt.CreateObject("Wscr ipt.Shell") WshShell.Run QQPath Wscr ipt.Sleep 2000 WshShell.AppActivate "Q登录" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "59619752" Wscr ipt.Sleep 200