www.pudn.com > ownfirewall > ShellWait.bas

Attribute VB_Name = "ShellWait" 
Option Explicit 
 
Public Const INFINITE = -1& 
Public Const NORMAL_PRIORITY_CLASS = &H20& 
Public Const STARTF_FORCEOFFFEEDBACK = &H80 
Public Const STARTF_FORCEONFEEDBACK = &H40 
Public Const STARTF_RUNFULLSCREEN = &H20 ' ignored For non-x86 platforms 
Public Const STARTF_USECOUNTCHARS = &H8 
Public Const STARTF_USEFILLATTRIBUTE = &H10 
Public Const STARTF_USEPOSITION = &H4 
Public Const STARTF_USESHOWWINDOW = &H1 
Public Const STARTF_USESIZE = &H2 
Public Const STARTF_USESTDHANDLES = &H100 
Public Const SW_ERASE = &H4 
Public Const SW_HIDE = 0 
Public Const SW_INVALIDATE = &H2 
Public Const SW_MAX = 10 
Public Const SW_MAXIMIZE = 3 
Public Const SW_MINIMIZE = 6 
Public Const SW_NORMAL = 1 
Public Const SW_OTHERUNZOOM = 4 
Public Const SW_OTHERZOOM = 2 
Public Const SW_PARENTCLOSING = 1 
Public Const SW_PARENTOPENING = 3 
Public Const SW_RESTORE = 9 
Public Const SW_SCROLLCHILDREN = &H1 
Public Const SW_SHOW = 5 
Public Const SW_SHOWDEFAULT = 10 
Public Const SW_SHOWMAXIMIZED = 3 
Public Const SW_SHOWMINIMIZED = 2 
Public Const SW_SHOWMINNOACTIVE = 7 
Public Const SW_SHOWNA = 8 
Public Const SW_SHOWNOACTIVATE = 4 
Public Const SW_SHOWNORMAL = 1 
 
 
Public Type STARTUPINFO 
    cb As Long 
    lpReserved As String 
    lpDesktop As String 
    lpTitle As String 
    dwX As Long 
    dwY As Long 
    dwXSize As Long 
    dwYSize As Long 
    dwXCountChars As Long 
    dwYCountChars As Long 
    dwFillAttribute As Long 
    dwFlags As Long 
    wShowWindow As Integer 
    cbReserved2 As Integer 
    lpReserved2 As Long 
    hStdInput As Long 
    hStdOutput As Long 
    hStdError As Long 
    End Type 
 
 
Public Type PROCESS_INFORMATION 
    hProcess As Long 
    hThread As Long 
    dwProcessID As Long 
    dwThreadID As Long 
    End Type 
 
 
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long 
Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long 
Declare Sub CloseHandle Lib "kernel32" (ByVal hObject As Long)