?? module1.bas
字號:
Attribute VB_Name = "Module1"
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Function stillrun(ByVal ProgramID) As Boolean
Dim lHprogram As Long
Dim lReturn As Long
lHprogram = OpenProcess(0, False, ProgramID)
If Not lHprogram = 0 Then
stillrun = True
Else
stillrun = False
End If
CloseHandle lHprogram
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -