|
5#

楼主 |
发表于 2013-8-9 22:59:19
|
只看该作者
- 空间 笑傲江湖
- 变量 dm
- dm=com("dm.dmsoft")
- //===========================================================================================================
- //===========================================================================================================
- 功能 热键0_热键()
- 线程句柄=线程.开启("笑傲江湖.后台操作","")
- 功能结束
- //===========================================================================================================
- //、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
- //===========================================================================================================
- 功能 后台操作()
- 变量 X,Y
- dm.Setpath(辅助.获取资源路径("rc:"))
- 变量 dm_ret,hwnd
- //1.设置路径
- 系统.设置路径(辅助.获取资源路径("rc:"))
- //2.设置字库
- dm_ret = dm.SetDict(0,"笑傲江湖.txt")
- //3.查找窗口句柄
- hwnd = dm.FindWindow("","笑傲江湖OL")
- 调试输出(hwnd)
- //4.绑定窗口
- dm_ret = dm.SetWindowState(hwnd,1)
- dm_ret = dm.BindWindow(hwnd,"dx2","dx2","dx",0)
- 如果(dm_ret!=1)
- 辅助.消息框("绑定失败,错误码:"&dm.GetLastError)
- 否则
- 调试输出("绑定成功")
- 如果结束
- help.sleep(5000)
- dm_ret=dm.FindColor(0,0,2000,2000,"123456-000000|aabbcc-030303|ddeeff-202020",1.0,0,intX,intY)
- 如果(intX >= 0&&intY >= 0)
- 如果(X >= 0&&Y >= 0)
- 辅助.消息框("找到")
- 否则
- 辅助.消息框("找不到")
- 如果结束
- 功能结束
- //===========================================================================================================
- //、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
- //===========================================================================================================
- 功能 初始化()
- //这里添加你要执行的代码
- 笑傲江湖.自动注册大漠插件("3.1232",false,"")
- 功能结束
- 功能 自动注册大漠插件(程序DM版本,trueorfalse,注册码)
- //程序DM版本="3.1229"
- 是否成功=辅助.是否注册("dm.dmsoft")
- 如果(是否成功)
- 调试输出("插件已注册")
- dm=com("dm.dmsoft")
- 调试输出("插件已注册,当前使用版本:"&dm.Ver())
- 如果(程序DM版本!=dm.Ver())
- 调试输出("插件已注册,插件版本错误重新注册")
- 是否成功=辅助.注册插件("rc:\\dm.dll",真)
- 如果(是否成功)
- dm=null
- dmm=com("dm.dmsoft")
- 调试输出("插件注册成功,注册版本")
- 辅助.退出()
- 如果结束
- 如果结束
- 否则
- 调试输出("插件未注册,开始注册插件")
- 是否成功=辅助.注册插件("rc:\\dm.dll",真)
- 如果(是否成功)
- 调试输出("插件注册成功")
- 如果结束
- 如果结束
- //程序运行到这个位置表示 插件注册成功了而且版本号也对了
- //注册收费大漠
- //如果 trueorfalse 表示传入的是 true
- 如果(trueorfalse)
- dm=null
- dm=com("dm.dmsoft")
- dm_ret = dm.Reg(注册码,"")
- 如果(dm_ret!=1)
- 辅助.消息框("注册失败,只能使用免费功能:"&dm_ret)
- 否则
- 调试输出("插件收费功能注册成功")
- 如果结束
- 如果结束
- 功能结束
- //===========================================================================================================
- //===========================================================================================================
- 功能 热键1_热键()
- //这里添加你要执行的代码
- 辅助.退出()
- 功能结束
- 空间结束
复制代码 好吧,我直接拿出我的,找色应该怎么写 |
|