强制加入微信群软件！协议版！公开部分源码

今天跟大家分享一款微信强制加入群的软件，协议是朋友给我的，但是协议封装用的是易语言，功能还是很强大，可以突破微信加群限制！废话不多说，我们上界面：

软件界面：

软件使用教程：

导入二维码后，软件会自动分组二维码数据，然后通过模拟技术，自动加群操作。

部分协议代码：

.版本 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)

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

强制加入微信群软件！协议版！公开部分源码

猜你喜欢