'创建线程API
'此API经过改造，lpThreadAttributes改为Any型，lpStartAddress改为传值引用：
'因为函数入口地址是由形参变量传递，如果用传址那将传递形参变量的地址而不是函数的入口地址
' 参数dwStackSize为应用程序堆栈大小，lpStartAddress为函数入口地址
Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, LpthreadId As Long) As Long
'终止线程API
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
'激活线程API,参数hThread为CreateThread创建的线程句柄
Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long
'挂起线程API
Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long |
