大漠后台助手。。。

美特

1. #import "dm.dmsoft" dm
   
2. 空间 我的程序
   
3. 功能 逻辑型 截图()  
   
4. //这里添加你要执行的代码,这里是你点击开始按钮执行的代码
   
5. 整型 窗口句柄
   
6. 字符型 窗口
   
7. 整型 是否成功, 图象,鼠标,键盘,mode,d
   
8. 字符型 a,b,c
   
9. 图象=下拉框.得到选项("下拉框3")
   
10. 鼠标=下拉框.得到选项("下拉框0")
    
11. 键盘=下拉框.得到选项("下拉框1")
    
12. mode=下拉框.得到选项("下拉框2")
    
13. 如果(图象<0)
    
14. 辅助.消息框("请选择图像模式")
    
15. 如果结束
    
16. 如果(图象==0)
    
17. a="normal"
    
18. 如果结束
    
19. 如果(图象==1)
    
20. a="gdi"
    
21. 如果结束
    
22. 如果(图象==2)
    
23. a="gdi2"
    
24. 如果结束
    
25. 如果(图象==3)
    
26. a="dx2"
    
27. 如果结束
    
28. 如果(图象==4)
    
29. a="dx3"
    
30. 如果结束
    
31. 如果(图象==5)
    
32. a="dx"
    
33. 如果结束
    
34. 如果(鼠标<0)
    
35. 辅助.消息框("请选择鼠标模式")
    
36. 如果结束
    
37. 如果(鼠标==0)
    
38. b="normal"
    
39. 如果结束
    
40. 如果(鼠标==1)
    
41. b="windows"
    
42. 如果结束
    
43. 如果(鼠标==2)
    
44. b="windows2"
    
45. 如果结束
    
46. 如果(鼠标==3)
    
47. b="dx"
    
48. 如果结束
    
49. 如果(鼠标==4)
    
50. b="dx2"
    
51. 如果结束
    
52. 如果(键盘<0)
    
53. 辅助.消息框("请选择键盘模式")
    
54. 如果结束
    
55. 如果(键盘==0)
    
56. c="normal"
    
57. 如果结束
    
58. 如果(键盘==1)
    
59. c="windows"
    
60. 如果结束
    
61. 如果(键盘==2)
    
62. c="dx"
    
63. 如果结束
    
64. 如果(mode<0)
    
65. 辅助.消息框("请选择mode模式")
    
66. 如果结束
    
67. 如果(mode==0)
    
68. d=0
    
69. 如果结束
    
70. 如果(mode==1)
    
71. d=1
    
72. 如果结束
    
73. 如果(mode==2)
    
74. d=2
    
75. 如果结束
    
76. 如果(mode==3)
    
77. d=3
    
78. 如果结束
    
79. 
    
80. 窗口=编辑框.获得文本("编辑框0")
    
81. 窗口句柄=窗口.找到窗口(窗口)
    
82. 是否成功=dm.BindWindow(窗口句柄,a,b,c,d)
    
83. 如果(是否成功==0)  
    
84. 辅助.消息框("窗口绑定失败")  
    
85. 如果结束  
    
86. 如果(窗口句柄==0)  
    
87. 辅助.消息框("找不到窗口，窗口名称有误")  
    
88. 如果结束  
    
89. 辅助.等待(500)
    
90. 整型 X
    
91. 整型 Y
    
92. 辅助.等待(500)
    
93. dm.Capture(0,0,500,500,"d://screen.bmp")
    
94. 辅助.等待(500)
    
95. //dm.移动(X,Y)
    
96. //辅助.等待(500)
    
97. //dm.左键单击()
    
98. //辅助.等待(500)
    
99. dm.UnBindWindow()  
    
100. 返回 真  
     
101. //函数返回语句   
     
102. 功能结束  
     
103. 功能 逻辑型 鼠标()  
     
104. //这里添加你要执行的代码,这里是你点击开始按钮执行的代码
     
105. 整型 窗口句柄
     
106. 字符型 窗口
     
107. 整型 是否成功, 图象,鼠标,键盘,mode,d
     
108. 字符型 a,b,c
     
109. 图象=下拉框.得到选项("下拉框3")
     
110. 鼠标=下拉框.得到选项("下拉框0")
     
111. 键盘=下拉框.得到选项("下拉框1")
     
112. mode=下拉框.得到选项("下拉框2")
     
113. 如果(图象<0)
     
114. 辅助.消息框("请选择图像模式")
     
115. 如果结束
     
116. 如果(图象==0)
     
117. a="normal"
     
118. 如果结束
     
119. 如果(图象==1)
     
120. a="gdi"
     
121. 如果结束
     
122. 如果(图象==2)
     
123. a="gdi2"
     
124. 如果结束
     
125. 如果(图象==3)
     
126. a="dx2"
     
127. 如果结束
     
128. 如果(图象==4)
     
129. a="dx3"
     
130. 如果结束
     
131. 如果(图象==5)
     
132. a="dx"
     
133. 如果结束
     
134. 如果(鼠标<=0)
     
135. 辅助.消息框("请选择鼠标模式")
     
136. 如果结束
     
137. 如果(鼠标==1)
     
138. b="normal"
     
139. 如果结束
     
140. 如果(鼠标==2)
     
141. b="windows"
     
142. 如果结束
     
143. 如果(鼠标==3)
     
144. b="windows2"
     
145. 如果结束
     
146. 如果(鼠标==4)
     
147. b="dx"
     
148. 如果结束
     
149. 如果(鼠标==5)
     
150. b="dx2"
     
151. 如果结束
     
152. 如果(键盘<0)
     
