Code: Select all
AskThenOpenURL("Question... ?")
Function AskThenOpenURL(strPrompt)
Const msiMessageTypeUser = &H03000000
Dim ans
Set record = Session.Installer.CreateRecord(0)
record.StringData(0) = strPrompt
ans = Session.Message(msiMessageTypeUser + vbYesNo + vbQuestion, record)
If ans = vbYes Then
OpenURL("http://www.your-site.com/uninstall.htm")
End If
End Function
Function OpenURL(strURL)
Set WshShell = CreateObject("WScript.Shell")
ret = WshShell.Run(strURL, 1, False)
End Function