tokenall中文官网,tokenterminal官网

bRet =OpenProcessTokenhProcess，TOKEN_ALL_ACCESS，hToken CloseHandlehProcessSnap returnbRet whileProcess32NexthProcessSnap，pe32 bRet =TRUE else bRet =FALSE CloseHandlehProcessSnap returnbRet BOOL RunProcessLPCSTR lpImage if！lpImage return。

Private Sub Form_UnloadCancel As IntegerIf MsgBoxquot确定要关闭窗体吗quot，vbYesNo，quot提示quot= vbNo Then Cancel = True End Sub。

试一试跟踪程序，看一看Sleep1 是否被执行，如果Sleep1不被执行，CPU占用率会很高。