教你一个方法,前提是你装了VC++,在VC中可以查找到PAGE_READONLY之类的16进制值,你就可以在标准模块中定义他们了。当然查找的目录选定VC下的Include目录。
定义方式的在函数声明之前。
Public Const PAGE_READONLY = &H4667(数字可是我乱编的)
Public Const PAGE_READWRITE= &H4668
Public Const PAGE_WRITECOPY= &H4669
sample:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Dim R As Integer
------------
R = ExitWindowsEx(1, 0)
详情可以从vb的api 察看器中 加载win32 api.txt.
good luck!