Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer Plugin.Msg.ShowScrTXT 0, 0, 100, 100, "程序启动", "" UserVar zdnum=1 "射击次数" UserVar sjnum=20 "射击延迟" While 1 = 1 c1 = GetPixelColor(510, 382) c2 = GetPixelColor(510, 383) c3 = GetPixelColor(510, 384) c4 = GetPixelColor(511, 382) c5 = GetPixelColor(511, 383) c6 = GetPixelColor(511, 384) c7 = GetPixelColor(512, 382) c8 = GetPixelColor(512, 383) c9 = GetPixelColor(512, 384) If c1 = "0000FF" and c2 = "0000FF" and c3 = "0000FF" and c4 = "0000FF" and c5 = "0000FF" and c6 = "0000FF" and c7 = "0000FF" and c8 = "0000FF" and c9 = "0000FF" Then Plugin.Msg.ShowScrTXT 0,0,100,100,"狙击状态","" ajt = GetAsyncKeyState(84) ac1 = GetPixelColor(509, 381) ac2 = GetPixelColor(509, 383) ac3 = GetPixelColor(509, 385) ac4 = GetPixelColor(511, 381) ac5 = GetPixelColor(511, 385) ac6 = GetPixelColor(513, 381) ac7 = GetPixelColor(513, 383) ac8 = GetPixelColor(513, 385) While ajt <> 0 Plugin.Msg.ShowScrTXT 0, 0, 100, 100, "监控状态", "" ajt = GetAsyncKeyState(84) bc1 = GetPixelColor(509, 381) bc2 = GetPixelColor(509, 383) bc3 = GetPixelColor(509, 385) bc4 = GetPixelColor(511, 381) bc5 = GetPixelColor(511, 385) bc6 = GetPixelColor(513, 381) bc7 = GetPixelColor(513, 383) bc8 = GetPixelColor(513, 385) If ac1 <> bc1 or ac2 <> bc2 or ac3 <> bc3 or ac4 <> bc4 or ac5 <> bc5 or ac6 <> bc6 or ac7 <> bc7 or ac8 <> bc8 Then LeftClick 1 ajt=0 End If Delay 1 Wend ElseIf c2 = "00FE00" and c4 = "00FE00" and c5 = "00FF00" and c6 = "00FE00" and c8 = "00FE00" Then Plugin.Msg.ShowScrTXT 0, 0, 100, 100, "机枪状态", "" FindColor 502,446,520,459,"0000FF",cx,cy While cx > 0 And cy > 0 LeftClick zdnum Delay sjnum cx = 0 cy = 0 Wend Else Plugin.Msg.ShowScrTXT 0,0,100,100,"正常状态","" ajt=GetLastKey() If ajt = 84 Then RightClick 1 Delay 10 LeftClick 1 Delay 10 ajt=0 End If End If Delay 1 Wend