超级会员免费看
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 30
wscript.sleep 700
wsh.AppActivate
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
QQ霸屏 QQ霸屏
这段代码演示了如何用VBScript（WScript.Shell）激活QQ并模拟键盘输入，实现自动发送带有数字1到30的消息。每700毫秒发送一次，利用Ctrl+V粘贴内容，然后输入数字，最后按Alt+S发送。
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
