VB6破解fan之内存分配检测检测源码分享

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Declare Function GetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, lpMinimumWorkingSetSize As Long, lpMaximumWorkingSetSize As Long) As Long

Private Function JianNeicun(biggest As Long, smallest As Long) As Boolean

'我们这里的最大值是1413120，最小值是204800

Dim yx As Long

Dim ax As Long

Dim bx As Long

Dim cx As Long

yx = GetCurrentProcess

'获得ID

ax = GetProcessWorkingSetSize(yx, bx, cx)

'获得内存分配信息

'MsgBox bx, , "min" '这里可以自行打开,以确定你的程序实际最小内存分配

'MsgBox cx, , "max" '这里可以自行打开,以确定你的程序实际最大内存分配

If bx <> smallest Or cx <> biggest Then

JianNeicun = True '发现调试器OD

Else

JianNeicun = False

End If

End Function

。。。。。。。。。。。。。