|
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(144, 152)
Me.ListView1.TabIndex = 12
Me.ListView1.View = System.Windows.Forms.View.List
''''
''''RadioButton2
''''
Me.RadioButton2.Location = New System.Drawing.Point(12, 40)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(88, 24)
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.Text = "直到我叫停"
''''
''''RadioButton1
''''
Me.RadioButton1.Checked = True
Me.RadioButton1.Location = New System.Drawing.Point(12, 17)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(88, 24)
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "只发一次"
''''
''''ButtonStop
''''
Me.ButtonStop.Location = New System.Drawing.Point(16, 152)
Me.ButtonStop.Name = "ButtonStop"
Me.ButtonStop.Size = New System.Drawing.Size(56, 24)
Me.ButtonStop.TabIndex = 11
Me.ButtonStop.Text = "停止"
''''
''''Label3
''''
Me.Label3.Location = New System.Drawing.Point(96, 312)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(184, 24)
Me.Label3.TabIndex = 10
Me.Label3.Text = "---自由奔腾 wgscd----"
''''
''''Form1
''''
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.Color.SkyBlue
Me.ClientSize = New System.Drawing.Size(280, 325)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.GroupBox1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.Text = "QQ消息群炸机"
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub ButtonRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRefresh.Click
ListView1.Items.Clear() ''''清除元素
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
hwnd = 0
i = 0
Dim str As String
While 1
hwnd = FindWindowEx(0, hwnd, "#32770", vbNullString)
If hwnd = 0 Then
Exit While
Else
Str = New String(Chr(0), 50)
GetWindowText(hwnd, Str, 50)
Str = Str.TrimEnd(Chr(0))
If Str.StartsWith("与 ") And Str.EndsWith(" 聊天中") Then
''''聊天主窗口hwnd--子窗口hwnd2（发送BUTTON 和 hwnd3 的父窗口）--hwnd3(文本编辑框的父窗口）--文本编辑窗口句柄
hWndTalk(i) = hwnd ''''聊天主窗口句柄
hwnd2 = FindWindowEx(hwnd, 0, "#32770", vbNullString) ''''发送按钮 和 文本编辑框 的父窗口
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
hWndSend(i) = FindWindowEx(hwnd2, 0, vbNullString, "发送(&s)") ''''发送BUTTON 句柄
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
hwnd3 = FindWindowEx(hwnd2, 0, "AfxWnd42", vbNullString) ''''文本编辑框的父窗口
hWndEdit(i) = FindWindowEx(hwnd3, 0, "RICHEDIT", vbNullString) ''''文本编辑框的句柄
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
i += 1
Str = Str.Substring(2)
Str = Str.Replace(" 聊天中", "")
Dim item As Windows.Forms.ListViewItem
item = ListView1.Items.Add(Str)
item.Checked = True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If
End If
End While
End Sub
Private Sub ButtonStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStop.Click
If (Not MyThread Is Nothing) Then
MyThread.Abort()
End If
ButtonStart.Enabled = True
End Sub
Private Sub ButtonStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonStart.Click
sMess = Me.TextBox1.Text.ToString
If sMess = "" Then
MsgBox("请输入发送内容！")
&nb 上一页 [1] [2] [3] 下一页
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
