查看: 7663|回复: 0

测试VBS脚本

青鸟技术联盟 发表于 2015-7-30 22:06 | 显示全部楼层 |阅读模式

On Error Resume Next 
Dim wsh,ye 
set wsh=createobject("wscript.shell") 
for i=1 to 10 
wscript.sleep 700 
wsh.AppActivate("与 xx 聊天中") 
wsh.sendKeys "^v" 
wsh.sendKeys i 
wsh.sendKeys "%s" 
next 
wscript.quit

回复打印

使用道具举报

返回列表

客服QQ936487697|联系我们|手机版|欧卡2中国 ( 湘ICP备11020288号-1 ) 936487697

GMT+8, 2025-4-29 06:48 , Processed in 0.071905 second(s), 9 queries , Redis On.

账号		自动登录	找回密码
密码			立即注册