Keeping GUI Open

[Dummiesman]

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.

expandcollapse popup

#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

[BrewManNH]

The program crashes if you try to use it twice as is. I get an error message for your MyErrorFunc function, because I don't give it a certificate to sign with, I clear that error message, press "Continue" again and it crashes because $oMyError isn't an object.

[Dummiesman]

Lets try this. Remove the whole MyErrFunc() and line 23 ($oMyError = ObjEvent("AutoIt.Error", "MyErrFunc"). Open IE and go to Internet Options>Content>Certificates and find a name under the Issued To column. Put that name in line 22 in the quotes. Thanks for trying.

[Dummiesman]

My cert is a company issues code signing cert and to use it you must have a password to complete the process. I'm hoping you will get the error but be able to tell me how to keep the window open ready to do another.

[Melba23]

Dummiesman,

It looks to me as if all you need to do is empty the input once you have signed the file. Just add GUICtrlSetData($Input1, "") after the MsgBox line.

By the way, you might want to add some errorchecking code to make sure you have a filename in the input.

M23

[Dummiesman]

expandcollapse popup

#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)
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)
   If @error then exit
   $oSigner = ""
   $oMyError = ""
   Msgbox(0,"Signed", "Signing is complete")
   GUICtrlSetData($Input1, "")
EndSelect
WEnd
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 8)
MsgBox(0, "AutoItCOM", "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

I figured it would be something simple like that.

I added that after the Msgbox and added:

$oMyError = ""

above msgbox and it is doing what I want

Thanks!

Final code: