TC官方合作论坛

标题: 大漠后台助手。。。 [打印本页]
作者: 美特    时间: 2011-7-1 18:30
标题: 大漠后台助手。。。
  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. 如果结束

  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. 如果结束

  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()  

  196. 返回 真  
  197. //函数返回语句   
  198. 功能结束  

  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. 如果结束  

  286. 辅助.等待(500)
  287. dm.KeyPress(9)
  288. 辅助.等待(500)
  289. dm.UnBindWindow()  
  290. 返回 真  
  291. //函数返回语句   
  292. 功能结束  
  293. 空间结束  
复制代码
[attach]103[/attach]

作者: TC管理员    时间: 2011-7-1 18:49
先顶下,找个时间看下 :D
作者: q277861841    时间: 2011-7-1 19:15
看看什么？
作者: 诚诚    时间: 2011-7-2 11:17
脚本写得还算有调理！建议多收集些用户的需求，看哪方便功能是很多用户需要的。然后尝试做下！对以后我们TC收费后，可以推出来卖！
作者: Abin    时间: 2011-7-2 11:25
用来测试一款游戏支持什么模式，这个工具应该完全可以使用！不错！:strong:
作者: 小风子    时间: 2011-7-2 12:45
支持一下你
作者: jemmy8288    时间: 2011-7-2 12:51
先看看再主吧
作者: 小王    时间: 2011-7-2 16:39
好东西要顶！
作者: ↘夢想飛舞√    时间: 2011-7-3 08:00
不错 顶
作者: 734181488    时间: 2011-7-3 17:09
支持 下 黑
作者: jjcoall    时间: 2011-7-3 23:02
晕哦，这个什么东东。。。
作者: XSJ1366    时间: 2011-7-5 16:18
支持 下 黑
作者: osp321    时间: 2011-7-5 20:14
应该搞个全自动的！！！
作者: 超自然    时间: 2011-7-5 22:29
虽然我有自用的,聊聊几行,一样能用.但楼主造福后来新手,不得不顶:coffee赞一个^^^^^
作者: likai890614    时间: 2011-7-9 17:10
顶下....
作者: ac17    时间: 2011-7-12 23:16
有幫助呀~~~
作者: 美特    时间: 2011-7-14 01:43
:D谢谢 支持
作者: bbydyang    时间: 2011-8-2 03:06
105行有错误
作者: 永恒De浪子    时间: 2011-8-2 14:38
说真的，写得太好了，偶像啊、
作者: cpffyy    时间: 2011-8-3 17:15
好强大啊
作者: maple185    时间: 2011-8-4 17:59
给力:strong:
作者: 莫等待丶相识并非偶然    时间: 2011-8-8 13:15
怎么获得威望啊？
作者: shi036    时间: 2011-8-19 09:42
下下来后运行不了~~~
作者: 全世界失眠    时间: 2011-8-19 10:48
支持下。
作者: xieping    时间: 2011-8-25 18:22
支持支持
作者: taozai    时间: 2011-9-3 01:35
顶哦  强大
作者: make80801    时间: 2011-10-5 16:00
有官方关于大漠的用法介绍吗
作者: lu19750122    时间: 2011-10-5 17:48
先顶下,找个时间看
作者: 961560902    时间: 2011-10-6 00:33
顶个
作者: liudonghui    时间: 2011-10-22 19:45
恍惚 - -   看不懂撒
作者: 我菜菜    时间: 2011-10-22 21:58
顶起来
作者: q604202115    时间: 2011-10-23 02:15
怎么用啊
作者: lilong120282794    时间: 2011-10-24 10:13
围观
作者: loveliyio    时间: 2011-10-24 18:02
好像很厉害哦  谢谢分享
作者: lzh1240214    时间: 2011-10-25 12:22
顶下 呵呵
作者: TC小鸟    时间: 2011-10-25 14:14
顶上先
作者: 254642432    时间: 2011-11-22 09:37
真的很好  希望早点能下载
作者: 啊B    时间: 2011-11-22 16:47
好东西啊
作者: cttao_ifamily    时间: 2011-11-23 13:34
哎~，灌水来了6
作者: q_azwsx    时间: 2011-11-23 16:54
好东西要顶
作者: yu7871314    时间: 2011-11-27 18:29
看看~~~~~~~~~~~看看~~~~~~~~~~~看看~~~~~~~~~~~
作者: 4107125    时间: 2011-11-29 21:34
看看什么？
作者: 来迟的书信    时间: 2011-11-29 22:58
看看是什么东西
作者: 892348339    时间: 2011-12-2 11:18
看不懂哦
作者: 24466588    时间: 2011-12-2 14:44
只有看的份没有下的份
作者: piaomiaolb    时间: 2011-12-2 23:56
这都什么和什么啊...没看懂哎
作者: foxho    时间: 2011-12-9 23:24
学习来了
作者: v11ks    时间: 2011-12-11 17:11
这是动态调整绑定模式？
作者: mtakgna    时间: 2011-12-13 09:58
学习了。:D
作者: 禁言期来看贴    时间: 2011-12-17 19:53
看看附件的东西
作者: 371882999    时间: 2011-12-24 11:22
dddddddddddddddd
作者: daoxiaoxia    时间: 2011-12-28 16:56
大漠助手合用 新手
作者: 浅色咖啡    时间: 2012-1-3 02:24
支持
作者: q100012321    时间: 2012-2-20 20:34
啊啊啊啊啊啊啊啊啊啊啊啊
作者: htweb    时间: 2012-4-2 14:23
学习..支持楼主~~
作者: wxzx520    时间: 2012-4-3 18:36
好是好，就是版本更新了，用不了
作者: ljg001    时间: 2012-4-19 17:20
可能是好东西.要顶！
作者: s463813442    时间: 2012-4-21 19:32
顶顶顶
作者: wqsaxz    时间: 2012-4-22 08:07
回复 1楼美特的帖子

