ailuwei 发表于 2017-9-14 20:27:39

自己写的.tmp出错,源码献上,去掉goto就能启动

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 dm, 大漠英文版
.程序集变量 窗口句柄, 整数型
.程序集变量 线程句柄, 整数型

.子程序 __启动窗口_创建完毕

注册COM组件 (取运行目录 () + “\dm.dll”)
.如果真 (判断大漠组件是否被注册 () = 假)
    信息框 (“注册大漠失败,请手动注册”, 0, , )
.如果真结束
dm.创建对象 ()


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

多线程 ()
许可证 = 线程_创建许可证 ()

.子程序 多线程

.如果真 (dm.WaitKey (116, 0) = 1)
    线程_启动 (&绑定窗口, , 线程句柄)
.如果真结束


.子程序 绑定窗口

线程_进入许可区 (许可证)

dm.创建对象 ()
窗口句柄 = dm.GetMousePointWindow ()
dm.BindWindow (窗口句柄, “normal”, “windows”, “windows”, 0)
脚本 ()

.子程序 脚本
.局部变量 x, 整数型
.局部变量 y, 整数型

dm.SetPath (“C:\Users\99125\Desktop\操作夹\御龙辅助”)
dm.SetDict (0, “C:\Users\99125\Desktop\操作夹\御龙辅助\字库.txt”)
Goto (“置:完成任务接受任务”)
Goto (“置:接受任务”)
.如果真 (dm.FindPic (0, 0, 600, 600, “接受任务.bmp”, “000000”, 1, 3, x, y) = -1)
    Goto (“跳:接受任务”)
.如果真结束
dm.MoveTo (519, 479)
dm.LeftDown ()
dm.LeftUp ()
Goto (“置:完成任务”)
.如果真 (dm.FindPic (0, 0, 600, 600, “完成任务.bmp”, “000000”, 1, 3, x, y) = -1)
    Goto (“跳:完成任务”)
.如果真结束
dm.MoveTo (519, 479)
dm.LeftDown ()
dm.LeftUp ()
Goto (“跳:完成任务接受任务”)
线程_退出许可区 (许可证)

ailuwei 发表于 2017-9-14 20:28:31

哪里出错了   ,求指教

ailuwei 发表于 2017-9-14 20:33:15

在多线程子程序出,如果真开始结束有个GOTO 跳转 ,加上这个就不行了

易辅 发表于 2017-9-14 23:01:55

GOTO不能乱用。请看事例来用。而且易本身没有GOTo!建议不用,你可以封装成子程序来进行 跳转调用
如果希望能及时得到解答。可以加入易辅的VIP!会有多名老师进行指导解答!

ailuwei 发表于 2017-9-15 10:04:28

随风 发表于 2017-9-14 23:01


做两个子程序进行循环嵌套    我去试试
页: [1]
查看完整版本: 自己写的.tmp出错,源码献上,去掉goto就能启动