WriteProcessMemory

WriteProcessMemory點改個數值??
我想張
123.exe既9875d4<<呢個代碼既值改做1
要點寫!!!!!!!!!!!!!!!!!!!!!!

thx for sharing

哦原來是這樣阿謝謝你無私的分享熱情的教學

這是API，根據VB版本不同有所不同，你是哪個版本阿

建議你轉用delphi或C++寫會方便些.....因為VB對API支持有限 =.="

這篇再說什麼
我有點看不懂......

1.     Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2.     Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long
   
3.     Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
   
4.     Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer() As Byte, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
   
5.        Dim hwnd As Long
   
6.         hwnd = FindWindow(vbNullString, "123")
   
7.         If (hwnd = 0) Then
   
8.             MsgBox("Window not found!")
   
9.             Exit Sub
   
10.         End If
    
11.         Dim pid As Long
    
12.         GetWindowThreadProcessId(hwnd, pid)
    
13.         pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
14.         If (pHandle = 0) Then
    
15.             MsgBox("Couldn't get a process handle!")
    
16.             Exit Sub
    
17.         End If
    
18. Dim value() as Byte = {1}
    
19.    WriteProcessMemory(pHandle, &H9875d4, value, value.Length, &0)
    

複製代碼

謝謝你的分享
幸好樓上是個高手

8樓的解答不錯唷
可以參考
謝謝分享哩^^