【源码】大漠后台模式选择检测+程序（完整公开）

小风子

昨晚写得，今天稍微修改了一下，时间有点仓促写得不是太好，希望大家给点建议。

说明一下：
大漠先自己注册一下，我写的不能保证通用；
模式测试可以一个个来，也可以一起测试；
鼠标延时是毫秒的，测试图像模式成功与否只需看d盘目录根有无screen.bmp文件，测试键鼠模式成功与否只能看程序里的活动情况，至于mode设置是和键鼠模式有密切联系的，具体设置说明可以参考大漠帮助文档 。
注：
脚本是可以做成自动检测的，具体怎么写你们自己研究。
在这里感谢一下小东的帮助，没他告诉我初始化设置，我想不会做得很如意。

1. #import "dm.dmsoft" dm
   
2. 空间 我的程序
   
3. 字符型 指向延时,标题,X,Y
   
4. 整型 asd,窗口,句柄方式,图像模式,鼠标模式,键盘模式,mode,按键码
   
5. 功能 逻辑型 初始化()
   
6. 下拉框.设置选项("下拉框0",0)
   
7. 下拉框.设置选项("下拉框1",0)
   
8. 下拉框.设置选项("下拉框2",0)
   
9. 下拉框.设置选项("下拉框3",0)
   
10. 下拉框.设置选项("下拉框4",0)
    
11. 下拉框.设置选项("下拉框5",0)
    
12. 返回 真
    
13. 功能结束
    
14. 功能 整型 大漠后台选择测试()
    
15. 整型 m1,x1,y1
    
16. 字符型 t,s,j,m
    
17. 逻辑型 是否成功
    
18. dm.SetPath("d:\")
    
19. 辅助.注册插件("rc:dm.dll",true)
    
20. 指向延时=编辑框.获得文本("编辑框0")
    
21. 标题=编辑框.获得文本("编辑框1")
    
22. X=编辑框.获得文本("编辑框2")
    
23. Y=编辑框.获得文本("编辑框3")
    
24. 
    
25. 句柄方式=下拉框.得到选项("下拉框0")
    
26. 图像模式=下拉框.得到选项("下拉框1")
    
27. 鼠标模式=下拉框.得到选项("下拉框2")
    
28. 键盘模式=下拉框.得到选项("下拉框3")
    
29. mode=下拉框.得到选项("下拉框4")
    
30. 按键码=下拉框.得到选项("下拉框5")
    
31. 
    
32. t=下拉框.获得内容("下拉框1",图像模式)
    
33. s=下拉框.获得内容("下拉框2",鼠标模式)
    
34. j=下拉框.获得内容("下拉框3",键盘模式)
    
35. m=下拉框.获得内容("下拉框4",mode)
    
36. 
    
37. 如果(句柄方式<0)
    
38. 辅助.消息框("请选择抓取方式")
    
39. 线程.关闭(asd)
    
40. 否则
    
41.         如果(句柄方式==0)
    
42.                 辅助.等待(转换.字符型转整型(指向延时))
    
43.                 窗口=窗口.鼠标所在窗口句柄()
    
44.                 如果(字符串.长度(指向延时)==0)
    
45.                         辅助.消息框("请填写鼠标延时")
    
46.                         线程.关闭(asd)
    
47.                 如果结束
    
48.         否则
    
49.                 如果(句柄方式==1)
    
50.                         窗口=窗口.找到窗口(标题)
    
51.                         如果(字符串.长度(标题)==0)
    
52.                                 辅助.消息框("请填写标题")
    
53.                                 线程.关闭(asd)
    
54.                         如果结束
    
55.                 如果结束
    
56.   如果结束
    
57. 如果结束
    
58. 
    
59. 如果(图像模式<0||鼠标模式<0||键盘模式<0||mode<0)
    
60.         辅助.消息框("请选择模式")
    
61.         线程.关闭(asd)
    
62. 如果结束
    
63. m1=转换.字符型转整型(m)
    
64. 
    
65. int 是否成功1=dm.BindWindow(窗口,t,s,j,m1)
    
66. 如果(是否成功1==0)   
    
67.         辅助.消息框("窗口绑定失败")
    
68.         线程.关闭(asd)  
    
69. 如果结束
    
70. 如果(复选框.获得状态("复选框2"))  
    
71.         dm.Capture(0,0,2000,2000,"d:\\screen.bmp")
    
72.         辅助.等待(1500)
    
73. 如果结束
    
74. 如果(复选框.获得状态("复选框0"))
    
75.         如果(字符串.长度(X)==0||字符串.长度(Y)==0)
    
76.                 辅助.消息框("坐标不能为空")
    
77.                 线程.关闭(asd)
    
78.         否则
    
79.                 x1=转换.字符型转整型(X)
    
80.                 y1=转换.字符型转整型(Y)
    
81.                 辅助.等待(200)
    
82.         如果结束
    
83.         如果(0<x1&&x1<750&&0<y1&&y1<550)
    
84.                 dm.MoveR(x1,y1)
    
85.                 辅助.等待(500)
    
86.                 dm.LeftClick()
    
87.                 辅助.等待(500)
    
88.                 dm.UnBindWindow()
    
89.                 辅助.等待(500)
    
90.         否则
    
91.                 辅助.消息框("输入的值符合0<x1<750和0<y1<550")
    
92.                 dm.RightClick()
    
93.                 线程.关闭(asd)
    
94.          如果结束
    
95. 如果结束
    
96. 如果(复选框.获得状态("复选框1"))
    
97.         如果(按键码<0)
    
98.                 辅助.消息框("请选择按键")
    
99.                 线程.关闭(asd)
    
100.         如果结束
     
101.         如果(按键码==0)
     
102.                 dm.KeyPress(77)
     
103.                 辅助.等待(500)
     
104.         否则
     
105.                 如果(按键码==1)
     
106.                 dm.KeyPress(9)
     
107.                 辅助.等待(500)
     
108.                 如果结束
     
109.         如果结束
     
110. 如果结束
     
111. 
     
112. 返回 0
     
113. 功能结束
     
114. 
     
115. 功能 逻辑型 开始_点击()   
     
116. asd=线程.开启("我的程序.大漠后台选择测试","")
     
117. 返回 真      
     
118. 功能结束  
     
119. 
     
120. 功能 逻辑型 退出_点击()
     
121. 
     
122. dm.RightClick()
     
123. 线程.关闭(asd)
     
124. 辅助.退出()
     
125. 返回 真      
     
126. 功能结束  
     
127. 空间结束
     
128. 
     

复制代码

更新：
由于很多人使用后没有跟帖提供点意见和错误，新工具暂时不提供源码！
工具更新地址：大漠后台模式半自动检测(带查看结果功能)
希望大家使用后给点意见！

小风子

代码已经更新，支持TC1.004Beat版:-D

你们真有素质！轻轻地来，轻轻地走！
用过也不给点意见，心碎了！

TC管理员

很好,支持原创,感谢分享.:D

小风子

看过之后，希望大家多给点意见！

↘夢想飛舞√

不错  有实用价值  顶！

TC

看起来很给力

clgall120

有什么实用！说说

小风子

回复 7楼clgall120的帖子

这要你得用大漠才会懂

熟睡

不错 支持   来顶下 :D

734181488

我靠 5威望