TC官方合作论坛

标题: 【有源码】连发工具示例源码 [打印本页]
作者: 章昊    时间: 2011-11-28 15:08
标题: 【有源码】连发工具示例源码
  1.     主空间：
  2.     #include"连发.t"
  3.     空间 DNF工具集
  4. DM=com("dm.dmsoft")
  5.     标示1,标示2,连发线程
  6.     功能 初始化()
  7.             辅助.注册插件("rc:dm.dll",真)
  8.     返回 真
  9.     功能结束

  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.     功能结束


  56.     //=============修改滑块数据重新获得新的毫秒======
  57.     功能 滑块0_鼠标释放() //连发1键
  58.     位置
  59.             位置=滑块.得到位置("滑块0")
  60.             辅助.等待(100)
  61.             标签.设置文本("间隔1",位置)
  62.     返回 真
  63.     功能结束

  65.     //======================================
  66.     功能 滑块1_鼠标释放() //连发2键
  67.     位置
  68.             位置=滑块.得到位置("滑块1")
  69.             辅助.等待(100)
  70.             标签.设置文本("间隔2",位置)
  71.     返回 真
  72.     功能结束

  74.     //======================================
  75.     功能 滑块2_鼠标释放() //连发3键
  76.     位置
  77.             位置=滑块.得到位置("滑块2")
  78.             辅助.等待(100)
  79.             标签.设置文本("间隔3",位置)
  80.     返回 真
  81.     功能结束

  83.     //======================================
  84.     功能 滑块3_鼠标释放() //连发4键
  85.     位置
  86.             位置=滑块.得到位置("滑块3")
  87.             辅助.等待(100)
  88.             标签.设置文本("间隔4",位置)
  89.     返回 真
  90.     功能结束

  92.     //======================================
  93.     功能 滑块4_鼠标释放()  //连发5键
  94.     位置
  95.             位置=滑块.得到位置("滑块4")
  96.             辅助.等待(100)
  97.             标签.设置文本("间隔5",位置)
  98.     返回 真
  99.     功能结束


  102.     //===============判断是否被选中=============
  103.     功能 复选框0_点击()
  104.     如果(复选框.获得状态("复选框0"))
  105.             复选框.设置文本("复选框0","选中")
  106.     否则
  107.             复选框.设置文本("复选框0","未选中")
  108.     如果结束
  109.     返回 真
  110.     功能结束

  112.     //======================================
  113.     功能 复选框1_点击()
  114.     如果(复选框.获得状态("复选框1"))
  115.             复选框.设置文本("复选框1","选中")
  116.     否则
  117.             复选框.设置文本("复选框1","未选中")
  118.     如果结束
  119.     返回 真
  120.     功能结束

  122.     //======================================
  123.     功能 复选框2_点击()
  124.     如果(复选框.获得状态("复选框2"))
  125.             复选框.设置文本("复选框2","选中")
  126.     否则
  127.             复选框.设置文本("复选框2","未选中")
  128.     如果结束
  129.     返回 真
  130.     功能结束

  132.     //======================================
  133.     功能 复选框3_点击()
  134.     如果(复选框.获得状态("复选框3"))
  135.             复选框.设置文本("复选框3","选中")
  136.     否则
  137.             复选框.设置文本("复选框3","未选中")
  138.     如果结束
  139.     返回 真
  140.     功能结束

  142.     //======================================
  143.     功能 复选框4_点击()
  144.     如果(复选框.获得状态("复选框4"))
  145.             复选框.设置文本("复选框4","选中")
  146.     否则
  147.             复选框.设置文本("复选框4","未选中")
  148.     如果结束
  149.     返回 真
  150.     功能结束

  152.     空间结束

复制代码


子空间：
  1.     空间 连发

  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.     功能结束

  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.     功能结束

  318.     空间结束
复制代码


[attach]1356[/attach]

【点击下载项目】：[attach]1357[/attach]

