会python真的可以为所欲为0(回)
396天前
这里还有人吗1(回)
581天前这里还有人吗0(回)
581天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
806天前到处都是羊，不想上班0(回)
886天前
鸽子
0(回)
890天前Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer |
Public Declare Function ReadProcess Memory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer |
|
Private Const PROCESS_VM_READ As Long = &H10 |
Private Sub sd() |
Dim ph As Integer |
Dim i As Integer |
Dim h As Integer |
Dim buffer(20) As Byte |
Dim bytesRead As Integer |
'获得进程 |
ph = OpenProcess(PROCESS_ALL_ACCESS, False, 1832) |
If ph Then |
MessageBox.Show(True) |
h = ReadProcessMemory(ph, &H403000, buffer, buffer.Length, bytesRead) |
For i = 0 To buffer.Length - 1 |
TempMem += buffer(i).ToString |
Next |
Else |
MessageBox.Show(False) |
End If |
End Sub |
