Do Call Plugin.Window.Active(1901374) Delay 3000 Call 开始查询'子程序 Call Plugin.Window.Active(459494) Delay 3000 Call 开始查询'子程序 Call Plugin.Window.Active(197368) Delay 3000 Call 开始查询'子程序 Loop Function 开始查询'子程序 Dim 句柄'定义变量 句柄 = Plugin.Window.Find("Chrome_WidgetWin_1", "Farmers World - Google Chrome")'获取浏览器的句柄 Call Plugin.Window.Size(句柄, 1383, 837)'调节浏览器的大小 Call Plugin.Window.Move(句柄, 0, 0)'调节浏览器位置 Call 下拉点击(428, 321)'子程序 Call 地图切换(770, 770)'子程序 Call 地图切换(498, 588)'子程序 Call 下拉点击(428, 321)'子程序 Call 巡查点击(460, 345)'子程序 Call 巡查点击(460, 410)'子程 Call 巡查点击(460, 460)'子程序 Call 巡查点击(460, 540)'子程序 Call 下拉点击(428, 588)'子程 Call 巡查点击(460, 370)'子程序 Call 巡查点击(460, 440)'子程序 Call 巡查点击(460, 510)'子程序 Call 巡查点击(460, 570)'子程序 FindPic 400, 720, 510, 800, "C:\pz\首页.bmp", 0.9, intX, intY'找图 If intX < 0 and intY < 0 Then TracePrint "界面错误" Call Plugin.Media.Play("C:\pz\铃声.mp3") Delay 3000 MoveTo 90,90 Delay 500 LeftClick 1 Delay 10000 For 30 Delay 1000 FindPic 550, 670, 810, 767, "C:\pz\login.bmp", 0.9, intX1, intY1'找图 FindPic 0, 400, 400, 600, "C:\pz\登陆.bmp", 0.9, intX5, intY5'找图 If intX1 > 0 and intY1 > 0 Then MoveTo intX1,intY1 Delay 1000 LeftClick 1 Delay 2000 MoveTo 740,440 Delay 1000 LeftClick 1 Delay 2000 ElseIf intX5 > 0 and intY5 > 0 Then MoveTo 300,520 Delay 1000 LeftClick 1 Delay 10000 Exit For Else TracePrint "正在登陆" end if Next Else TracePrint "界面正常" End If End Function Function 巡查点击(x, y)'子程序 MoveTo x,y'移动鼠标到某个位置 Delay 500'延迟500毫秒 LeftClick 1'左键点击一次 Delay 1000'延迟1000毫秒 FindPic 650, 500, 800, 600, "C:\pz\可领取.bmp", 0.9, intX, intY'找图 FindPic 1090, 110, 1224, 217, "C:\pz\00体力.bmp", 0.9, intX2, intY2'找图 If intX > 0 and intY > 0 Then MoveTo intX,intY Delay 500 LeftClick 1 Delay 500 MoveTo 163, 729 For 60 Delay 1000 FindPic 300, 200, 1100, 650, "C:\pz\服务器错.bmp", 0.9, intX3, intY3'找图 FindPic 587, 501, 875, 727, "C:\pz\ok.bmp", 0.9, intX, intY FindPic 911, 195, 1089, 320, "C:\pz\cpu.bmp", 0.9, intX1, intY1'找图 FindPic 650, 500, 800, 600, "C:\pz\完成.bmp", 0.9, intX11, intY11'找图 If intX3 > 0 and intY3 > 0 Then MoveTo 90,90 Delay 500 LeftClick 1 Delay 10000 For 60 Delay 1000 FindPic 550, 670, 810, 767, "C:\pz\login.bmp", 0.9, intX1, intY1'找图 If intX1 > 0 and intY1 > 0 Then MoveTo intX1,intY1 Delay 1000 LeftClick 1 Delay 2000 MoveTo 740,440 Delay 1000 LeftClick 1 Delay 2000 Call 地图切换(770, 770)'子程序 Call 地图切换(498, 588)'子程序 end if Next ElseIf intX > 0 and intY > 0 Then MoveTo intX,intY Delay 1000 LeftClick 1 Delay 1000 Exit For ElseIf intX1 > 0 and intY1 > 0 Then MoveTo intX1,intY1 Delay 1000 LeftClick 1 Delay 1000 Exit For ElseIf intX11 > 0 and intY11 > 0 Then Delay 2000 Exit For TracePrint "正在查找ok" end if Next Else TracePrint "不可领取" End If If intX2 > 0 and intY2 > 0 Then MoveTo 1250,160 Delay 500 LeftClick 1 Delay 1000 MoveTo 794,450 Delay 500 LeftClick 72 Delay 1000 MoveTo 690,520 Delay 500 LeftClick 1 Delay 1000 MoveTo 163, 729 For 60 Delay 1000 FindPic 300, 200, 1100, 650, "C:\pz\服务器错.bmp", 0.9, intX3, intY3'找图 FindPic 587, 501, 875, 727, "C:\pz\ok.bmp", 0.9, intX, intY FindPic 911, 195, 1089, 320, "C:\pz\cpu.bmp", 0.9, intX1, intY1'找图 If intX3 > 0 and intY3 > 0 Then MoveTo 90,90 Delay 500 LeftClick 1 Delay 10000 For 60 Delay 1000 FindPic 550, 670, 810, 767, "C:\pz\login.bmp", 0.9, intX1, intY1'找图 If intX1 > 0 and intY1 > 0 Then MoveTo intX1,intY1 Delay 1000 LeftClick 1 Delay 2000 MoveTo 740,440 Delay 1000 LeftClick 1 Delay 2000 Call 地图切换(770, 770)'子程序 Call 地图切换(498, 588)'子程序 end if Next ElseIf intX > 0 and intY > 0 Then MoveTo intX,intY Delay 1000 LeftClick 1 Delay 1000 Exit For ElseIf intX1 > 0 and intY1 > 0 Then MoveTo intX1,intY1 Delay 1000 LeftClick 1 Delay 1000 Exit For Else TracePrint "正在查找ok" end if Next Else End If End Function Function 地图切换(x, y)'子程序 MoveTo x,y'移动鼠标到某个位置 Delay 500'延迟500毫秒 LeftClick 1'左键点击一次 Delay 2000'延迟1000毫秒 End Function Function 下拉点击(x, y)'子程序 MoveTo x,y'移动鼠标到某个位置 Delay 500'延迟500毫秒 LeftClick 1'左键点击一次 Delay 500'延迟1000毫秒 End Function