VBS

Set ws=wscript.CreateObject("wscript.shell")
ws.run
"D:\Backup\QQ\Bin\QQ.exe",0
wscript.sleep
2000
ws.appactivate
"QQ用户登录"
ws.sendkeys
"^a"
ws.sendkeys
"{delete}"
ws.sendkeys
"12345678"
wscript.sleep
200
ws.sendkeys
"{TAB}"
ws.sendkeys
"^a"
ws.sendkeys
"{delete}"
ws.sendkeys
"woshimima"
wscript.sleep
200
ws.sendkeys
"{ENTER}"
posted @ 2011-03-18 14:18  Acmen  阅读(220)  评论(0编辑  收藏  举报