软件声明
骚扰好友所造成的后果自负(如黑名单,删除,分手告吹……)
主要原理就是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
Read More …
四月 24th, 2008 |