ExcrementSniffer Posted November 8, 2019 Share Posted November 8, 2019 Hellooo, This is my first time posting on this & far from being any good at programming. Can anyone help me with my problem I never realised I was even having... So I made all my gui look pretty etc but I started linking my buttons to functions and all hell broke loose. Why is my $MainEdit button spamming even though im not pressing the button? & Why does my $WorkshopComplete button only work once? I've been trying to get my head round it for a couple of days now and I cant work it out... The $WorkshopComplete button logs my inputs IF I go straight onto my workshop menu. if I got from the main menu and then to workshop it doesn't even log at all... The main menu log works all the time... My heads blown and this probably doesn't make much sense... This Is The New Notepad.au3 Link to comment Share on other sites More sharing options...
Nine Posted November 8, 2019 Share Posted November 8, 2019 I tried running your code from Scite, and it gets multiple errors. To start with, resolve the errors. Also, when posting code, do not attach code (ppl don't like it much), instead use this tool. “They did not know it was impossible, so they did it” ― Mark Twain Spoiler Block all input without UAC Save/Retrieve Images to/from Text Monitor Management (VCP commands) Tool to search in text (au3) files Date Range Picker Virtual Desktop Manager Sudoku Game 2020 Overlapped Named Pipe IPC HotString 2.0 - Hot keys with string x64 Bitwise Operations Multi-keyboards HotKeySet Recursive Array Display Fast and simple WCD IPC Multiple Folders Selector Printer Manager GIF Animation (cached) Screen Scraping Multi-Threading Made Easy Link to comment Share on other sites More sharing options...
ExcrementSniffer Posted November 9, 2019 Author Share Posted November 9, 2019 What errors? when I run it I don't get any error messages? I've I missed something? I know there's a fair bit of unnecessary code in there at the moment, I haven't cleaned it up.. expandcollapse popup#include <GUIConstantsEx.au3> #include <SendMessage.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> #include <ColorConstantS.au3> #include <StaticConstants.au3> #include <FileConstants.au3> #include <GuiEdit.au3> #include <Date.au3> #include <ButtonConstants.au3> #include <Array.au3> #include <Constants.au3> #include <Word.au3> Global Const $SC_DRAGMOVE = 0xF012 Global $LevelSet = 0 Global Const $iWidth = 500 Global Const $iHeight = 250 Global $Trans = 0 Global $Dummy = 0 Global $MsgG, $tmsg, $Day, $Today, $Month, $Year, $Hour, $Min, $Sec, $dw, $rdw, $my, $dm, $ay, $hh, $mm, $ss Global $RestoreTray = TrayCreateItem("Restore") Global $ExitTray = TrayCreateItem("Exit") Global $File = @ScriptDir & "\NewLog.txt" Global $TestingFile = @ScriptDir & "\Testing.txt" Global $TempSave = @ScriptDir & "\TempSaves.ini" Global $TitleMain, $MainInput, $MainCustomerLabel, $MainCustomerInput, $MainRegChasLabel, $MainRegChasInput, $MainOrderLabel, $MainOrderInput, $MainWipLabel, $MainCollectionCheckBox, $MainReminderCheckBox, $MainWipInput, $MainComplete, $MainEdit, $MainClear, $MainReminder, $MainLast Global $TitleWorkshop, $WorkshopInput, $WorkshopWipLabel, $WorkshopWipInput, $WorkshopTechnicianLabel, $WorkshopTechnicianInput, $WorkshopCustomerLabel, $WorkshopCustomerInput, $WorkshopRegChasLabel, $WorkshopRegChasInput, $WorkshopComplete, $WorkshopEdit, $WorkshopClear, $WorkshopAddNewTechnician, $WorkshopLast Global $SettingsTextColourLabel,$SettingsTextColourInput,$SettingsInputboxColourLabel,$SettingsInputboxTextColourLabel,$SettingsInputboxColourInput, $SettingsInputboxTextColourInput,$SettingsApplyButton, $SettingsTextColourExample, $SettingsInputColourExample, $SettingsInputTextColourExample, $SettingsButtonColourLabel, $SettingsButtonColourInput, $SettingsButtonColourExample, $SettingsBackgroundColourLabel, $SettingsBackgroundColourInput, $SettingsBackgroundColourExample Opt("TrayMenuMode", 1) TraySetClick(1) Opt('MustDeclareVars', 1) Update() MainGui() Func MainGui() ; Notepad Gui Global $aGui = GUICreate('Notepad',$iWidth,$iHeight,Default,Default, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST) Global $MenuBarFile = GUICtrlCreateMenu("&File") Global $MenuBarMain = GUICtrlCreateMenuItem("Main", $MenuBarFile) Global $MenuBarWorkshop = GUICtrlCreateMenuItem("Workshop", $MenuBarFile) Global $MenuBarTools = GuiCtrlCreateMenu("Tools") Global $MenuBarContacts = GUICtrlCreateMenuItem("Contacts", $MenuBarTools) Global $MenuBarNotepadPlus = GUICtrlCreateMenuItem("Notepad+", $MenuBarTools) Global $MenuBarNotepadlog = GUICtrlCreateMenuItem("Notepad Log", $MenuBarTools) Global $MenuBarV5 = GUICtrlCreateMenuItem("V5 Documentation", $MenuBarTools) Global $MenuBarClutch = GUICtrlCreateMenuItem("Clutch Kits", $MenuBarTools) Global $MenuBarFilter = GUICtrlCreateMenuItem("Filter Kits", $MenuBarTools) Global $MenuBarAxleConfig = GUICtrlCreateMenuItem("Axle Configerations", $MenuBarTools) Global $MenuBarCalculator = GUICtrlCreateMenuItem("Calculator", $MenuBarTools) Global $MenuBarPartNumbers = GUICtrlCreateMenuItem("Part Numbers", $MenuBarTools) Global $MenuBarAbout = GuiCtrlCreateMenu("About") Global $MenuBarInfo = GUICtrlCreateMenuItem("Info", $MenuBarAbout) Global $MenuBarSystem = GuiCtrlCreateMenu("System") Global $MenuBarSettings = GUICtrlCreateMenuItem("Settings", $MenuBarSystem) Global $MenuBarMinimize = GUICtrlCreateMenuItem("Minimize", $MenuBarSystem) Global $MenuBarClose = GUICtrlCreateMenuItem("Close", $MenuBarSystem) Global $Day = GuiCtrlCreateLabel("DD/", 255, $iHeight - 38, 20) Global $Month = GuiCtrlCreateLabel("MM/", 280, $iHeight - 38, 20) Global $Year = GuiCtrlCreateLabel("YYYY", 305, $iHeight - 38, 30) Global $Hour = GuiCtrlCreateLabel("HH/", 350, $iHeight - 38, 20) Global $Min = GuiCtrlCreateLabel("MM/", 372.5, $iHeight - 38, 20) Global $Sec = GuiCtrlCreateLabel("SS", 395, $iHeight - 38, 20) Global $Today = GuiCtrlCreateLabel("Today", 425, $iHeight - 38, 75) GUICtrlSetState($MenuBarMain, $GUI_DEFBUTTON) GUICtrlSetState($MenuBarClose, $GUI_DEFBUTTON) GUICtrlSetState($MenuBarInfo, $GUI_DEFBUTTON) FileWrite($TestingFile, "Loading Gui - Dummy =" & $Dummy & @CRLF) GUISetState(@SW_SHOW, $aGui) Local $MsgG = 0 While 1 $MsgG = GUIGetMsg() Select Case $MsgG = $GUI_EVENT_CLOSE SaveAll() ExitLoop Case $MsgG = $MenuBarMain FileWrite($TestingFile, "You've Press Main On Menu Bar" & @CRLF) If $Dummy = 1 Then Sleep(25) FileWrite($TestingFile, "You're Already On Main GUI! - Dummy =" & $Dummy & @CRLF) Else DeleteGUI() GuiMain() EndIf Case $MsgG = $MainEdit FileWrite($TestingFile, "Main Edit Clicked Before - Dummy =" & $Dummy & @CRLF) If $Dummy = 1 Then Run("notepad.exe " & $File) FileWrite($TestingFile, "Main Edit Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $MainComplete FileWrite($TestingFile, "Main Complete Clicked Before- Dummy =" & $Dummy & @CRLF) If $Dummy = 1 Then MainCompleteLogger() FileWrite($TestingFile, "Main Complete Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $MenuBarWorkshop FileWrite($TestingFile, "You've Press Workshop On Menu Bar" & @CRLF) If $Dummy = 2 Then Sleep(25) FileWrite($TestingFile, "You're Already On Workshop GUI! - Dummy =" & $Dummy & @CRLF) Else DeleteGUI() GuiWorkshop() EndIf Case $MsgG = $WorkshopAddNewTechnician If $Dummy = 2 Then AddNewTechnicianGui() EndIf Case $MsgG = $WorkshopEdit FileWrite($TestingFile, "Workshop Edit Clicked Before - Dummy =" & $Dummy & @CRLF) If $Dummy = 2 Then Run("notepad.exe " & $File) FileWrite($TestingFile, "Workshop Edit Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $WorkshopComplete FileWrite($TestingFile, "Workshop Complete Clicked Before - Dummy =" & $Dummy & @CRLF) If $Dummy = 2 Then WorkshopCompleteLogger() FileWrite($TestingFile, "Workshop Complete Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $MenuBarSettings If $Dummy = 3 Then Sleep(25) FileWrite($TestingFile, "You're Already On Settings GUI! - Dummy =" & $Dummy & @CRLF) Else DeleteGUI() GuiSettings() EndIf Case $MsgG = $SettingsApplyButton If $Dummy = 3 Then ApplySettings() EndIf Case $MsgG = $MenuBarNotepadPlus NotePadGui() Case $MsgG = $MenuBarClose SaveAll() ExitLoop Case $MsgG = $MenuBarNotepadlog Run("notepad.exe " & $File) Case $MsgG = $MenuBarCalculator Run("Calc.exe ") Case $MsgG = $GUI_EVENT_PRIMARYDOWN _SendMessage($aGui, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) Case $MsgG = $MenuBarMinimize _GuiMinimizeToTray($aGui) EndSelect $tmsg = TrayGetMsg() Switch $tmsg Case $RestoreTray WinSetState($aGui, "New Notepad", @SW_SHOW) Case $ExitTray SaveAll() GUIDelete($aGui) ExitLoop Case 0 GUICtrlSetData($Today, _DaysOfWeek()) GUICtrlSetData($Month, _MonthsOfYear()) GUICtrlSetData($Day, _DaysOfMonth()) GUICtrlSetData($Year, _Years()) GUICtrlSetData($Hour, _Hours()) GUICtrlSetData($Min, _Minites()) GUICtrlSetData($Sec, _Seconds()) EndSwitch WEnd GUIDelete($aGui) EndFunc Func DeleteGUI() SaveAll() GuiCtrlDelete($TitleMain) GuiCtrlDelete($MainInput); GuiCtrlDelete($MainCustomerLabel) GuiCtrlDelete($MainCustomerInput); GuiCtrlDelete($MainRegChasLabel) GuiCtrlDelete($MainRegChasInput); GuiCtrlDelete($MainOrderLabel) GuiCtrlDelete($MainOrderInput); GuiCtrlDelete($MainWipLabel) GuiCtrlDelete($MainCollectionCheckBox); GuiCtrlDelete($MainReminderCheckBox); GuiCtrlDelete($MainWipInput); GuiCtrlDelete($MainComplete) GuiCtrlDelete($MainEdit) GuiCtrlDelete($MainClear) GuiCtrlDelete($MainReminder) GuiCtrlDelete($MainLast) GuiCtrlDelete($TitleWorkshop) GuiCtrlDelete($WorkshopInput); GuiCtrlDelete($WorkshopWipLabel) GuiCtrlDelete($WorkshopWipInput); GuiCtrlDelete($WorkshopTechnicianLabel) GuiCtrlDelete($WorkshopTechnicianInput); GuiCtrlDelete($WorkshopCustomerLabel) GuiCtrlDelete($WorkshopCustomerInput); GuiCtrlDelete($WorkshopRegChasLabel) GuiCtrlDelete($WorkshopRegChasInput); GuiCtrlDelete($WorkshopAddNewTechnician) GuiCtrlDelete($WorkshopComplete) GuiCtrlDelete($WorkshopEdit) GuiCtrlDelete($WorkshopClear) GuiCtrlDelete($WorkshopLast) GuiCtrlDelete($SettingsTextColourLabel) GuiCtrlDelete($SettingsTextColourInput); GuiCtrlDelete($SettingsInputboxColourLabel) GuiCtrlDelete($SettingsInputboxColourInput); GuiCtrlDelete($SettingsInputboxTextColourLabel) GuiCtrlDelete($SettingsInputboxTextColourInput); GuiCtrlDelete($SettingsTextColourExample) GuiCtrlDelete($SettingsInputColourExample) GuiCtrlDelete($SettingsInputTextColourExample) GuiCtrlDelete($SettingsApplyButton) GuiCtrlDelete($SettingsButtonColourLabel) GuiCtrlDelete($SettingsButtonColourInput); GuiCtrlDelete($SettingsButtonColourExample) GuiCtrlDelete($SettingsBackgroundColourLabel); GuiCtrlDelete($SettingsBackgroundColourInput); GuiCtrlDelete($SettingsBackgroundColourExample) Global $Dummy = 0 FileWrite($TestingFile, "Delete Gui - Dummy =" & $Dummy & @CRLF) EndFunc Func _GuiMinimizeToTray($h_wnd) ; Minimize Gui To Tray Icon If BitAND(WinGetState($h_wnd), 1) Or Not BitAND(WinGetState($h_wnd), 16) Then WinSetState($h_wnd, "", @SW_HIDE) EndIf EndFunc Func SaveMain() Local $OriginalMainText = GuiCtrlRead($MainInput) GuiCtrlSetData($MainInput, "") Local $ConvertedMainText = StringReplace($OriginalMainText, @CRLF, "{ENTER}") Local $CollectionState = GuiCtrlRead($MainCollectionCheckBox) Local $ReminderState = GuiCtrlRead($MainReminderCheckBox) IniWrite($TempSave,"Main","Main Input",$ConvertedMainText) IniWrite($TempSave,"Main","Main Customer Input",GuiCtrlRead($MainCustomerInput)) IniWrite($TempSave,"Main","Main Registration & Chassis Input",GuiCtrlRead($MainRegChasInput)) IniWrite($TempSave,"Main","Main Order Input",GuiCtrlRead($MainOrderInput)) IniWrite($TempSave,"Main","Main Collection Checkbox",$CollectionState) IniWrite($TempSave,"Main","Main Reminder Checkbox",$ReminderState) IniWrite($TempSave,"Main","Main Wip Input",GuiCtrlRead($MainWipInput)) EndFunc Func LoadMain() Local $OriginalMainText = IniRead($TempSave,"Main", "Main Input","") Global $ConvertedMainText = StringReplace($OriginalMainText, "{ENTER}", @CRLF) Global $ReadMainCustomerInput = IniRead($TempSave,"Main","Main Customer Input","") Global $ReadMainRegChasInput = IniRead($TempSave,"Main","Main Registration & Chassis Input","") Global $ReadMainOrderInput = IniRead($TempSave,"Main","Main Order Input","") Global $ReadMainCollectionCheckbox = IniRead($TempSave,"Main","Main Collection Checkbox","") Global $ReadMainReminderCheckbox = IniRead($TempSave,"Main","Main Reminder Checkbox","") Global $ReadMainWipInput = IniRead($TempSave,"Main","Main Wip Input","") EndFunc Func SaveWorkshop() Local $OriginalWorkshopText = GuiCtrlRead($WorkshopInput) GuiCtrlSetData($WorkshopInput, "") Local $ConvertedWorkshopText = StringReplace($OriginalWorkshopText, @CRLF, "{ENTER}") IniWrite($TempSave,"Workshop","Workshop Input",$ConvertedWorkshopText) IniWrite($TempSave,"Workshop","Workshop Wip Input",GuiCtrlRead($WorkshopWipInput)) IniWrite($TempSave,"Workshop","Workshop Technician Input",GuiCtrlRead($WorkshopTechnicianInput)) IniWrite($TempSave,"Workshop","Workshop Customer Input",GuiCtrlRead($WorkshopCustomerInput)) IniWrite($TempSave,"Workshop","Workshop Registration & Chassis Input",GuiCtrlRead($WorkshopRegChasInput)) EndFunc Func LoadWorkshop() Local $OriginalWorkshopText = IniRead($TempSave,"Workshop", "Workshop Input","") Global $ConvertedWorkshopText = StringReplace($OriginalWorkshopText, "{ENTER}", @CRLF) Global $ReadWorkshopWipInput = IniRead($TempSave,"Workshop","Workshop Wip Input","") Global $ReadWorkshopTechnicianInput = IniRead($TempSave,"Workshop","Workshop Technician Input","") Global $ReadWorkshopCustomerInput = IniRead($TempSave,"Workshop","Workshop Customer Input","") Global $ReadWorkshopRegChasInput = IniRead($TempSave,"Workshop","Workshop Registration & Chassis Input","") Global $ReadTechnicianDropDown = IniRead($TempSave,"Technicians","Technician Name","Select Technician...") EndFunc Func SaveSettings() IniWrite($TempSave,"Settings","Settings Text Colour Input",GuiCtrlRead($SettingsTextColourInput)) IniWrite($TempSave,"Settings","Settings Inputbox Colour Input",GuiCtrlRead($SettingsInputboxColourInput)) IniWrite($TempSave,"Settings","Settings Inputbox Text Colour Input",GuiCtrlRead($SettingsInputboxTextColourInput)) IniWrite($TempSave,"Settings","Settings Button Colour Input",GuiCtrlRead($SettingsButtonColourInput)) IniWrite($TempSave,"Settings","Settings Background Colour Input",GuiCtrlRead($SettingsBackgroundColourInput)) EndFunc Func LoadSettings() Global $ReadSettingsTextColour = IniRead($TempSave,"Settings","Settings Text Colour Input","000000") Global $ReadSettingsInputboxColout = IniRead($TempSave,"Settings","Settings Inputbox Colour Input","FFFFFF") Global $ReadSettingsInputboxTextColour = IniRead($TempSave,"Settings","Settings Inputbox Text Colour Input","000000") Global $ReadSettingsButtonColour = IniRead($TempSave,"Settings","Settings Button Colour Input","000000") Global $ReadSettingsBackgroundColour = IniRead($TempSave,"Settings","Settings Background Colour Input","FFFFFF") EndFunc Func SaveAll() FileWrite($TestingFile, "Save All - Dummy =" & $Dummy & @CRLF) If $Dummy = 1 Then SaveMain() ElseIf $Dummy = 2 Then SaveWorkshop() Elseif $Dummy = 3 Then SaveSettings() EndIf EndFunc Func ApplySettings() Local $ReadTextColour = GuiCtrlRead($SettingsTextColourInput) Local $ReadInputColour = GuiCtrlRead($SettingsInputboxColourInput) local $ReadInputTextColour = GuiCtrlRead($SettingsInputboxTextColourInput) Local $ReadInputButtonColour = GuiCtrlRead($SettingsButtonColourInput) Local $ReadBackgroundColour = GuiCtrlRead($SettingsBackgroundColourInput) $UpdatedTextColour = "0x" & $ReadTextColour $UpdatedInputColour = "0x" & $ReadInputColour $UpdatedInputTextColour = "0x" & $ReadInputTextColour $UpdatedButtonColour = "0x" & $ReadInputButtonColour $UpdatedBackgroundColour = "0x" & $ReadBackgroundColour GuiCtrlSetBkColor($SettingsTextColourExample,$UpdatedTextColour) GuiCtrlSetBkColor($SettingsInputColourExample,$UpdatedInputColour) GuiCtrlSetBkColor($SettingsInputTextColourExample,$UpdatedInputTextColour) GuiCtrlSetBkColor($SettingsButtonColourExample,$UpdatedButtonColour) GuiCtrlSetBkColor($SettingsBackgroundColourExample,$UpdatedBackgroundColour) EndFunc Func SaveNotepadPlus() Local $OriginalNotepadPlusText = GuiCtrlRead($TextBox) GuiCtrlSetData($TextBox, "") Local $ConvertedNotepadPlusText = StringReplace($OriginalNotepadPlusText, @CRLF, "{ENTER}") IniWrite($TempSave,"NotePadPlus","Notepad Plus",$ConvertedNotepadPlusText) EndFunc Func LoadNotepadPlus() Local $OriginalNotepadPlusText = IniRead($TempSave,"NotePadPlus", "Notepad Plus","") Global $ConvertedNotepadPlusText = StringReplace($OriginalNotepadPlusText, "{ENTER}", @CRLF) EndFunc Func Update() Global $ReadUpdateText = IniRead($TempSave,"Settings","Settings Text Colour Input","000000") Global $ReadUpdateInput = IniRead($TempSave,"Settings","Settings Inputbox Colour Input","FFFFFF") Global $ReadUpdateInputText = IniRead($TempSave,"Settings","Settings Inputbox Text Colour Input","000000") Global $ReadUpdateButtonColour = IniRead($TempSave,"Settings","Settings Button Colour Input","000000") Global $ReadUpdateBackgroundColour = IniRead($TempSave,"Settings","Settings Background Colour Input","FFFFFF") Global $UpdatedTextColour = 0x & $ReadUpdateText Global $UpdatedInputColour = 0x & $ReadUpdateInput Global $UpdatedInputTextColour = 0x & $ReadUpdateInputText Global $UpdatedButtonColour = 0x & $ReadUpdateButtonColour Global $UpdatedBackgroundColour = 0x & $ReadUpdateBackgroundColour EndFunc Func MainCompleteLogger() Local $ReadMainInputLog = GuiCtrlRead($MainInput) Local $ReadMainCustomer = GuiCtrlRead($MainCustomerInput) Local $ReadMainRegChas = GuiCtrlRead($MainRegChasInput) Local $ReadMainOrder = GuiCtrlRead($MainOrderInput) Local $ReadMainWip = GuiCtrlRead($MainWipInput) Local $ReadMainCollectionState = GuiCtrlRead($MainCollectionCheckBox) Local $ReadMainReminderState = GuiCtrlRead($MainReminderCheckBox) Local $ReadToday = GuiCtrlRead($Today) Local $DeliveryOrCollection = "N/a" If $ReadMainCollectionState = $GUI_Checked Then Local $DeliveryOrCollection = "Collection." EndIf If $ReadMainCollectionState = $GUI_Unchecked Then Local $DeliveryOrCollection = "Delivery." EndIf Local $DateTime = @MDAY & " / " & @MON & " / " & @YEAR & " - " & @HOUR & " : " & @MIN & " : " & @SEC & " - " & $ReadToday & " - " & $DeliveryOrCollection Local $Updater = "Wip: " & $ReadMainWip & " - Customer: " & $ReadMainCustomer & " - Reg/Chassis: " & $ReadMainRegChas & " - Order Number: " & $ReadMainOrder FileWrite($File,$DateTime & @CRLF & $Updater & @CRLF & " " & @CRLF & $ReadMainInputLog & @CRLF) Sleep(10) FileWrite($File,"========================================================================") Sleep(10) FileWrite($File, @CRLF) EndFunc Func WorkshopCompleteLogger() Local $ReadWorkshopInputLog = GuiCtrlRead($WorkshopInput) Local $ReadWorkshopCustomer = GuiCtrlRead($WorkshopCustomerInput) Local $ReadWorkshopRegChas = GuiCtrlRead($WorkshopRegChasInput) Local $ReadWorkshopTechnician = GuiCtrlRead($WorkshopTechnicianInput) Local $ReadWorkshopWip = GuiCtrlRead($WorkshopWipInput) Local $ReadToday = GuiCtrlRead($Today) Local $DateTime = @MDAY & " / " & @MON & " / " & @YEAR & " - " & @HOUR & " : " & @MIN & " : " & @SEC & " - " & $ReadToday & " - Workshop" Local $Updater = "Wip: " & $ReadWorkshopWip & " - Customer: " & $ReadWorkshopCustomer & " - Reg/Chassis: " & $ReadWorkshopRegChas & " - Technician: " & $ReadWorkshopTechnician FileWrite($File,$DateTime & @CRLF & $Updater & @CRLF & " " & @CRLF & $ReadWorkshopInputLog & @CRLF) Sleep(10) FileWrite($File,"========================================================================") Sleep(10) FileWrite($File, @CRLF) EndFunc ;===== Gui's ===== Func GuiMain() LoadMain() Global $TitleMain = GuiCtrlCreateLabel("Main",435,5,75,20) Global $MainInput = GuiCtrlCreateEdit($ConvertedMainText, 5, 5, 245, 220, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL)) Global $MainCustomerLabel = GuiCtrlCreateLabel("Customer :", 255, 5, 170, 20) Global $MainCustomerInput = GuiCtrlCreateInput($ReadMainCustomerInput, 255, 25, 240,20,$SS_CENTER+$ES_UPPERCASE) Global $MainRegChasLabel = GuiCtrlCreateLabel("Registration / Chassis Number :", 255, 50, 174, 20) Global $MainRegChasInput = GuiCtrlCreateInput($ReadMainRegChasInput, 255, 70, 240, 20,$SS_CENTER+$ES_UPPERCASE) Global $MainOrderLabel = GuiCtrlCreateLabel("Order Number :", 255, 95, 170, 20) Global $MainOrderInput = GuiCtrlCreateInput($ReadMainOrderInput, 255, 115, 240,20,$SS_CENTER+$ES_UPPERCASE) Global $MainWipLabel = GuiCtrlCreateLabel("Wip :", 255, 140, 30, 20) Global $MainWipInput = GuiCtrlCreateInput($ReadMainWipInput, 255, 160, 240,20,$SS_CENTER+$ES_NUMBER) Global $MainCollectionCheckBox = GUICtrlCreateCheckbox("Collection.", 315, 138, 74, 20) Global $MainReminderCheckBox = GUICtrlCreateCheckbox("Reminder.", 400, 138, 74, 20) Global $MainReminder = GuiCtrlCreateButton("!", $iWidth - 25, 185, 20, 20) ;255 Global $MainLast = GuiCtrlCreateButton("←", $iWidth - 245, 185, 20, 20) Global $MainEdit = GuiCtrlCreateButton("Edit", $iWidth - 210, 185, 50, 20) Global $MainClear = GuiCtrlCreateButton("Clear", $iWidth - 150, 185, 50, 20) Global $MainComplete = GuiCtrlCreateButton("Complete", $iWidth - 90, 185, 50, 20) Global $Dummy = 1 FileWrite($TestingFile, "Loading Main Gui - Dummy =" & $Dummy & @CRLF) GuiCtrlSetFont($TitleMain,8.5,700,4) GUICtrlSetFont($MainRegChasLabel, 8.5, 700) GUICtrlSetFont($MainCustomerLabel, 8.5, 700) GUICtrlSetFont($MainOrderLabel, 8.5, 700) GUICtrlSetFont($MainWipLabel, 8.5, 700) GUICtrlSetFont($MainCollectionCheckBox, 8.5, 700) GUICtrlSetFont($MainReminderCheckBox, 8.5, 700) GUICtrlSetFont($MainReminder, 8.5, 900) GUICtrlSetFont($MainLast, 8.5, 900) GUICtrlSetLimit($MainWipInput, 5) If $ReadMainCollectionCheckbox = 1 Then GuiCtrlSetState($MainCollectionCheckBox, $GUI_Checked) ElseIf $ReadMainCollectionCheckbox = 4 Then GuiCtrlSetState($MainCollectionCheckBox, $GUI_Unchecked) EndIf If $ReadMainReminderCheckbox = 1 Then GuiCtrlSetState($MainReminderCheckBox, $GUI_Checked) ElseIf $ReadMainReminderCheckbox = 4 Then GuiCtrlSetState($MainReminderCheckBox, $GUI_Unchecked) EndIf GuiCtrlSetBkColor($MainReminder, 0xD8FF8A) EndFunc Func GuiWorkshop() LoadWorkshop() Global $TitleWorkshop = GuiCtrlCreateLabel("Workshop",435,5,75,20) Global $WorkshopInput = GuiCtrlCreateEdit($ConvertedWorkshopText, 5, 5, 245, 220, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL)) Global $WorkshopWipLabel = GuiCtrlCreateLabel("Wip :", 255, 5, 170, 20) Global $WorkshopWipInput = GuiCtrlCreateInput($ReadWorkshopWipInput, 255, 25, 240,20,$SS_CENTER+$ES_NUMBER) Global $WorkshopTechnicianLabel = GuiCtrlCreateLabel("Technician :", 255, 50, 170, 20) Global $WorkshopTechnicianInput = GuiCtrlCreateCombo($ReadWorkshopTechnicianInput, 255, 70, 215,20);,$SS_CENTER+$ES_UPPERCASE) Global $WorkshopCustomerLabel = GuiCtrlCreateLabel("Customer :", 255, 95, 170, 20) Global $WorkshopCustomerInput = GuiCtrlCreateInput($ReadWorkshopCustomerInput, 255, 115, 240,20,$SS_CENTER+$ES_UPPERCASE) Global $WorkshopRegChasLabel = GuiCtrlCreateLabel("Registration / Chassis Number :", 255, 140, 174, 20) Global $WorkshopRegChasInput = GuiCtrlCreateInput($ReadWorkshopRegChasInput, 255, 160, 240, 20,$SS_CENTER+$ES_UPPERCASE) Global $WorkshopAddNewTechnician = GuiCtrlCreateButton("+", 475, 70, 20, 20) Global $WorkshopLast = GuiCtrlCreateButton("←", $iWidth - 245, 185, 20, 20) ;255 Global $WorkshopEdit = GuiCtrlCreateButton("Edit", $iWidth - 210, 185, 50, 20) Global $WorkshopClear = GuiCtrlCreateButton("Clear", $iWidth - 150, 185, 50, 20) Global $WorkshopComplete = GuiCtrlCreateButton("Complete", $iWidth - 90, 185, 50, 20) Global $Dummy = 2 FileWrite($TestingFile, "Loading Workshop Gui - Dummy =" & $Dummy & @CRLF) GUICtrlSetData($WorkshopTechnicianInput, $ReadTechnicianDropDown, $ReadWorkshopTechnicianInput) GuiCtrlSetFont($TitleWorkshop,8.5,700,4) GUICtrlSetFont($WorkshopRegChasLabel, 8.5, 700) GUICtrlSetFont($WorkshopCustomerLabel, 8.5, 700) GUICtrlSetFont($WorkshopTechnicianLabel, 8.5, 700) GUICtrlSetFont($WorkshopWipLabel, 8.5, 700) GUICtrlSetFont($WorkshopLast, 8.5, 900) GUICtrlSetLimit($WorkshopWipInput, 5) EndFunc Func GuiSettings() LoadSettings() Global $SettingsTextColourLabel = GuiCtrlCreateLabel("Text Colour:", 5, 5, 160, 20) Global $SettingsTextColourInput = GuiCtrlCreateInput($ReadSettingsTextColour, 5, 25, 160, 20,$SS_CENTER+$ES_UPPERCASE) Global $SettingsTextColourExample = GuiCtrlCreateEdit("", 170, 25, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsInputboxColourLabel = GuiCtrlCreateLabel("Inputbox Colour:", 5, 50, 160, 20) Global $SettingsInputboxColourInput = GuiCtrlCreateInput($ReadSettingsInputboxColout, 5, 70, 160, 20,$SS_CENTER+$ES_UPPERCASE) Global $SettingsInputColourExample = GuiCtrlCreateEdit("", 170, 70, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsInputboxTextColourLabel = GuiCtrlCreateLabel("Inputbox Text Colour:", 5, 95, 160, 20) Global $SettingsInputboxTextColourInput = GuiCtrlCreateInput($ReadSettingsInputboxTextColour, 5, 115, 160, 20,$SS_CENTER+$ES_UPPERCASE) Global $SettingsInputTextColourExample = GuiCtrlCreateEdit("", 170, 115, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsButtonColourLabel = GuiCtrlCreateLabel("Button Colour:",5,140,160,20) Global $SettingsButtonColourInput = GuiCtrlCreateInput($ReadUpdateButtonColour,5,160,160,20,$SS_CENTER+$ES_UPPERCASE);ReadSettingsButtonColour Global $SettingsButtonColourExample = GuiCtrlCreateEdit("", 170, 160, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsBackgroundColourLabel = GuiCtrlCreateLabel("Background Colour", 5, 185, 160, 20) Global $SettingsBackgroundColourInput = GuiCtrlCreateInput($ReadUpdateBackgroundColour, 5, 205, 160, 20,$SS_CENTER+$ES_UPPERCASE);ReadSettingsBackgroundColour Global $SettingsBackgroundColourExample = GuiCtrlCreateEdit("", 170, 205, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsApplyButton = GuiCtrlCreateButton("Apply",445,5,50,20) Global $Dummy = 3 FileWrite($TestingFile, "Loading Settings Gui - Dummy =" & $Dummy & @CRLF) GuiCtrlSetBkColor($SettingsTextColourExample,$UpdatedTextColour) GuiCtrlSetBkColor($SettingsInputColourExample,$UpdatedInputColour) GuiCtrlSetBkColor($SettingsInputTextColourExample,$UpdatedInputTextColour) GuiCtrlSetBkColor($SettingsButtonColourExample,$ReadUpdateButtonColour) GuiCtrlSetBkColor($SettingsBackgroundColourExample,GuiCtrlRead($ReadUpdateBackgroundColour)) EndFunc Func NotePadGui() LoadNotepadPlus() Local $aPos = WinGetPos($aGui) Local $nGui = GUICreate('Notepad+',$iWidth, 200,$aPos[0], $aPos[1] - 205, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST) Global $TextBox = GuiCtrlCreateEdit($ConvertedNotepadPlusText, 5, 5, 490, 190, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL)) GUISetState(@SW_SHOW, $nGui) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE SaveNotepadPlus() ExitLoop Case $GUI_EVENT_PRIMARYDOWN _SendMessage($nGui, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) Case $MenuBarNotepadPlus SaveNotepadPlus() ExitLoop EndSwitch WEnd GuiDelete($nGui) EndFunc Func AddNewTechnicianGui() Local $aPos = WinGetPos($aGui) Local $tGui= GuiCreate('New Technician', 420, 30, $aPos[0], $aPos[1] - 35, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST) Local $TechnicianLabel = GuiCtrlCreateLabel("Enter New Technician Name :",5,8,150,20) Global $TechnicianInput = GuiCtrlCreateInput("", 155,5,150,20) Local $AddButton = GuiCtrlCreateButton("Add", 310,5,50,20) Local $CancelButton = GuiCtrlCreateButton("Cancel", 365,5,50,20) GuiSetState(@SW_Show, $tGui) While 1 Switch GuiGetMsg() Case $Gui_Event_Close ExitLoop Case $CancelButton ExitLoop Case $AddButton AddTechnician() ExitLoop EndSwitch WEnd GuiDelete($tGui) EndFunc Func AddTechnician() local $TempReadDropDown = IniRead($TempSave,"Technicians","Technician Name","") Local $ReadTechnicianInput = GuiCtrlRead($TechnicianInput) Local $NewTechnicianDropDownList = $TempReadDropDown & "|" & $ReadTechnicianInput If $ReadTechnicianInput = "" Then MsgBox($MB_Systemmodal, "Add New Technician", "No Name Input!") Sleep (25) Else IniWrite($TempSave, "Technicians", "Technician Name", $NewTechnicianDropDownList) MsgBox($MB_Systemmodal, "Add New Technician", "New Technician Has Been Added!" & @CRLF & $ReadTechnicianInput) GuiCtrlSetData($TechnicianInput,"","") GUICtrlSetData($WorkshopTechnicianInput, $NewTechnicianDropDownList,$ReadTechnicianInput) EndIf EndFunc ;===== Date & Time ===== Func _DaysOfWeek() ; Today $dw = (@WDAY) Switch $dw Case 1 $rdw = 'SUNDAY' Case 2 $rdw = 'MONDAY' Case 3 $rdw = 'TUESDAY' Case 4 $rdw = 'WEDNESDAY' Case 5 $rdw = 'THURSDAY' Case 6 $rdw = 'FRIDAY' Case 7 $rdw = 'SATURDAY' EndSwitch Return $rdw EndFunc Func _MonthsOfYear() ; Month $my = (@MON) Return $my & " /" EndFunc Func _DaysOfMonth() ; Day $dm = (@MDAY) Return $dm & " /" EndFunc Func _Years() ; Year $ay = (@YEAR) Return $ay EndFunc Func _Hours() ; Hour $hh = (@HOUR) Return $hh & " :" EndFunc Func _Minites() ; Min $mm = (@MIN) Return $mm & " :" EndFunc Func _Seconds() ; Sec $ss = (@SEC) Return $ss EndFunc Link to comment Share on other sites More sharing options...
Nine Posted November 9, 2019 Share Posted November 9, 2019 Still the same errors on line 359 to 363, 372, 389 to 393... “They did not know it was impossible, so they did it” ― Mark Twain Spoiler Block all input without UAC Save/Retrieve Images to/from Text Monitor Management (VCP commands) Tool to search in text (au3) files Date Range Picker Virtual Desktop Manager Sudoku Game 2020 Overlapped Named Pipe IPC HotString 2.0 - Hot keys with string x64 Bitwise Operations Multi-keyboards HotKeySet Recursive Array Display Fast and simple WCD IPC Multiple Folders Selector Printer Manager GIF Animation (cached) Screen Scraping Multi-Threading Made Easy Link to comment Share on other sites More sharing options...
Developers Jos Posted November 9, 2019 Developers Share Posted November 9, 2019 3 hours ago, ExcrementSniffer said: What errors? Most people run au3check when doing Run or Compile by installing the Full SciTE4AutoIt3 version. This way your source gets pre-checked and avoids syntax errors. Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
ExcrementSniffer Posted November 11, 2019 Author Share Posted November 11, 2019 Okay 've fixed them errors you found Didn't know about the SciTE thing, pretty useful will defiantly carry on using that now! thanks I'm still having my initial problem with my buttons, I added a testing file when it does a function to see if it does everything correctly. but when you first load up, for some reason it logs as if im spamming the main edit button "Main Edit Clicked Before - Dummy =0" As well as my workshop complete button only working once... Thanks for all the advice so far, big help! expandcollapse popup#include <GUIConstantsEx.au3> #include <SendMessage.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> #include <ColorConstantS.au3> #include <StaticConstants.au3> #include <FileConstants.au3> #include <GuiEdit.au3> #include <Date.au3> #include <ButtonConstants.au3> #include <Array.au3> #include <Constants.au3> #include <Word.au3> Global Const $SC_DRAGMOVE = 0xF012 Global $LevelSet = 0 Global Const $iWidth = 500 Global Const $iHeight = 250 Global $Trans = 0 Global $Dummy = 0 Global $MsgG, $tmsg, $Day, $Today, $Month, $Year, $Hour, $Min, $Sec, $dw, $rdw, $my, $dm, $ay, $hh, $mm, $ss Global $RestoreTray = TrayCreateItem("Restore") Global $ExitTray = TrayCreateItem("Exit") Global $File = @ScriptDir & "\NewLog.txt" Global $TestingFile = @ScriptDir & "\Testing.txt" Global $TempSave = @ScriptDir & "\TempSaves.ini" Global $TitleMain, $MainInput, $MainCustomerLabel, $MainCustomerInput, $MainRegChasLabel, $MainRegChasInput, $MainOrderLabel, $MainOrderInput, $MainWipLabel, $MainCollectionCheckBox, $MainReminderCheckBox, $MainWipInput, $MainComplete, $MainEdit, $MainClear, $MainReminder, $MainLast Global $TitleWorkshop, $WorkshopInput, $WorkshopWipLabel, $WorkshopWipInput, $WorkshopTechnicianLabel, $WorkshopTechnicianInput, $WorkshopCustomerLabel, $WorkshopCustomerInput, $WorkshopRegChasLabel, $WorkshopRegChasInput, $WorkshopComplete, $WorkshopEdit, $WorkshopClear, $WorkshopAddNewTechnician, $WorkshopLast Global $SettingsTextColourLabel,$SettingsTextColourInput,$SettingsInputboxColourLabel,$SettingsInputboxTextColourLabel,$SettingsInputboxColourInput, $SettingsInputboxTextColourInput,$SettingsApplyButton, $SettingsTextColourExample, $SettingsInputColourExample, $SettingsInputTextColourExample, $SettingsButtonColourLabel, $SettingsButtonColourInput, $SettingsButtonColourExample, $SettingsBackgroundColourLabel, $SettingsBackgroundColourInput, $SettingsBackgroundColourExample Global $TextBox Opt("TrayMenuMode", 1) TraySetClick(1) Opt('MustDeclareVars', 1) Update() MainGui() Func MainGui() ; Notepad Gui Global $aGui = GUICreate('Notepad',$iWidth,$iHeight,Default,Default, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST) Global $MenuBarFile = GUICtrlCreateMenu("&File") Global $MenuBarMain = GUICtrlCreateMenuItem("Main", $MenuBarFile) Global $MenuBarWorkshop = GUICtrlCreateMenuItem("Workshop", $MenuBarFile) Global $MenuBarTools = GuiCtrlCreateMenu("Tools") Global $MenuBarContacts = GUICtrlCreateMenuItem("Contacts", $MenuBarTools) Global $MenuBarNotepadPlus = GUICtrlCreateMenuItem("Notepad+", $MenuBarTools) Global $MenuBarNotepadlog = GUICtrlCreateMenuItem("Notepad Log", $MenuBarTools) Global $MenuBarV5 = GUICtrlCreateMenuItem("V5 Documentation", $MenuBarTools) Global $MenuBarClutch = GUICtrlCreateMenuItem("Clutch Kits", $MenuBarTools) Global $MenuBarFilter = GUICtrlCreateMenuItem("Filter Kits", $MenuBarTools) Global $MenuBarAxleConfig = GUICtrlCreateMenuItem("Axle Configerations", $MenuBarTools) Global $MenuBarCalculator = GUICtrlCreateMenuItem("Calculator", $MenuBarTools) Global $MenuBarPartNumbers = GUICtrlCreateMenuItem("Part Numbers", $MenuBarTools) Global $MenuBarAbout = GuiCtrlCreateMenu("About") Global $MenuBarInfo = GUICtrlCreateMenuItem("Info", $MenuBarAbout) Global $MenuBarSystem = GuiCtrlCreateMenu("System") Global $MenuBarSettings = GUICtrlCreateMenuItem("Settings", $MenuBarSystem) Global $MenuBarMinimize = GUICtrlCreateMenuItem("Minimize", $MenuBarSystem) Global $MenuBarClose = GUICtrlCreateMenuItem("Close", $MenuBarSystem) Global $Day = GuiCtrlCreateLabel("DD/", 255, $iHeight - 38, 20) Global $Month = GuiCtrlCreateLabel("MM/", 280, $iHeight - 38, 20) Global $Year = GuiCtrlCreateLabel("YYYY", 305, $iHeight - 38, 30) Global $Hour = GuiCtrlCreateLabel("HH/", 350, $iHeight - 38, 20) Global $Min = GuiCtrlCreateLabel("MM/", 372.5, $iHeight - 38, 20) Global $Sec = GuiCtrlCreateLabel("SS", 395, $iHeight - 38, 20) Global $Today = GuiCtrlCreateLabel("Today", 425, $iHeight - 38, 75) GUICtrlSetState($MenuBarMain, $GUI_DEFBUTTON) GUICtrlSetState($MenuBarClose, $GUI_DEFBUTTON) GUICtrlSetState($MenuBarInfo, $GUI_DEFBUTTON) FileWrite($TestingFile, "Loading Gui - Dummy =" & $Dummy & @CRLF) GUISetState(@SW_SHOW, $aGui) Local $MsgG = 0 While 1 $MsgG = GUIGetMsg() Select Case $MsgG = $GUI_EVENT_CLOSE SaveAll() ExitLoop Case $MsgG = $MenuBarMain FileWrite($TestingFile, "You've Press Main On Menu Bar" & @CRLF) If $Dummy = 1 Then Sleep(25) FileWrite($TestingFile, "You're Already On Main GUI! - Dummy =" & $Dummy & @CRLF) Else DeleteGUI() GuiMain() EndIf Case $MsgG = $MainEdit FileWrite($TestingFile, "Main Edit Clicked Before - Dummy =" & $Dummy & @CRLF) If $Dummy = 1 Then Run("notepad.exe " & $File) FileWrite($TestingFile, "Main Edit Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $MainComplete FileWrite($TestingFile, "Main Complete Clicked Before- Dummy =" & $Dummy & @CRLF) If $Dummy = 1 Then MainCompleteLogger() FileWrite($TestingFile, "Main Complete Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $MenuBarWorkshop FileWrite($TestingFile, "You've Press Workshop On Menu Bar" & @CRLF) If $Dummy = 2 Then Sleep(25) FileWrite($TestingFile, "You're Already On Workshop GUI! - Dummy =" & $Dummy & @CRLF) Else DeleteGUI() GuiWorkshop() EndIf Case $MsgG = $WorkshopAddNewTechnician If $Dummy = 2 Then AddNewTechnicianGui() EndIf Case $MsgG = $WorkshopEdit FileWrite($TestingFile, "Workshop Edit Clicked Before - Dummy =" & $Dummy & @CRLF) If $Dummy = 2 Then Run("notepad.exe " & $File) FileWrite($TestingFile, "Workshop Edit Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $WorkshopComplete FileWrite($TestingFile, "Workshop Complete Clicked Before - Dummy =" & $Dummy & @CRLF) If $Dummy = 2 Then WorkshopCompleteLogger() FileWrite($TestingFile, "Workshop Complete Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $MenuBarSettings If $Dummy = 3 Then Sleep(25) FileWrite($TestingFile, "You're Already On Settings GUI! - Dummy =" & $Dummy & @CRLF) Else DeleteGUI() GuiSettings() EndIf Case $MsgG = $SettingsApplyButton FileWrite($TestingFile, "Settings Apply Clicked Before - Dummy =" & $Dummy & @CRLF) If $Dummy = 3 Then ;ApplySettings() FileWrite($TestingFile, "Settings Apply Clicked After - Dummy =" & $Dummy & @CRLF) EndIf Case $MsgG = $MenuBarNotepadPlus NotePadGui() Case $MsgG = $MenuBarClose SaveAll() ExitLoop Case $MsgG = $MenuBarNotepadlog Run("notepad.exe " & $File) Case $MsgG = $MenuBarCalculator Run("Calc.exe ") Case $MsgG = $GUI_EVENT_PRIMARYDOWN _SendMessage($aGui, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) Case $MsgG = $MenuBarMinimize _GuiMinimizeToTray($aGui) EndSelect $tmsg = TrayGetMsg() Switch $tmsg Case $RestoreTray WinSetState($aGui, "New Notepad", @SW_SHOW) Case $ExitTray SaveAll() GUIDelete($aGui) ExitLoop Case 0 GUICtrlSetData($Today, _DaysOfWeek()) GUICtrlSetData($Month, _MonthsOfYear()) GUICtrlSetData($Day, _DaysOfMonth()) GUICtrlSetData($Year, _Years()) GUICtrlSetData($Hour, _Hours()) GUICtrlSetData($Min, _Minites()) GUICtrlSetData($Sec, _Seconds()) EndSwitch WEnd GUIDelete($aGui) EndFunc Func DeleteGUI() SaveAll() GuiCtrlDelete($TitleMain) GuiCtrlDelete($MainInput); GuiCtrlDelete($MainCustomerLabel) GuiCtrlDelete($MainCustomerInput); GuiCtrlDelete($MainRegChasLabel) GuiCtrlDelete($MainRegChasInput); GuiCtrlDelete($MainOrderLabel) GuiCtrlDelete($MainOrderInput); GuiCtrlDelete($MainWipLabel) GuiCtrlDelete($MainCollectionCheckBox); GuiCtrlDelete($MainReminderCheckBox); GuiCtrlDelete($MainWipInput); GuiCtrlDelete($MainComplete) GuiCtrlDelete($MainEdit) GuiCtrlDelete($MainClear) GuiCtrlDelete($MainReminder) GuiCtrlDelete($MainLast) GuiCtrlDelete($TitleWorkshop) GuiCtrlDelete($WorkshopInput); GuiCtrlDelete($WorkshopWipLabel) GuiCtrlDelete($WorkshopWipInput); GuiCtrlDelete($WorkshopTechnicianLabel) GuiCtrlDelete($WorkshopTechnicianInput); GuiCtrlDelete($WorkshopCustomerLabel) GuiCtrlDelete($WorkshopCustomerInput); GuiCtrlDelete($WorkshopRegChasLabel) GuiCtrlDelete($WorkshopRegChasInput); GuiCtrlDelete($WorkshopAddNewTechnician) GuiCtrlDelete($WorkshopComplete) GuiCtrlDelete($WorkshopEdit) GuiCtrlDelete($WorkshopClear) GuiCtrlDelete($WorkshopLast) GuiCtrlDelete($SettingsTextColourLabel) GuiCtrlDelete($SettingsTextColourInput); GuiCtrlDelete($SettingsInputboxColourLabel) GuiCtrlDelete($SettingsInputboxColourInput); GuiCtrlDelete($SettingsInputboxTextColourLabel) GuiCtrlDelete($SettingsInputboxTextColourInput); GuiCtrlDelete($SettingsTextColourExample) GuiCtrlDelete($SettingsInputColourExample) GuiCtrlDelete($SettingsInputTextColourExample) GuiCtrlDelete($SettingsApplyButton) GuiCtrlDelete($SettingsButtonColourLabel) GuiCtrlDelete($SettingsButtonColourInput); GuiCtrlDelete($SettingsButtonColourExample) GuiCtrlDelete($SettingsBackgroundColourLabel); GuiCtrlDelete($SettingsBackgroundColourInput); GuiCtrlDelete($SettingsBackgroundColourExample) Global $Dummy = 0 FileWrite($TestingFile, "Delete Gui - Dummy =" & $Dummy & @CRLF) EndFunc Func _GuiMinimizeToTray($h_wnd) ; Minimize Gui To Tray Icon If BitAND(WinGetState($h_wnd), 1) Or Not BitAND(WinGetState($h_wnd), 16) Then WinSetState($h_wnd, "", @SW_HIDE) EndIf EndFunc Func SaveMain() Local $OriginalMainText = GuiCtrlRead($MainInput) GuiCtrlSetData($MainInput, "") Local $ConvertedMainText = StringReplace($OriginalMainText, @CRLF, "{ENTER}") Local $CollectionState = GuiCtrlRead($MainCollectionCheckBox) Local $ReminderState = GuiCtrlRead($MainReminderCheckBox) IniWrite($TempSave,"Main","Main Input",$ConvertedMainText) IniWrite($TempSave,"Main","Main Customer Input",GuiCtrlRead($MainCustomerInput)) IniWrite($TempSave,"Main","Main Registration & Chassis Input",GuiCtrlRead($MainRegChasInput)) IniWrite($TempSave,"Main","Main Order Input",GuiCtrlRead($MainOrderInput)) IniWrite($TempSave,"Main","Main Collection Checkbox",$CollectionState) IniWrite($TempSave,"Main","Main Reminder Checkbox",$ReminderState) IniWrite($TempSave,"Main","Main Wip Input",GuiCtrlRead($MainWipInput)) EndFunc Func LoadMain() Local $OriginalMainText = IniRead($TempSave,"Main", "Main Input","") Global $ConvertedMainText = StringReplace($OriginalMainText, "{ENTER}", @CRLF) Global $ReadMainCustomerInput = IniRead($TempSave,"Main","Main Customer Input","") Global $ReadMainRegChasInput = IniRead($TempSave,"Main","Main Registration & Chassis Input","") Global $ReadMainOrderInput = IniRead($TempSave,"Main","Main Order Input","") Global $ReadMainCollectionCheckbox = IniRead($TempSave,"Main","Main Collection Checkbox","") Global $ReadMainReminderCheckbox = IniRead($TempSave,"Main","Main Reminder Checkbox","") Global $ReadMainWipInput = IniRead($TempSave,"Main","Main Wip Input","") EndFunc Func SaveWorkshop() Local $OriginalWorkshopText = GuiCtrlRead($WorkshopInput) GuiCtrlSetData($WorkshopInput, "") Local $ConvertedWorkshopText = StringReplace($OriginalWorkshopText, @CRLF, "{ENTER}") IniWrite($TempSave,"Workshop","Workshop Input",$ConvertedWorkshopText) IniWrite($TempSave,"Workshop","Workshop Wip Input",GuiCtrlRead($WorkshopWipInput)) IniWrite($TempSave,"Workshop","Workshop Technician Input",GuiCtrlRead($WorkshopTechnicianInput)) IniWrite($TempSave,"Workshop","Workshop Customer Input",GuiCtrlRead($WorkshopCustomerInput)) IniWrite($TempSave,"Workshop","Workshop Registration & Chassis Input",GuiCtrlRead($WorkshopRegChasInput)) EndFunc Func LoadWorkshop() Local $OriginalWorkshopText = IniRead($TempSave,"Workshop", "Workshop Input","") Global $ConvertedWorkshopText = StringReplace($OriginalWorkshopText, "{ENTER}", @CRLF) Global $ReadWorkshopWipInput = IniRead($TempSave,"Workshop","Workshop Wip Input","") Global $ReadWorkshopTechnicianInput = IniRead($TempSave,"Workshop","Workshop Technician Input","") Global $ReadWorkshopCustomerInput = IniRead($TempSave,"Workshop","Workshop Customer Input","") Global $ReadWorkshopRegChasInput = IniRead($TempSave,"Workshop","Workshop Registration & Chassis Input","") Global $ReadTechnicianDropDown = IniRead($TempSave,"Technicians","Technician Name","Select Technician...") EndFunc Func SaveSettings() IniWrite($TempSave,"Settings","Settings Text Colour Input",GuiCtrlRead($SettingsTextColourInput)) IniWrite($TempSave,"Settings","Settings Inputbox Colour Input",GuiCtrlRead($SettingsInputboxColourInput)) IniWrite($TempSave,"Settings","Settings Inputbox Text Colour Input",GuiCtrlRead($SettingsInputboxTextColourInput)) IniWrite($TempSave,"Settings","Settings Button Colour Input",GuiCtrlRead($SettingsButtonColourInput)) IniWrite($TempSave,"Settings","Settings Background Colour Input",GuiCtrlRead($SettingsBackgroundColourInput)) EndFunc Func LoadSettings() Global $ReadSettingsTextColour = IniRead($TempSave,"Settings","Settings Text Colour Input","000000") Global $ReadSettingsInputboxColout = IniRead($TempSave,"Settings","Settings Inputbox Colour Input","FFFFFF") Global $ReadSettingsInputboxTextColour = IniRead($TempSave,"Settings","Settings Inputbox Text Colour Input","000000") Global $ReadSettingsButtonColour = IniRead($TempSave,"Settings","Settings Button Colour Input","000000") Global $ReadSettingsBackgroundColour = IniRead($TempSave,"Settings","Settings Background Colour Input","FFFFFF") EndFunc Func SaveAll() FileWrite($TestingFile, "Save All - Dummy =" & $Dummy & @CRLF) If $Dummy = 1 Then SaveMain() ElseIf $Dummy = 2 Then SaveWorkshop() Elseif $Dummy = 3 Then SaveSettings() EndIf EndFunc ; Func ApplySettings() ; Local $ReadTextColour = GuiCtrlRead($SettingsTextColourInput) ; Local $ReadInputColour = GuiCtrlRead($SettingsInputboxColourInput) ; local $ReadInputTextColour = GuiCtrlRead($SettingsInputboxTextColourInput) ; Local $ReadInputButtonColour = GuiCtrlRead($SettingsButtonColourInput) ; Local $ReadBackgroundColour = GuiCtrlRead($SettingsBackgroundColourInput) ; $UpdatedTextColour = "0x" & $ReadTextColour ; $UpdatedInputColour = "0x" & $ReadInputColour ; $UpdatedInputTextColour = "0x" & $ReadInputTextColour ; $UpdatedButtonColour = "0x" & $ReadInputButtonColour ; $UpdatedBackgroundColour = "0x" & $ReadBackgroundColour ; GuiCtrlSetBkColor($SettingsTextColourExample,$UpdatedTextColour) ; GuiCtrlSetBkColor($SettingsInputColourExample,$UpdatedInputColour) ; GuiCtrlSetBkColor($SettingsInputTextColourExample,$UpdatedInputTextColour) ; GuiCtrlSetBkColor($SettingsButtonColourExample,$UpdatedButtonColour) ; GuiCtrlSetBkColor($SettingsBackgroundColourExample,$UpdatedBackgroundColour) ; EndFunc Func SaveNotepadPlus() Local $OriginalNotepadPlusText = GuiCtrlRead($TextBox) GuiCtrlSetData($TextBox, "") Local $ConvertedNotepadPlusText = StringReplace($OriginalNotepadPlusText, @CRLF, "{ENTER}") IniWrite($TempSave,"NotePadPlus","Notepad Plus",$ConvertedNotepadPlusText) EndFunc Func LoadNotepadPlus() Local $OriginalNotepadPlusText = IniRead($TempSave,"NotePadPlus", "Notepad Plus","") Global $ConvertedNotepadPlusText = StringReplace($OriginalNotepadPlusText, "{ENTER}", @CRLF) EndFunc Func Update() Global $ReadUpdateText = IniRead($TempSave,"Settings","Settings Text Colour Input","000000") Global $ReadUpdateInput = IniRead($TempSave,"Settings","Settings Inputbox Colour Input","FFFFFF") Global $ReadUpdateInputText = IniRead($TempSave,"Settings","Settings Inputbox Text Colour Input","000000") Global $ReadUpdateButtonColour = IniRead($TempSave,"Settings","Settings Button Colour Input","000000") Global $ReadUpdateBackgroundColour = IniRead($TempSave,"Settings","Settings Background Colour Input","FFFFFF") Global $UpdatedTextColour = "0x" & $ReadUpdateText Global $UpdatedInputColour = "0x" & $ReadUpdateInput Global $UpdatedInputTextColour = "0x" & $ReadUpdateInputText Global $UpdatedButtonColour = "0x" & $ReadUpdateButtonColour Global $UpdatedBackgroundColour = "0x" & $ReadUpdateBackgroundColour EndFunc Func MainCompleteLogger() Local $ReadMainInputLog = GuiCtrlRead($MainInput) Local $ReadMainCustomer = GuiCtrlRead($MainCustomerInput) Local $ReadMainRegChas = GuiCtrlRead($MainRegChasInput) Local $ReadMainOrder = GuiCtrlRead($MainOrderInput) Local $ReadMainWip = GuiCtrlRead($MainWipInput) Local $ReadMainCollectionState = GuiCtrlRead($MainCollectionCheckBox) Local $ReadMainReminderState = GuiCtrlRead($MainReminderCheckBox) Local $ReadToday = GuiCtrlRead($Today) Local $DeliveryOrCollection = "N/a" If $ReadMainCollectionState = $GUI_Checked Then Local $DeliveryOrCollection = "Collection." EndIf If $ReadMainCollectionState = $GUI_Unchecked Then Local $DeliveryOrCollection = "Delivery." EndIf Local $DateTime = @MDAY & " / " & @MON & " / " & @YEAR & " - " & @HOUR & " : " & @MIN & " : " & @SEC & " - " & $ReadToday & " - " & $DeliveryOrCollection Local $Updater = "Wip: " & $ReadMainWip & " - Customer: " & $ReadMainCustomer & " - Reg/Chassis: " & $ReadMainRegChas & " - Order Number: " & $ReadMainOrder FileWrite($File,$DateTime & @CRLF & $Updater & @CRLF & " " & @CRLF & $ReadMainInputLog & @CRLF) Sleep(10) FileWrite($File,"========================================================================") Sleep(10) FileWrite($File, @CRLF) EndFunc Func WorkshopCompleteLogger() Local $ReadWorkshopInputLog = GuiCtrlRead($WorkshopInput) Local $ReadWorkshopCustomer = GuiCtrlRead($WorkshopCustomerInput) Local $ReadWorkshopRegChas = GuiCtrlRead($WorkshopRegChasInput) Local $ReadWorkshopTechnician = GuiCtrlRead($WorkshopTechnicianInput) Local $ReadWorkshopWip = GuiCtrlRead($WorkshopWipInput) Local $ReadToday = GuiCtrlRead($Today) Local $DateTime = @MDAY & " / " & @MON & " / " & @YEAR & " - " & @HOUR & " : " & @MIN & " : " & @SEC & " - " & $ReadToday & " - Workshop" Local $Updater = "Wip: " & $ReadWorkshopWip & " - Customer: " & $ReadWorkshopCustomer & " - Reg/Chassis: " & $ReadWorkshopRegChas & " - Technician: " & $ReadWorkshopTechnician FileWrite($File,$DateTime & @CRLF & $Updater & @CRLF & " " & @CRLF & $ReadWorkshopInputLog & @CRLF) Sleep(10) FileWrite($File,"========================================================================") Sleep(10) FileWrite($File, @CRLF) EndFunc ;===== Gui's ===== Func GuiMain() LoadMain() Global $TitleMain = GuiCtrlCreateLabel("Main",435,5,75,20) Global $MainInput = GuiCtrlCreateEdit($ConvertedMainText, 5, 5, 245, 220, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL)) Global $MainCustomerLabel = GuiCtrlCreateLabel("Customer :", 255, 5, 170, 20) Global $MainCustomerInput = GuiCtrlCreateInput($ReadMainCustomerInput, 255, 25, 240,20,$SS_CENTER+$ES_UPPERCASE) Global $MainRegChasLabel = GuiCtrlCreateLabel("Registration / Chassis Number :", 255, 50, 174, 20) Global $MainRegChasInput = GuiCtrlCreateInput($ReadMainRegChasInput, 255, 70, 240, 20,$SS_CENTER+$ES_UPPERCASE) Global $MainOrderLabel = GuiCtrlCreateLabel("Order Number :", 255, 95, 170, 20) Global $MainOrderInput = GuiCtrlCreateInput($ReadMainOrderInput, 255, 115, 240,20,$SS_CENTER+$ES_UPPERCASE) Global $MainWipLabel = GuiCtrlCreateLabel("Wip :", 255, 140, 30, 20) Global $MainWipInput = GuiCtrlCreateInput($ReadMainWipInput, 255, 160, 240,20,$SS_CENTER+$ES_NUMBER) Global $MainCollectionCheckBox = GUICtrlCreateCheckbox("Collection.", 315, 138, 74, 20) Global $MainReminderCheckBox = GUICtrlCreateCheckbox("Reminder.", 400, 138, 74, 20) Global $MainReminder = GuiCtrlCreateButton("!", $iWidth - 25, 185, 20, 20) ;255 Global $MainLast = GuiCtrlCreateButton("←", $iWidth - 245, 185, 20, 20) Global $MainEdit = GuiCtrlCreateButton("Edit", $iWidth - 210, 185, 50, 20) Global $MainClear = GuiCtrlCreateButton("Clear", $iWidth - 150, 185, 50, 20) Global $MainComplete = GuiCtrlCreateButton("Complete", $iWidth - 90, 185, 50, 20) Global $Dummy = 1 FileWrite($TestingFile, "Loading Main Gui - Dummy =" & $Dummy & @CRLF) GuiCtrlSetFont($TitleMain,8.5,700,4) GUICtrlSetFont($MainRegChasLabel, 8.5, 700) GUICtrlSetFont($MainCustomerLabel, 8.5, 700) GUICtrlSetFont($MainOrderLabel, 8.5, 700) GUICtrlSetFont($MainWipLabel, 8.5, 700) GUICtrlSetFont($MainCollectionCheckBox, 8.5, 700) GUICtrlSetFont($MainReminderCheckBox, 8.5, 700) GUICtrlSetFont($MainReminder, 8.5, 900) GUICtrlSetFont($MainLast, 8.5, 900) GUICtrlSetLimit($MainWipInput, 5) If $ReadMainCollectionCheckbox = 1 Then GuiCtrlSetState($MainCollectionCheckBox, $GUI_Checked) ElseIf $ReadMainCollectionCheckbox = 4 Then GuiCtrlSetState($MainCollectionCheckBox, $GUI_Unchecked) EndIf If $ReadMainReminderCheckbox = 1 Then GuiCtrlSetState($MainReminderCheckBox, $GUI_Checked) ElseIf $ReadMainReminderCheckbox = 4 Then GuiCtrlSetState($MainReminderCheckBox, $GUI_Unchecked) EndIf GuiCtrlSetBkColor($MainReminder, 0xD8FF8A) EndFunc Func GuiWorkshop() LoadWorkshop() Global $TitleWorkshop = GuiCtrlCreateLabel("Workshop",435,5,75,20) Global $WorkshopInput = GuiCtrlCreateEdit($ConvertedWorkshopText, 5, 5, 245, 220, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL)) Global $WorkshopWipLabel = GuiCtrlCreateLabel("Wip :", 255, 5, 170, 20) Global $WorkshopWipInput = GuiCtrlCreateInput($ReadWorkshopWipInput, 255, 25, 240,20,$SS_CENTER+$ES_NUMBER) Global $WorkshopTechnicianLabel = GuiCtrlCreateLabel("Technician :", 255, 50, 170, 20) Global $WorkshopTechnicianInput = GuiCtrlCreateCombo($ReadWorkshopTechnicianInput, 255, 70, 215,20);,$SS_CENTER+$ES_UPPERCASE) Global $WorkshopCustomerLabel = GuiCtrlCreateLabel("Customer :", 255, 95, 170, 20) Global $WorkshopCustomerInput = GuiCtrlCreateInput($ReadWorkshopCustomerInput, 255, 115, 240,20,$SS_CENTER+$ES_UPPERCASE) Global $WorkshopRegChasLabel = GuiCtrlCreateLabel("Registration / Chassis Number :", 255, 140, 174, 20) Global $WorkshopRegChasInput = GuiCtrlCreateInput($ReadWorkshopRegChasInput, 255, 160, 240, 20,$SS_CENTER+$ES_UPPERCASE) Global $WorkshopAddNewTechnician = GuiCtrlCreateButton("+", 475, 70, 20, 20) Global $WorkshopLast = GuiCtrlCreateButton("←", $iWidth - 245, 185, 20, 20) ;255 Global $WorkshopEdit = GuiCtrlCreateButton("Edit", $iWidth - 210, 185, 50, 20) Global $WorkshopClear = GuiCtrlCreateButton("Clear", $iWidth - 150, 185, 50, 20) Global $WorkshopComplete = GuiCtrlCreateButton("Complete", $iWidth - 90, 185, 50, 20) Global $Dummy = 2 FileWrite($TestingFile, "Loading Workshop Gui - Dummy =" & $Dummy & @CRLF) GUICtrlSetData($WorkshopTechnicianInput, $ReadTechnicianDropDown, $ReadWorkshopTechnicianInput) GuiCtrlSetFont($TitleWorkshop,8.5,700,4) GUICtrlSetFont($WorkshopRegChasLabel, 8.5, 700) GUICtrlSetFont($WorkshopCustomerLabel, 8.5, 700) GUICtrlSetFont($WorkshopTechnicianLabel, 8.5, 700) GUICtrlSetFont($WorkshopWipLabel, 8.5, 700) GUICtrlSetFont($WorkshopLast, 8.5, 900) GUICtrlSetLimit($WorkshopWipInput, 5) EndFunc Func GuiSettings() LoadSettings() Global $SettingsTextColourLabel = GuiCtrlCreateLabel("Text Colour:", 5, 5, 160, 20) Global $SettingsTextColourInput = GuiCtrlCreateInput($ReadSettingsTextColour, 5, 25, 160, 20,$SS_CENTER+$ES_UPPERCASE) Global $SettingsTextColourExample = GuiCtrlCreateEdit("", 170, 25, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsInputboxColourLabel = GuiCtrlCreateLabel("Inputbox Colour:", 5, 50, 160, 20) Global $SettingsInputboxColourInput = GuiCtrlCreateInput($ReadSettingsInputboxColout, 5, 70, 160, 20,$SS_CENTER+$ES_UPPERCASE) Global $SettingsInputColourExample = GuiCtrlCreateEdit("", 170, 70, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsInputboxTextColourLabel = GuiCtrlCreateLabel("Inputbox Text Colour:", 5, 95, 160, 20) Global $SettingsInputboxTextColourInput = GuiCtrlCreateInput($ReadSettingsInputboxTextColour, 5, 115, 160, 20,$SS_CENTER+$ES_UPPERCASE) Global $SettingsInputTextColourExample = GuiCtrlCreateEdit("", 170, 115, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsButtonColourLabel = GuiCtrlCreateLabel("Button Colour:",5,140,160,20) Global $SettingsButtonColourInput = GuiCtrlCreateInput($ReadUpdateButtonColour,5,160,160,20,$SS_CENTER+$ES_UPPERCASE);ReadSettingsButtonColour Global $SettingsButtonColourExample = GuiCtrlCreateEdit("", 170, 160, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsBackgroundColourLabel = GuiCtrlCreateLabel("Background Colour", 5, 185, 160, 20) Global $SettingsBackgroundColourInput = GuiCtrlCreateInput($ReadUpdateBackgroundColour, 5, 205, 160, 20,$SS_CENTER+$ES_UPPERCASE);ReadSettingsBackgroundColour Global $SettingsBackgroundColourExample = GuiCtrlCreateEdit("", 170, 205, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY) Global $SettingsApplyButton = GuiCtrlCreateButton("Apply",445,5,50,20) Global $Dummy = 3 FileWrite($TestingFile, "Loading Settings Gui - Dummy =" & $Dummy & @CRLF) GuiCtrlSetBkColor($SettingsTextColourExample,$UpdatedTextColour) GuiCtrlSetBkColor($SettingsInputColourExample,$UpdatedInputColour) GuiCtrlSetBkColor($SettingsInputTextColourExample,$UpdatedInputTextColour) GuiCtrlSetBkColor($SettingsButtonColourExample,$ReadUpdateButtonColour) GuiCtrlSetBkColor($SettingsBackgroundColourExample,GuiCtrlRead($ReadUpdateBackgroundColour)) EndFunc Func NotePadGui() LoadNotepadPlus() Local $aPos = WinGetPos($aGui) Local $nGui = GUICreate('Notepad+',$iWidth, 200,$aPos[0], $aPos[1] - 205, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST) Global $TextBox = GuiCtrlCreateEdit($ConvertedNotepadPlusText, 5, 5, 490, 190, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL)) GUISetState(@SW_SHOW, $nGui) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE SaveNotepadPlus() ExitLoop Case $GUI_EVENT_PRIMARYDOWN _SendMessage($nGui, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) Case $MenuBarNotepadPlus SaveNotepadPlus() ExitLoop EndSwitch WEnd GuiDelete($nGui) EndFunc Func AddNewTechnicianGui() Local $aPos = WinGetPos($aGui) Local $tGui= GuiCreate('New Technician', 420, 30, $aPos[0], $aPos[1] - 35, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST) Local $TechnicianLabel = GuiCtrlCreateLabel("Enter New Technician Name :",5,8,150,20) Global $TechnicianInput = GuiCtrlCreateInput("", 155,5,150,20) Local $AddButton = GuiCtrlCreateButton("Add", 310,5,50,20) Local $CancelButton = GuiCtrlCreateButton("Cancel", 365,5,50,20) GuiSetState(@SW_Show, $tGui) While 1 Switch GuiGetMsg() Case $Gui_Event_Close ExitLoop Case $CancelButton ExitLoop Case $AddButton AddTechnician() ExitLoop EndSwitch WEnd GuiDelete($tGui) EndFunc Func AddTechnician() local $TempReadDropDown = IniRead($TempSave,"Technicians","Technician Name","") Local $ReadTechnicianInput = GuiCtrlRead($TechnicianInput) Local $NewTechnicianDropDownList = $TempReadDropDown & "|" & $ReadTechnicianInput If $ReadTechnicianInput = "" Then MsgBox($MB_Systemmodal, "Add New Technician", "No Name Input!") Sleep (25) Else IniWrite($TempSave, "Technicians", "Technician Name", $NewTechnicianDropDownList) MsgBox($MB_Systemmodal, "Add New Technician", "New Technician Has Been Added!" & @CRLF & $ReadTechnicianInput) GuiCtrlSetData($TechnicianInput,"","") GUICtrlSetData($WorkshopTechnicianInput, $NewTechnicianDropDownList,$ReadTechnicianInput) EndIf EndFunc ;===== Date & Time ===== Func _DaysOfWeek() ; Today $dw = (@WDAY) Switch $dw Case 1 $rdw = 'SUNDAY' Case 2 $rdw = 'MONDAY' Case 3 $rdw = 'TUESDAY' Case 4 $rdw = 'WEDNESDAY' Case 5 $rdw = 'THURSDAY' Case 6 $rdw = 'FRIDAY' Case 7 $rdw = 'SATURDAY' EndSwitch Return $rdw EndFunc Func _MonthsOfYear() ; Month $my = (@MON) Return $my & " /" EndFunc Func _DaysOfMonth() ; Day $dm = (@MDAY) Return $dm & " /" EndFunc Func _Years() ; Year $ay = (@YEAR) Return $ay EndFunc Func _Hours() ; Hour $hh = (@HOUR) Return $hh & " :" EndFunc Func _Minites() ; Min $mm = (@MIN) Return $mm & " :" EndFunc Func _Seconds() ; Sec $ss = (@SEC) Return $ss EndFunc Link to comment Share on other sites More sharing options...
Nine Posted November 11, 2019 Share Posted November 11, 2019 Ok, let's start with the problem you are having with the spam of the main edit button "Main Edit Clicked Before - Dummy =0". When first started, some variables has not been set yet. It means they equal 0 which is the value returned by GUIGetMsg () when nothing is happening. This is the reason of the spam. Look at those variables : $MainEdit and $MainComplete for examples (but there are more) They are not set when you start your script. When developing a software, I always program it in scalable iterations. You first script with a few lines of code and test it. If everything works fine you add some more. and so on. You should consider using this kind of approach. It is harder to debug 500 lines of code instead of the last 10 you just added... “They did not know it was impossible, so they did it” ― Mark Twain Spoiler Block all input without UAC Save/Retrieve Images to/from Text Monitor Management (VCP commands) Tool to search in text (au3) files Date Range Picker Virtual Desktop Manager Sudoku Game 2020 Overlapped Named Pipe IPC HotString 2.0 - Hot keys with string x64 Bitwise Operations Multi-keyboards HotKeySet Recursive Array Display Fast and simple WCD IPC Multiple Folders Selector Printer Manager GIF Animation (cached) Screen Scraping Multi-Threading Made Easy Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now