如题，这样的功能在VB中怎么实现？
參考答案:使用API
GetCurrentProcess
VB声明
Declare Function GetCurrentProcess Lib "kernel32" Alias "GetCurrentProcess" () As Long
说明
获取当前进程的一个伪句柄
返回值
Long，当前进程的伪句柄
注解
只要当前进程需要一个进程句柄，就可以使用这个伪句柄。该句柄可以复制，但不可继承。不必调用CloseHandle函数来关闭这个句柄
GetCurrentProcessId
VB声明
Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long
说明
获取当前进程一个唯一的标识符
返回值
Long，当前的进程标识符
GetCurrentThread
VB声明
Declare Function GetCurrentThread Lib "kernel32" Alias "GetCurrentThread" () As Long
说明
获取当前线程的一个伪句柄
返回值
Long，当前线程的伪句柄
注解
只要当前线程需要使用一个线程句柄，就可以使用这个伪句柄（但在其他任务线程中都无效）。该句柄可以复制，但不可继承。不必调用CloseHandle函数来关闭这个句柄
GetCurrentThreadId
VB声明
Declare Function GetCurrentThreadId Lib "kernel32" Alias "GetCurrentThreadId" () As Long
说明
获取当前线程一个唯一的线程标识符
返回值
Long，当前的线程标识符
用法:声明后可以像普通函数一样调用
