form1.frm

早zt挂

         Left            =   960
         TabIndex        =   13
         Text            =   "150"
         Top             =   690
         Width           =   750
      End
      Begin VB.ComboBox Combo1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "Form1.frx":030A
         Left            =   1755
         List            =   "Form1.frx":0350
         Style           =   2  'Dropdown List
         TabIndex        =   12
         Top             =   255
         Width           =   735
      End
      Begin VB.ComboBox Combo2 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "Form1.frx":03A5
         Left            =   1755
         List            =   "Form1.frx":03EB
         Style           =   2  'Dropdown List
         TabIndex        =   11
         Top             =   690
         Width           =   735
      End
      Begin VB.CheckBox Check1 
         Caption         =   "血保护"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   90
         TabIndex        =   10
         Top             =   300
         Width           =   900
      End
      Begin VB.CheckBox Check2 
         Caption         =   "蓝保护"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   90
         TabIndex        =   9
         Top             =   735
         Width           =   900
      End
   End
   Begin VB.Label Label12 
      AutoSize        =   -1  'True
      Caption         =   "2006.7.22"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   1875
      TabIndex        =   17
      Top             =   4845
      Width           =   810
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Const VK_0 As Long = 48
Private Const VK_1 As Long = 49
Private Const VK_2 As Long = 50
Private Const VK_3 As Long = 51
Private Const VK_4 As Long = 52
Private Const VK_5 As Long = 53
Private Const VK_6 As Long = 54
Private Const VK_7 As Long = 55
Private Const VK_8 As Long = 56
Private Const VK_9 As Long = 57
Private Const VK_F1 As Long = &H70
Private Const VK_F2 As Long = &H71
Private Const VK_F3 As Long = &H72
Private Const VK_F4 As Long = &H73
Private Const VK_F5 As Long = &H74
Private Const VK_F6 As Long = &H75
Private Const VK_F7 As Long = &H76
Private Const VK_F8 As Long = &H77
Private Const VK_F9 As Long = &H78
Private Const VK_F10 As Long = &H79
Private Const VK_F11 As Long = &H7A
Private Const VK_F12 As Long = &H7B

Private Hwndfw As Long
Private pHandle As Long
Private Wtxt As String * 50

Private Dz As Long
Private Gdz As Long

Private Mdz As Long
Private Rjz As Long
Private Rpy As Long
Private Gjz As Long

Private Wz As String * 20
Private Na As String * 20
Private H1 As Long
Private H2 As Long
Private L1 As Long
Private L2 As Long
Private J1 As Long
Private J2 As Long
Private Rx As Long
Private Ry As Long

Private GNa As String * 20
Private GH1 As Long
Private GH2 As Long
Private GzbX As Long
Private GzbY As Long

Private Dq As ComboBox

Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function

