【有源码】连发工具示例源码

章昊

1.     主空间：
   
2.     #include"连发.t"
   
3.     空间 DNF工具集
   
4. DM=com("dm.dmsoft")
   
5.     标示1,标示2,连发线程
   
6.     功能 初始化()
   
7.             辅助.注册插件("rc:dm.dll",真)
   
8.     返回 真
   
9.     功能结束
   
10. 
    
11.     //=============连发线程启动程序==============
    
12.     功能 连发_点击()
    
13.             如果(标示1 == 1)
    
14.                     按钮.设置文本("连发","启动")
    
15.                     控件.有效("编辑框0",真)
    
16.                     控件.有效("编辑框1",真)
    
17.                     控件.有效("编辑框2",真)
    
18.                     控件.有效("编辑框3",真)
    
19.                     控件.有效("编辑框4",真)
    
20.                     标示1=0
    
21.                     线程.关闭(连发线程)
    
22.                     连发线程=0
    
23.                     返回 真
    
24.             如果结束
    
25.             如果(标示1 == 0)
    
26.                     标示1=1   
    
27.                     如果(复选框.获得状态("复选框0"))
    
28.                             控件.有效("编辑框0",假)
    
29.                     如果结束
    
30.                     如果(复选框.获得状态("复选框1"))
    
31.                             控件.有效("编辑框1",假)
    
32.                     如果结束
    
33.                     如果(复选框.获得状态("复选框2"))
    
34.                             控件.有效("编辑框2",假)
    
35.                     如果结束
    
36.                     如果(复选框.获得状态("复选框3"))
    
37.                             控件.有效("编辑框3",假)
    
38.                     如果结束
    
39.                     如果(复选框.获得状态("复选框4"))
    
40.                             控件.有效("编辑框4",假)
    
41.                     如果结束  
    
42.                     如果(!复选框.获得状态("复选框0")&&!复选框.获得状态("复选框1")&&!复选框.获得状态("复选框2")&&!复选框.获得状态("复选框3")&&!复选框.获得状态("复选框4"))
    
43.                             辅助.对话框("您没有选择任何连发按键，请重新选择启动!","温馨提示",0,true)  
    
44.                             返回 真
    
45.                     如果结束
    
46.                     按钮.设置文本("连发","停止")
    
47.                     //执行连发
    
48.                     如果(连发线程==0)
    
49.                             连发线程 = 线程.开启("连发.连发","")      
    
50.                     如果结束
    
51.             如果结束
    
52.     返回 真
    
53.     功能结束
    
54. 
    
55. 
    
56.     //=============修改滑块数据重新获得新的毫秒======
    
57.     功能 滑块0_鼠标释放() //连发1键
    
58.     位置
    
59.             位置=滑块.得到位置("滑块0")
    
60.             辅助.等待(100)
    
61.             标签.设置文本("间隔1",位置)
    
62.     返回 真
    
63.     功能结束
    
64. 
    
65.     //======================================
    
66.     功能 滑块1_鼠标释放() //连发2键
    
67.     位置
    
68.             位置=滑块.得到位置("滑块1")
    
69.             辅助.等待(100)
    
70.             标签.设置文本("间隔2",位置)
    
71.     返回 真
    
72.     功能结束
    
73. 
    
74.     //======================================
    
75.     功能 滑块2_鼠标释放() //连发3键
    
76.     位置
    
77.             位置=滑块.得到位置("滑块2")
    
78.             辅助.等待(100)
    
79.             标签.设置文本("间隔3",位置)
    
80.     返回 真
    
81.     功能结束
    
82. 
    
83.     //======================================
    
84.     功能 滑块3_鼠标释放() //连发4键
    
85.     位置
    
86.             位置=滑块.得到位置("滑块3")
    
87.             辅助.等待(100)
    
88.             标签.设置文本("间隔4",位置)
    
89.     返回 真
    
90.     功能结束
    
91. 
    
92.     //======================================
    
93.     功能 滑块4_鼠标释放()  //连发5键
    
94.     位置
    
95.             位置=滑块.得到位置("滑块4")
    
96.             辅助.等待(100)
    
97.             标签.设置文本("间隔5",位置)
    
98.     返回 真
    
99.     功能结束
    
100. 
     
101. 
     
102.     //===============判断是否被选中=============
     
103.     功能 复选框0_点击()
     
104.     如果(复选框.获得状态("复选框0"))
     
105.             复选框.设置文本("复选框0","选中")
     
106.     否则
     
107.             复选框.设置文本("复选框0","未选中")
     
108.     如果结束
     
109.     返回 真
     
110.     功能结束
     
111. 
     
112.     //======================================
     
