跪求怎么在9X系统下用VB获取线程的句柄

[IORI915189]

如题
怎么在9X系统下用VB获取线程的句柄
就是在2000系统使用OpenThread这个API函数的功能

[一笑拔剑]

只要找到吗?
看这个函数行不OpenProcess

Public Function GetProcessHandle As Long(ByVal sPath As String)’获取被监控进程的进程句柄

sPath = LCase(sPath)

hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)’创建一个snapshot对象

pe.dwSize = Len(pe)

bValue = Process32First(hSnapshot, pe)’开始遍历系统进程池

While bValue <> 0

If InStr(LCase(pe.szExeFile), sPath) <> 0 Then’如果找到了，则…

Dim hProcess As Long

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pe.th32ProcessID)

GetProcessHandle = hProcess

CloseHandle hSnapshot

Exit Function

[清晨曦月]

楼上同志似乎有点问题。。
这个过程呢，楼主要的是线程，
另外，你这代码写的不闲麻烦。。

Dim hProcess As Long

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pe.th32ProcessID)

GetProcessHandle = hProcess

CloseHandle hSnapshot

这样不好吗


GetProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pe.th32ProcessID)



CloseHandle hSnapshot

[IORI915189]

我要的是OpenThread 获取线程句柄函数
OpenProcess 是获取进程句柄 天地之别呀
还有是在9X系统下 不是在2000以上系统中哦
2000以上系统可以直接用OpenThread这个API拉
虽然回答错了 但也谢谢你和楼上这为朋友的热心
期望高手回答 VB能OR不能在9X下实现这个功能

[IORI915189]

顶一个

[空心兜兜]

帮顶……

[IORI915189]

UP
怎么没人回答

[IORI915189]

UP

[VirtualDesktop]

CreateToolhelp32Snapshot
Process32First
Process32Next

[pigsanddogs]

EliCZ写的EliRT库，专门在98下模拟openthread， createremotethread， virtualallocex等

[pigsanddogs]

HANDLE OpenThread9x(DWORD dwDesiredAccess,
BOOL bInheritHandle,
DWORD dwThreadId)
{
HANDLE hThread;
PTDB pTDB;

SetLastError(ERROR_INVALID_PARAMETER);

// Check if TID is valid
if (!IsThreadId(dwThreadId))
return NULL;

// Thread Database pointer
if (!(pTDB = GetTDB(dwThreadId)))
return NULL;

// InternalOpenThread()
__asm mov eax, pTDB;
__asm push dwThreadId;
__asm push bInheritHandle;
__asm push dwDesiredAccess;
__asm call InternalOpenThread;
__asm mov hThread, eax;

return hThread;
}

[IORI915189]

最后顶一个 !`_~