153. 辅助.消息框("请选择键盘模式")
     
154. 如果结束
     
155. 如果(键盘==0)
     
156. c="normal"
     
157. 如果结束
     
158. 如果(键盘==1)
     
159. c="windows"
     
160. 如果结束
     
161. 如果(键盘==2)
     
162. c="dx"
     
163. 如果结束
     
164. 如果(mode<0)
     
165. 辅助.消息框("请选择mode模式")
     
166. 如果结束
     
167. 如果(mode==0)
     
168. d=0
     
169. 如果结束
     
170. 如果(mode==1)
     
171. d=1
     
172. 如果结束
     
173. 如果(mode==2)
     
174. d=2
     
175. 如果结束
     
176. 如果(mode==3)
     
177. d=3
     
178. 如果结束
     
179. 
     
180. 窗口=编辑框.获得文本("编辑框0")
     
181. 窗口句柄=窗口.找到窗口(窗口)
     
182. 是否成功=dm.BindWindow(窗口句柄,a,b,c,d)
     
183. 如果(是否成功==0)  
     
184. 辅助.消息框("窗口绑定失败")  
     
185. 如果结束  
     
186. 如果(窗口句柄==0)  
     
187. 辅助.消息框("找不到窗口，窗口名称有误")  
     
188. 如果结束  
     
189. 辅助.等待(500)
     
190. dm.MoveTo(300,300)
     
191. 辅助.等待(500)
     
192. dm.LeftClick()
     
193. 辅助.等待(500)
     
194. dm.UnBindWindow()  
     
195. 
     
196. 返回 真  
     
197. //函数返回语句   
     
198. 功能结束  
     
199. 
     
200. 功能 逻辑型 键盘()  
     
201. //这里是你退出的时候要执行的代码,这类是你点击退出按钮执行的代码
     
202. 整型 窗口句柄
     
203. 字符型 窗口
     
204. 整型 是否成功, 图象,鼠标,键盘,mode,d
     
205. 字符型 a,b,c
     
206. 图象=下拉框.得到选项("下拉框3")
     
207. 鼠标=下拉框.得到选项("下拉框0")
     
208. 键盘=下拉框.得到选项("下拉框1")
     
209. mode=下拉框.得到选项("下拉框2")
     
210. 如果(图象<0)
     
211. 辅助.消息框("请选择图像模式")
     
212. 如果结束
     
213. 如果(图象==0)
     
214. a="normal"
     
215. 如果结束
     
216. 如果(图象==1)
     
217. a="gdi"
     
218. 如果结束
     
219. 如果(图象==2)
     
220. a="gdi2"
     
221. 如果结束
     
222. 如果(图象==3)
     
223. a="dx2"
     
224. 如果结束
     
225. 如果(图象==4)
     
226. a="dx3"
     
227. 如果结束
     
228. 如果(图象==5)
     
229. a="dx"
     
230. 如果结束
     
231. 如果(鼠标<0)
     
232. 辅助.消息框("请选择鼠标模式")
     
233. 如果结束
     
234. 如果(鼠标==0)
     
235. b="normal"
     
236. 如果结束
     
237. 如果(鼠标==1)
     
238. b="windows"
     
239. 如果结束
     
240. 如果(鼠标==2)
     
241. b="windows2"
     
242. 如果结束
     
243. 如果(鼠标==3)
     
244. b="dx"
     
245. 如果结束
     
246. 如果(鼠标==4)
     
247. b="dx2"
     
248. 如果结束
     
249. 如果(键盘<0)
     
250. 辅助.消息框("请选择键盘模式")
     
251. 如果结束
     
252. 如果(键盘==0)
     
253. c="normal"
     
254. 如果结束
     
255. 如果(键盘==1)
     
256. c="windows"
     
257. 如果结束
     
258. 如果(键盘==2)
     
259. c="dx"
     
260. 如果结束
     
261. 如果(mode<0)
     
262. 辅助.消息框("请选择mode模式")
     
263. 如果结束
     
264. 如果(mode==0)
     
265. d=0
     
266. 如果结束
     
267. 如果(mode==1)
     
268. d=1
     
269. 如果结束
     
270. 如果(mode==2)
     
271. d=2
     
272. 如果结束
     
273. 如果(mode==3)
     
274. d=3
     
275. 如果结束
     
276. 窗口=编辑框.获得文本("编辑框0")
     
277. 窗口句柄=窗口.找到窗口(窗口)
     
278. 如果(窗口句柄==0)  
     
279. 辅助.消息框("找不到窗口，窗口名称有误")  
     
280. 如果结束  
     
281. 是否成功=dm.BindWindow(窗口句柄,a,b,c,d)
     
282. 如果(是否成功==0)  
     
283. 辅助.消息框("窗口绑定失败")  
     
284. 如果结束  
     
285. 
     
286. 辅助.等待(500)
     
287. dm.KeyPress(9)
     
288. 辅助.等待(500)
     
289. dm.UnBindWindow()  
     
290. 返回 真  
     
291. //函数返回语句   
     
292. 功能结束  
     
293. 空间结束  

复制代码

TC管理员

先顶下,找个时间看下 :D

q277861841

看看什么？

诚诚

脚本写得还算有调理！建议多收集些用户的需求，看哪方便功能是很多用户需要的。然后尝试做下！对以后我们TC收费后，可以推出来卖！

Abin

用来测试一款游戏支持什么模式，这个工具应该完全可以使用！不错！:strong:

小风子

支持一下你

jemmy8288

先看看再主吧

小王

好东西要顶！

↘夢想飛舞√

不错 顶

734181488

支持 下 黑