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好友昵称愉快再见!!!!
本文介绍如何使用Visual Basic Script (VBS) 编写脚本,实现自动化发送消息到指定的QQ好友,通过循环激活聊天窗口并输入文本。
2992

被折叠的 条评论
为什么被折叠?



