VB_改变内存中变量的值

 先用API获得进程句柄,然后获得权限以后直接修改.........当初API入门的时候怀念i ng.........

1. Private Sub Command1_Click()
2. If ToKen <> 0 Then
3.  Text1 = ""
4.  Dim PID As Long, Num_Reset As Long, HStr As String
5. HStr = Right$("00000000" & Hex(Val(Text2)), 8)
6. Num_Reset = "&H" & HStr
7.  PID = GetPid(vbNullString, "Form1")
8.  Text1 = "如果数据过大可能结果出错"
9.  Text1 = Text1 & vbCrLf & "权限已提至最高" '获取最高权限
10.  Text1 = Text1 + vbCrLf & "Form1的进程PID(进程标识符): " & PID
11.   Text1 = Text1 & vbCrLf & "初始数值:" & GetData(PID, &H145C84, 2)
12.  If SetData(PID, &H145C84, Num_Reset, 2) Then
13.   Text1 = Text1 & vbCrLf & "修改成功!"
14.   Text1 = Text1 & vbCrLf & "目前对应数值:" & GetData(PID, &H145C84, 2)
15.  End If
16. Else
17.  Exit Sub
18.  Text1 = "修改失败!"
19. End If
20. End Sub
22. '模块：
24. Option Explicit
26. '查找窗体写内存等
27. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
28. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
29. Private