113.     功能 复选框1_点击()
     
114.     如果(复选框.获得状态("复选框1"))
     
115.             复选框.设置文本("复选框1","选中")
     
116.     否则
     
117.             复选框.设置文本("复选框1","未选中")
     
118.     如果结束
     
119.     返回 真
     
120.     功能结束
     
121. 
     
122.     //======================================
     
123.     功能 复选框2_点击()
     
124.     如果(复选框.获得状态("复选框2"))
     
125.             复选框.设置文本("复选框2","选中")
     
126.     否则
     
127.             复选框.设置文本("复选框2","未选中")
     
128.     如果结束
     
129.     返回 真
     
130.     功能结束
     
131. 
     
132.     //======================================
     
133.     功能 复选框3_点击()
     
134.     如果(复选框.获得状态("复选框3"))
     
135.             复选框.设置文本("复选框3","选中")
     
136.     否则
     
137.             复选框.设置文本("复选框3","未选中")
     
138.     如果结束
     
139.     返回 真
     
140.     功能结束
     
141. 
     
142.     //======================================
     
143.     功能 复选框4_点击()
     
144.     如果(复选框.获得状态("复选框4"))
     
145.             复选框.设置文本("复选框4","选中")
     
146.     否则
     
147.             复选框.设置文本("复选框4","未选中")
     
148.     如果结束
     
149.     返回 真
     
150.     功能结束
     
151. 
     
152.     空间结束
     
153. 
     

复制代码

子空间：

1.     空间 连发
   
2. 
   
3.     功能 获取键码(键码)
   
4.     按键码
   
5.             如果(键码=="a")
   
6.                     按键码=97
   
7.                     返回 按键码
   
8.             如果结束
   
9.             如果(键码=="b")
   
10.                     按键码=98
    
11.                     返回 按键码
    
12.             如果结束
    
13.             如果(键码=="c")
    
14.                     按键码=99
    
15.                     返回 按键码
    
16.             如果结束
    
17.             如果(键码=="d")
    
18.                     按键码=100
    
19.                     返回 按键码
    
20.             如果结束
    
21.             如果(键码=="e")
    
22.                     按键码=101
    
23.                     返回 按键码
    
24.             如果结束
    
25.             如果(键码=="f")
    
26.                     按键码=102
    
27.                     返回 按键码
    
28.             如果结束
    
29.             如果(键码=="g")
    
30.                     按键码=103
    
31.                     返回 按键码
    
32.             如果结束
    
33.             如果(键码=="h")
    
34.                     按键码=104
    
35.                     返回 按键码
    
36.             如果结束
    
37.             如果(键码=="i")
    
38.                     按键码=105
    
39.                     返回 按键码
    
40.             如果结束
    
41.             如果(键码=="j")
    
42.                     按键码=106
    
43.                     返回 按键码
    
44.             如果结束
    
45.             如果(键码=="k")
    
46.                     按键码=107
    
47.                     返回 按键码
    
48.             如果结束
    
49.             如果(键码=="l")
    
50.                     按键码=108
    
51.                     返回 按键码
    
52.             如果结束
    
53.             如果(键码=="m")
    
54.                     按键码=109
    
55.                     返回 按键码
    
56.             如果结束
    
57.             如果(键码=="n")
    
58.                     按键码=110
    
59.                     返回 按键码
    
60.             如果结束
    
61.             如果(键码=="o")
    
62.                     按键码=111
    
63.                     返回 按键码
    
64.             如果结束
    
65.             如果(键码=="p")
    
66.                     按键码=112
    
67.                     返回 按键码
    
68.             如果结束
    
69.             如果(键码=="q")
    
70.                     按键码=113
    
71.                     返回 按键码
    
72.             如果结束
    
73.             如果(键码=="r")
    
74.                     按键码=114
    
75.                     返回 按键码
    
76.             如果结束      
    
77.             如果(键码=="s")
    
78.                     按键码=115
    
79.                     返回 按键码
    
80.             如果结束
    
81.             如果(键码=="t")
    
82.                     按键码=116
    
83.                     返回 按键码
    
84.             如果结束
    
85.             如果(键码=="u")
    
86.                     按键码=117
    
87.                     返回 按键码
    
88.             如果结束
    
89.             如果(键码=="v")
    
90.                     按键码=118
    
91.                     返回 按键码
    
92.             如果结束   
    
93.             如果(键码=="w")
    
94.                     按键码=119
    
95.                     返回 按键码
    
96.             如果结束
    
97.             如果(键码=="x")
    
98.                     按键码=120
    
99.                     返回 按键码
    
100.             如果结束
     
101.             如果(键码=="y")
     
