贴一下源码-。-附件大，传不上。。话说，为什么生成的exe会这么大呢。。。刚使用，语法什么的乱，求指点
//=============================================================================================
#import "dm.dmsoft" dm
空间 多线程多开
//定义默认空间
//全局变量
整型 窗口数量
整型 线程_窗口句柄
整型 线程编号
功能 逻辑型 线程方法1()
//开始绑定窗口
整型 线程内_句柄
整型 绑定是否成功
线程内_句柄=线程_窗口句柄
//辅助.消息框(转换.整型转字符型(线程内_句柄))
循环(真)
绑定是否成功=dm.BindWindow(线程内_句柄,"dx","windows","windows",0)
如果(绑定是否成功==0)
辅助.消息框("绑定失败！")
辅助.退出()
否则
标签.设置文本("标签2","绑定成功！")
跳出
如果结束
循环结束
循环(真)
标签.设置文本("标签2","进入测试")
多线程多开.输入测试(线程内_句柄) //子线程主体部分
辅助.等待(10)
循环结束
//循环结束语句
返回 真
//函数返回语句
功能结束
//功能函数用完后结束该功能
功能 逻辑型 输入测试(整型 线程内_句柄)
整型 句柄
字符型 临时字符
句柄=线程内_句柄
临时字符=字符串.连接("句柄：",转换.整型转字符型(句柄))
临时字符=字符串.连接(临时字符,"，测试成功！！")
dm.SendString(句柄,临时字符)
辅助.等待(50)
dm.KeyPress(13)
返回 真
功能结束
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
多线程多开.注册插件()
辅助.等待(100)
多线程多开.获取句柄()
辅助.等待(100)
多线程多开.多开多线程绑定()
返回 真
//函数返回语句
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()
返回 真
//函数返回语句
功能结束
功能 逻辑型 注册插件()
逻辑型 是否成功=辅助.是否注册("dm.dmsoft")
如果(是否成功)
//辅助.消息框("插件已注册")
标签.设置文本("标签0","注册插件成功,按HOME开始获取窗口句柄")
否则
辅助.注册插件("rc:dm.dll",真) //rc: 使用资源中的文件
如果结束
返回 真
功能结束
功能 逻辑型 获取句柄()
整型 键值
整型 序号
整型 窗口句柄
字符型 窗口数量2
序号=0
窗口数量2=编辑框.获得文本("编辑框0")
窗口数量=转换.字符型转整型(窗口数量2,0)
循环(序号<窗口数量)
//当序号值小于26时，进入循环
//运行到这里暂停，等待按键响应
键值=键盘.等待按键()
如果(键值==36) //HOME键
窗口句柄=dm.GetMousePointWindow()//获取鼠标所指向的窗口句柄
列表框.增加文本("列表框0",转换.整型转字符型(窗口句柄))
序号=序号+1
辅助.等待(200)
如果结束
循环结束
标签.设置文本("标签0","句柄获取结束！")
返回 真
功能结束
功能 逻辑型 多开多线程绑定()
整型 序号
字符型 句柄
标签.设置文本("标签0","多线程绑定开启！")
序号=0
循环(序号<窗口数量)
句柄=列表框.获得文本("列表框0",序号)
线程_窗口句柄=转换.字符型转整型(句柄,0)
// 辅助.消息框(转换.整型转字符型(线程_窗口句柄))
线程编号=线程.开启("多线程多开.线程方法1")
辅助.等待(50)
列表框.增加文本("列表框1",转换.整型转字符型(线程编号))
//标签.设置文本("标签0",字符串.连接("开启",句柄))
序号=序号+1
循环结束
返回 真
功能结束
功能 逻辑型 按钮1_点击()
//这里添加你要执行的代码
整型 序号
字符型 线程句柄
序号=0
dm.UnBindWindow()
循环(序号<窗口数量)
线程句柄=列表框.获得文本("列表框1",序号)
线程.关闭(转换.字符型转整型(线程句柄,0))
序号=序号+1
循环结束
返回 真
功能结束
功能 逻辑型 销毁()
//这里添加你要执行的代码
整型 序号
字符型 线程句柄
序号=0
dm.UnBindWindow()
循环(序号<窗口数量)
线程句柄=列表框.获得文本("列表框1",序号)
线程.关闭(转换.字符型转整型(线程句柄,0))
序号=序号+1
循环结束
返回 真
功能结束
空间结束 |
/2 
发表于 2012-2-18 17:09:47
楼主
发表于 2012-2-18 19:06:09
发表于 2012-2-19 00:41:20
