Kurto2021 Posted April 14, 2009 Share Posted April 14, 2009 (edited) Let me just start by saying I am complete noob here and really have only done what I have done so far by just reading and searching ..... but I can't seem to figure this out. Technically what I want is working but it just doesn't seem right. Whenever I move the mouse the the label on the bottom right corner seems like it is continually updating. I am sure my code is long and awful but here it is CODE#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\Logo.ico #AutoIt3Wrapper_Outfile=Devtool.exe #AutoIt3Wrapper_Res_Comment=This is a nice program. #AutoIt3Wrapper_Res_Description=Tax Analyst Development Graphical User Interface #AutoIt3Wrapper_Res_Fileversion=1.0.0.1 #AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p #AutoIt3Wrapper_Res_LegalCopyright=By Kurt Owens #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.12.1 Author: Kurt Owens Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <GUIConstants.au3> #include <GUIConstantsEx.au3> #include <AVIConstants.au3> #include <ButtonConstants.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Array.au3> #include <File.au3> Global $aFiles[1] Global $bFiles[1] Global $dFiles[1] ;I read the Devtool.ini file to input the default information. Devtool.ini file is created on exit Global $CBState = IniRead("Dev.ini", "State", "key", "") Global $CBSys = IniRead("Dev.ini", "System", "key", "") Global $CBYear = IniRead("Dev.ini", "Year", "key", "") $CustVar = IniRead("Dev.ini", "Custom1", "key", "Custom1") $CustVar2 = IniRead("Dev.ini", "Custom2", "key", "Custom2") $CustVar3 = IniRead("Dev.ini", "Custom3", "key", "Custom3") $CustVar4 = IniRead("Dev.ini", "Custom4", "key", "Custom4") $Path1 = IniRead("Dev.ini", "Path1", "key", "") $Path2 = IniRead("Dev.ini", "Path2", "key", "") $Path3 = IniRead("Dev.ini", "Path3", "key", "") $Path4 = IniRead("Dev.ini", "Path4", "key", "") $Override = IniRead("Dev.ini", "Override", "key", "") $WrkFileOvr = IniRead("Dev.ini", "Primary File", "key", "") ;$Version1 = "1.0.0.0" $Version1 = FileGetVersion("Devtool.exe") $Version2 = FileGetVersion("H:\Kowens\Devtool.exe") If $Version1 < $Version2 Then MsgBox(1, "Update", "There is an update to DevTool available on H:\Kowens") EndIf ;This is where I create the Graphical User Interface - The gray bar on left wraps around GUI section #Region ### START Koda GUI section ### Form=c:\documents and settings\kowens\desktop\dev\koda_1.7.0.1\templates\tabbed pages.kxf $dlgTabbed = GUICreate("Development Tasks GUI", 441, 360, 208, 128) GUISetIcon("D:\005.ico") $PageControl1 = GUICtrlCreateTab(24, 58, 396, 256) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("1 Form Building") GUICtrlSetState(-1, $GUI_SHOW) ;Tab 1 Row 1 (displayed name, Vertical Position, Horizontal Position, width, height) $Draw = GUICtrlCreateButton("&Draw", 45, 90, 75, 30, 0) $Garbo = GUICtrlCreateButton("&Garbo", 140, 90, 75, 30, 0) $Greta = GUICtrlCreateButton("Gr&eta", 235, 90, 75, 30, 0) $Roc = GUICtrlCreateButton("&Roc", 330, 90, 75, 30, 0) ;Tab 1 Row 2 $Vamp = GUICtrlCreateButton("&Vamp / DDUT", 45, 130, 75, 30, 0) $WSViewer = GUICtrlCreateButton("W&SViewer", 140, 130, 75, 30, 0) $ExtList = GUICtrlCreateButton("E&xt List", 235, 130, 75, 30, 0) $Help = GUICtrlCreateButton("Draw He&lp", 330, 130, 75, 30, 0) ;Tab 1 Row 3 $DocRoc = GUICtrlCreateButton("DocRoc", 45, 170, 75, 30, 0) $DocGen = GUICtrlCreateButton("DocGen", 140, 170, 75, 30, 0) ;$DocGen = GUICtrlCreateButton("DocGen", 235, 170, 75, 30, 0) ;$Custom4 = GUICtrlCreateButton($CustVar4, 330, 170, 75, 30, 0) ;Tab 1 Row 4 $Custom1 = GUICtrlCreateButton($CustVar, 45, 260, 75, 30, 0) $Custom2 = GUICtrlCreateButton($CustVar2, 140, 260, 75, 30, 0) $Custom3 = GUICtrlCreateButton($CustVar3, 235, 260, 75, 30, 0) $Custom4 = GUICtrlCreateButton($CustVar4, 330, 260, 75, 30, 0) ;Create second tab $TabSheet2 = GUICtrlCreateTabItem("2 File Mgmt") ;Tab 2 Row 1 $RetrieveST = GUICtrlCreateButton("&RetrieveST", 45, 90, 75, 30, 0) $RetrieveFD = GUICtrlCreateButton("Retrieve&FD", 140, 90, 75, 30, 0) $TempMove = GUICtrlCreateButton("Temp Move", 235, 90, 75, 30, 0) ;Tab 2 Row 2 $HelpGet = GUICtrlCreateButton("Help Get", 45, 140, 75, 30, 0) $HelpPut = GUICtrlCreateButton("Help Put", 140, 140, 75, 30, 0) $HelpGen = GUICtrlCreateButton("Help Gen", 235, 140, 75, 30, 0) ;Tab 2 Row 3 $Xref = GUICtrlCreateButton("Get Xref", 45, 190, 75, 30, 0) $XrefEdit = GUICtrlCreateButton("Open Xref", 140, 190, 75, 30, 0) ;Create Third Tab $TabSheet3 = GUICtrlCreateTabItem("3 Custom") ;Tab 3 Row 1 $CustBox = GUICtrlCreateInput($CustVar, 40, 136, 75, 20) $CustPath = GUICtrlCreateInput($Path1, 150, 136, 255, 20) ;Tab 3 Row 2 $CustBox2 = GUICtrlCreateInput($CustVar2, 40, 160, 75, 20) $CustPath2 = GUICtrlCreateInput($Path2, 150, 160, 255, 20) ;Tab 3 Row 3 $CustBox3 = GUICtrlCreateInput($CustVar3, 40, 184, 75, 20) $CustPath3 = GUICtrlCreateInput($Path3, 150, 184, 255, 20) ;Tab 3 Row 4 $CustBox4 = GUICtrlCreateInput($CustVar4, 40, 208, 75, 20) $CustPath4 = GUICtrlCreateInput($Path4, 150, 208, 255, 20) ;Tab 3 Row 5 $Apply = GUICtrlCreateButton("Apply", 330, 265, 75, 30, 0) $Message = GUICtrlCreateLabel("You must exit before changes take effect", 45, 90, 200, 20) ;Create 4th Tab $TabSheet4 = GUICtrlCreateTabItem("4 ELF") $HXED = GUICtrlCreateButton("HXED", 45, 90, 75, 30, 0) $BEST = GUICtrlCreateButton("BEST", 140, 90, 75, 30, 0) $Retr = GUICtrlCreateButton("Retriever", 235, 90, 75, 30, 0) ;$FileMsg = GUICtrlCreateLabel($File, 150, 232, 255, 20) GUICtrlCreateTabItem("") ;End of tabbed data ;Shows on the bottom for all tabs $Tax = GUICtrlCreateButton("&Tax", 50, 320, 75, 30, 0) $Prodproc = GUICtrlCreateButton("&ProdProc", 138, 320, 75, 30, 0) $Officmgr = GUICtrlCreateButton("&OfficMgr", 228, 320, 75, 30, 0) $Message2 = GUICtrlCreateLabel("Fed File Date", 365, 315, 200, 20) ;Getting the date of the Federal ;Shows on top for all tabs $Yearlbl = GUICtrlCreateLabel("Year", 28, 6, 49, 25) $YearCtrl = GUICtrlCreateCombo("", 28, 26, 49, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8|9", $CBYear) $Systemlbl = GUICtrlCreateLabel("System", 104, 6, 41, 25) $SystemCtrl = GUICtrlCreateCombo("", 104, 26, 41, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetData(-1, "C|F|I|K|P|S|X|Y", $CBSys) $Statelbl = GUICtrlCreateLabel("State", 168, 6, 89, 25) $StateCtrl = GUICtrlCreateCombo("", 168, 26, 89, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetData(-1, "AK|AL|AR|AZ|CA|CO|CT|DC|DE|FL|GA|HI|IA|ID|IL|IN|KS|KY|LA|MA|MD|ME|MI|MN|MO|MS|MT|NC|ND|NE|NH|NJ |NM|NV|NY|OH|OK|OR|PA|RI|SC|SD|TN|TX|UT|VT|VA|WA|WI|WV|WY", $CBState) $OVCHKBox = GUICtrlCreateCheckbox("Secondary File $F", 280, 1, 140, 25) $WorkCtrl = GUICtrlCreateInput($WrkFileOvr, 280, 28, 130, 25) ;GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Year = GUICtrlRead($YearCtrl, 0) $System = GUICtrlRead($SystemCtrl, 0) $State = GUICtrlRead($StateCtrl, 0) $WorkingFile = GUICtrlRead($WorkCtrl, 0) $timei = FileGetTime("C:\fx\0" & $Year & "\dd\0" & $Year & "i$f.dat", 0) If Not @error Then $yyyymdi = $timei[1] & "/" & $timei[2] & "/" & $timei[0] Else $yyyymdi = "No File Local" EndIf $timec = FileGetTime("C:\fx\0" & $Year & "\dd\0" & $Year & "c$f.dat", 0) If Not @error Then $yyyymdc = $timec[1] & "/" & $timec[2] & "/" & $timec[0] Else $yyyymdc = "No File Local" EndIf $timef = FileGetTime("C:\fx\0" & $Year & "\dd\0" & $Year & "f$f.dat", 0) If Not @error Then $yyyymdf = $timef[1] & "/" & $timef[2] & "/" & $timef[0] Else $yyyymdf = "No File Local" EndIf $timep = FileGetTime("C:\fx\0" & $Year & "\dd\0" & $Year & "p$f.dat", 0) If Not @error Then $yyyymdp = $timep[1] & "/" & $timep[2] & "/" & $timep[0] Else $yyyymdp = "No File Local" EndIf $times = FileGetTime("C:\fx\0" & $Year & "\dd\0" & $Year & "s$f.dat", 0) If Not @error Then $yyyymds = $times[1] & "/" & $times[2] & "/" & $times[0] Else $yyyymds = "No File Local" EndIf $timex = FileGetTime("C:\fx\0" & $Year & "\dd\0" & $Year & "x$f.dat", 0) If Not @error Then $yyyymdx = $timex[1] & "/" & $timex[2] & "/" & $timex[0] Else $yyyymdx = "No File Local" EndIf $timey = FileGetTime("C:\fx\0" & $Year & "\dd\0" & $Year & "y$f.dat", 0) If Not @error Then $yyyymdy = $timey[1] & "/" & $timey[2] & "/" & $timey[0] Else $yyyymdy = "No File Local" EndIf $Message = GUICtrlCreateLabel("", 365, 330, 200, 20) $DrawTip = "Draw" & $Year & " dd" & $Year & $System & "$" & $State & " dd" & $Year & $System & "$fd" $WrkTip = "Override the primary file. Year and System must be entered." $OVCHKBoxTip = "Check this box to use $F file as secondary file in Draw." GUICtrlSetTip($Draw, $DrawTip) GUICtrlSetTip($WorkCtrl, $WrkTip) GUICtrlSetTip($OVCHKBox, $OVCHKBoxTip) ;GUISetState(@SW_SHOW) GUISetState() #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() ;Reading the keyed in data and assigning the data to a temp variable $Year = GUICtrlRead($YearCtrl, 0) $System = GUICtrlRead($SystemCtrl, 0) $State = GUICtrlRead($StateCtrl, 0) $WrkFileOvr = GUICtrlRead($WorkCtrl, 0) $Wrk = GUICtrlRead($WorkCtrl, 1) $CustVar = GUICtrlRead($CustBox, 0) $CustVar2 = GUICtrlRead($CustBox2, 0) $Path1 = GUICtrlRead($CustPath, 0) $Path2 = GUICtrlRead($CustPath2, 0) $CustVar3 = GUICtrlRead($CustBox3, 0) $CustVar4 = GUICtrlRead($CustBox4, 0) $Path3 = GUICtrlRead($CustPath3, 0) $Path4 = GUICtrlRead($CustPath4, 0) $Override = GUICtrlRead($OVCHKBox, 0) ; Path Keywords - This will reduce usage of full pathing in execution of code ; these are the set paths for when You are calling a common file I added them late so most items don't use it. $ddpath = "C:\fx\0" & $Year & "\dd\" ; example = C\fx\08\dd If $Wrk = "" Then ;If $override = 1 then $statedd = "DD" & $Year & $System & "$" & $State Else $statedd = $WrkFileOvr ; example = dd8p$nj EndIf $ddfile = "DD" & $Year & $System & "$FD" ; example = dd8p$fd $Ffile = "0" & $Year & $System & "$F" ; example = 08p$f $wsmfile = "0" & $Year & $System & "$WSM" $diagfile = "0" & $Year & $System & "$D" $printfile = "0" & $Year & $System & "$P" ; end of paths ; combining path keywords will lead you to most files. For example $ddpath & $statedd will lead you to state DD file Switch $nMsg Case $Draw ; Search for the Federal / Secondary file $Search = FileFindFirstFile($ddpath & $ddfile & ".dat") If $Search = -1 Then ; -1 means file doesn't exist $Nofile = MsgBox(4, "File Not Found", "The File " & $Ffile & " was not found. Would you like to retrieve it?") If ($Nofile = 6) Then FileCopy("G:\WFX32\0" & $Year & $System & "\" & $ddfile & ".*", $ddpath) FileSetAttrib($ddpath & $ddfile & ".*", "-R") EndIf EndIf ; Search for the Primary / State file $Search = FileFindFirstFile($ddpath & $statedd & ".dat") If $Search = -1 Then ; -1 means file doesn't exist $Search = FileFindFirstFile("P:\temp\" & $statedd & ".dat") If $Search = -1 Then ; -1 means file doesn't exist MsgBox(0, "File Not Found", "The File " & $statedd & " was not found on C or on P:\temp. Please verify the filename") Else $Nofile = MsgBox(4, "File Not Found", "The File " & $statedd & " was not found. Would you like to retrieve it?") If ($Nofile = 6) Then FileCopy("P:\temp\" & $statedd & ".*", $ddpath & "*.*", 9) Run("draw" & $Year & ".exe " & $ddpath & $statedd & " " & $ddpath & $ddfile) EndIf EndIf Else FileCopy("P:\temp\" & $statedd & ".*", $ddpath & "*.*", 9) Run("draw" & $Year & ".exe " & $ddpath & $statedd & " " & $ddpath & $ddfile) EndIf Case $Roc Run("roc" & $Year & ".exe " & $ddpath & $statedd & " " & $ddpath & $Ffile, "c:\fx\0" & $Year & "\dd\") Case $Vamp If $Override = 1 Then RunWait("Vamp" & $Year & ".exe " & $ddpath & $Ffile, "c:\fx\0" & $Year & "\dd\") ; Full Vamp when overriden Else RunWait("Vamp" & $Year & ".exe " & $ddpath & $Ffile & " " & $State, "c:\fx\0" & $Year & "\dd\") ; Vamp just the state portion when override not present EndIf Run("DDut" & $Year & " " & $ddpath & $Ffile & ".dat", "c:\fx\0" & $Year & "\dd\") Case $Garbo Run("Garbo" & $Year & ".exe " & $ddpath & $statedd & " " & $ddpath & $Ffile, "c:\fx\0" & $Year & "\dd\") Case $Greta Run("Greta" & $Year & ".exe " & $ddpath & $statedd & " " & $ddpath & $Ffile, "c:\fx\0" & $Year & "\dd\") Case $WSViewer $Search4 = FileFindFirstFile("C:\Program Files\wsviewer" & $Year & "\WSViewer0" & $Year & ".exe") If $Search4 = 1 Then Run("C:\Program Files\wsviewer" & $Year & "\WSViewer0" & $Year & ".exe", "C:\Program Files\wsviewer" & $Year) Else $Prior = $Year - 1 Run("C:\Program Files\wsviewer" & $Prior & "\WSViewer0" & $Prior & ".exe", "C:\Program Files\wsviewer" & $Prior) EndIf Case $ExtList Run("cmd /c start c:\fx\0" & $Year & "\dd\dd" & $Year & $System & "$" & $State & ".lst", "", @SW_HIDE) Case $DocRoc MsgBox(0, "Error", "This is not implemented at this time") Case $DocGen MsgBox(1, "Error", "This is not implemented at this time") Case $Custom1 Run($Path1, "") Case $Custom2 Run($Path2, "") Case $Custom3 Run($Path3, "") Case $Custom4 Run($Path4, "") Case $Tax Run("K:\wfx32\Tax0" & $Year & ".exe", "K:\wfx32\") Case $Prodproc Run("K:\wfx32\Prodproc.exe", "K:\wfx32\") Case $Officmgr Run("K:\wfx32\Officmgr.exe", "K:\wfx32\") Case $Help $Search = FileFindFirstFile("C:\Devtool\wintool.chm") If $Search = -1 Then FileCopy("X:\fx\execute\wintool.chm", "c:\DevTool\Wintool.*", 9) EndIf Run("C:\Windows\hh.exe C:\Wintool\Wintool.chm", "C:\windows\") Case $HelpGet FileCopy("O:\Help\0" & $Year & $System & "$H" & $State & ".rtf", "C:\fx\0" & $Year & "\dd\0" & $Year & $System & "$H" & $State & ".rtf", 9) FileSetAttrib("C:\fx\0" & $Year & "\dd\0" & $Year & $System & "$H" & $State & ".rtf", "-R") MsgBox(0, "File Copied", "The File 0" & $Year & $System & "$H" & $State & ".rtf has been retrieved from O:\Help\") Case $HelpPut $Search = FileFindFirstFile("C:\Devtool\0" & $Year & $System & "$H" & $State & ".rtf") If $Search = -1 Then MsgBox(0, "Error", "The file 0" & $Year & $System & "$H" & $State & ".rtf does not exist locally") Else FileSetAttrib("O:\Help\0" & $Year & $System & "$H" & $State & ".rtf", "-R") FileCopy("C:\fx\0" & $Year & "\dd\0" & $Year & $System & "$H" & $State & ".rtf", "O:\Help\0" & $Year & $System & "$H" & $State & ".rtf", 9) FileSetAttrib("O:\Help\0" & $Year & $System & "$H" & $State & ".rtf", "R") MsgBox(0, "File Copied", "The File 0" & $Year & $System & "$H" & $State & ".rtf has been copied to O:\Help\") EndIf Case $HelpGen $Search = FileFindFirstFile("C:\Devtool\0" & $Year & $System & "$H" & $State & ".rtf") If $Search = -1 Then $Search = FileFindFirstFile("O:\help\0" & $Year & $System & "$H" & $State & ".rtf") If $Search = -1 Then MsgBox(0, "Error", "The File 0" & $Year & $System & "$H" & $State & ".rtf does not exist") Else FileCopy("O:\Help\0" & $Year & $System & "$H" & $State & ".rtf", "C:\fx\0" & $Year & "\dd\0" & $Year & $System & "$H" & $State & ".rtf", 9) FileSetAttrib("C:\fx\0" & $Year & "\dd\0" & $Year & $System & "$H" & $State & ".rtf", "-R") EndIf EndIf If $Search <> -1 Then Run("Helpgen" & $Year & " C:\fx\0" & $Year & "\dd\0" & $Year & $System & "$H" & $State & ".rtf", "C:\fx\0" & $Year & "\") EndIf Case $Xref FileCopy("O:\Help\Xref\0" & $Year & $System & "$X" & $State & ".rtf", "C:\fx\0" & $Year & "\dd\0" & $Year & $System & "$X" & $State & ".rtf", 9) FileSetAttrib("C:\fx\0" & $Year & "\dd\0" & $Year & $System & "$X" & $State & ".rtf", "-R") Case $XrefEdit Run("cmd /c start " & $ddpath & "\0" & $Year & $System & "$X" & $State & ".rtf", "", @SW_HIDE) Case $RetrieveST $Search = FileFindFirstFile("C:\fx\0" & $Year & "\dd\dd" & $Year & $System & "$" & $State & ".*") If $Search = -1 Then ; -1 means file doesn't exist FileCopy("P:\temp\dd" & $Year & $System & "$" & $State & ".*", "C:\fx\0" & $Year & "\dd\*.*", 9) Else $prompt = MsgBox(1, "Retrieve State", "Are you sure you want to retrieve the state file") If $prompt = 1 Then FileMove($ddpath & $statedd & ".*", $ddpath & "\ddbackup\" & $State & "\" & $statedd & ".*", 9) $btime = FileGetTime($ddpath & "ddbackup\" & $State & "\" & $statedd & ".dat", 0, 0) RunWait("pkzip " & $ddpath & "\ddbackup\" & $State & "\zipped.zip " & $ddpath & "\ddbackup\" & $State & "\" & $statedd & ".*") If $btime[3] > 12 Then $btimehour = ($btime[3] - 12) Else $btimehour = ($btime[3]) EndIf FileCopy($ddpath & "\ddbackup\" & $State & "\zipped.zip", $ddpath & "\ddbackup\" & $State & "\" & $btime[1] & "-" & $btime[2] & "-" & $btimehour & $btime[4] & ".zip", 9) FileDelete($ddpath & "ddbackup\" & $State & "\zipped.zip") FileCopy("P:\temp\dd" & $Year & $System & "$" & $State & ".*", "C:\fx\0" & $Year & "\dd\*.*", 9) EndIf EndIf Case $TempMove FileCopy("P:\temp\dd" & $Year & $System & "$" & $State & ".*", "C:\devtool\ddbackup\0" & $Year & "\" & $State & "\dd" & $Year & $System & "$" & $State & ".*", 9) FileCopy("C:\fx\0" & $Year & "\dd\dd" & $Year & $System & "$" & $State & ".dat", "P:\temp\dd" & $Year & $System & "$" & $State & ".dat", 9) FileCopy("C:\fx\0" & $Year & "\dd\dd" & $Year & $System & "$" & $State & ".idx", "P:\temp\dd" & $Year & $System & "$" & $State & ".idx", 9) MsgBox(0, "Temp Move", "Original file on P:\temp was backed up to C:\Devtool\ddbackup\0" & $Year & "\" & $State) Case $RetrieveFD FileDelete($ddpath & $ddfile & ".*") FileDelete($ddpath & $Ffile & ".*") FileDelete($ddpath & $wsmfile & ".*") FileDelete($ddpath & $printfile & ".*") FileDelete($ddpath & $diagfile & ".*") _FileCopy("G:\WFX32\0" & $Year & $System & "\" & $ddfile & ".*", $ddpath) _FileCopy("G:\WFX32\0" & $Year & $System & "\" & $Ffile & ".*", $ddpath) _FileCopy("G:\WFX32\0" & $Year & $System & "\" & $wsmfile & ".*", $ddpath) _FileCopy("G:\WFX32\0" & $Year & $System & "\" & $printfile & ".*", $ddpath) _FileCopy("G:\WFX32\0" & $Year & $System & "\" & $diagfile & ".*", $ddpath) FileSetAttrib($ddpath & $ddfile & ".*", "-R") FileSetAttrib($ddpath & $Ffile & ".*", "-R") FileSetAttrib($ddpath & $wsmfile & ".*", "-R") FileSetAttrib($ddpath & $printfile & ".*", "-R") FileSetAttrib($ddpath & $diagfile & ".*", "-R") $time2 = FileGetTime("C:\fx\08\dd\08p$f.dat", 0) If Not @error Then $yyyymd2 = $time2[1] & "/" & $time2[2] & "/" & $time2[0] MsgBox(1, "title", "retrieved") GUICtrlSetData($Message, $yyyymd2) EndIf Case $HXED $Search = FileFindFirstFile("C:\DevTool\hxed.exe") If $Search = -1 Then ; -1 means file doesn't exist FileCopy("h:\Fulghum\hxed.exe", "c:\Devtool\hxed.exe", 9) EndIf Run("C:\DevTool\Hxed.exe", "C:\DevTool\") Case $BEST $Search = FileFindFirstFile("C:\Program Files\CCH ELF\BEST\CCH.EFile.BEST.exe") If $Search = -1 Then ; -1 means file doesn't exist MsgBox(0, "File Search", "Best tool not installed - Please install") Else Run("C:\Program Files\CCH ELF\BEST\CCH.EFile.BEST.exe", "C:\Program Files\CCH ELF\BEST\") EndIf Case $Retr Run("H:\ginger\FileRetriever - 04-07-08\FileRetriever.exe", "H:\ginger\FileRetriever - 04-07-08") Case $Apply GUICtrlSetData($Custom1, GUICtrlRead($CustBox)) GUICtrlSetData($Custom2, GUICtrlRead($CustBox2)) GUICtrlSetData($Custom3, GUICtrlRead($CustBox3)) GUICtrlSetData($Custom4, GUICtrlRead($CustBox4)) Case $GUI_EVENT_CLOSE Exit Case $System Select Case GUICtrlRead($SystemCtrl) = "I" GUICtrlSetData($Message, $yyyymdi) Case GUICtrlRead($SystemCtrl) = "C" GUICtrlSetData($Message, $yyyymdc) Case GUICtrlRead($SystemCtrl) = "F" GUICtrlSetData($Message, $yyyymdf) Case GUICtrlRead($SystemCtrl) = "P" GUICtrlSetData($Message, $yyyymdp) Case GUICtrlRead($SystemCtrl) = "S" GUICtrlSetData($Message, $yyyymds) Case GUICtrlRead($SystemCtrl) = "X" GUICtrlSetData($Message, $yyyymdx) Case GUICtrlRead($SystemCtrl) = "Y" GUICtrlSetData($Message, $yyyymdy) EndSelect EndSwitch WEnd Func _FileCopy($fromFile, $tofile) Local $FOF_RESPOND_YES = 16 Local $FOF_SIMPLEPROGRESS = 256 $winShell = ObjCreate("shell.application") $winShell.namespace($tofile).CopyHere($fromFile, $FOF_RESPOND_YES) EndFunc ;==>_FileCopy Func OnAutoItExit() IniWrite("Dev.ini", "State", "key", $State) IniWrite("Dev.ini", "System", "key", $System) IniWrite("Dev.ini", "Year", "key", $Year) IniWrite("Dev.ini", "Custom1", "key", $CustVar) IniWrite("Dev.ini", "Custom2", "key", $CustVar2) IniWrite("Dev.ini", "Custom3", "key", $CustVar3) IniWrite("Dev.ini", "Custom4", "key", $CustVar4) IniWrite("Dev.ini", "Path1", "key", $Path1) IniWrite("Dev.ini", "Path2", "key", $Path2) IniWrite("Dev.ini", "Path3", "key", $Path3) IniWrite("Dev.ini", "Path4", "key", $Path4) IniWrite("Dev.ini", "Override", "key", $Override) IniWrite("Dev.ini", "Primary File", "key", $WrkFileOvr) EndFunc ;==>OnAutoItExit I was able to take some sample code I found on here and it tweak it so that it works exactly like I want. Just can't figure out what is different here and in my setup. CODE#include <GuiConstants.au3> $hWnd = GuiCreate("",150,50) $hCombo = GUICtrlCreateCombo("",5,5,80) GUICtrlSetData(-1,"C|S|P|I|L","OFF") $hInput = GuiCtrlCreateLabel("Kurt",85,10,100,20) GuiSetState() While 1 $nmsg = GuiGetMsg() Switch $nmsg Case $GUI_EVENT_CLOSE Exit Case $hCombo Select Case GuiCtrlRead($hCombo) = "I" GUICtrlSetData($hInput,"Individual") Case GuiCtrlRead($hCombo) = "C" GUICtrlSetData($hInput,"Corporate") Case GuiCtrlRead($hCombo) = "S" GUICtrlSetData($hInput,"S Corp") Case GuiCtrlRead($hCombo) = "P" GUICtrlSetData($hInput,"Partnership") EndSelect EndSwitch WEnd Edited April 14, 2009 by Kurto2021 Link to comment Share on other sites More sharing options...
PsaltyDS Posted April 14, 2009 Share Posted April 14, 2009 The second script works for me (as far as it goes - there is no selection case for "L"). What was your exact question? Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law Link to comment Share on other sites More sharing options...
WideBoyDixon Posted April 14, 2009 Share Posted April 14, 2009 I think: Case $SystemoÝ÷ Ù(hºW[y«¢+Ù ÍÀÌØíMåÍѵ ÑÉ WBD [center]Wide by name, Wide by nature and Wide by girth[u]Scripts[/u]{Hot Folders} {Screen Calipers} {Screen Crosshairs} {Cross-Process Subclassing} {GDI+ Clock} {ASCII Art Signatures}{Another GDI+ Clock} {Desktop Goldfish} {Game of Life} {3D Pie Chart} {Stock Tracker}[u]UDFs[/u]{_FileReplaceText} {_ArrayCompare} {_ToBase}~ My Scripts On Google Code ~[/center] Link to comment Share on other sites More sharing options...
KaFu Posted April 14, 2009 Share Posted April 14, 2009 $system is always true, that's why "case $System" updates the label in each loop. Additionally I saw that you used $Message for 2 different labels ... OS: Win10-22H2 - 64bit - German, AutoIt Version: 3.3.16.1, AutoIt Editor: SciTE, Website: https://funk.eu AMT - Auto-Movie-Thumbnailer (2022-Nov-26) BIC - Batch-Image-Cropper (2023-Apr-01) COP - Color Picker (2009-May-21) DCS - Dynamic Cursor Selector (2024-Feb-16) HMW - Hide my Windows (2018-Sep-16) HRC - HotKey Resolution Changer (2012-May-16) ICU - Icon Configuration Utility (2018-Sep-16) SMF - Search my Files (2023-Jun-03) - THE file info and duplicates search tool SSD - Set Sound Device (2017-Sep-16) Link to comment Share on other sites More sharing options...
MagnumXL Posted April 14, 2009 Share Posted April 14, 2009 To further elaborate on KaFu's most correct post... just look up "Switch...Case...EndSwitch" and "Select...Case...EndSelect" in the helpfile and note the differences. Link to comment Share on other sites More sharing options...
Kurto2021 Posted April 14, 2009 Author Share Posted April 14, 2009 $system is always true, that's why "case $System" updates the label in each loop.Additionally I saw that you used $Message for 2 different labels ...I told you it was pretty sloppy....I have been learning as I go.SystemCtrl worked great.....You guys rule. Now I must use my rudimentary skills to help others. 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