一个小问题，但我还没找到答案:(

请问：怎么样获知一个进程的所有线程的ID? 问题点数：15、回复次数：9Top

1 楼bcrun（网狐(www.devsos.com)）回复于 2001-03-12 10:31:00 得分 0

没有人肯指教吗？：（Top

2 楼fanatical（杨）回复于 2001-03-12 13:07:00 得分 0

I   do   not   knowTop

3 楼bcrun（网狐(www.devsos.com)）回复于 2001-03-13 12:35:00 得分 0

怎么越是简单的问题越没人答？Top

4 楼shaoshaoh（汤勺）回复于 2001-03-13 12:50:00 得分 0

搞什么，你以为很简单吗？Top

5 楼sncel（地狱情人-杨勇）回复于 2001-03-13 13:17:00 得分 0

我不知道，我关注！Top

6 楼c_2000（c_2000）回复于 2001-03-15 21:21:00 得分 0

我也想知道！Top

7 楼gjw（个体户）回复于 2001-03-15 21:32:00 得分 12

利用API函数调用  
  Public   Const   MAX_PATH   =   260  
  Public   Const   MAX_MODULE_NAME32   =   255  
  Public   Const   TH32CS_SNAPHEAPLIST   =   &H1  
  Public   Const   TH32CS_SNAPPROCESS   =   &H2  
  Public   Const   TH32CS_SNAPTHREAD   =   &H4  
  Public   Const   TH32CS_SNAPMODULE   =   &H8  
  Public   Const   TH32CS_SNAPALL   =   TH32CS_SNAPHEAPLIST   Or   TH32CS_SNAPPROCESS   Or   TH32CS_SNAPTHREAD   Or   TH32CS_SNAPMODULE  
  Public   Const   TH32CS_INHERIT   =   &H80000000  
  Public   Declare   Function   EnumThreadWindows   Lib   "user32"   (ByVal   dwThreadId   As   Long,   ByVal   lpfn   As   Long,   ByVal   lParam   As   Long)   As   Long  
   
  Public   Type   PROCESSENTRY32  
                  dwSize   As   Long  
                  cntUsage   As   Long  
                  th32ProcessID   As   Long  
                  dwThreadId   As   Long  
                  th32DefaultHeapID   As   Long  
                  th32ModuleID   As   Long  
                  cntThreads   As   Long  
                  th32ParentProcessID   As   Long  
                  pcPriClassBase   As   Long  
                  dwFlags   As   Long  
                  szExeFile(MAX_PATH)   As   String  
  End   Type  
  Public   Type   MODULEENTRY32  
          dwSize   As   Long  
          th32ModuleID   As   Long  
          th32ProcessID   As   Long  
          GlblcntUsage   As   Long  
          ProccntUsage   As   Long  
          modBaseAddr   As   Byte  
          modBaseSize   As   Long  
          hModule   As   Long  
          szModule(MAX_MODULE_NAME32   +   1)   As   String  
          szExePath(MAX_PATH)   As   String  
  End   Type  
  Public   Declare   Function   CloseHandle   Lib   "kernel32"   (ByVal   hObject   As   Long)   As   Long  
  Public   Declare   Function   CreateToolhelp32Snapshot   Lib   "kernel32"   (ByVal   dwFlags   As   Long,   ByVal   th32ProcessID   As   Long)   As   Long  
  Public   Declare   Function   Process32First   Lib   "kernel32"   (ByVal   hSnapshot   As   Long,     lppe   As   PROCESSENTRY32)   As   Long  
  Public   Declare   Function   Process32Next   Lib   "kernel32"   (ByVal   hSnapshot   As   Long,     lppe   As   PROCESSENTRY32)   As   Long  
  Public   Declare   Function   Module32First   Lib   "kernel32"   (ByVal   hSnapshot   As   Long,     lppe   As   MODULEENTRY32)   As   Long  
  Public   Declare   Function   Module32Next   Lib   "kernel32"   (ByVal   hSnapshot   As   Long,     lppe   As   MODULEENTRY32)   As   Long  
  Top

8 楼amanofsky（madada）回复于 2001-03-15 21:36:00 得分 3

Public   Declare   Function   EnumThreadWindows   Lib   "user32"   (ByVal   dwThreadId   As   Long,   ByVal   lpfn   As   Long,   ByVal   lParam   As   Long)   As   Long  
   
  Top

9 楼bcrun（网狐(www.devsos.com)）回复于 2001-03-19 14:09:00 得分 0

看来葡萄成熟还早得很，不敢还是非常感谢以上两位的代码，一点小分，不成敬意：）  
   
  继续关注！！Top

相关问题

• th32cs
• th
• as long
• byval
• max
• public const

• 帖主：bcrun
• gjw
• amanofsky

• Visual Basic类图书
• Visual Basic类源码下载