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

IORI915189 2006-06-27 05:43:54

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

...全文

439 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

IORI915189 2006-10-02

打赏
举报

最后顶一个 !`_~

pigsanddogs 2006-10-02

打赏
举报

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;
}

pigsanddogs 2006-10-02

打赏
举报

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

VirtualDesktop 2006-10-02

打赏
举报

CreateToolhelp32Snapshot
Process32First
Process32Next

IORI915189 2006-09-12

打赏
举报

IORI915189 2006-07-06

打赏
举报

UP
怎么没人回答

空心兜兜 2006-07-01

打赏
举报

帮顶……

IORI915189 2006-07-01

打赏
举报

顶一个

IORI915189 2006-06-30

打赏
举报

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

清晨曦月 2006-06-28

打赏
举报

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

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

一笑拔剑 2006-06-27

打赏
举报

只要找到吗?
看这个函数行不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