软件声明
骚扰好友所造成的后果自负（如黑名单，删除，分手告吹……）
主要原理就是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
其实还有一招更狠，就是飞信加对方手机发爆他手机 详见湖北移动事件
帆帆
35OpenID
您还没有登录，请登录后继续操作。
Gonten 2008-06-04 7:25 am 说：
呵呵，用VB写的呀～
[回复]
Gonten 2008-06-04 7:27 am 说：
支持VB，(*^__^*) 嘻嘻……
[回复]
星空无语 2008-06-04 11:28 am 说：
已经被上上下下的人搞得把那个上下线提醒给屏蔽了，明显这个人是罪魁祸首。。。哈哈~~
[回复]
匿名 2008-06-19 3:53 am 说：
我的怎么不能用啊？
[回复]
原创 QQ窗口抖动骚扰器 Beta | 帆帆工作室 2008-06-22 12:24 pm 说：
[...] 不用原来的无限上下器一样群体骚扰 1.下载变速齿轮 运行 下载地址 2.打开QQ [...]
原创 QQ窗口抖动骚扰器 Beta | 帆帆工作室 2008-07-28 4:20 pm 说：
这个软件在 QQ2008正式版不能用了 希望能改进一下！更新下版本 呵呵！！
[回复]
[Blocked by CommentsUseCookies] 帆帆更新 无线上下线骚扰器 QQ2008正式版更新 | 帆帆工作室 2008-08-08 10:34 am 说：
[...] 纳米下载：namipan 源代码 [...]
请教 2008-08-08 10:41 pm 说：
2008的上线和下线句柄怎样得到？？？2008用什么方法屏蔽我们查句柄？？？
[回复]
帆帆 2008-08-08 10:44 pm 说：
spy++
[回复]
请教 2008-08-08 11:09 pm 说：
谢谢！！回得这样快。我本以为用spy++得不到，刚刚试了原来真的可以得到。因为前一段时间我在QQ2009中用spy++得不到句柄，不知QQ2009的句柄要怎样得到。
[回复]
原创 无限上下线骚扰器 QQ2008正式版更新 | 帆帆工作室 2008-08-16 12:26 pm 说：
[...] 源代码 绿色联盟 « 上一篇 下一篇 » 所属分类: IT | RSS 2.0 | [...]
DMC龙九 2009-05-11 12:18 am 说：
我想找个师傅。你们谁愿意`就加我QQ哈 465077164
[回复]