A回答 共2个
程序猿
2019-09-11 10:02:11
qq复制无限发消息的代码，分享给大家
on error resume next
dim wsh,ye,path
set wsh = createobject("wscript.shell")
for i=1 to 30
wscript.sleep 100
wsh.appactivate("bomb")
wsh.sendkeys "^v"
wsh.sendkeys i
wsh.sendkeys "%s"
next复制上面代码存为vbs格式，然后随便复制点啥，然后打开qq消息框，点击这个复制.vbs文件就可以开始用了。代码里面的30代表30次，100是代表100毫秒发一次。
大家有啥不懂的可以评论留言
qq软件大师
2019-09-11 09:55:13
给大家分享一款现在能用的代码。
Dim name,msg
name="请输入要刷屏的文字:"
msg=Inputbox(name,"内容")
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
for i=1 to 1000
WScript.Sleep 100
WshShell.SendKeys msg
WshShell.SendKeys "%s"
next
首先复制代码，然后右键桌面空地方，选择新建-》文本文档，然后把代码复制进去保存文档，然后重命名用.vbs结尾
保存好后，然后打开一个qq对话框，qq群也是可以的，用这个软件还可以刷广告，只要你不怕被踢。=-=。对话框打开点击刚刚保存的文件
然后输入刷屏文字点击确定就好了
浏览更多 >
