原创 无限QQ上下线骚扰器

软件声明

骚扰好友所造成的后果自负（如黑名单，删除，分手告吹……）

主要原理就是FindWindowEx找到QQ的句柄后使用SendMessage函数狂点上线和隐身

模拟QQ无限上下线，您QQ里的好友的电脑就会发出连续持久的上线声音^_^

源代码和源程序：电信下载

核心代码：

Option Explicit
Private Declare Function FindWindowEx Lib “user32″ Alias “FindWindowExA” (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib “user32″ Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub run_Click()
Timer1.Interval = 1 / Text1 * 1000
If Timer1 = False Then
Timer1 = True
Label1 = “运行中”
ElseIf Timer1 = True Then
Timer1 = False
Label1 = “停止中”
End If
End Sub
Private Sub Form_Load()
Text1 = 5
Timer1 = False
Label1 = “停止中”
End Sub
Private Sub Timer1_Timer()
Dim hW1 As Long
hW1 = FindWindowEx(0, 0, “#32770″, “”)
If Timer1.Tag = “” Then
Timer1.Tag = “52lifan”
SendMessage hW1, &H111, &H3429, 0
Else
Timer1.Tag = “”
SendMessage hW1, &H111, &H344C, 0
End If
End Sub

其实还有一招更狠，就是飞信加对方手机发爆他手机 详见湖北移动事件