好东西要顶
作者: xfz372062556    时间: 2012-4-22 13:42
支持下 汗
作者: qq286254252    时间: 2012-4-22 15:10
求给力的！~ 我想用啊
作者: vincent199072    时间: 2012-4-22 21:15
不错谢谢
作者: 532537470    时间: 2012-5-6 15:39
回复 1楼美特的帖子

shenmodongdong
作者: hgaruda    时间: 2012-5-6 21:57
俺的积分不足。。。
作者: hgaruda    时间: 2012-5-6 22:02
哇撒。我才1个金子啊
作者: hgaruda    时间: 2012-5-6 22:03
我都晕了。。我的金子都哪去了。。先弄个试试好了
作者: hgaruda    时间: 2012-5-6 22:03
唉。。可以的话我在弄个VIP。。
作者: hgaruda    时间: 2012-5-6 22:04
先研究研究，我很想自己弄个简易的看看
作者: taotao_15    时间: 2012-5-24 22:18
henhao
作者: sazx    时间: 2012-7-19 11:13
怎么用啊！！！！！！！！！！
作者: ba786310    时间: 2012-7-19 23:20
该回复时就回复
作者: ba786310    时间: 2012-7-19 23:21
回复也说我没在该项用户是怎么回事。
作者: 泣血    时间: 2012-7-27 20:00
看看
作者: bulunbulei    时间: 2012-9-1 13:19
万分感谢
作者: 105735417    时间: 2012-9-2 07:01
谢谢分享
作者: hljtlwxq    时间: 2012-9-2 09:02
拿积分
作者: myismaln    时间: 2012-9-21 19:57
下来看看，顶下
作者: gaobo888999    时间: 2012-9-25 08:00
才摸 不会啊
作者: qohqoh    时间: 2012-11-2 07:16
顶下
作者: koys5210    时间: 2012-11-19 20:07
   新人 来到
作者: 极风天下    时间: 2013-2-2 08:43
不错  顶起来
作者: 894975235mm    时间: 2013-8-5 17:00
支持
作者: 菜鸟狙丶    时间: 2013-8-24 11:39
不错的工具



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1