6行代码实现QQ刷屏

申明
本文章仅供学习使用

---

这个代码是利用脚本语言实现的，代码如下：

Set WshShell = WScript.Createobject("WScript.Shell")
for i = 1 to 2
WScript.Sleep 30
WshShell.SendKeys"^v"
wshShell.SendKeys"{ENTER}"
next

接下来一行一行进行分析：

Set WshShell = WScript.Createobject("WScript.Shell")
for i = 1 to 20          #for循环控制刷屏次数
WScript.Sleep 30        #设置暂停的时间（sleep睡一觉）
WshShell.SendKeys"^v"       #模仿Ctrl+V（粘贴）
wshShell.SendKeys"{ENTER}"        #模仿ENTER（发送）
next         #重新进行for循环

这里只做了粘贴操作，那么在使用前需要把你想发的东西复制一下，然后打开脚本后迅速点开会话，这个操作不分敌我，所以在刷屏的时候如果打开了其他的会话窗口，哦豁完蛋。

这个代码用的是脚本语言，使用方法为：
新建文本文档，将6行代码复制进文档中并保存。关掉文档，将文档重命名为xxx.vbs（或者将文件另存为，选择文件类型的时候选择所有文件，然后命名为xxx.vbs）

在这里插入图片描述

双击后即为执行······

大家注意安全，小心被物理攻击

18f18d9c848faeb5248e3e764ae04fdb.jpeg