分享

vbs之一:简易QQ狂发!

 uslimi 2009-12-07
vbs之一:简易QQ狂发!
2009-10-06 18:33

上次看了一下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就可以了!

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多