Search the Community

Using scripts from this forum (many thanks by the way) I have created a simple GUI that lets me browse to a file and upon clicking Continue the file is digitally signed with a hard coded certificate. Then the GUI closes. Works fine. I would however like to keep the GUI and ready to do another once it completes one. I have tried to google this but doubt I am using the correct phrase as I have had no luck even coming close. Could someone point me in the right direction please? Thank you.#include <GUIConstants.au3> #include <GuiButton.au3> $Form1 = GUICreate("Digitally Sign EXE", 300, 70) $Input1 = GUICtrlCreateInput("Select File to Digitally Sign", 10, 10, 280, 21) $Browse = GUICtrlCreateButton("Browse...", 10, 35, 64, 25, $BS_DEFPUSHBUTTON) $do = GUICtrlCreateButton("Continue", 95, 35, 97, 25, $BS_DEFPUSHBUTTON) $Exit = GUICtrlCreateButton("Exit", 214, 35, 75, 25, $BS_DEFPUSHBUTTON) ;$Label1 = GUICtrlCreateLabel(" ", 10, 10) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $Exit Exit Case $nMsg = $Browse $txt=FileOpenDialog("Open", "C:\","All (*.*)") GUICtrlSetData($Input1,$txt) Case $nMsg = $do $SelectedFile = GUICtrlRead($Input1) $Cert = "Certificate Name Here" $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $oSigner = ObjCreate("Scripting.Signer") $oSigner.SignFile($SelectedFile, $Cert) $oSigner = "" Msgbox(0,"Signed", "Signing is complete") EndSelect WEnd Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & $HexNumber & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ) SetError(1) EndFunc ;==>MyErrFunc