Terminate back to GUI

[ausssieautomate]

Hi Guys,

My Problem is I am trying to create a GUI that is kind of a dashboard where perform autofill IE forms/auto logins. The problem is when I stop one of this processes from completing itself naturally the script hangs so to speak and the GUI no longer responds. This is because the script doesn't know where to go. My question is, is their a function I could implement into my script that automatically terminates back to the GUI if I interrupt the IECreate and autofill process.

Pseudo Code Example;

GUI()

Launch Func Work()

Func Work()

$oIE = _IECreate ("C:\example.html")

WinSetState("Example", "", @SW_MAXIMIZE)

_$oForm = _IEFormGetObjByName ($oIE, "asdf")

$oQuery1 = _IEFormElementGetObjByName ($oForm, "fdsa") ;

_IEFormElementSetValue ($oQuery1, $temp)

_IEFormSubmit ($oForm)

_IELoadWait ($oIE)

GUI()

End Func

The objective is if I terminate my script in the middle of work() I want to go back to my GUI as normal. Any ideas? Any help would be appreciated.

Thanks

[Mat]

Create a hotkey that does it...

I think the best way to do it is completely restart the script using this wrapper:

http://www.autoitscript.com/forum/index.ph...st&p=199608

edit: you could also check @Error status after every function: if @Error Then Restart ()

edit2:

HotKeySet ("!a", "Restart")

GUI()

Func Work()
   Local $oIE, $oForm, $oQuery1, $temp; You will get an error with temp as it is not defined

   $oIE = _IECreate ("C:\example.html")
      If @Error Then Restart ()
   WinSetState("Example", "", @SW_MAXIMIZE)
   $oForm = _IEFormGetObjByName ($oIE, "asdf")
      If @Error Then Restart ()
   $oQuery1 = _IEFormElementGetObjByName ($oForm, "fdsa")
      If @Error Then Restart ()
   _IEFormElementSetValue ($oQuery1, $temp)
      If @Error Then Restart ()
   _IEFormSubmit ($oForm)
      If @Error Then Restart ()
   _IELoadWait ($oIE)
      If @Error Then Restart ()
   GUI()
EndFunc; ==> Work

Func Restart()
    If @Compiled = 1 Then
        Run( FileGetShortName(@ScriptFullPath))
    Else
        Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    EndIf
    Exit
EndFunc; ==> Restart

Edited April 17, 2009 by mdiesel

[ausssieautomate]

Hi mdiesel.

Cheers mate that If @error command got it.