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
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
写入记事本，
改文件后缀.vbs
“与 xx 聊天中”改为qq好友昵称愉快再见！！！！
8565
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