102.                     按键码=121
     
103.                     返回 按键码
     
104.             如果结束
     
105.             如果(键码=="z")
     
106.                     按键码=122
     
107.                     返回 按键码
     
108.             如果结束      
     
109.             如果(键码=="A")
     
110.                     按键码=65
     
111.                     返回 按键码
     
112.             如果结束
     
113.             如果(键码=="B")
     
114.                     按键码=66
     
115.                     返回 按键码
     
116.             如果结束
     
117.             如果(键码=="C")
     
118.                     按键码=67
     
119.                     返回 按键码
     
120.             如果结束
     
121.             如果(键码=="D")
     
122.                     按键码=68
     
123.                     返回 按键码
     
124.             如果结束   
     
125.             如果(键码=="E")
     
126.                     按键码=69
     
127.                     返回 按键码
     
128.             如果结束
     
129.             如果(键码=="F")
     
130.                     按键码=70
     
131.                     返回 按键码
     
132.             如果结束
     
133.             如果(键码=="G")
     
134.                     按键码=71
     
135.                     返回 按键码
     
136.             如果结束
     
137.             如果(键码=="H")
     
138.                     按键码=72
     
139.                     返回 按键码
     
140.             如果结束
     
141.             如果(键码=="I")
     
142.                     按键码=73
     
143.                     返回 按键码
     
144.             如果结束
     
145.             如果(键码=="J")
     
146.                     按键码=74
     
147.                     返回 按键码
     
148.             如果结束
     
149.             如果(键码=="K")
     
150.                     按键码=75
     
151.                     返回 按键码
     
152.             如果结束
     
153.             如果(键码=="L")
     
154.                     按键码=76
     
155.                     返回 按键码
     
156.             如果结束
     
157.             如果(键码=="M")
     
158.                     按键码=77
     
159.                     返回 按键码
     
160.             如果结束
     
161.             如果(键码=="N")
     
162.                     按键码=78
     
163.                     返回 按键码
     
164.             如果结束
     
165.             如果(键码=="O")
     
166.                     按键码=79
     
167.                     返回 按键码
     
168.             如果结束
     
169.             如果(键码=="P")
     
170.                     按键码=80
     
171.                     返回 按键码
     
172.             如果结束
     
173.             如果(键码=="Q")
     
174.                     按键码=81
     
175.                     返回 按键码
     
176.             如果结束
     
177.             如果(键码=="R")
     
178.                     按键码=82
     
179.                     返回 按键码
     
180.             如果结束      
     
181.             如果(键码=="S")
     
182.                     按键码=83
     
183.                     返回 按键码
     
184.             如果结束
     
185.             如果(键码=="T")
     
186.                     按键码=84
     
187.                     返回 按键码
     
188.             如果结束
     
189.             如果(键码=="U")
     
190.                     按键码=85
     
191.                     返回 按键码
     
192.             如果结束
     
193.             如果(键码=="V")
     
194.                     按键码=86
     
195.                     返回 按键码
     
196.             如果结束   
     
197.             如果(键码=="W")
     
198.                     按键码=87
     
199.                     返回 按键码
     
200.             如果结束
     
201.             如果(键码=="X")
     
202.                     按键码=88
     
203.                     返回 按键码
     
204.             如果结束
     
205.             如果(键码=="Y")
     
206.                     按键码=89
     
207.                     返回 按键码
     
208.             如果结束
     
209.             如果(键码=="Z")
     
210.                     按键码=90
     
211.                     返回 按键码
     
212.             如果结束   
     
213.             辅助.对话框("只支持A-Z或者a-z之间的按键连发!","温馨提示",0,true)   
     
214.     返回 0
     
215.     功能结束
     
216. 
     
217.     功能 连发()
     
218.     位置1,位置2,位置3,位置4,位置5
     
219.     按键码1,按键码2,按键码3,按键码4,按键码5
     
220.     键码1,键码2,键码3,键码4,键码5
     
221.             如果(复选框.获得状态("复选框0"))
     
222.                     位置1 = 滑块.得到位置("滑块0")
     
223.                     标签.设置文本("间隔1",位置1)
     
224.                     键码1 = 编辑框.获得文本("编辑框0")
     
225.                     如果(字符串.长度(键码1)>0)
     
226.                             按键码1=连发.获取键码(键码1)            
     
227.                     否则
     
228.                             辅助.对话框("只支持A-Z或者a-z之间的按键连发!","温馨提示",0,true)   
     
229.                             返回 真
     
230.                     如果结束   
     
231.             如果结束
     
232.             如果(复选框.获得状态("复选框1"))
     
233.                     位置2 = 滑块.得到位置("滑块1")
     
