goback add

聊天整人代码 把xx 该成你要聊天的人

2617 点击·0 回帖
灯火互联
楼主


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


喜欢0 评分0