- 延时 1000 毫秒
- 注释:放弃任务
- (鼠标)移动到 (419, 402)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 延时 100 毫秒
- (鼠标)移动到 (336, 407)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 延时 100 毫秒
- 条件结束
- (键盘)按 "Esc" 键, 1次
- 循环结束
- 脚本停止运行
- 子程序结束
- 子程序 输出信息
- 调用 Bkgnd.SendString(Hwnd2,"内容")
- Window.Active(hwnd2)
- (键盘)按 "enter" 键, 1次
- 子程序结束
- 函数 xiejiage(geshu,jq,wupin)
- 令 fso = CreateObject("Scripting.FileSystemObject")
- 令 b = File.ExistFile("c:\testfile.txt")
- 如果 b = 0 则
- 令 c = fso.CreateTextFile("c:\testfile.txt")
- 令 a = fso.opentextfile("c:\testfile.txt",8)
- 否则
- 令 a = fso.opentextfile("c:\testfile.txt",8)
- 条件结束
- a.writeline((now & "————" & "第" & geshu & "格单价:" & wupin & "价钱" & jq))
- a.close()
- 函数结束
- 函数 jiage(yanshi)
- 延时 yanshi 毫秒
- 定义变量 ss(100)
- (语句无法识别,可能有错误): ss(0)="3131CE" //强韧
- (语句无法识别,可能有错误): ss(1)="52423A" //威严
- (语句无法识别,可能有错误): ss(2)="84C6C6" //狂乱
- (语句无法识别,可能有错误): ss(3)="6B6B63" //灵魂
- (语句无法识别,可能有错误): ss(4)="528429" //灾难
- (语句无法识别,可能有错误): ss(5)="4A4A5B" //眼睛
- (语句无法识别,可能有错误): ss(6)="D69473" //小篮
- (语句无法识别,可能有错误): ss(7)="848484" //无色
- (语句无法识别,可能有错误): ss(8)="AD73D6" //碳 175,191
- (语句无法识别,可能有错误): ss(9)="BDB5C6" // 蓝冰
- (语句无法识别,可能有错误): ss(10)="73194A" //小黑
- (语句无法识别,可能有错误): ss(11)="7B7BEF" //小红
- (语句无法识别,可能有错误): ss(12)="B5B5B5" //小白
- 注释:这里使用查找颜色来获取物品 不知道在别的电脑上是否能使用 反正在我自己的电脑上是可以用的 请教一下
- 用户定义变量 sss0= 23000 "强韧恶魔的邀请函"
- 用户定义变量 sss1= 23000 "威严"
- 用户定义变量 sss2= 23000 "狂乱"
- 用户定义变量 sss3= 3800 "灵魂"
- 用户定义变量 sss4= 3200 "灾难"
- 用户定义变量 sss5= 25000 "眼睛"
- 用户定义变量 sss6= 100 "小篮"
- 用户定义变量 sss7= 50 "无色"
- 用户定义变量 sss8= 50 "碳"
- 用户定义变量 sss9= 9000 "蓝冰"
- 用户定义变量 sss11= 250 "小红"
- 用户定义变量 sss12= 80 "小白"
- 用户定义变量 sss10= 120 "小黑"
- 定义变量 n, m, i, j, qian
- 令 qian = 0
- 令 n = 0
- 令 geshu = 1
- 定义变量 kx
- (语句无法识别,可能有错误): kx=85 //第一格物品x取色点
- 令 ux = kx
- 定义变量 ky
- (语句无法识别,可能有错误): ky=191 //第一个物品y取色点
- 注释:扫描第一行物品,共8个物品格
- 循环 8 次
- 注释: 单格物品扫描
- 循环 13 次
- 如果点 (ux,ky) 的颜色等于 ss(n) 则
- 令 sss = 0
- 如果 n = 0 则
- 令 sss = sss0
- 否则如果 n = 1 则
- 令 sss = sss1
- 否则如果 n = 2 则
- 令 sss = sss2
- 否则如果 n = 3 则
- 令 sss = sss3
- 否则如果 n = 4 则
- 令 sss = sss4
- 否则如果 n = 5 则
- 令 sss = sss5
- 否则如果 n = 6 则
- 令 sss = sss6
- 否则如果 n = 7 则
- 令 sss = sss7
- 否则如果 n = 8 则
- 令 sss = sss8
- 否则如果 n = 9 则
- 令 sss = sss9
- 否则如果 n = 10 则
- 令 sss = sss10
- 否则如果 n = 11 则