TC官方合作论坛

标题: 【有源码】dnf扫拍卖新版4.0 [打印本页]
作者: dashabi    时间: 2013-5-6 14:44
标题: 【有源码】dnf扫拍卖新版4.0
  1. //#import "dm.dmsoft" DM
  2. #include "扫拍卖.t"
  3. 空间 终极版秒拍卖
  4. DM=com("dm.dmsoft")

  6. //定义默认空间
  7. 整型 线程句柄
  8. 功能 开始_点击()
  9. 线程句柄 = 线程.开启("扫拍卖.Start","")
  10. 返回 真
  11. 功能结束

  13. 功能 退出_点击()
  14. 线程.关闭(线程句柄)
  15. 辅助.退出()
  16. 返回 真
  17. 功能结束

  19. 功能 销毁()
  20. 线程.关闭(线程句柄)
  21. 返回 真
  22. 功能结束

  24. 功能 价格_点击()
  25. 辅助.命令("rc:价格设置表格.txt",true)
  26. 返回 真
  27. 功能结束

  29. 空间结束
  30. //空间结束语句
复制代码
根据http://bbs.tyuyan.com/thread-4724-1-1.html改写。新版只是在输入短语方面有点问题，谁有能力可以改改
作者: dashabi    时间: 2013-5-6 14:45
  1. 空间 扫拍卖

  3. 字符型 名称
  4. 字符型 短语
  5. 字符型 价格
  6. 功能 读取物品价格()
  7. 字符型 物品标示1,物品名称1,价格1,物品标示2,物品名称2,价格2,物品名称3
  8. 整型 位置1,位置2,位置3,位置4,位置5
  9. 整型 a=1,b=1,c=1
  10. 名称
  11. 短语
  12. 价格
  13. 文件句柄 = 文件.打开("rc:价格设置表格.txt")
  14. 如果(文件句柄!=0)
  15. 循环(真)
  16. //得到物品名称,如：灵魂晶石
  17. 字符型 内容=文件.读一行(文件句柄)
  18. 如果(字符串.长度(内容)<=0)
  19. 跳出
  20. 否则
  21. 位置1 = 字符串.查找字符(内容,124)
  22. 物品标示1 = 字符串.移除(内容,字符串.长度(内容)-位置1,假)
  23. 价格1 = 字符串.移除(内容,位置1+1,真)
  24. 位置2 = 字符串.查找字符串(内容,"：")
  25. 物品名称1 = 字符串.移除(物品标示1,位置2+1,真)
  26. 名称 = 物品名称1
  27. //得到搜狗短语，如：ab
  28. 位置3 = 字符串.查找字符(价格1,124)
  29. 物品标示2 = 字符串.移除(价格1,字符串.长度(价格1)-位置3,假)
  30. 价格2 = 字符串.移除(价格1,位置3+1,真)
  31. 位置4 = 字符串.查找字符串(价格1,"：")
  32. 物品名称2 = 字符串.移除(物品标示2,位置4+1,真)
  33. 短语 = 物品名称2
  34. //得到该物品价格,如：2000
  35. 位置5 = 字符串.查找字符串(价格2,"：")
  36. 物品名称3 = 字符串.移除(价格2,位置5+1,真)
  37. 价格 = 物品名称3

  39. 如果结束
  40. a = a + 1
  41. b = b + 1
  42. c = c + 1
  43. 循环结束
  44. 文件.关闭(文件句柄)
  45. 否则
  46. 辅助.对话框("请检查价格表是否填写准确!","温馨提示",0,true)
  47. 返回 " "
  48. 如果结束
  49. 返回 " "
  50. 功能结束

  52. 功能 获取键码值( 字母)
  53. 次数,结果 = 65
  54. 全部字母 = "abcdefghijklmnopqrstuvwxyz"
  55. 位置 = 字符串.查找字符串(全部字母,字母)
  56. 循环(次数<位置)
  57. 结果 = 结果 + 1
  58. 次数 = 次数 + 1
  59. 循环结束
  60. 返回 结果
  61. 功能结束

  63. 功能 快速扫描()
  64. 短语个数,个数,次数,截取数量,a=1,b=1,c=1,d=1
  65. 总短语,字母
  66. 按键码
  67. 扫拍卖.读取物品价格()
  68. //鼠标移动点击一次，输入短语
  69. 键盘.按键(66,1)
  70. 辅助.等待(100)
  71. 鼠标.移动(130,88)
  72. 辅助.等待(100)
  73. 鼠标.左键单击(1)
  74. 辅助.等待(100)
  75. 鼠标.左键单击(1)
  76. 辅助.等待(100)
  77. 标签.设置文本("标签0",字符串.连接("正在搜索：",名称))
  78. 短语个数 = 字符串.长度(短语)

  80. 总短语 = 短语
  81. 个数 = 短语个数
  82. 短语个数 = 短语个数 - 1
  83. 循环(截取数量<个数)
  84. 字母 = 字符串.截取(总短语,0,短语个数)
  85. 按键码 = 扫拍卖.获取键码值(字母)

  87. 标签.设置文本("标签0",字符串.连接(按键码,名称))
  88. 总短语 = 字符串.移除(总短语,1,真)
  89. d = d + 1
  90. 短语个数 = 短语个数 - 1
  91. 截取数量 = 截取数量 + 1
  92. 循环结束

  94. d = 1
  95. 循环(真)
  96. 如果(按键码==0)
  97. 跳出
  98. 如果结束
  99. 键盘.按键(按键码,1)
  100. 辅助.等待(50)
  101. d = d + 1
  102. 循环结束
  103. 鼠标.移动(508,51)//点击搜索
  104. 辅助.等待(50)
  105. 鼠标.左键单击(1)
  106. 辅助.等待(50)
  107. 鼠标.移动(561,124)//移动显示价格框，判断是否是一口价，以及价格判断。
  108. 辅助.等待(50)
  109. //下面的代码我相信很简单，只要对比价格即可，如果是自己需要的秒下来，如果不是就添加一个是否需要扫下一页，不需要则换下一个物品。
  110. //循环的话，你只需a,b,c都减少一次就是读取到记事本下一行了，也就是下一个物品，至于下面进行购买步骤我就不写了，大家可以拿去参考，
  111. //代码写完大概200行不到。

  113. 返回 真
  114. 功能结束

  116. 功能 Start()
  117. 窗口句柄=窗口.找到窗口("地下城与勇士")
  118. 如果(窗口句柄 == 0)
  119. 辅助.对话框("请检查游戏是否开启!","温馨提示",0,true)
  120. 返回 真
  121. 否则
  122. DM=com("dm.dmsoft")
  123. DM.ver()
  124. DM.SetPath(辅助.获取资源路径("rc:"))
  125. DM.SetDict(0,"秒拍卖.txt")
  126. 窗口.设置位置(窗口句柄,0,0)
  127. 窗口.激活(窗口句柄)
  128. help.sleep(1000)
  129. 扫拍卖.快速扫描()
  130. 如果结束
  131. 返回 真
  132. 功能结束

  134. 空间结束
