在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
复制代码 代码如下: '定义QQ程序路径、帐名、密码 Dim Program1,a,b Program1= "C:\Program Files\Tencent\QQ\Bin\QQ.exe" Set WshShell=createobject("wscript.shell") '运行QQ主程序 Set oExec=WshShell.Exec(Program1) WScript.Sleep 1000 '激活QQ窗口 WshShell.AppActivate "QQ2010" wshShell.SendKeys "+{TAB}" '输入帐号 a="QQ帐号" WshShell.SendKeys a WScript.Sleep 200 WshShell.SendKeys "{TAB}" '输入密码 b="你的密码" WshShell.SendKeys b WScript.Sleep 200 WshShell.SendKeys "{ENTER}" |
请发表评论