- 注释:wlsj=Lib.网络.获取网络时间()
- 注释:Delay 2000
- 注释:If wlsj>cdate("2011-1-11")
- 注释: Delay 100
- 注释:MsgBox "使用期限已到,请从任务管理器关闭程序"
- 注释:EndScript
- 注释:end if
- 注释:使用期限检测脚本
- 定义环境变量 shuliang
- 定义变量 hwnd, hwnd1, hwnd2
- 定义环境变量 kaiguan
- 令 kaiguan = 0
- 令 hwnd = Window.MousePoint
- 令 x = Window.Move(hwnd,0,0)
- 注释:Delay 1000
- (语句无法识别,可能有错误): time1=plugin.sys.GetTime //获取脚本运行时系统初始时间
- 注释:ktjc=1
- 注释:set ws=createobject("wscript.shell")
- 注释:ws.run "c:\testfile.txt",5,ture
- 注释:Delay 500
- 注释:hwnd2=Plugin.Window.Foreground
- 注释:y=Plugin.Window.Move(hwnd2,0,480)
- 调用 站街自动喊话()
- 标记 kaitou
- (语句无法识别,可能有错误): Sub 站街自动喊话 //站街喊话脚本
- 注释:下面这句在屏幕区域范围内查找16进制颜色("0000FF")的数量
- 用户定义变量 fdys=15 "防掉线设置"
- (鼠标)移动到 (603, 439)
- 调用 检查是否有交易()
- 令 time3 = sys.GetTime
- 如果 int(time3 - time1) > fdys * 60 * 1000 则
- 注释:15分钟后开启防掉线,只支持站街的时候
- 条件结束
- 调用 防掉线()
- 条件结束
- (超级模拟键盘)按 "Enter" 键, 1次
- 延时 200 毫秒
- (语句无法识别,可能有错误): NUM =plugin.Color.CountColor(60, 398,92, 407, "AADDEE",1) //查找喊话窗口是否存在
- 如果 NUM > 0 则
- (超级模拟键盘)按 "Z" 键, 2次
- 延时 20 毫秒
- (超级模拟键盘)按 "1" 键, 1次
- 延时 20 毫秒
- (超级模拟键盘)按 "Enter" 键, 1次
- 延时 1000 毫秒
- 条件结束
- 令 feyjy = 0
- (语句无法识别,可能有错误): gosub 等待交易 //跳到等待交易
- 子程序结束
- 子程序 等待交易
- 注释:找图
- 令 x = Window.Active(hwnd)
- (语句无法识别,可能有错误): FindPic 455,305,636,419,"Attachment:\公告按钮.bmp",0.9,intX,intY //扫描交易框
- 如果 intX > 0 并且 intY > 0 则
- (鼠标)移动到 (523, 403)
- (鼠标)左键单击, 2次
- 延时 300 毫秒
- 从左上到右下查找图片 "Attachment:\11.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 等待放入物品()
- 否则
- 调用 站街自动喊话()
- 条件结束
- 否则
- 调用 站街自动喊话()
- 条件结束
- 子程序结束
- 子程序 等待放入物品
- 定义变量 i
- 令 i = 0
- 用户定义变量 ddfw=10000 "等待放入物品延迟时间(单位:毫秒)注:1000毫秒=1秒"
- 延时 ddfw 毫秒
- 循环当 i < 8 之前
- 从左上到右下查找图片 "Attachment:\交易栏无物品图.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:71 上:173 右:306 下:198),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 令 i = i + 1
- 否则
- 调用 检查并交易()
- 条件结束
- 循环结束
- 如果 i > 0 则
- (键盘)按 "esc" 键, 1次
- 延时 100 毫秒
- 调用 站街自动喊话()
- 条件结束
- 子程序结束
- 子程序 输入金钱
- 定义变量 qian, x, cishu
- 标记 jiaqian(子程序 输入金钱)
- 令 qian = jiage(100)
- 如果 qian <> 0 则
- 注释:MsgBox "总价钱为:"&qian
- (鼠标)移动到 (197, 301)
- 延时 250 毫秒
- (鼠标)左键单击, 1次
- 延时 250 毫秒
- (语句无法识别,可能有错误): KeyPress "BackSpace", 15 //金钱输入清零
- 延时 50 毫秒
- 令 x = 1
- 定义变量 shu