复制代码

作者: 舍我其谁    时间: 2013-5-6 16:04
支持看一下下
作者: muyongji1997    时间: 2013-5-6 16:26
我看的一敲不通。
作者: 474337264    时间: 2013-5-6 18:07
行不行
作者: 474337264    时间: 2013-5-6 18:12
//#import "dm.dmsoft" DM
#include "扫拍卖.t"
这开头定义的没问题吗？
作者: dashabi    时间: 2013-5-7 06:46
回复 6楼474337264的帖子

觉得哪有问题？直说出来
作者: dashabi    时间: 2013-5-7 06:47
回复 5楼474337264的帖子

输入短语还有些问题，发来大家一起修改
作者: 474337264    时间: 2013-5-7 09:03
>错误:D:\Program Files\TC\MyT\DNF扫拍卖4\DNF扫拍卖4\DNF扫拍卖4.t 行号:1 错误信息:不完整的预定义语句,只有#头,找不到include关键字
这是TC运行提示的错误，是我们用的TC版本不同的原因吗？
作者: dashabi    时间: 2013-5-7 16:38
回复 9楼474337264的帖子

这个代码是4.0的，，代码是可以运行的
作者: 漠漠    时间: 2013-7-19 10:47
来看看
作者: 逆天黑猫    时间: 2013-12-30 14:27
能把界面给我吗 看不懂啊  313983416@qq.com



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