QQ游戏刷屏器怎么设置

按照这个设置

说明：

1通过右边的按钮选择骂人语言，注意：有些语言可能会导致QQ被封。

2如果想用自己的骂人语言，请把骂人的语句粘贴到本文本框内。

3可以说QQ也可以QQ游戏刷大厅，其他聊天工具没经过验证。

4间隔用来设置多长时间骂一句话，1000的意思是1秒钟。

5次数用来设置骂完多少句话以后停止骂人。

6如果想在每句骂人话前加上对方名字，可以在对方名字处录入。

7对于QQ大厅，如果想在骂人的时候可以同时做别的事情，请选中《后台》。

8设置好以后把鼠标点中聊天的对话输入框，然后按下CTRL+Z键开始骂人。

9在骂人的过程中如果要停止，请再次按下CTRL+Z键。

10本工具为刷人队伍专用，请勿外传。

点上后台 次数点多点 比如3333 对方名字要填上 然后按F2开始 不懂的话加我 931949831 标注：百度问问刷屏 交个朋友

暗示表白的句子文案

1、我喜欢你就像是烟火升空，会在心里每一个小地方，都绽放小小的烟花，在心里噼里啪啦的炸开

2、你做我的男孩，我做你的宇宙

3、你是世间最可爱的小星星✨我爱了整个宇宙只为和你碰头

4、在我眼里风光无限是你，跌落尘埃也是你，重要的是你，而不是怎样的你

5、当我感到孤独时，你总是我第一个想起的人

6、这个冬天可以当穿你外套的那个女孩吗？

7、遇见你爱意汹涌 看世间万物都浪漫心动

8、所有的温柔眷恋都是对你灿若星辰的喜欢

9、过年想去你家拜年，然后领你爸妈的压岁钱

10、我想像女朋友般为你泡泡茶，可以吗

11、我的每一支笔，都知道你的名字。

12、我是梅菜你是肉 我想扣住你的手

13、你既然没什么事 那冬天和我一起过冬吧

14、我这个人什么都不是，没脑子，没钱，也没未来，可是我喜欢一个人，我想要给她最好的结局。

15、我带了一书包的零食，大家都可以吃，只有你可以吃完。

暗示表白的句子

二、适合表白的句子发朋友圈

16、我攒了好多年的温柔和浪漫想要快点都给你。

17、今天天气很好，很想和你晒晒太阳聊聊天

18、在所有物是人非里 一而再再而三的喜欢你

19、我是可爱的女孩子，你是可爱

20、昨夜有繁星满天，今早有朝霞渐起。 你看见也好，看不见也没关系， 我找到你，它们才有意义

21、我可以错过黄昏的末班车 可以错过四月的樱花季 可以错过凛冽的太阳雨 可以错过很多很多 但唯独不能错过你

22、我夏天许了一个愿：夏天我自己过就好了，冬天你一定要来啊，然后你就来了。

23、我这个人什么都不是，没脑子，没钱，也没未来。可是我喜欢一个人，我想要给她最好的结局。

24、生气归生气，又不是不喜欢你。

25、右手敬礼，左手牵你。

26、你保护世界，我保护你。

27、我现在有点生气，等我一下，我缓一会，再来哄你

28、我没爱过别人，你是第一个，我怕我做的不好，让你觉得，爱情也不过如此。

29、我这个人不算太好，不算太坏，你姑且试试。

30、昨夜有繁星满天，今早有朝霞渐起。 你看见也好，看不见也没关系， 我找到你，它们才有意义。

'用我这个代码一定可以，不明白的百度HI我

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal Hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal Hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal Hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Declare Function SetWindowPos Lib "user32" (ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private 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

Private Const WM_SETTEXT = &HC

Private Const GW_HWNDFIRST = 0

Private Const GW_HWNDNEXT = 2

Private Const GW_CHILD = 5

Private Const WM_KEYDOWN = &H100

Private Const WM_KEYUP = &H101

Dim A() As Long '定义数组

Private Sub Command1_Click()

Temp = True

Dim Ai As Integer

Dim Ak As Integer

Dim Hwnd As Long, l As Long

Dim s As String, T As String

List1Clear

Hwnd = GetDesktopWindow()

Hwnd = GetWindow(Hwnd, GW_CHILD Or GW_HWNDFIRST)

While Hwnd <> 0

Hwnd = GetWindow(Hwnd, GW_HWNDNEXT)

s = String(256, Chr(0))

GetClassName Hwnd, s, 255

s = Replace(s, Chr(0), "")

T = String(256, Chr(0))

GetWindowText Hwnd, T, 255

T = Replace(T, Chr(0), "")

DoEvents

If Right(s, 11) = "8:10011:0:0" And Left(s, 4) = "Afx:" And T = "QQ游戏" Then '要匹配的窗口类名

EnumAllHandles Hwnd '枚举所有子控件/窗口

End If

Wend

If List1ListCount > 0 Then

ReDim A(0 To List1ListCount - 1) As Long

Dim i As Integer

For i = 0 To UBound(A)

A(i) = Val(Mid(List1List(i), 4))

T = Mid(List1List(i), InStr(List1List(i), "父句柄类型") + 6)

T = Left(T, 8)

If T <> "ComboBox" Then

A(i) = 0

End If

Next i

Else

Temp = False

MsgBox "未找到游戏窗口", vbCritical, "错误"

Exit Sub

End If

If List1ListCount > 0 Then

For i = 0 To UBound(A)

If A(i) <> 0 Then

l = SendMessage(A(i), WM_SETTEXT, 0, "aaaaaa" & Chr(0))

Sleep 10

DoEvents

l = PostMessage(A(i), WM_KEYDOWN, vbKeyReturn, 0)

Sleep 10

DoEvents

l = PostMessage(A(i), WM_KEYUP, vbKeyReturn, 0)

Sleep 10

DoEvents

End If

Next i

End If

End Sub

Private Sub EnumAllHandles(ByVal Hwnd As Long)

Dim hn As Long

Dim firsthd As Long

Dim s As String, T As String

firsthd = GetWindow(Hwnd, GW_CHILD)

firsthd = GetWindow(firsthd, GW_HWNDFIRST)

hn = firsthd

Do While hn <> 0

s = String(256, Chr(0))

GetClassName hn, s, 255

s = Replace(s, Chr(0), "")

T = String(256, Chr(0))

GetClassName Hwnd, T, 255

T = Replace(T, Chr(0), "")

DoEvents

If s = "Edit" Then '符合条件就加入到list里

List1AddItem "句柄:" & hn & " 父句柄:" & Hwnd & " 类名:" & s & "父句柄类型:" & T & vbCrLf

End If

EnumAllHandles hn '递归查找，不放过子控件

hn = GetWindow(hn, GW_HWNDNEXT)

If hn = firsthd Then Exit Do

Loop

End Sub

Private Sub Command2_Click()

End Sub

Set WshShell= WScriptCreateObject("WScriptShell")

WshShellAppActivate"ghjj"

for i=1 to 15

WScriptSleep 500

WshShellSendkeys"^v"

WshShellSendkeys i

WshShellSendkeys "%s"

Next

使用方法：先复制好一段文字，然后打开本VBS脚本，然后点击聊天窗口的输入框，OK。

for i=1 to 15，15是发送次数。

WScriptSleep 500，500是发送时间间隔单位是毫秒。

WshShellSendkeys i 这一句可以去掉，去掉后发送时就不显示发送的次数。