強制加入微信群軟件！協議版！公開部分源碼

今天跟大家分享一款微信強制加入群的軟件，協議是朋友給我的，但是協議封裝用的是易語言，功能還是很強大，可以突破微信加群限制！廢話不多說，我們上界面：

軟件界面：

 

軟件使用教程：

導入二維碼后，軟件會自動分組二維碼數據，然后通過模擬技術，自動加群操作。

部分協議代碼：

.版本 2

.程序集 窗口程序集_啟動窗口
.程序集變量 m, 整數型
.程序集變量 n, 整數型
.程序集變量 t0, 文本型

.子程序 __啟動窗口_創建完畢, , , ' 本源碼來自三葉資源網(www.sanye.cx)

m ＝ 0  ' 本源碼來自三葉資源網(www.sanye.cx)
n ＝ 0

.子程序 GetCFHTML, 整數型
.參數 html, 文本型
.局部變量 URL, 文本型
.局部變量 start_html_offset, 整數型
.局部變量 end_html_offset, 整數型
.局部變量 start_fragment_offset, 整數型
.局部變量 end_fragment_offset, 整數型
.局部變量 result, 文本型
.局部變量 hMem, 整數型
.局部變量 lpMem, 整數型

' 代碼參考自CEF示例代碼中 特別鄙視MSDN提供錯誤的文檔
URL ＝ “about:blank”
start_html_offset ＝ #header_len ＋ 取文本長度 (URL) ＋ 2
start_fragment_offset ＝ start_html_offset ＋ 取文本長度 (#start_markup)
end_fragment_offset ＝ start_fragment_offset ＋ 取文本長度 (html)
end_html_offset ＝ end_fragment_offset ＋ 取文本長度 (#end_markup)
result ＝ 子文本替換 (#header, “%StartHTML%”, 數字 (start_html_offset), , 1, 真)
result ＝ 子文本替換 (result, “%EndHTML%”, 數字 (end_html_offset), , 1, 真)
result ＝ 子文本替換 (result, “%StartFragment%”, 數字 (start_fragment_offset), , 1, 真)
result ＝ 子文本替換 (result, “%EndFragment%”, 數字 (end_fragment_offset), , 1, 真)
result ＝ 子文本替換 (result, “%SourceURL%”, URL, , 1, 真)
result ＝ result ＋ #換行符 ＋ #start_markup ＋ html ＋ #end_markup
輸出調試文本 (result)
hMem ＝ GlobalAlloc (#GHND, 取文本長度 (result) ＋ 1)
.如果真 (hMem ≠ 0)
    lpMem ＝ GlobalLock (hMem)
    .如果真 (lpMem ≠ 0)
        寫到內存 (result, lpMem, )
        GlobalUnlock (hMem)
    .如果真結束

.如果真結束
返回 (hMem)

.子程序 數字, 文本型
.參數 int, 整數型

返回 (取文本右邊 (“0000000000” ＋ 到文本 (int), 10))

.子程序 程序等待
.參數 等待時間, 整數型, , 時間單位為毫秒，1000毫秒=1秒！
.局部變量 時間, 整數型

時間 ＝ 取啟動時間 ()
.循環判斷首 ()
    處理事件 ()
    延時 (10)  ' 默認為10毫秒，這個值，可以根據程序需要修改。
.循環判斷尾 (取啟動時間 () － 時間 ＜ 等待時間)

.子程序 GetText, 整數型
.參數 text, 文本型
.局部變量 hMem, 整數型
.局部變量 lpMem, 整數型

hMem ＝ GlobalAlloc (#GHND, 取文本長度 (text) ＋ 1)
.如果真 (hMem ≠ 0)
    lpMem ＝ GlobalLock (hMem)
    .如果真 (lpMem ≠ 0)
        寫到內存 (text, lpMem, )
        GlobalUnlock (hMem)
    .如果真結束

.如果真結束
返回 (hMem)



.子程序 wxPM, , , 把剪貼板內容頭投遞到微信里面
.參數 hwnd, 整數型, , 微信群窗口句柄
.局部變量 tid, 整數型
.局部變量 key, 字節型, , "256"

tid ＝ GetWindowThreadProcessId (hwnd, 0)  ' 獲取微信窗口進程標識
AttachThreadInput (GetCurrentThreadId (), tid, 1)  ' 注入線程，共享消息隊列，
GetKeyboardState (key)  ' 取得鍵盤上每個虛擬鍵當前的狀態
key [18] ＝ 128  ' 按下ctrl
SetKeyboardState (key)  ' 設置每個虛擬鍵當前在鍵盤上的狀態
PostMessageA (hwnd, #WM_KEYDOWN, #V鍵, 0)  ' 觸發按下V鍵
PostMessageA (hwnd, #WM_KEYUP, #V鍵, 0)  ' 觸發彈起V鍵
延時 (1000)  ' 本源碼來自三葉資源網(www.sanye.cx)
key [18] ＝ 0  ' 放開ctrl
SetKeyboardState (key)  ' 設置每個虛擬鍵當前在鍵盤上的狀態
PostMessageA (hwnd, #WM_KEYDOWN, #回車鍵, 0)  ' 觸發按下回車鍵
PostMessageA (hwnd, #WM_KEYUP, #回車鍵, 0)

 下載的話，百度搜：星空采集器 就可以了！！！