可以盗号的代码

点击电脑左下角的开始菜茄渣单，选择记事本，新建一个记事本文件。

02

在记事本中输入以下代码：

Set WshShell= WScript.CreateObject("WScript.Shell")

WshShell.AppActivate "wendy"

for i=1 to 10

WScript.Sleep 500

WshShell.SendKeys "^v"

WshShell.SendKeys i

WshShell.SendKeys "%s"

Next

注意：其中WshShell.AppActivate "wendy"引号中是要刷屏的群或好友的名字；

for i=1 to 10为设置的发送次数。

03

将其保存颤拿悄为.vbs文件，如：qq.vbs。

敏吵

04

打开要刷屏的群或好友聊天窗口，将要刷屏的文字复制到剪贴板。

05

然后回到桌面，双击运行之前保存的qq.vbs文件。你就会发现，这个聊天窗口被你的话刷屏了。

好了，以上就是大致内容了，(END)

发送次数不要设置的太高，不然容易把自己的电脑卡死。

Option Explicit

Declare Function PostMessage Lib "user32" Alias "宽丛postmessagea" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long

Declare Function GetClassName Lib "user32" Alias "GetClassNameA"尺汪 (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Const wm_close = &H10

Public Function killie(ByVal hwnd As Long, ByVal lparam As Long) As Boolean

Dim ClassName As String

Dim str5 As String

Dim len5 As Long, i As Long

str5 = String(255, 0)

len5 = 256

GetClassName hwnd, str5, 256

ClassName = Left(str5, insrt(1, str5, Chr(0)) - 1)

Debug.Print ClassName

If ClassName = "陵巧仔ieframe" Then

PostMessage hwnd, wm_close, 0&, 0&

End If

killie = True

End Function

---