'修该内存页面属性
'返回：非0 成功，=0 失败
'                    Case &H1 ' 分页_禁止 
'                     tt="No"
'                    Case &H2 '分页_只读
'                      tt="R"
'                    Case &H4 '分页_读写
'                      tt="RW"
'                    Case &H8 '分页_读副本
'                      tt="RC"
'                    Case &H10 '分页_执行
'                      tt="Ex"
'                    Case &H20 '分页_执行_READ 
'                      tt="ER"
'                    Case &H40 '分页_执行_读写
'                      tt="ERW"
'                    Case &H80 '分页_执行_读副本
'                      tt="EWC" 
'                    Case &H100 ' 分页_保护 
'                      tt="+G"
'                    Case &H200 '分页_NO隐藏
'                      tt="+N"
'                    Case &H400 '分页_写结合
#Include Once "win/winbase.bi"
Function SetMemProtect(ByVal jID as DWord, ByVal lpAddress as UInteger, ByVal NewProtect as DWord) as Integer '  修该内存页面属性
   '修该内存页面属性(进程标识 As Long, 地址 As Long, 类型 As Long) As Boolean
   Dim hProcess as HANDLE, bb as DWord
   hProcess = OpenProcess(&H1F0FFF, 0, jID)
   If hProcess = 0 Then Exit Function
   Function = VirtualProtectEx(hProcess, lpAddress, 4, NewProtect, @bb)
   CloseHandle hProcess
   
End Function