作者: TC管理员    时间: 2011-11-28 15:11
非常的不错,  支持一下。
作者: 小丶笨笨    时间: 2011-11-28 15:27
好家伙
作者: Abin    时间: 2011-11-28 15:33
支持下！！ 楼主精神不错！
作者: 来迟的书信    时间: 2011-11-29 22:55
强大
作者: qq693801589    时间: 2011-11-30 15:21
牛强大
作者: qq693801589    时间: 2011-11-30 15:22
:D试试
作者: rhbtkr    时间: 2011-12-11 12:17
顶顶顶顶顶顶顶顶顶顶
作者: v11ks    时间: 2011-12-17 09:56
写个脚本怪费劲的哈
作者: 99999999999    时间: 2011-12-17 11:14
xxxx谢谢谢谢谢谢谢谢谢谢谢谢惺惺相惜xxxx了
作者: yangzijun    时间: 2011-12-26 14:38
dfgdfgfdgfdgfdg
作者: ai学无尽    时间: 2011-12-26 23:30
hao难
作者: houzp    时间: 2012-2-17 16:47
能不能下载？
作者: 大哥哥哥    时间: 2012-2-17 19:53
刷刷刷刷刷刷刷刷
作者: 大哥哥哥    时间: 2012-2-17 20:04
不错
作者: w_w_w18    时间: 2012-3-12 22:31
看看学学看
作者: s654290    时间: 2012-3-13 17:02
:*学习了
作者: 198343靳中彬    时间: 2012-3-18 14:03
198343靳中彬在线| 短消息 | 通知 | 用户中心 |退出

积分:28 |用户组: TC菜pokpkjokpo
作者: 198343靳中彬    时间: 2012-3-18 14:50
http://bbs.tyuyan.com/thread-4724-1-1.htmlqwqww
作者: lliu1122    时间: 2012-3-30 21:15
看看这个能不能下载
作者: yj3134090    时间: 2012-4-25 12:53
看着好晕
作者: 1152632692    时间: 2012-5-8 15:06
纯属灌水。。。。
作者: 1152632692    时间: 2012-5-8 15:07
再灌下。。。。
作者: q405047127    时间: 2012-5-12 10:01
收入囊中,慢慢学习,.谢谢楼主分享
作者: iookk2012    时间: 2012-5-13 13:12
哦嘎嘎！
作者: q405047127    时间: 2012-5-14 16:07
支持下！！
作者: 无语的拉    时间: 2012-5-18 02:01
留名
作者: wangruibin8468    时间: 2012-5-20 14:17
sdasdasd
作者: wangruibin8468    时间: 2012-5-20 14:18
5546456456546
作者: wangruibin8468    时间: 2012-5-20 14:18
11111111111111111111111111111111
作者: wangruibin8468    时间: 2012-5-20 14:19
sadsadasdasdsa
作者: wangruibin8468    时间: 2012-5-20 14:19
saddsadasd
作者: wangruibin8468    时间: 2012-5-20 14:20
cccccccccccccccccccccc
作者: wangruibin8468    时间: 2012-5-20 14:20
7562sdsadas
作者: wangruibin8468    时间: 2012-5-20 14:21
dsadasdsadsa
作者: j03260101381    时间: 2012-5-30 20:45
不知道怎么编译
作者: 我叫SOD    时间: 2012-7-28 09:09
我无法下载--
作者: hzhee588    时间: 2012-7-31 15:39
回复 1楼章昊的帖子

非常不错的东西哦，学习学习
作者: li314011010    时间: 2012-7-31 15:54
a a a aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
作者: vvfb527    时间: 2012-8-10 00:59
251507962
作者: 1051785287    时间: 2012-8-10 08:44
好东西
作者: nxdiy    时间: 2012-11-2 07:08
非常的不错,  支持一下。
作者: a33632393    时间: 2013-9-18 09:05
谢谢楼主！



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