游戏刷屏器

　　相信很多朋友都多多少少玩过一些网络游戏，甚至在游戏里面，或者游戏频道里面和人聊过天，那么在你聊天的同时就会看到游戏频道里面有很多发广告的，并且这些广告在昼夜不停的刷，那么我想问下这是人在刷广告吗？No!我在这里很明确的告诉大家，其实是一些刷屏软件，这些软件都是由各种编程语言模拟我们的键盘按键来实现的，那么在这里呢我给大家简单介绍由vbs脚本模拟人工按键一款简单刷屏器,源代码如下：

 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

V单击"+"查看

　 由于大部分游戏频道里面都有各种限制，如限制发言的字数、在短时间内不能发送相同的内容等等。那么我们如何去应对？限制发言的字数那么我们可以分批发，而在短时间内不能发送相同的内容呢，这个简单，你定义一个变量，没发送一条数据前都让其变化不就得了？对，没错，就是这么简单，我在这里呢用获取系统当前的时间(年月日时分秒)的形式来代替变量，使其在每发送一条数据前面加上了获取到的系统当前时间，因为这个时间我们精确到了秒，当然你也可以精确到毫秒级别，那么这样就会解决在短时间不能发送相同的内容这个问题，其实我们发送的数据意思都没变化！

　　简单介绍下源码的实现：

　　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 回车键 ....不多解释

 

　　

转载于:https://www.cnblogs.com/aeon/p/7690034.html