您的位置:主页 > 电脑手机 >
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 200      
WshShell.SendKeys "%{TAB}"     '使要关闭的窗口成为焦点
WScript.Sleep 200   
WshShell.SendKeys "%{F4}"   '关弹窗广告
WScript.Sleep 2000  
set objShell = CreateObject("Wscript.Shell")   
strCommandLine = "qq.lnk"         '登QQ
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 2000       
WshShell.SendKeys "1"        '输入密码
WScript.Sleep 200
WshShell.SendKeys "a"
WScript.Sleep 200
WshShell.SendKeys "9"
WScript.Sleep 200
WshShell.SendKeys "b"
WScript.Sleep 200
WshShell.SendKeys "7"
WScript.Sleep 200
WshShell.SendKeys "e"
WScript.Sleep 200
WshShell.SendKeys "6"
WScript.Sleep 200
WshShell.SendKeys "b"
WScript.Sleep 200
WshShell.SendKeys "1"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"     '敲回车登录
WScript.Sleep 3000
 
strCommandLine = "qiyeqq.lnk"        
objShell.Run(strCommandLine)       '登企业QQ
WScript.Sleep 1000
 
 
WScript.Sleep 3000
strCommandLine = "weixin.lnk"      
objShell.Run(strCommandLine)     '登微信
WScript.Sleep 200
 
 
WshShell.SendKeys "{SCROLLLOCK}"   '开键盘背光灯

凡本站注明“本站”或“投稿”的所有文章,版权均属于纪涛博客或投稿人,未经本站授权不得转载、摘编或利用其它方式使用上述作品。本站已授权使用的作品,应在授权范围内使用,并注明“来源:纪涛博客”并附上链接。违反上述声明者,本站将追究其相关法律责任。

编辑:68up.com 关键词:

网友评论

随机推荐

图文聚集

热门排行

最新文章

新浪微博 腾讯微博 RSS订阅