查找屏幕颜色，找到为TRUE
Function FindColor(ColorStr As String) As String ' As Boolean
'man==402 353
FindColor = "" ' = False
For j = 402 To 402
DoEvents
For k = 250 To 450
DoEvents
If GetYanSe(j, k) = UCase(ColorStr) Then
   FindColor = j & "++" & k ' True
   Exit For
End If
Next
Next
MsgBox "pppp"
End Function
'
Sub Delay(YanShi As Long)
Sleep YanShi
End Sub 

'判断游戏是否正在运行
Function IsRun() As Boolean
IsRun = False
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
hwnd = FindWindow(vbNullString, GameTitle)
If hwnd = 0 Then
   IsRun = False
Else
   IsRun = True
End If
End Function
Private Sub Command1_Click()
Delay 3000
MsgBox "kljk"
End Sub
Private Sub Command2_Click()
If IsRun = False Then
MsgBox "游戏没有运行！", 16
Exit Sub
End If
If CheckFuZhu.value = 1 Then
  IsFuZhu = True
Else
  IsFuZhu = False
End If
If CheckGuaJi.value = 1 Then
  IsGuaJi = True
Else
  IsGuaJi = False
End If
Me.WindowState = 1
AppActivate GameTitle
End Sub
Private Sub Command3_Click()
If IsRun = False Then
MsgBox "游戏没有运行，让我怎么喊？", 16
Exit Sub
End If
If CheckHanHua.value = 1 Then
Me.WindowState = 1
AppActivate GameTitle
SWD = Text1.Text
TimerHanHua.Interval = Val(ComboHanHua.Text) * 1000
TimerHanHua.Enabled = True
Else
TimerHanHua.Enabled = False
End If
End Sub
Private Sub Command4_Click()
Dim qq As Long
Open App.Path & "\data.ini" For Output As #1
For qq = 0 To 150 Step 1
Print #1, qq & "*6==" & GetYanSe(qq, 6)
Next
Close #1
MsgBox "OK"
End Sub
Private Sub Command5_Click()
HongBiLv = ComboHongBi.ListIndex
MsgBox HongBiLv
End Sub
Private Sub Form_Load()
'屏幕分辨率
tw% = Screen.Width / Screen.TwipsPerPixelX
th% = Screen.Height / Screen.TwipsPerPixelY
If tw% <> 800 Then
MsgBox "当前屏幕分辨率是：" & tw% & "×" & th% & vbCrLf & "" & "本外挂只支持800×600分辨率！", 16
'End
End If
'开始
TimerHanHua.Enabled = False
For i = 1 To 9
ComboHong.AddItem "F" & i
ComboLan.AddItem "F" & i
ComboBackCity.AddItem "F" & i
ComboJiNeng.AddItem "F" & i
ComboPingKan.AddItem "F" & i
ComboJianWu.AddItem "F" & i
ComboChiTang.AddItem "F" & i
ComboHanHua.AddItem i
Next
For i = 20 To 80 Step 10
ComboHongBi.AddItem i & "%"
ComboLanBi.AddItem i & "%"
Next
ComboHongBi.Text = "50%"
ComboLanBi.Text = "50%"
ComboHong.Text = "F5"
ComboLan.Text = "F2"
ComboBackCity.Text = "F8"
ComboJiNeng.Text = "F3"
ComboPingKan.Text = "F6"
ComboJianWu.Text = "F7"
ComboChiTang.Text = "F4"
ComboHanHua.Text = "4"
'有红80%=133 70=119  60==105 91 77 63 49 ===0020FF
'红yyy===6
'有lan 80%=133 70=119  60==105 91 73 59 43 ===FF8273
'lan yyy===19
HongPoint(0) = 49
HongPoint(1) = 63
HongPoint(2) = 77
HongPoint(3) = 91
HongPoint(4) = 105
HongPoint(5) = 119
HongPoint(6) = 133
LanPoint(0) = 43
LanPoint(1) = 59
LanPoint(2) = 73
LanPoint(3) = 91
LanPoint(4) = 105
LanPoint(5) = 119
LanPoint(6) = 133
'F1  F2 ...F9
'xxx=439  476  512  550 586 624 661 698  735 yyy===578
For i = 1 To 9
FPoint(i) = 439 + i * 37
Next
  IsFuZhu = False
  IsGuaJi = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'时刻监测程序热键F12
