TC官方合作论坛

标题: 【有源码】继续开源 自动喊话+源码=模仿别人游戏的喊话器 [打印本页]
作者: ma3yu    时间: 2013-3-6 16:49
标题: 【有源码】继续开源 自动喊话+源码=模仿别人游戏的喊话器
  1. 空间 自动喊话
  2. 线程句柄
  3. 功能 喊话()
  4. 等待时间=辅助.等待(编辑框.获得文本("编辑框1"))
  5. 鼠标窗口=窗口.鼠标所在窗口句柄()
  6. 辅助.等待(500)
  7. 如果(鼠标窗口==0)
  8. 辅助.消息框("没有找到游戏窗口,请从新输入游戏名,如果是字母的要区分大小写,后缀名也要哦")
  9. 辅助.等待(100)
  10. 否则
  11. 超级键盘.按键(13,1)
  12. 辅助.等待(100)
  13. 遍历(i=0;i<列表框.得到个数("列表框0");i++)
  14. 窗口.提交字符串(鼠标窗口,列表框.获得文本("列表框0",i))
  15. 辅助.等待(500)
  16. 超级键盘.按键(13,1)
  17. 等待时间
  18. 遍历结束
  19. 如果结束
  20. 功能结束

  22. 功能 按钮0_点击()
  23. 列表框.增加文本("列表框0",编辑框.获得文本("编辑框0"))
  24. 功能结束
  25. 功能 开始_点击()
  26. 线程句柄=线程.开启("自动喊话.喊话","")
  27. 功能结束
  28. 功能 退出_点击()
  29. 线程.关闭(线程句柄)
  30. 辅助.退出()
  31. 功能结束
  32. 功能 热键0_热键()
  33. 线程.关闭(线程句柄)
  34. 功能结束
  35. 功能 热键1_热键()
  36. 线程句柄=线程.开启("自动喊话.喊话","")
  37. 功能结束
  38. 功能 按钮1_点击()
  39. 列表框.删除文本("列表框0",列表框.得到选项("列表框0"))
  40. 功能结束
  41. 功能 按钮2_点击()
  42. 编辑框.设置文本("编辑框0",列表框.得到选中文本("列表框0"))
  43. 功能结束
  44. 功能 按钮4_点击()
  45. 列表框.清空("列表框0")
  46. 功能结束
  47. 功能 按钮3_点击()
  48. 遍历(i=0;i<列表框.得到个数("列表框0");i++)
  49. wenben=列表框.获得文本("列表框0",i)
  50. 辅助.写配置("配置","列表内容"&i,wenben,".\\喊话.ini")
  51. 遍历结束
  52. 功能结束
  53. 功能 浏览框0_选择改变()
  54. 遍历(i=0;i<30;i++)
  55. 列表框.增加文本("列表框0",辅助.读配置("配置","列表内容"&i,".\\喊话.ini"))
  56. 遍历结束
  57. 功能结束
  58. 功能 编辑框2_获得焦点()
  59. 编辑框.设置文本("编辑框0","")
  60. 功能结束
  61. 空间结束
复制代码

[attach]8019[/attach]
作者: 幼园留级老油条    时间: 2013-3-6 16:50
什么东西啊  拿走有空瞅瞅
作者: Sky_Pro    时间: 2013-3-6 17:05
！！！！！！
作者: Sky_Pro    时间: 2013-3-6 17:06
前面怎么回复不成功？害我灌水。。
作者: Sky_Pro    时间: 2013-3-6 17:07
嗯，支持撸主！！！
作者: honge10000    时间: 2013-3-6 19:12
支持楼主。。。。。。。。。。。
作者: xuliang    时间: 2013-3-6 19:47
谢谢楼主分享，我好好学习下
作者: sunjiehuha    时间: 2013-4-15 13:28
能发下吗？407471564@qq.com
作者: bafengao    时间: 2013-4-17 18:00
初来乍到 谢谢楼主分享
作者: xiaoyunet    时间: 2013-5-21 13:06
为什么填加的话要一次发完呢??
作者: 亮哥    时间: 2013-7-16 18:58
顶.......
作者: 菜鸟也能飞    时间: 2013-10-5 22:57
楼主发个成品来看一下好吗？新手学习！32150568@qq.com
作者: lzq236450    时间: 2013-10-8 16:03
空间 自动喊话
线程句柄
功能 喊话()
等待时间=辅助.等待(编辑框.获得文本("编辑框1"))
鼠标窗口=窗口.鼠标所在窗口句柄()
辅助.等待(500)
如果(鼠标窗口==0)
辅助.消息框("没有找到游戏窗口,请从新输入游戏名,如果是字母的要区分大小写,后缀名也要哦")
辅助.等待(100)
否则
超级键盘.按键(13,1)
辅助.等待(100)
遍历(i=0;i<列表框.得到个数("列表框0");i++)
窗口.提交字符串(鼠标窗口,列表框.获得文本("列表框0",i))
辅助.等待(500)
超级键盘.按键(13,1)
等待时间
遍历结束
如果结束
功能结束

功能 按钮0_点击()
列表框.增加文本("列表框0",编辑框.获得文本("编辑框0"))
功能结束
功能 开始_点击()
线程句柄=线程.开启("自动喊话.喊话","")
功能结束
功能 退出_点击()
线程.关闭(线程句柄)
辅助.退出()
功能结束
功能 热键0_热键()
线程.关闭(线程句柄)
功能结束
功能 热键1_热键()
线程句柄=线程.开启("自动喊话.喊话","")
功能结束
功能 按钮1_点击()
列表框.删除文本("列表框0",列表框.得到选项("列表框0"))
功能结束
功能 按钮2_点击()
编辑框.设置文本("编辑框0",列表框.得到选中文本("列表框0"))
功能结束
功能 按钮4_点击()
列表框.清空("列表框0")
功能结束
功能 按钮3_点击()
遍历(i=0;i<列表框.得到个数("列表框0");i++)
wenben=列表框.获得文本("列表框0",i)
辅助.写配置("配置","列表内容"&i,wenben,".\\喊话.ini")
遍历结束
功能结束
功能 浏览框0_选择改变()
遍历(i=0;i<30;i++)
列表框.增加文本("列表框0",辅助.读配置("配置","列表内容"&i,".\\喊话.ini"))
遍历结束
功能结束
功能 编辑框2_获得焦点()
编辑框.设置文本("编辑框0","")
功能结束
空间结束
作者: baoyun78    时间: 2014-4-9 14:42
拿走
作者: brucelee0720    时间: 2014-4-11 23:11
好郁闷，。。



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