按键精灵脚本源码 前后选择
脚本附件:mltb.bmp
运行环境:分辨率:1440×900 色深:16位 操作系统:Microsoft Windows XP 按键精灵版本:9.50.11632
Event Form1.Load PutAttachment ".\plugin", "*.*" Form1.ComboBox1.List = "先前|先后" Form1.ComboBox1.ListIndex = 0 End Event a = Form1.ComboBox1.ListIndex If a = 0 Then Call qq ElseIf a = 1 Then Call hh End If Sub qq Dim tbx,tby Rem ks FindPic 0,0,1000,500,"Attachment:\mltb.bmp",0.9,tbX,tbY //以下是条件判断;如果返回的坐标大于0,那么就说明找到了。 If tbX > 0 And tbY > 0 Then Delay 10 Else EndScript End If Do While tbx>0 Delay 200 Randomize r1 = Int((50 * Rnd) + 1) r2 = Int((10 * Rnd) - 5) IfColor tbx+115, tby+46, "7375FF", 0 Then Delay 200+r1 IfColor tbx+188, tby+101, "9CBECE", 0 Then MoveTo tbx+300 + r1, tby+220 + r1 Delay 200+r1 LeftClick 1 Delay 200+r1 MoveTo tbx+630+r2,tby+483+r2 End If Goto ks Else IfColor tbx+395, tby+116, "FFFFFF", 0 Then MoveTo tbx+225 + r2, tby+230 + r2 Delay 200+r1 IfColor 26+tbx,487+tby,"FFFFFF",0 Then LeftClick 1 Delay 300 + r1 LeftClick 1 Delay 300 + r1 MoveTo tbx+630+r2,tby+485+r2 Goto ks Else MoveTo tbx+162 + r2, tby+185 + r2 Delay 200+r1 IfColor 26+tbx,487+tby,"FFFFFF",0 Then LeftClick 1 Delay 300 + r1 LeftClick 1 Delay 300 + r1 MoveTo tbx+630+r2,tby+485+r2 goto ks End If End If End If End If Loop End Sub Sub hh Dim ta,tb Rem kk FindPic 0,0,1000,500,"Attachment:\mltb.bmp",0.9,ta,tb //以下是条件判断;如果返回的坐标大于0,那么就说明找到了。 If ta > 0 And tb > 0 Then Delay 10 Else EndScript End If Do While ta>0 Delay 200 Randomize r1 = Int((50 * Rnd) + 1) r2 = Int((10 * Rnd) - 5) IfColor ta+115, tb+46, "7375FF", 0 Then Delay 200+r1 IfColor ta+114, tb+111, "42CF00", 0 Then MoveTo ta+320 + r1, tb+220 + r1 Delay 200+r1 LeftClick 1 Delay 200+r1 MoveTo ta+630+r2,tb+483+r2 End If Goto kk Else IfColor ta+395, tb+116, "FFFFFF", 0 Then MoveTo ta+162 + r2, tb+185 + r2 Delay 200+r1 IfColor 26+ta,487+tb,"FFFFFF",0 Then LeftClick 1 Delay 300 + r1 LeftClick 1 Delay 300 + r1 MoveTo ta+630+r2,tb+485+r2 Goto kk Else MoveTo ta+225 + r2, tb+230 + r2 Delay 200+r1 IfColor 26+ta,487+tb,"FFFFFF",0 Then LeftClick 1 Delay 300 + r1 LeftClick 1 Delay 300 + r1 MoveTo ta+630+r2,tb+485+r2 goto kk End If End If End If End If loop End Sub