Private Sub Timer1_Timer()
DoEvents
'F12调出窗口
If HotKey(vbKeyF12) = True Then
   SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
   Me.WindowState = vbNormal
End If
'Control+1 开始挂机
If HotKey(vbKeyControl) = True And HotKey(vbKey1) = True Then
   IsGuaJi = True
End If
'Control+2 停止挂机
If HotKey(vbKeyControl) = True And HotKey(vbKey2) = True Then
   IsGuaJi = False
End If
End Sub
Function GetYanSe(zX As Long, zY As Long) As String
    Dim tPOS As POINTAPI
    Dim sTmp As String
    Dim lColor As Long
    Dim lDC As Long
    lDC = GetWindowDC(0)
    'Call GetCursorPos(tPOS)
    'lColor = GetPixel(lDC, tPOS.x, tPOS.y)
    lColor = GetPixel(lDC, zX, zY)
   
sTmp = Right$("000000" & Hex(lColor), 6)
GetYanSe = UCase(sTmp)
'Caption = "R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
End Function

Private Sub Timer2_Timer()
'Dim tPOS As POINTAPI
'Call GetCursorPos(tPOS)
'Me.Caption = tPOS.x & "**" & tPOS.y & "**" & GetYanSe(tPOS.x, tPOS.y)
End Sub
'辅助动作
Private Sub TimerFuZhu_Timer()
If IsFuZhu = False Then Exit Sub
'有红80%=133 70=119  60==105 91 77 63 49 ===0020FF
'红yyy===6
'有lan 80%=133 70=119  60==105 91 73 59 43 ===FF8273
'lan yyy===19
'补红
HongBiLv = ComboHongBi.ListIndex
If GetYanSe(HongPoint(HongBiLv), 6) <> "0020FF" Then
   Call AnJian(ComboHong.Text)
  
End If
'补蓝
LanBiLv = ComboLanBi.ListIndex
If GetYanSe(LanPoint(LanBiLv), 19) <> "FF8273" Then
   AnJian ComboLan.Text
End If
'无红回城
If CheckNoHongBack.value = 1 Then
If GetYanSe(FPoint(Right(ComboHong.Text, 1)), 578) = "B5FFE7" Then
   AnJian ComboBackCity.Text
End If
End If
'无蓝回城
If CheckNoLanBack.value = 1 Then
If GetYanSe(FPoint(Right(ComboLan.Text, 1)), 578) = "B5FFE7" Then
   AnJian ComboBackCity.Text
End If
End If
End Sub
'自动挂机
Private Sub TimerGuaJi_Timer()
If IsGuaJi = False Then Exit Sub
'吃糖五色
If CheckChiTang.value = 1 Then
   AnJian ComboChiTang.Text
   Delay 100
End If
'捡东西
If CheckJianWu.value = 1 Then
   AnJian ComboJianWu.Text
   Delay 100
End If
'*******************************
mouse_event MOUSEEVENTF_MOVE, -600, 0, 0, 0
'Dim tPOS As POINTAPI
'Call GetCursorPos(tPOS)
'SetCursorPos tPOS.x - 600, tPOS.y
Delay 350
SetCursorPos 402, 353
Delay 350
'鼠标左键按下和松开两个事件的组合即一次单击
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

End Sub
Private Sub TimerHanHua_Timer()
If Right(SWD, 3) = "!!!" Then
   SWD = Text1.Text
Else
   SWD = Text1.Text & "!!!"
End If
SendKeys SWD
SendKeys "{ENTER}"
End Sub

VB的挂应该都被封杀 了...
感谢分享代码。

谢谢啊....

                  

顶起来哦...   支持

顶   支持

人工置顶....................