Private Sub Chiyao() '吃药
      AppActivate Wtxt   '激活游戏窗口
      
      Select Case Dq.Text
         Case "0"
         Call keybd_event(VK_0, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_1, 0, KEYEVENTF_KEYUP, 0)
         
         Case "1"
         Call keybd_event(VK_1, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_1, 0, KEYEVENTF_KEYUP, 0)
         
         Case "2"
         Call keybd_event(VK_2, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_2, 0, KEYEVENTF_KEYUP, 0)
         
         Case "3"
         Call keybd_event(VK_3, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_3, 0, KEYEVENTF_KEYUP, 0)
         
         Case "4"
         Call keybd_event(VK_4, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_4, 0, KEYEVENTF_KEYUP, 0)
         
         Case "5"
         Call keybd_event(VK_5, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_5, 0, KEYEVENTF_KEYUP, 0)
         
         Case "6"
         Call keybd_event(VK_6, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_6, 0, KEYEVENTF_KEYUP, 0)
         
         Case "7"
         Call keybd_event(VK_7, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_7, 0, KEYEVENTF_KEYUP, 0)
         
         Case "8"
         Call keybd_event(VK_8, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_8, 0, KEYEVENTF_KEYUP, 0)
         
         Case "9"
         Call keybd_event(VK_9, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_9, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F1"
         Call keybd_event(VK_F1, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F2"
         Call keybd_event(VK_F2, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F3"
         Call keybd_event(VK_F3, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F4"
         Call keybd_event(VK_F4, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F4, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F5"
         Call keybd_event(VK_F5, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F5, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F6"
         Call keybd_event(VK_F6, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F6, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F7"
         Call keybd_event(VK_F7, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F7, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F8"
         Call keybd_event(VK_F8, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F8, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F9"
         Call keybd_event(VK_F9, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F9, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F10"
         Call keybd_event(VK_F10, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F10, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F11"
         Call keybd_event(VK_F11, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F11, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F12"
         Call keybd_event(VK_F12, 0, 0, 0)
         Sleep 300
         Call keybd_event(VK_F12, 0, KEYEVENTF_KEYUP, 0)
      End Select
End Sub

Private Sub Form_Load()
Dim pid As Long

Hwndfw = FindWindow("zhengtu_client", vbNullString)                            '取得目标窗口的句柄
If (Hwndfw = 0) Then
   MsgBox "游戏没找到，请先进入游戏。"
   End
End If

GetWindowText Hwndfw, Wtxt, 50                                                 '取得窗口标题

GetWindowThreadProcessId Hwndfw, pid                                           '取得进程标识符
pHandle = OpenProcess(PROCESS_VM_READ + PROCESS_QUERY_INFORMATION, False, pid) '取得进程句柄'

Timer1.Enabled = True                                                          '开启时钟
Combo1.Text = "1"
Combo2.Text = "2"

Mdz = Val("&H" & GetFromINI("Setup", "地图地址", App.Path + "\地址.ini"))
Rjz = Val("&H" & GetFromINI("Setup", "人物基址", App.Path + "\地址.ini"))
Rpy = Val("&H" & GetFromINI("Setup", "人物偏移", App.Path + "\地址.ini"))
Gjz = Val("&H" & GetFromINI("Setup", "目标基址", App.Path + "\地址.ini"))
If Mdz = 0 Or Rjz = 0 Or Gjz = 0 Then
   MsgBox "数据错误，请保证当前目录下有【征途超强搜索】生成的【地址.ini】文件。"
   Unload Me
   End
End If
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE                 '总在最前面
End Sub

Private Sub Timer1_Timer()
   
 If Check4.Value = 1 Then   '血条位置控制
    Dim TL As POINTAPI
    Dim HW As RECT
    ClientToScreen Hwndfw, TL
    GetClientRect Hwndfw, HW
  
    If Check5.Value = 1 Then
       Form2.Top = (TL.y + 15) * 15
       Form2.Left = (TL.x + HW.Right / 2) * 15 - Form2.Width / 2
    Else
       Form2.Top = (TL.y + (HW.Bottom / 2)) * 15 - 1850
       Form2.Left = (TL.x + HW.Right / 2) * 15 - Form2.Width / 2
    End If
 End If

ReadProcessMemory pHandle, Mdz, Wz, 20, 0&           '读人物位置
 
ReadProcessMemory pHandle, Mdz + &H110, VarPtr(Dz), 8, 0&  '读玩家数据基址

ReadProcessMemory pHandle, Dz + &H4, Na, 20, 0&         '读当人物名称1
   
ReadProcessMemory pHandle, Dz + Rpy + &H4C6, VarPtr(H1), 4, 0& '读取当前血量
If H1 < Val(Text10.Text) And Check1.Value = 1 Then        '吃红判断
   Set Dq = Form1.Combo1
   Chiyao
End If

ReadProcessMemory pHandle, Dz + Rpy + &H4CA, VarPtr(H2), 4, 0& '读取最大血量

ReadProcessMemory pHandle, Dz + Rpy + &H4D2, VarPtr(L1), 4, 0& '读取当前魔法
If L1 < Val(Text11.Text) And Check2.Value = 1 Then        '吃蓝判断
   Set Dq = Form1.Combo2
   Chiyao
End If

ReadProcessMemory pHandle, Dz + Rpy + &H4D6, VarPtr(L2), 4, 0& '读取最大魔法

ReadProcessMemory pHandle, Dz + Rpy + &H502, VarPtr(J1), 4, 0& '读取当前经验

ReadProcessMemory pHandle, Dz + Rpy + &H50A, VarPtr(J2), 4, 0& '读取最大经验
   
ReadProcessMemory pHandle, Dz + Rpy + &H248, VarPtr(Rx), 4, 0&  '读取X坐标

ReadProcessMemory pHandle, Dz + Rpy + &H24C, VarPtr(Ry), 4, 0&  '读取Y坐标


ReadProcessMemory pHandle, Gjz, VarPtr(Gdz), 4, 0&  '读取怪物基址

If ReadProcessMemory(pHandle, Gdz + &H4, GNa, 20, 0&) = 0 Then GNa = "没有目标"  '怪名称"

If ReadProcessMemory(pHandle, Gdz + &H40, VarPtr(GH1), 4, 0&) = 0 Then GH1 = 0   '怪当前血

If ReadProcessMemory(pHandle, Gdz + &H44, VarPtr(GH2), 4, 0&) = 0 Then GH2 = 0   '怪最大血

If ReadProcessMemory(pHandle, Gdz + &H2C, VarPtr(GzbX), 4, 0&) = 0 Then GzbX = 0   '怪当X坐标

If ReadProcessMemory(pHandle, Gdz + &H30, VarPtr(GzbY), 4, 0&) = 0 Then GzbY = 0   '怪最Y坐标

Label10.Caption = Trim(Na)
Label9.Caption = J1 & " / " & J2
Label6.Caption = H1 & " / " & H2
Label7.Caption = L1 & " / " & L2
Label19.Caption = Rx & "：" & Ry
Label15.Caption = Trim(Wz)

Label11.Caption = Trim(GNa)
Label13.Caption = GH1 & " / " & GH2
Label17.Caption = GzbX & "：" & GzbY

If Check4.Value = 1 Then Form2.Shape1.Width = (H1 / H2) * Form2.Width + 30 '血条血量控制

End Sub

Private Sub Check3_Click()
  If Check3.Value = 1 Then
     SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
  Else
     SetWindowPos Form1.hwnd, -2, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
  End If
SetWindowPos Form2.hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Check4_Click()
 If Check4.Value = 1 Then
    Check5.Enabled = True
    Form2.Visible = True
 Else
    Check5.Enabled = False
    Form2.Visible = False
 End If

End Sub

Private Sub Check5_Click()
  If Check5.Value = 1 Then
     Form2.Height = 300
     Form2.Width = 6000
  Else
     Form2.Height = 90
     Form2.Width = 900
  End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseHandle pHandle '关闭进程句柄
Unload Form2
Unload Me
End
End Sub