234.                     标签.设置文本("间隔2",位置2)
     
235.                     键码2 = 编辑框.获得文本("编辑框1")
     
236.                     如果(字符串.长度(键码2)>0)
     
237.                             按键码2=连发.获取键码(键码2)            
     
238.                     否则
     
239.                             辅助.对话框("只支持A-Z或者a-z之间的按键连发!","温馨提示",0,true)   
     
240.                             返回 真
     
241.                     如果结束
     
242.             如果结束        
     
243.             如果(复选框.获得状态("复选框2"))
     
244.                     位置3 = 滑块.得到位置("滑块2")
     
245.                     标签.设置文本("间隔3",位置3)
     
246.                     键码3 = 编辑框.获得文本("编辑框2")        
     
247.                     如果(字符串.长度(键码3)>0)
     
248.                             按键码3=连发.获取键码(键码3)            
     
249.                     否则
     
250.                             辅助.对话框("只支持A-Z或者a-z之间的按键连发!","温馨提示",0,true)   
     
251.                             返回 真
     
252.                     如果结束
     
253.             如果结束           
     
254.             如果(复选框.获得状态("复选框3"))
     
255.                     位置4 = 滑块.得到位置("滑块3")
     
256.                     标签.设置文本("间隔4",位置4)
     
257.                     键码4 = 编辑框.获得文本("编辑框3")
     
258.                     如果(字符串.长度(键码4)>0)
     
259.                             按键码4=连发.获取键码(键码4)            
     
260.                     否则
     
261.                             辅助.对话框("只支持A-Z或者a-z之间的按键连发!","温馨提示",0,true)   
     
262.                             返回 真
     
263.                     如果结束
     
264.             如果结束        
     
265.             如果(复选框.获得状态("复选框4"))
     
266.                     位置5 = 滑块.得到位置("滑块4")
     
267.                     标签.设置文本("间隔5",位置5)
     
268.                     键码5 = 编辑框.获得文本("编辑框4")   
     
269.                     如果(字符串.长度(键码5)>0)
     
270.                             按键码5=连发.获取键码(键码5)            
     
271.                     否则
     
272.                             辅助.对话框("只支持A-Z或者a-z之间的按键连发!","温馨提示",0,true)   
     
273.                             返回 真
     
274.                     如果结束
     
275.             如果结束        
     
276.             
     
277.             循环(真)
     
278.                     如果(键盘.等待按键()-按键码1==0)  //连发1
     
279.     //                        遍历(4)
     
280.     //                                DM.KeyPress(按键码1)
     
281.                                     超级键盘.按键(按键码1,2)
     
282.                                     辅助.等待(位置1)
     
283.     //                        遍历结束
     
284.                     如果结束
     
285.                     如果(键盘.等待按键()-按键码2==0)  //连发2
     
286.     //                        遍历(10)
     
287.     //                                DM.KeyPress(按键码2)
     
288.                                     超级键盘.按键(按键码2,2)
     
289.                                     辅助.等待(位置2)
     
290.     //                        遍历结束
     
291.                     如果结束
     
292.                     如果(键盘.等待按键()-按键码3==0)  //连发3
     
293.     //                        遍历(10)
     
294.     //                                DM.KeyPress(按键码3)
     
295.                                     超级键盘.按键(按键码3,2)
     
296.                                     辅助.等待(位置3)
     
297.     //                        遍历结束
     
298.                     如果结束
     
299.                     如果(键盘.等待按键()-按键码4==0)  //连发4
     
300.     //                        遍历(10)
     
301.     //                                DM.KeyPress(按键码4)
     
302.                                     超级键盘.按键(按键码4,2)
     
303.                                     辅助.等待(位置4)
     
304.     //                        遍历结束
     
305.                     如果结束
     
306.                     如果(键盘.等待按键()-按键码5==0)  //连发5
     
307.     //                        遍历(10)
     
308.     //                                DM.KeyPress(按键码5)
     
309.                                     超级键盘.按键(按键码5,2)
     
310.                                     辅助.等待(位置5)
     
311.     //                        遍历结束
     
312.                     如果结束                       
     
313.                     辅助.等待(10)
     
314.             循环结束
     
315.     返回 真
     
316.     功能结束
     
317. 
     
318.     空间结束

复制代码

【点击下载项目】：

a33632393

谢谢楼主！

nxdiy

非常的不错,  支持一下。

1051785287

好东西

vvfb527

251507962

li314011010

a a a aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

hzhee588

回复 1楼章昊的帖子

非常不错的东西哦，学习学习

我叫SOD

我无法下载--

j03260101381

不知道怎么编译

wangruibin8468

dsadasdsadsa