【有源码】dnf扫拍卖新版4.0

dashabi

1. //#import "dm.dmsoft" DM
   
2. #include "扫拍卖.t"
   
3. 空间 终极版秒拍卖
   
4. DM=com("dm.dmsoft")
   
5. 
   
6. //定义默认空间
   
7. 整型 线程句柄
   
8. 功能 开始_点击()
   
9. 线程句柄 = 线程.开启("扫拍卖.Start","")
   
10. 返回 真
    
11. 功能结束
    
12. 
    
13. 功能 退出_点击()
    
14. 线程.关闭(线程句柄)
    
15. 辅助.退出()
    
16. 返回 真
    
17. 功能结束
    
18. 
    
19. 功能 销毁()
    
20. 线程.关闭(线程句柄)
    
21. 返回 真
    
22. 功能结束
    
23. 
    
24. 功能 价格_点击()
    
25. 辅助.命令("rc:价格设置表格.txt",true)
    
26. 返回 真
    
27. 功能结束
    
28. 
    
29. 空间结束
    
30. //空间结束语句

复制代码

根据http://bbs.tyuyan.com/thread-4724-1-1.html改写。新版只是在输入短语方面有点问题，谁有能力可以改改

dashabi

1. 空间 扫拍卖
   
2. 
   
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
    
38. 
    
39. 如果结束
    
40. a = a + 1
    
41. b = b + 1
    
42. c = c + 1
    
43. 循环结束
    
44. 文件.关闭(文件句柄)
    
45. 否则
    
46. 辅助.对话框("请检查价格表是否填写准确!","温馨提示",0,true)
    
47. 返回 " "
    
48. 如果结束
    
49. 返回 " "
    
50. 功能结束
    
51. 
    
52. 功能 获取键码值( 字母)
    
53. 次数,结果 = 65
    
54. 全部字母 = "abcdefghijklmnopqrstuvwxyz"
    
55. 位置 = 字符串.查找字符串(全部字母,字母)
    
56. 循环(次数<位置)
    
57. 结果 = 结果 + 1
    
58. 次数 = 次数 + 1
    
59. 循环结束
    
60. 返回 结果
    
61. 功能结束
    
62. 
    
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. 短语个数 = 字符串.长度(短语)
    
79. 
    
80. 总短语 = 短语
    
81. 个数 = 短语个数
    
82. 短语个数 = 短语个数 - 1
    
83. 循环(截取数量<个数)
    
84. 字母 = 字符串.截取(总短语,0,短语个数)
    
85. 按键码 = 扫拍卖.获取键码值(字母)
    
86. 
    
87. 标签.设置文本("标签0",字符串.连接(按键码,名称))
    
88. 总短语 = 字符串.移除(总短语,1,真)
    
89. d = d + 1
    
90. 短语个数 = 短语个数 - 1
    
91. 截取数量 = 截取数量 + 1
    
92. 循环结束
    
93. 
    
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行不到。
     
112. 
     
113. 返回 真
     
114. 功能结束
     
115. 
     
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. 功能结束
     
133. 
     
134. 空间结束

复制代码

舍我其谁

支持看一下下

muyongji1997

我看的一敲不通。

474337264

行不行

474337264

//#import "dm.dmsoft" DM
#include "扫拍卖.t"
这开头定义的没问题吗？

dashabi

回复 6楼474337264的帖子

觉得哪有问题？直说出来

dashabi

回复 5楼474337264的帖子

输入短语还有些问题，发来大家一起修改

474337264

>错误:D:\Program Files\TC\MyT\DNF扫拍卖4\DNF扫拍卖4\DNF扫拍卖4.t 行号:1 错误信息:不完整的预定义语句,只有#头,找不到include关键字
这是TC运行提示的错误，是我们用的TC版本不同的原因吗？

dashabi

回复 9楼474337264的帖子

这个代码是4.0的，，代码是可以运行的