TC官方合作论坛

 找回密码
 立即注册
查看: 889|回复: 2
打印 上一主题 下一主题

[问题] 代码运行正常,但是编辑框没有效果,还有帮忙搞个线程,不然经常崩溃。

[复制链接]
跳转到指定楼层
楼主
发表于 2012-8-3 17:41:13 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
  1. 空间 我的TU
  2. 逻辑型 有效标志
  3. 字符型 字符串,字符串1,字符串2
  4. 整型 键码,返回功能键
  5. 整型 x1,x2,x3,x4,y1,y2,y3,y4
  6. 字符型 路径
  7. 字符型[]  返回串


  8. 功能 逻辑型 按钮0_点击()
  9. //这里添加你要执行的代码
  10. 热键.注册("热键0")
  11. 热键.注册("热键1")
  12. 热键.注册("热键2")
  13.   整型 a=0
  14. 重复(4)
  15. 热键.获得("热键"+convert.inttostr(a),键码,返回功能键)
  16. 辅助.写配置("键码","键码"+convert.inttostr(a),convert.inttostr(键码),"C:\\设置.ini")
  17. 辅助.写配置("键码","返回功能键"+convert.inttostr(a),convert.inttostr(返回功能键),"C:\\设置.ini")
  18. a=a+1
  19. 重复结束
  20. 辅助.写配置("Tx","x1",编辑框.获得文本("编辑框0"),"C:\\设置.ini")
  21. 辅助.写配置("Ty","y1",编辑框.获得文本("编辑框1"),"C:\\设置.ini")
  22. 辅助.写配置("Ux","x2",编辑框.获得文本("编辑框2"),"C:\\设置.ini")
  23. 辅助.写配置("Uy","y2",编辑框.获得文本("编辑框3"),"C:\\设置.ini")
  24. 辅助.写配置("图上x","x3",编辑框.获得文本("编辑框4"),"C:\\设置.ini")
  25. 辅助.写配置("图上y","y3",编辑框.获得文本("编辑框5"),"C:\\设置.ini")
  26. 辅助.写配置("图下x","x4",编辑框.获得文本("编辑框6"),"C:\\设置.ini")
  27. 辅助.写配置("图下y","y4",编辑框.获得文本("编辑框7"),"C:\\设置.ini")
  28. 辅助.写配置("抓图","浏览",浏览框.获得("浏览框0"),"C:\\设置.ini")
  29. 返回 真
  30. 功能结束   





  31. 功能 逻辑型 热键0_热键()
  32. keyboard.keydown(98)
  33. keyboard.keyup(98)  

  34. 整型 图像值
  35. 图像值=图像.坐标点取色(124,39)
  36. 整型 R,G,B
  37. 逻辑型 转换=图像.颜色值转RGB值(图像值,R,G,B)
  38. 如果(R<140)
  39. keyboard.keydown(99)
  40. keyboard.keyup(99)  
  41. 否则
  42. 如果结束

  43. 图像值=图像.坐标点取色(164,96)
  44. 转换=图像.颜色值转RGB值(图像值,R,G,B)
  45. 如果(B<140)
  46. keyboard.keydown(97)
  47. keyboard.keyup(97)  
  48. 否则
  49. 如果结束
  50.   
  51. 字符型  获取浏览内容
  52. 获取浏览内容=浏览框.获得("浏览框0")
  53. 整型 图像序号,返回的x坐标,返回的y坐标
  54. 图像序号=图像.找图(0,0,1440,900,获取浏览内容,#203040,0.8,0,返回的x坐标,返回的y坐标)
  55. if(图像序号>=0)
  56. x3=convert.strtoint(编辑框.获得文本("编辑框4"),0)
  57. y3=convert.strtoint(编辑框.获得文本("编辑框5"),0)
  58. x4=convert.strtoint(编辑框.获得文本("编辑框6"),0)
  59. y4=convert.strtoint(编辑框.获得文本("编辑框7"),0)
  60. 辅助.截图(x3,y3,x4,y4,路径)

  61. keyboard.keydown(120)
  62. keyboard.keyup(120)

  63. 否则
  64. keyboard.keydown(118)
  65. keyboard.keyup(118)
  66. 如果结束
  67. 返回 真
  68. 功能结束

  69. 功能 逻辑型 热键1_热键()

  70. keyboard.keydown(105)
  71. keyboard.keyup(105)

  72. 返回 真
  73. 功能结束

  74. 功能 逻辑型 热键2_热键()
  75. keyboard.keydown(37)
  76. keyboard.keyup(37)

  77. 返回 真
  78. 功能结束

  79. 功能 逻辑型 初始化()
  80. //这里添加你要执行的代码
  81. 整型 k=0
  82. 重复(3)
  83. 字符串=辅助.读配置("键码","键码"+convert.inttostr(k),"C:\\设置.ini")
  84. 字符串1=辅助.读配置("键码","返回功能键"+convert.inttostr(k),"C:\\设置.ini")
  85. 热键.设置("热键"+convert.inttostr(k),convert.strtoint(字符串),convert.strtoint(字符串1))
  86. 热键.销毁("热键"+convert.inttostr(k))
  87. k=k+1
  88. 重复结束

  89. 字符串=辅助.读配置("Tx","x1","C:\\设置.ini")
  90. 编辑框.设置文本("编辑框0",字符串)
  91. 字符串=辅助.读配置("Ty","y1","C:\\设置.ini")
  92. 编辑框.设置文本("编辑框1",字符串)
  93. 字符串=辅助.读配置("Ux","x2","C:\\设置.ini")
  94. 编辑框.设置文本("编辑框2",字符串)
  95. 字符串=辅助.读配置("Uy","y2","C:\\设置.ini")
  96. 编辑框.设置文本("编辑框3",字符串)
  97. 字符串=辅助.读配置("图上x","x3","C:\\设置.ini")
  98. 编辑框.设置文本("编辑框4",字符串)
  99. 字符串=辅助.读配置("图上y","y3","C:\\设置.ini")
  100. 编辑框.设置文本("编辑框5",字符串)
  101. 字符串=辅助.读配置("图下x","x4","C:\\设置.ini")
  102. 编辑框.设置文本("编辑框6",字符串)
  103. 字符串=辅助.读配置("图下y","y4","C:\\设置.ini")
  104. 编辑框.设置文本("编辑框7",字符串)
  105. 字符串=辅助.读配置("抓图","浏览","C:\\设置.ini")
  106. 浏览框.设置("浏览框0",字符串)

  107. 返回 真
  108. 功能结束

  109. 功能 逻辑型 热键3_热键()
  110. 如果(有效标志)   
  111. 热键.销毁("热键0")
  112. 热键.销毁("热键1")
  113. 热键.销毁("热键2")
  114. 有效标志=假
  115. 否则
  116. 热键.注册("热键0")
  117. 热键.注册("热键1")
  118. 热键.注册("热键2")
  119. 有效标志=真
  120. 如果结束
  121. 返回 真
  122. 功能结束
  123. 空间结束
复制代码




1:上面的代码,两个坐标点取色,一个范围找图。
界面是编辑框输入坐标,然后取色。

2:找图可以找,但是编辑框输入的坐标无效。

3:帮我写个线程,我是3个热键控制的,不是全自动,是按一个热键执行一次任务,3个热键,分别执行3个任务。

回复

使用道具 举报

沙发
发表于 2012-8-3 18:00:55 | 只看该作者
1.编辑框 解释过了 先要获取编辑框的内容 然后再找图
2.你可以再定一个热键 热键功能是按那三个热键对应的按键 达到按一个就开始3个任务
回复 支持 反对

使用道具 举报

板凳
 楼主| 发表于 2012-8-4 00:12:44 | 只看该作者
自己顶下
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-10-13 12:00 , Processed in 0.143140 second(s), 24 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表