How to use VBA to uninstall a program with msiexec.exe

'================
' Class1.cls
'================
 
 
Option Explicit
 
Private Const WAIT_OBJECT_0       As Long = 0
Private Const SYNCHRONIZE         As Long = &H100000
Private Const INFINITE            As Long = &HFFFFFFFF
 
Private Const QS_HOTKEY           As Long = &H80
Private Const QS_KEY              As Long = &H1
Private Const QS_MOUSEBUTTON      As Long = &H4
Private Const QS_MOUSEMOVE        As Long = &H2
Private Const QS_PAINT            As Long = &H20
Private Const QS_POSTMESSAGE      As Long = &H8
Private Const QS_SENDMESSAGE      As Long = &H40
Private Const QS_TIMER            As Long = &H10
 
Private Const QS_ALLINPUT         As Long = (QS_SENDMESSAGE _
  Or QS_PAINT _
  Or QS_TIMER _
  Or QS_POSTMESSAGE _
  Or QS_MOUSEBUTTON _
  Or QS_MOUSEMOVE _
  Or QS_HOTKEY _
  Or QS_KEY)
 
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function MsgWaitForMultipleObjects Lib "user32" (ByVal nCount As Long, pHandles As Long, ByVal fWaitAll As Long, ByVal dwMilliseconds As Long, ByVal dwWakeMask As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Event OnProcessClose()
 
Public PrematureExit  As Boolean
Private hProcess      As Long
Private mPid          As Long
 
Public Property Get IsWaiting() As Boolean
 
  If hProcess <> 0 Then
    IsWaiting = True
  Else
    IsWaiting = False
  End If
  
End Property
 
Public Sub ShellAndWait(ByVal arg As String)
  
  ' Wait on a single process to close.
  
  Dim bWait   As Long
  
  mPid = Shell(arg, vbNormalFocus)
  
  hProcess = OpenProcess(SYNCHRONIZE, 0, mPid)
  
  If hProcess = 0 Then
    Exit Sub
  End If
  
  Do
    bWait = MsgWaitForMultipleObjects(1, hProcess, 0, INFINITE, QS_ALLINPUT)
      If PrematureExit Then
        bWait = WAIT_OBJECT_0
      End If
    DoEvents
  Loop Until bWait = WAIT_OBJECT_0
  
  CloseHandle hProcess
  hProcess = 0
  
  If PrematureExit = False Then
    RaiseEvent OnProcessClose
  End If
  
End Sub











 
'===================
' Form1.frm
'===================

Option Explicit
 
Dim WithEvents cProcessWait As Class1
 
Private Sub Command1_Click()
    
  If cProcessWait.IsWaiting = False Then
    cProcessWait.ShellAndWait "c:\windows\system32\calc.exe"
  Else
    Debug.Print "Already waiting...."
  End If
  
End Sub
 
Private Sub cProcessWait_OnProcessClose()
 
  Debug.Print "Process has closed : " & Time
  
End Sub
 
Private Sub Form_Load()
 
  Set cProcessWait = New Class1
  
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  
  cProcessWait.PrematureExit = True
  
  Set cProcessWait = Nothing
  
End Sub

Select all Open in new window