Hello.
I-i, I have a program here, and I would like to use multiple action listeners for it. As it is now, all 3 Ui's are made at start and hidden, Shown when asked to, then hidden. I read http://www.autoitscript.com/wiki/Managing_Multiple_GUIs But didn't really Understand much. I also know of "GUISwitch" But don't know how it works.
I am just wondering if there are any example you can give me based on my code to help me.
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#include <_UskinLibrary.au3>
;#include <Skins/XXX.au3>
;#include <DesuSplash2.au3>
;#region ### Thweme load section (may select soon) ### Form=
;_Uskin_LoadDLL()
;_Uskin_Init(_XXX(True))
;#endregion ### Thweme load section (may select soon) ### Form=
;#region ### Splash screen ### start=
;SplashImageOn("Desu Splash", _DesuSplash2(True), 650, 303, -1, -1, 1)
;Sleep(5000)
;SplashOff()
$maingui = GUICreate("Quick launch V1.5", 225, 315, 470, 34, $WS_DLGFRAME, -1, $hParent)
Dim $maingui_AccelTable[7][2] = [["{F1}", $Firefox],["{F2}", $Scite],["{F3}", $PaleMoon],["{F4}", $STS],["{F5}", $Notepad],["{F6}", $Skype],["{F7}", $Tomcatui]]; 2 dimentinal array to create keyboard shortcuts using "F" keys
; Second GUI
$Select = GUICreate("select Drive", 131, 120, 192, 124, $WS_DLGFRAME, $ES_READONLY)
$combobox = GUICtrlSetData(-1, "A:|B:|C:|D:|E:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P;|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:")
; Third GUI
$ThunderbirdUI = GUICreate("Select type", 327, 86, 192, 124, $WS_DLGFRAME)
MsgBox(48, "Error", "The program is already open!")
MsgBox(48, "Error", "Ini does not exist, a new one will be made with the defult values")
_iniWrite("D:")
_Check()
$IniFirefox = IniRead("Config.ini", "LocationNames", "$Firefox", "Not found")
$IniScite = IniRead("Config.ini", "LocationNames", "$Scite", "Not found")
$IniPaleMoon = IniRead("Config.ini", "LocationNames", "$PaleMoon", "Not found")
$IniSTS = IniRead("Config.ini", "LocationNames", "$STS", "Not found")
$IniNotepad = IniRead("Config.ini", "LocationNames", "$Notepad", "Not found")
$IniSkype = IniRead("Config.ini", "LocationNames", "$Skype", "Not found")
$Editprogramini = IniRead("Config.ini", "LocationNames", "$EditProgram", "Not found")
$Thunderbirdini = IniRead("Config.ini", "LocationNames", "$Thunderbirdini", "Not found")
$ThunderbirdInstall = IniRead("Config.ini", "LocationNames", "$ThunderbirdInstall", "Not found")
$Thunderbird64 = IniRead("Config.ini", "LocationNames", "$Thunderbird64", "Not found")
$Tomcat = IniRead("Config.ini", "LocationNames", "$Tomcat", "Not found")
$SQLyogini = IniRead("Config.ini", "LocationNames", "$SQLyog", "Not found")
MsgBox(48, "Error", "There was a error while trying to open this program")
MsgBox(48, "Error", "There was a error while trying to open this program")
MsgBox(48, "Error", "There was a error while trying to open this program")
MsgBox(48, "Error", "There was a error while trying to open this program")
MsgBox(48, "Error", "There was a error while trying to open this program")
MsgBox(48, "Error", "There was a error while trying to open this program")
$quit = MsgBox(52, "Quit", "Are you sure you want to exit?")
$iMsgBoxAnswer = MsgBox(36, "Reset?", "Are you sure you want to reset the configuation? This will reset the config to defults; ALL CHANGES WILL BE LOST")
_iniWrite("D:")
_iniWrite("D:")
MsgBox(64, "Please restart", "Please restart the program")
If $read_selection = "Select Drive" Then
MsgBox(48, "Warning", "Please select a drive letter")
$Warning_box = MsgBox(52, "Warning", "Are you sure you want to change the Drive letter in the config file to: " & $read_selection)
_iniWrite($read_selection)
MsgBox(64, "Please restart", "Please restart the program")
MsgBox(48, "Error", "There was a error while trying to open this program")
MsgBox(48, "Error", "There was a error while trying to open this program")
MsgBox(48, "Error", "There was a error while trying to open this program")
MsgBox(48, "Error", "There was a error while trying to open this program")
$key = InputBox("Enter key", "Please enter the key to Unlock the code", "Null")
If $crypt_Key == "55C388D3015FF7544A9D1FD8186A04FD88000209" Then ;Adminallowed1
MsgBox(64, "Correct", "Correct key, features are now unlocked", 5)
MsgBox(64, "code on this computer", "This computer is registerd for the code, if you delete the code, you can't get it back... Unless you are clever.")
$downloadTest = InetGet("https://dl.dropboxusercontent.com/s/ybcjjrslgtjzlhe/QuickLaunch.au3?dl=1&token_hash=AAHNERKvJbqjw9dt59HX5wPVvnLbQL5pQo-smUbykEwKUg", "Quicklaunch.au3", 1, 0)
If $downloadTest = 0 Then ;error downloading
MsgBox(16, "error", "There was an Error downloading or genarating the code, please allow the program though the firewall, If this happens again, contact Author")
MsgBox(16, "Error", "Could not save Admin settings, this is not a problem: continueing...")
MsgBox(64, "Please restart", "Please restart the program")
MsgBox(48, "Incorrect key", "Key is not correct!")
MsgBox(48, "Error", "There was a error while trying to open this program")
If $isadmin = "FA15EB666BCBA6755735B9767F3FE99D80121473" Then
Local $i = IniWrite("Config.ini", "LocationNames", "$EditProgram", "Quicklaunch.au3")
MsgBox(16, "Error", "file is read-only!")
$error = IniWrite("Config.ini", "LocationNames", "$Firefox", "C:\Program Files\Cyberfox\Cyberfox.exe")
IniWrite("Config.ini", "LocationNames", "$Scite", $reading & "\Portible\AutoIt3\SciTE\SciTE.exe")
IniWrite("Config.ini", "LocationNames", "$PaleMoon", $reading & "\Portible\Firefox(x86-64bit)\pale moon\Palemoon-Portable.exe")
IniWrite("Config.ini", "LocationNames", "$STS", $reading & "\Portible\springsource\sts-3.4.0.RELEASE\STS.exe")
IniWrite("Config.ini", "LocationNames", "$Notepad", $reading & "\Portible\Notepad++\notepad++.exe")
IniWrite("Config.ini", "LocationNames", "$Skype", $reading & "\Portible\Skype\SkypePortable.exe")
IniWrite("Config.ini", "LocationNames", "$EditProgram", $reading & "\auto it programs\close\close.au3")
IniWrite("Config.ini", "LocationNames", "$Thunderbirdini", $reading & "\Portible\ThunderbirdPortable\ThunderbirdPortable.exe")
IniWrite("Config.ini", "LocationNames", "$ThunderbirdInstall", "C:\Program Files\Mozilla Thunderbird\Thunderbird.exe")
IniWrite("Config.ini", "LocationNames", "$Thunderbird64", "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe")
IniWrite("Config.ini", "LocationNames", "$Tomcat", "C:\Program Files\Apache Software Foundation\Tomcat 7.0\bin\Tomcat7.exe")
IniWrite("Config.ini", "LocationNames", "$SQLyog", "C:\Program Files\SQLyog Community\SQLyogCommunity.exe")
MsgBox(16, "Error", "Could not make Ini file, reason of this could be that the folder is read only")
MsgBox(64, "Done", "Ini made")