form1.frm

使用此类不需要任何第三方软件支持,并且开源~~~ 内带两个实例

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2490
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3540
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   2490
   ScaleWidth      =   3540
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "普通攻击"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      TabIndex        =   10
      Top             =   1320
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "TAB"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      TabIndex        =   9
      Top             =   840
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Index           =   3
      Left            =   1080
      TabIndex        =   4
      Text            =   "1"
      Top             =   1440
      Width           =   500
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Index           =   2
      Left            =   1080
      TabIndex        =   3
      Text            =   "0"
      Top             =   1080
      Width           =   500
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Index           =   1
      Left            =   1080
      TabIndex        =   2
      Text            =   "20"
      Top             =   720
      Width           =   500
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Index           =   0
      Left            =   1080
      TabIndex        =   1
      Text            =   "10"
      Top             =   360
      Width           =   500
   End
   Begin VB.CommandButton Command2 
      Caption         =   "寻找坐标"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      TabIndex        =   0
      Top             =   360
      Width           =   1095
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "MAP_ID"
      Height          =   210
      Index           =   3
      Left            =   360
      TabIndex        =   8
      Top             =   1455
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Z"
      Height          =   210
      Index           =   2
      Left            =   720
      TabIndex        =   7
      Top             =   1095
      Width           =   105
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Y"
      Height          =   210
      Index           =   1
      Left            =   720
      TabIndex        =   6
      Top             =   735
      Width           =   105
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "X"
      Height          =   210
      Index           =   0
      Left            =   720
      TabIndex        =   5
      Top             =   375
      Width           =   105
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesRead As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim h As Long

Function Float2Int(Ans As Single) As Long '浮点转整形
CopyMemory Float2Int, Ans, 4
End Function

Sub Call_RunTO(dx As Single, dy As Single, dz As Single, dm As Long)
Dim asm As New clsASM '自动寻路
With asm                             '  asm
     .Pushad                         '  pushad
     .Mov_EAX_DWORD_Ptr &H90664C     '  mov eax,[&H90664C]
     .Mov_EAX_DWORD_Ptr_EAX_Add &H8  '  mov eax,[eax+&H8]
     .Mov_EAX_DWORD_Ptr_EAX_Add &H88 '  mov eax,[eax+&H88]
     .Push dm                        '  mov eax,[base]
     .Mov_EAX Float2Int(dx)          '  mov eax, x
     .Mov_DWORD_Ptr_EAX &H908A88     '  mov [&H908a88], eax
     .Mov_EAX Float2Int(dz)          '  mov eax, z
     .Mov_DWORD_Ptr_EAX &H908A8C     '  mov [&H908a8c], eax
     .Mov_EAX Float2Int(dy)          '  mov eax, y
     .Mov_DWORD_Ptr_EAX &H908A90     '  mov [&H908a90], eax
     .Mov_EAX_DWORD_Ptr &H90664C     '  mov eax, dword ptr [&H90664C]
     .Mov_EAX_DWORD_Ptr_EAX_Add &H28 '  mov eax, dword ptr [eax+&H28]
     .Lea_EAX_DWORD_EAX_Add &H3C     '  lea eax, dword ptr [eax+&H3c]
     .Push &H908A88                  '  push &H908a88
     .Push_EAX                       '  PUSH eax
     .Mov_ECX &H902AF0               '  mov ecx, &H90664C
     .Mov_EBX &H42ABF0               '  mov  eax, &H42abf0
     .Call_EBX                       '  Call eax
     .Popad                          '  popad
     .Ret
End With                             '  end
asm.Run_ASM h
End Sub

Sub Call_TAB()
Dim asm As New clsASM 'TAB
With asm                             '  asm
     .Pushad                         '  pushad
     .Mov_EAX_DWORD_Ptr &H902B3C     '  mov eax,dword ptr ds:[&H902b3c]
     .Mov_EAX_DWORD_Ptr_EAX_Add &H1C '  mov eax,dword ptr ds:[eax+&H1c]
     .Mov_EAX_DWORD_Ptr_EAX_Add &H28 '  mov eax,dword ptr ds:[eax+&H28]
     .Mov_ECX_EAX                    '  mov ecx, eax;
     .Push 0                         '  push 0
     .Mov_EBX &H45F590               '  mov ebx,&H45F59
     .Call_EBX                       '  call EBX
     .Popad                          '  popad
     .Ret
End With                             '  end
asm.Run_ASM h
End Sub

Sub Call_Attack()
Dim asm As New clsASM '普通攻击
With asm                             '  asm
     .Pushad                         '  pushad
     .Mov_EAX &H5A1F70               '  Mov EAX,&H5A2170
     .Call_EAX                       '  call pointer(eax)
     .Popad                          '  popad
     .Ret
End With                             '  end
asm.Run_ASM h
End Sub

Private Sub Command1_Click()
Call_TAB
End Sub

Private Sub Command2_Click()
Call_RunTO Text1(0).Text, Text1(1).Text, Text1(2).Text, Text1(3).Text
End Sub

Private Sub Command3_Click()
Call_Attack
End Sub

Private Sub Form_Load()
Dim hwd As Long, pid As Long
hwd = FindWindow("zElementClient Window", "Element Client")
GetWindowThreadProcessId hwd, pid
h = OpenProcess(PROCESS_ALL_ACCESS, 0, pid)
If h = 0 Then
   MsgBox "请先开启游戏再开此程序"
   Unload Me
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseHandle h
End Sub