有这段数据大约半年了，到现在仍不知道是什么意思

[Darkyu]

Dim b2(4) As Byte
b2(0) = &H65
b2(1) = &H18
b2(2) = &H87
b2(3) = &H0
Dim padd As Long
Dim a2 As Long
Dim mx1 As Long
mx = GetProcAddress(LoadLibrary("oleaut32.dll"), "VariantInit")
a2 = &H871861
WriteProcessMemory Me.hWnd, a2, b1(0), 64
mx1 = mx - &H87186C - 6
a2 = &H87186E
WriteProcessMemory Me.hWnd, a2, mx1, 4
mx1 = mx - &H871879 - 6
a2 = &H87187B
WriteProcessMemory Me.hWnd, a2, mx1, 4
mx1 = mx - &H87189C - 5
a2 = &H87189D
WriteProcessMemory Me.hWnd, a2, mx1, 4
a2 = &H7F12B0
WriteProcessMemory Me.hWnd, a2, b2(0), 4
isqp = True
End If
Dim sk As Long
If Check1.Value = 1 Then
sk = 1
WriteProcessMemory Me.hWnd, &H871861, sk, 4
Else
sk = 0
WriteProcessMemory Me.hWnd, &H871861, sk, 4
End If

有哪位高手知道 尽量说得详细点意思

[Sandrer]

传说中的API HOOK

[Darkyu]

没人知道吗？

[chriswing]

本来想细说一下，一看。。。。“问题点数：0”

[嗷嗷叫的老马]

没见过这种用法.

不过感觉代码有问题.

关键就在于WriteProcessMemory函数的用法上.

按MSDN里的声明:

Private Declare Function WriteProcessMemory Lib "kernel32.dll" ( _ 
  ByVal hProcess As Long, _ 
  ByRef lpBaseAddress As Any, _ 
  ByRef lpBuffer As Any, _ 
  ByVal nSize As Long, _ 
  ByRef lpNumberOfBytesWritten As Long) As Long

则WriteProcessMemory有五个参数,而你的代码里只有四个参数.

因此我猜测这个"WriteProcessMemory"并非MSDN里的那个WriteProcessMemory,而是一个自定义的函数,只是名字一样而已.

最好问问代码作者,把所有的代码都搞到手.

不然这样的片段里能得到的信息是十分有限的(对我而言).

[gong1688]

发表于：2008-10-19 22:07:40 楼主
Dim b2(4) As Byte
b2(0) = &H65
b2(1) = &H18
b2(2) = &H87
b2(3) = &H0
Dim padd As Long
Dim a2 As Long
Dim mx1 As Long
mx = GetProcAddress(LoadLibrary("oleaut32.dll"), "VariantInit")
a2 = &H871861
WriteProcessMemory Me.hWnd, a2, b1(0), 64
mx1 = mx - &H87186C - 6
a2 = &H87186E
WriteProcessMemory Me.hWnd, a2, mx1, 4
mx1 = mx - &H871879 - 6
a2 = &H87187B
WriteProcessMemory Me.hWnd, a2, mx1, 4
mx1 = mx - &H87189C - 5
a2 = &H87189D
WriteProcessMemory Me.hWnd, a2, mx1, 4
a2 = &H7F12B0
WriteProcessMemory Me.hWnd, a2, b2(0), 4
isqp = True
End If
Dim sk As Long
If Check1.Value = 1 Then
sk = 1
WriteProcessMemory Me.hWnd, &H871861, sk, 4