这个脚本为什么总是忽然自动关闭

进军易语言

运行2分多钟程序就会自动关闭，求解决，是循环导致卡死么？求方法

1. .版本 2
   
2. .支持库 dm
   
3. 
   
4. .程序集 窗口程序集1, , , 解决辅助自动关闭问题
   
5. 
   
6. .子程序 __启动窗口_创建完毕, , , 检查完毕，设置字库
   
7. 
   
8. dm.创建 ()
   
9. dm.SetPath (“c:\”)
   
10. dm.SetDict (0, “xw.txt”)
    
11. 
    
12. .子程序 _按钮1_被单击, , , 检查完毕，绑定窗口，DX模式前台辅助，进入开始找字
    
13. .局部变量 是否成功, 整数型, , , 绑定后，启动找字线程。
    
14. 
    
15. 窗口句柄 ＝ dm.FindWindow (“QQ炫舞”, “QQ炫舞”)
    
16. 标签1.标题 ＝ “正在挂机中”
    
17. .如果 (窗口句柄 ≠ 0)
    
18.     是否成功 ＝ dm.BindWindow (窗口句柄, “dx2”, “normal”, “normal”, 0)  ' 这里的键盘绑定模式可以更改为WINDOWS,不好使
    
19.     .如果 (是否成功 ＝ 1)
    
20.         输出调试文本 (“《QQ炫舞》游戏已经打开，可以愉快游戏！”)
    
21.         dm.SetWindowState (窗口句柄, 8)
    
22.         延时 (500)
    
23.         ' 线程_启动 (&开始找字, )
    
24.         开始找字 ()
    
25.     .否则
    
26.         输出调试文本 (“《QQ炫舞》游戏尚未打开，请先打开游戏！”)
    
27. 
    
28.     .如果结束
    
29. 
    
30. .否则
    
31. 
    
32. .如果结束
    
33. 
    
34. 
    
35. .子程序 开始找字
    
36. .局部变量 找到字1, 文本型
    
37. .局部变量 找到字2, 文本型
    
38. .局部变量 起始1, 整数型
    
39. .局部变量 跳舞键, 文本型
    
40. 
    
41. .' 判断循环首 (真)
    
42.     ' 延时 (100)  ' 因为是死循环，为程序优化，一定要加些延时
    
43.     ' 找到字1 ＝ dm.Ocr (275, 360, 535, 390, “006adb-0063d6”, 0.9)
    
44.     .' 如果 (取文本长度 (找到字1) ＞ 0)
    
45.         ' 延时 (300)  ' 如果这里不加延时，就会识别不全！
    
46.         ' 找到字2 ＝ dm.Ocr (275, 360, 535, 390, “006adb-0063d6”, 0.9)
    
47.         .' 如果 (取文本长度 (找到字2) ＞ 0)
    
48.             ' 输出调试文本 (“找到的字2------” ＋ 找到字2)
    
49.             ' ' 调用按键（）
    
50.         .否则
    
51. 
    
52.         .如果结束
    
53. 
    
54.     .否则
    
55. 
    
56.     .如果结束
    
57. 
    
58. .' 判断循环尾 ()
    
59. 
    
60. 
    
61. 
    
62. 
    
63. 找到字1 ＝ dm.Ocr (275, 360, 535, 390, “006adb-0063d6”, 0.9)
    
64. .如果 (取文本长度 (找到字1) ＞ 0)
    
65.     延时 (400)  ' 如果这里不加延时，就会识别不全！400能到9个，每次加50
    
66.     找到字2 ＝ dm.Ocr (275, 360, 535, 390, “006adb-0063d6”, 0.9)
    
67.     .如果 (取文本长度 (找到字2) ＞ 0)
    
68.         输出调试文本 (“找到的字2------” ＋ 找到字2)
    
69.         起始1 ＝ 1
    
70.         .计次循环首 (取文本长度 (找到字2) ÷ 2, )
    
71.             延时 (50)
    
72.             跳舞键 ＝ 取文本中间 (找到字2, 起始1, 2)
    
73.             输出调试文本 (跳舞键)
    
74.             .判断开始 (跳舞键 ＝ “上”)
    
75.                 dm.KeyPress (38)
    
76. 
    
77.             .默认
    
78. 
    
79.             .判断结束
    
80. 
    
81.             .判断开始 (跳舞键 ＝ “下”)
    
82.                 dm.KeyPress (40)
    
83.             .默认
    
84. 
    
85.             .判断结束
    
86. 
    
87.             .判断开始 (跳舞键 ＝ “左”)
    
88.                 dm.KeyPress (37)
    
89.             .默认
    
90. 
    
91.             .判断结束
    
92. 
    
93.             .判断开始 (跳舞键 ＝ “右”)
    
94.                 dm.KeyPress (39)
    
95.             .默认
    
96. 
    
97.             .判断结束
    
98. 
    
99.             起始1 ＝ 起始1 ＋ 2
    
100. 
     
101.         .计次循环尾 ()
     
102. 
     
103.         开始按键 ()
     
104.     .否则
     
105. 
     
106.     .如果结束
     
107. 
     
108. .否则
     
109.     开始找字 ()  ' 这里继续查找检查没有问题，通过！
     
110. .如果结束
     
111. 
     
112. 
     
113. .子程序 开始按键
     
114. .局部变量 跳舞键, 文本型
     
115. .局部变量 qiu, 文本型
     
116. .局部变量 qiu2, 文本型, , "1"
     
117. .局部变量 qx, 整数型
     
118. .局部变量 qy, 整数型
     
119. 
     
120. .判断循环首 (真)
     
121.     延时 (50)
     
122.     qiu ＝ dm.FindPicE (480, 336, 498, 349, “c:\qiu.bmp”, “000000”, 0.9, 0)
     
123.     qiu2 ＝ 分割文本 (qiu, “|”, )
     
124.     qx ＝ 到整数 (qiu2 [2])
     
125.     qy ＝ 到整数 (qiu2 [3])
     
126.     .如果 (qx ≥ 0 且 qy ≥ 0)
     
127.         ' 输出调试文本 (到文本 (qx) ＋ “----” ＋ 到文本 (qy))
     
128.         延时 (220)  ' 按空格时间可控
     
129.         dm.KeyPress (32)
     
130.         输出调试文本 (“按空格了”)
     
131.         跳出循环 ()
     
132.     .否则
     
133. 
     
134.     .如果结束
     
135. 
     
136. .判断循环尾 ()
     
137. 开始找字 ()
     
138. 
     
139. .子程序 预留程序
     
140. 
     
141. 
     
142. 
     
143. .子程序 __启动窗口_将被销毁
     
144. 
     
145. dm.UnBindWindow ()
     
146. 
     
147. 
     
148. .子程序 _按钮2_被单击
     
149. 
     
150. dm.UnBindWindow ()
     

复制代码

执着

大漠的没有使用过！