9 replies to this topic

[copyleft]

This script works fine except that I want the GUI window to close if the user makes a selection or presses exit. Right now, it only closes if the user clicks exit. Thanks in advance.

Plain Text        expandcollapse  popup

#include <GUIConstantsEx.au3>
#include <IE.au3>
Opt("GUIOnEventMode", 1)
Global $ExitID
_Main()
Func _Main()
Local $SGAID, $TAIPETID
GUICreate("LAN Map", 275, 125)
GUICtrlCreateLabel("Please choose a LAN Map.", 10, 10)
$SGAID = GUICtrlCreateButton("SGA", 10, 50, 70, 20)
GUICtrlSetOnEvent($SGAID, "OnSGA")
$TAIPETID = GUICtrlCreateButton("TAIPET", 80, 50, 70, 20)
GUICtrlSetOnEvent($TAIPETID, "TAIPET")
$ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)
GUICtrlSetOnEvent($ExitID, "OnExit")
GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
GUISetState()
While 1
Sleep(500)
WEnd
EndFunc
Func OnSGA()
run ("C:\Program Files\Internet Explorer\iexplore.exe -k OFFICE.htm")
EndFunc
Func TAIPET()
run ("C:\Program Files\Internet Explorer\iexplore.exe -k TAIPET.htm")
EndFunc
Func OnExit()
If @GUI_CtrlId = $ExitID Then
EndIf
Exit
EndFunc

[abberration]

How about something like this:

AutoIt        expandcollapse  popup

#include <GUIConstantsEx.au3>
#include <IE.au3>

$Form1 = GUICreate("LAN Map", 275, 125)
GUICtrlCreateLabel("Please choose a LAN Map.", 10, 10)
$SGAID = GUICtrlCreateButton("SGA", 10, 50, 70, 20)
GUICtrlSetOnEvent($SGAID, "OnSGA")
$TAIPETID = GUICtrlCreateButton("TAIPET", 80, 50, 70, 20)
GUICtrlSetOnEvent($TAIPETID, "TAIPET")
$ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $SGAID
            OnSGA()
            GUIDelete($Form1)
            Exit
        Case $TAIPETID
            TAIPET()
            GUIDelete($Form1)
            Exit
        Case $ExitID
            Exit
    EndSwitch
WEnd
Func OnSGA()
    Run("C:\Program Files\Internet Explorer\iexplore.exe -k OFFICE.htm")
EndFunc   ;==>OnSGA
Func TAIPET()
    Run("C:\Program Files\Internet Explorer\iexplore.exe -k TAIPET.htm")
EndFunc   ;==>TAIPET

[copyleft]

Thanks for your effort. But running it through code check, it's complaining about "EndFunc" in the last line.

[notta]

I copied abberation's example and I didn't receive any errors. Are you sure you copied the entire code including the last line EndFunc?

[guinness]

copyleft,

Try and copy the whole text as you're missing the end part, funny, perhaps if you were called copyright then you would have copied it right.

[copyleft]

I've got the last EndFunc.
I double checked and it does work. When I copied it pasted it from the example it didn't wrap in the autoit script editor. So I may have put an unnecessary line carriage when making the code easier to read. Thanks to all.

[TheNorwegianUser]

Something like this?:

Plain Text        expandcollapse  popup

#include <GUIConstantsEx.au3>
#include <IE.au3>
Opt("GUIOnEventMode", 1)
Global $ExitID
_Main()
Func _Main()
Local $SGAID, $TAIPETID
GUICreate("LAN Map", 275, 125)
GUICtrlCreateLabel("Please choose a LAN Map.", 10, 10)
$SGAID = GUICtrlCreateButton("SGA", 10, 50, 70, 20)
GUICtrlSetOnEvent($SGAID, "OnSGA")
$TAIPETID = GUICtrlCreateButton("TAIPET", 80, 50, 70, 20)
GUICtrlSetOnEvent($TAIPETID, "TAIPET")
$ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)
GUICtrlSetOnEvent($ExitID, "OnExit")
GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
GUISetState()
While 1
  Sleep(500)
WEnd
EndFunc
Func OnSGA()
GUISetState(@SW_HIDE)
run ("C:Program FilesInternet Exploreriexplore.exe -k OFFICE.htm")
EndFunc
Func TAIPET()
GUISetState(@SW_HIDE)
run ("C:Program FilesInternet Exploreriexplore.exe -k TAIPET.htm")
EndFunc
Func OnExit()
If @GUI_CtrlId = $ExitID Then
EndIf
Exit
EndFunc

[copyleft]

One last loose end on this script.
It works fine, except if any menu selection other than "Exit" is selected, Autoit remains resident in memory and doesn't shut down. Is there a way to make the tray icon go away one I select TAIPET OR SGA?

[guinness]

Add Exit after the Run command(s).

Edited by guinness, 29 June 2012 - 06:59 AM.

[copyleft]

@guinness... Thanks for the response. I tried writing exit after each "EndFunc" declaration and, also, just at the end. Tray icon doesn't diappear in either case and AutoIt3_x64.exe remains as a live process.

Plain Text        expandcollapse  popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Open Docs", 468, 231, 262, 194)
GUISetIcon("D:1consFolder-Doc.ico", -1)
GUISetBkColor(0xC0DCC0)
; GUISetBkColor(0xBFCDDB)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Choose Document Function", 125, 24, 244, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
;~ ;---------BUTTONS-------------------------------
$PDFID = GUICtrlCreateButton("PDF", 192, 76, 75, 25)
GUICtrlSetOnEvent($PDFID, "OnPDF")
$DOCSID = GUICtrlCreateButton("My Docs", 284, 76, 75, 25)
GUICtrlSetOnEvent($DOCSID, "OnDOCS")
$Cre8ID = GUICtrlCreateButton("Create Doc", 374, 76, 75, 25)
GUICtrlSetOnEvent($Cre8ID, "OnCre8")
$ExitID = GUICtrlCreateButton("Exit", 190, 180, 91, 33)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
Case $PDFID
            OnPDF()
            GUIDelete($Form1)
Case $DOCSID
            OnDOCS()
            GUIDelete($Form1)
Case $Cre8ID
            OnCre8()
            GUIDelete($Form1)
            Exit
        Case $ExitID
            Exit
    EndSwitch
WEnd
Func OnPDF()
    Run("C:Windowsexplorer.exe F:HOMEDocsPDF")
EndFunc   ;==>OnPDF
Exit
Func OnDOCS()
    Run("C:Windowsexplorer.exe F:HOMEDocs")
EndFunc   ;==>OnDOCS
Exit
Func OnCre8()
    Run("E:PROGRAMSMSOOFFICE11WINWORD.EXE")
EndFunc   ;==>OnCr8
Exit ;==>ALSO TRIED SCRIPT WITH JUST THIS ENDING Exit