读书人

请问ntquerysysteminformation的5号功

发布时间: 2012-12-16 12:02:32 作者: rapoo

请教ntquerysysteminformation的5号功能
为了查询其它进程的工作状态,在VB里用ntquerysysteminformation的5号功能。代码如下:


Dim sysProcInfo() As Byte 'SYSTEM_PROCESS_INFORMATION

Dim lngLen As Long



Dim lngResult As Integer = NtQuerySystemInformation(5, 0&, 0&, lngLen)

ReDim sysProcInfo(lngLen - 1)



Dim status As Integer = NtQuerySystemInformation(SYSTEM_PROCESSINFORMATION, VarPtr(sysProcInfo), sysProcInfo.Length, IntPtr.Zero)



If (status <> NO_ERROR) Then

Exit Sub

Else

'接下来不知道怎么将byte数据转成'SYSTEM_PROCESS_INFORMATION的,再循环获取指定进程的工作状态。
End If
请大家帮忙解决啊!!

谢谢!!

[解决办法]
谁能告诉我啊
[解决办法]
http://blog.csdn.net/oldmtn/article/details/6183878
[解决办法]
楼上这个文章我看过了,但是问题还是未能解决。

读书人网 >VB Dotnet

热点推荐