Sign in to follow this  
Followers 0
copyleft

Exit GUI script

4 posts in this topic

#1 ·  Posted (edited)

All fuinctions are performed property but AutoIt won't exit from this script cleanly, except when the exit button is pressed. Pressing any other button completes the RUN function but leaves Autoit icon in system tray after task is executed.

#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("C:\Doc.ico", -1)
GUISetBkColor(0xC0DCC0)
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)
$Cre8ID = GUICtrlCreateButton("Create Doc", 18, 76, 75, 25)
GUICtrlSetOnEvent($Cre8ID, "OnCre8")
$SHAREDID = GUICtrlCreateButton("Shared", 105, 76, 75, 25)
GUICtrlSetOnEvent($SHAREDID, "OnSHARE")
$SCANID = GUICtrlCreateButton("Scanned", 192, 76, 75, 25)
GUICtrlSetOnEvent($SCANID, "OnSCAN")
$PDFID = GUICtrlCreateButton("PDF", 284, 76, 75, 25)
GUICtrlSetOnEvent($PDFID, "OnPDF")
$DOCSID = GUICtrlCreateButton("My Docs", 374, 76, 75, 25)
GUICtrlSetOnEvent($DOCSID, "OnDOCS")
$SEARCHID = GUICtrlCreateButton("Search Docs", 150, 127, 177, 33)
GUICtrlSetOnEvent($SEARCHID, "OnSearch")
$ExitID = GUICtrlCreateButton("Exit", 190, 180, 91, 33)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
Case $Cre8ID
   OnCre8()
   GUIDelete($Form1)
   Exit
  Case $SCANID
   OnSCAN()
   GUIDelete($Form1)
Case $PDFID
   OnPDF()
   GUIDelete($Form1)
Case $DOCSID
   OnDOCS()
   GUIDelete($Form1)
Case $SEARCHID
   OnSearch()
   GUIDelete($Form1)
Case $SHAREDID
   OnSHARE()
   GUIDelete($Form1)
   Exit
  Case $ExitID
   Exit
EndSwitch
WEnd
Func OnCre8()
Run("X:\OFFICE11\WINWORD.EXE")
EndFunc ;==>OnCr8
Func OnSHARE()
Run("C:\Windows\explorer.exe \\NAS\Docs")
EndFunc ;==>OnSHARE
Func OnSCAN()
Run("C:\Windows\explorer.exe \\NAS\Scan")
EndFunc ;==>OnSCAN
Func OnPDF()
Run("C:\Windows\explorer.exe X:\PDF")
EndFunc ;==>OnPDF
Func OnDOCS()
Run("C:\Windows\explorer.exe X:\LocalDocs")
EndFunc ;==>OnDOCS
Func OnSearch()
run("X:\Find\docfind.cmd")
EndFunc ;==>OnSearch
Exit
Edited by Melba23
Fixed tags

Share this post


Link to post
Share on other sites



When you post code can you please wrap it in [autoit][/autoit] tags? Makes the code easier to read.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Have a look at you code - you do not always exit the run when you "GUIDelete($Form1)" ... so autoit continues to run ... waiting for you to exit the form (which now no longer exists).

Share this post


Link to post
Share on other sites

Look at ExitLoop and then GUIDelete.


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0