相信很多朋友都多多少少玩过一些网络游戏,甚至在游戏里面,或者游戏频道里面和人聊过天,那么在你聊天的同时就会看到游戏频道里面有很多发广告的,并且这些广告在昼夜不停的刷,那么我想问下这是人在刷广告吗?No!我在这里很明确的告诉大家,其实是一些刷屏软件,这些软件都是由各种编程语言模拟我们的键盘按键来实现的,那么在这里呢我给大家简单介绍由vbs脚本模拟人工按键一款简单刷屏器,源代码如下:
![](https://i-blog.csdnimg.cn/blog_migrate/8f900a89c6347c561fdf2122f13be562.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/961ddebeb323a10fe0623af514929fc1.gif)
1 Dim WshShell 2 Set WshShell= WScript.CreateObject("WScript.Shell") 3 for i=1 to 1000000 4 WScript.Sleep 60000 5 WshShell.Sendkeys "[" 6 WScript.Sleep 1000 7 WshShell.Sendkeys year(Now)&"-"&Month(Now)&"-"&day(Now)&" " 8 WScript.Sleep 1000 9 WshShell.Sendkeys right("0"&Hour(Now),2)&":"&right("0"&Minute(Now),2)&":"&right("0"&Second(Now),2) 10 WScript.Sleep 1000 11 WshShell.Sendkeys "]" 12 WScript.Sleep 1000 13 'WshShell.Sendkeys i 14 WScript.Sleep 1000 15 WshShell.Sendkeys ": " 16 WScript.Sleep 1000 17 WshShell.Sendkeys"^v" 18 WScript.Sleep 1000 19 WshShell.Sendkeys "{ENTER}" 20 WScript.Sleep 1000 21 'WshShell.Sendkeys "(+)" 22 WScript.Sleep 1000 23 Next
由于大部分游戏频道里面都有各种限制,如限制发言的字数、在短时间内不能发送相同的内容等等。那么我们如何去应对?限制发言的字数那么我们可以分批发,而在短时间内不能发送相同的内容呢,这个简单,你定义一个变量,没发送一条数据前都让其变化不就得了?对,没错,就是这么简单,我在这里呢用获取系统当前的时间(年月日时分秒)的形式来代替变量,使其在每发送一条数据前面加上了获取到的系统当前时间,因为这个时间我们精确到了秒,当然你也可以精确到毫秒级别,那么这样就会解决在短时间不能发送相同的内容这个问题,其实我们发送的数据意思都没变化!
简单介绍下源码的实现:
Dim WshShell --定义变量/对象
Set WshShell = Wscript.CreateObject("WScript.Shell"); --Set给定义的变量/对象赋值、这里就是调用我们系统里面的WScript.Shell对象来实现
for 循环 --不多解释,编程的人都明白
WshShell .Sleep 1000 --挂起一段时间,后面跟时间,此处时间单位为毫秒 1s=1000毫秒 ,挂起:简单理解为休眠、等待
WshShell.Sendkeys "xxx" --程序模拟人工按键盘,此处xxx可以自己定义成任何键盘上的一个键或某几个键的按键组合 "^v":ctrl+v "(+)" :shift "{ENTER}": enter 回车键 ....不多解释