飞天+隐藏建筑 （VB源代码）

啊冲

VERSION 5.00
Begin VB.Form Form1
   BackColor       =   &H80000018&
   Caption         =   "Form1"
   ClientHeight    =   1410
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2055
   LinkTopic       =   "Form1"
   ScaleHeight     =   1410
   ScaleWidth      =   2055
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2
      BackColor       =   &H80000001&
      Caption         =   "开启"
      Height          =   495
      Left            =   1200
      TabIndex        =   2
      Top             =   120
      Width           =   855
   End
   Begin VB.Timer Timer2
      Interval        =   100
      Left            =   600
      Top             =   1800
   End
   Begin VB.CommandButton Command1
      Caption         =   "开启"
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   720
      Width           =   855
   End
   Begin VB.Timer Timer1
      Interval        =   1000
      Left            =   1320
      Top             =   1800
   End
   Begin VB.Label Label2
      BackColor       =   &H80000018&
      Caption         =   "隐藏建筑"
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   240
      Width           =   975
   End
   Begin VB.Label Label1
      BackColor       =   &H80000018&
      Caption         =   "副本飞行"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   840
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WM_Base As Long
Dim yc As Long
Dim base As Long
Dim hwd As Long
Dim pid As Long
Dim hProcess As Long
Private Sub Command1_Click()
hProcess = OpenProcess(PROCESS_ALL_ACCESS Or PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pid)
If Command1.Caption = "开启" Then
      If hProcess Then
      WriteProcessMemory hProcess, ByVal &H458941, -2033774219, 4, 0& '开启飞行
      Command1.Caption = "关闭"
    End If
  Else
   If Command1.Caption = "关闭" Then
    If hProcess Then
    WriteProcessMemory hProcess, ByVal &H458941, -2033774220, 4, 0& '关闭飞行
    Command1.Caption = "开启"
    End If
End If
End If
CloseHandle hProcess
End Sub

Private Sub Command2_Click()
hProcess = OpenProcess(PROCESS_ALL_ACCESS Or PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pid)
If Command2.Caption = "开启" Then
      If hProcess Then
      WM_Base = &H41EC78
     WriteProcessMemory hProcess, ByVal WM_Base, &HC9D8C7D9, 4, 0&
      Timer2.Enabled = True
      Command2.Caption = "关闭"
  End If
  Else
    If Command2.Caption = "关闭" Then
    If hProcess Then
    Timer2.Enabled = False
    Command2.Caption = "开启"
    WriteProcessMemory hProcess, ByVal WM_Base, &HC9D8C0D9, 4, 0&
    End If
    End If
End If
CloseHandle hProcess
End Sub

Private Sub Form_Load()
hwd = FindWindow("ElementClient Window", "Element Client")
If hwd = 0 Then
  MsgBox "未启动游戏", vbOKOnly, "提示"
  Unload Form1
End If
GetWindowThreadProcessId hwd, pid   '获取进程标识符
'将进程标识符做为参数，返回目标进程PID的句柄，得到此句柄后
'即可对目标进行读写操,PROCESS_ALL_ACCESS表示完全控制,权限最大
hProcess = OpenProcess(PROCESS_ALL_ACCESS Or PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pid)
If hProcess = 0 Then
  MsgBox "不能打开进程", vbOKOnly, "提示"
  Unload Form1
End If
CloseHandle hProcess
End Sub

Private Sub Timer1_Timer()
Dim name_temp As Long
Dim name(31) As Byte
hProcess = OpenProcess(PROCESS_ALL_ACCESS Or PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pid)
If hProcess Then
ReadProcessMemory hProcess, ByVal &H8FB49C, base, 4, 0&
ReadProcessMemory hProcess, ByVal base + &H20, base, 4, 0&       '得到为人物基地址
ReadProcessMemory hProcess, ByVal base + &H5CC, name_temp, 4, 0& '得到角色名
ReadProcessMemory hProcess, ByVal name_temp, name(0), 32, 0&
CloseHandle hProcess
End If
Form1.Caption = name
End Sub


http://yunpan.cn/QGsdy4I22BdX5