上次看了一下vbs教程,感觉满好玩的,也比较使用,上次写了个简易QQ狂发的vbs现在发来给大家玩玩!
代码如下:
dim wshshell,a
set wshshell=createobject("wscript.shell")
a=inputbox ("输入要发信息次数"&chr(13)&chr(13)&"*******★小野制作★******"&chr(13)&chr(13)&"请确定刚才光标是在QQ窗体内!","提示")
wscript.sleep 1000
for i=0 to a-1
wscript.sleep 200
wshshell.sendkeys "^v"
wscript.sleep 200
wshshell.sendkeys "%s"
next
wscript.quit
还一个是"停止.bat"的代码:
@echo off
taskkill /f /im WScript.exe
taskkill /f /im wmiprvse.exe
至于怎么使用看下教程吧!
QQ狂发使用说明
今天在网上找vbs脚本进行批处理ping IP端,无意中看到关于vbs狂发QQ信息的脚本看了一下代码感觉满简单,于是决定自己制作个来并完善一些,现在发个大家玩玩!
如图1:
这个就是主脚本
现在来看QQ狂发使用步骤:
第一步
打开要狂发信息的人的QQ,并输入要狂发信息的内容按ctrl+A全选并复制(ctrl+c),然后清除输入框中的内容(当然这里也可以是图片哦!^_^)
第二步:点击 QQ狂发.vbs
出现如图的提示
在空格总输入要发信息的次数,点击”确定”,然后就是等一秒钟(这时候不要点击鼠标)发信息了^_^
结果如图
如果把次数设置得太大如设置成100000次,可能会很久才发送如果要中途停止发送这是就要用到”停止.bat”了. (这里可能会我得电脑和你得电脑显示得图标会不一样,这个没有关系!)
现在交大家使用”停止.bat”
第一步:把”停止.bat”放到C盘下
并创建快捷方式到桌面
快捷方式,右击选择”属性” ,设置快捷键.
“确定”退出.
这样以后想要在发信息的时候退出发信息就按F9就可以了!