求助大漠无限多开附源码

qianlanzf

  

启动线程 (&主线程, , )
启动线程 (&复线程, , )

子程序名	返回值类型	公开	备 注
主线程

变量名	类 型	静态	数组	备 注
循环	整数型
dm	dmsoft
hwnd	整数型

CoInitialize (0)
调试输出 (“对象： ” ＋ 到文本 (dm.dmsoft ()))
hwnd ＝ dm.GetMousePointWindow ()
dm.BindWindow (hwnd, “gdi”, “windows”, “windows”, 0)
判断循环首 (循环 ＝ 0)
dm.KeyPress (65)
延时 (1)
判断循环尾 ()
CoUninitialize ()

子程序名	返回值类型	公开	备 注
复线程

变量名	类 型	静态	数组	备 注
循环	整数型
dm	dmsoft
hwnd	整数型

CoInitialize (0)
调试输出 (“对象： ” ＋ 到文本 (dm.dmsoft ()))
hwnd ＝ dm.GetMousePointWindow ()
dm.BindWindow (hwnd, “gdi”, “windows”, “windows”, 0)
判断循环首 (循环 ＝ 0)
dm.KeyPress (65)
延时 (1)
判断循环尾 ()
CoUninitialize ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> 启动线程 (&主线程, , )<br /> 启动线程 (&复线程, , )<br /> <br /> .子程序 主线程<br /> .局部变量 循环, 整数型<br /> .局部变量 dm, dmsoft<br /> .局部变量 hwnd, 整数型<br /> <br /> CoInitialize (0)<br /> 调试输出 (“对象： ” ＋ 到文本 (dm.dmsoft ()))<br /> hwnd ＝ dm.GetMousePointWindow ()<br /> dm.BindWindow (hwnd, “gdi”, “windows”, “windows”, 0)<br /> .判断循环首 (循环 ＝ 0)<br />     dm.KeyPress (65)<br />     延时 (1)<br /> .判断循环尾 ()<br /> CoUninitialize ()<br /> <br /> .子程序 复线程<br /> .局部变量 循环, 整数型<br /> .局部变量 dm, dmsoft<br /> .局部变量 hwnd, 整数型<br /> <br /> CoInitialize (0)<br /> 调试输出 (“对象： ” ＋ 到文本 (dm.dmsoft ()))<br /> hwnd ＝ dm.GetMousePointWindow ()<br /> dm.BindWindow (hwnd, “gdi”, “windows”, “windows”, 0)<br /> .判断循环首 (循环 ＝ 0)<br />     dm.KeyPress (65)<br />     延时 (1)<br /> .判断循环尾 ()<br /> CoUninitialize ()

请看下上面的代码必须要每个子程序都要绑定窗口吗？可是每个子程序都绑定后窗口就崩溃了这怎么解决呢？

By:boredom

.版本 2
.支持库 spec

.程序集 窗口程序集_窗口1
.程序集变量 dx, dmsoft, , "0"
.程序集变量 大漠, dmsoft
.程序集变量 返回, 整数型
.程序集变量 hwnds, 文本型
.程序集变量 hwnds2, 文本型, , "0"
.程序集变量 数量, 整数型
.程序集变量 i, 整数型
.程序集变量 计次, 整数型
.程序集变量 线程ID, 整数型, , "0"
.程序集变量 HWND, 整数型
.程序集变量 线程句柄, 整数型

.子程序 _窗口1_创建完毕

大漠.创建 ()
返回 ＝ 大漠.Reg (“注册码”, “”)
.如果真 (返回 ＝ 1)
    编辑框_调试.加入文本 (“大漠注册成功。”, #换行符)
    大漠.SetPath (取当前目录 () ＋ “/图”)
.如果真结束
.如果真 (返回 ≠ 1)
    信息框 (“大漠注册失败。”, 0, , )
    编辑框_调试.加入文本 (“大漠注册失败。”, #换行符)
    结束 ()
.如果真结束


.子程序 _按钮1_被单击

hwnds ＝ 大漠.EnumWindow (0, “夜神安卓模拟器”, “”, 1 ＋ 4 ＋ 8 ＋ 16)
hwnds2 ＝ 分割文本 (hwnds, “,”, )
数量 ＝ 取数组下标 (hwnds2, )
编辑框_调试.加入文本 (“数量=” ＋ 到文本 (数量) ＋ #换行符)
重定义数组 (程序集_线程ID, 假, 数量)
重定义数组 (dx, 假, 数量)
.计次循环首 (数量, 计次)
    dx [计次].创建 ()
    HWND ＝ 到整数 (hwnds2 [计次])
    线程_启动多参_整数型 (&bdck, 计次, HWND, , , , 程序集_线程ID [计次])
    编辑框_调试.加入文本 (到文本 (HWND) ＋ #换行符)
    编辑框_调试.加入文本 (到文本 (程序集_线程ID [计次]) ＋ #换行符)
    延时 (1000)
.计次循环尾 ()

.子程序 bdck
.参数 多线程计次, 整数型
.参数 句柄, 整数型

线程_初始化COM库 ()
调试输出 (HWND)
' 返回 ＝ 大漠.SetWindowState (句柄, 1)
返回 ＝ dx [多线程计次].BindWindow (句柄, “gdi2”, “windows”, “windows”, 0)
返回 ＝ dx [多线程计次].Capture (0, 0, 200, 2000, “C:\screen.bmp”)

小淡

创建一个大漠数组变量就行

li738625231

绑定后台窗口的句柄用程序集变量，这里每个子程序都能用了。

为你走遍天涯

http://bbs.125.la/forum.php?mod= ... E%B6%E0%CF%DF%B3%CC
应该是这个吧，善用论坛搜索功能

By:boredom

JBJB  

mxm943171328

我就是来赚个精币

张七少

如果一个线程对应一个窗口，每个窗口单独绑定就可以了；如果是多个线程对应一个窗口，第一个绑定窗口的线程是主线程，其他绑定窗口的线程是副线程，只要主线程绑定了窗口就可以了，副线程绑定和解绑都不会影响

a2692816

慢慢来，后面还有软件崩溃的问题要解决，革命尚未成功，还需继续努力