PredatorXXI Posted July 16, 2012 Share Posted July 16, 2012 Hi, Newbie here so be gentle please!!! Never been a programmer but with autoit I've already made some very nice personal utilities, like automating program installation. Now my problem is: In the following code why won't: GUICtrlSetData($listaPCs[$i][1], "Online") set the label as Online? I know if I set it to $label6 it works, but I would like it to update by the array position. Full Code: expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <inet.au3> #include<Array.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Main", 400, 263, 332, 402) $Label1 = GUICtrlCreateLabel("Localhost", 8, 56, 147, 22) GUICtrlSetFont(-1, 10, 400, 0, "Trebuchet MS") $Label2 = GUICtrlCreateLabel("Computer2", 8, 87, 157, 22) GUICtrlSetFont(-1, 10, 400, 0, "Trebuchet MS") $Label3 = GUICtrlCreateLabel("Computer3", 8, 118, 158, 22) GUICtrlSetFont(-1, 10, 400, 0, "Trebuchet MS") $Label4 = GUICtrlCreateLabel("Computer Name", 8, 16, 146, 26) GUICtrlSetFont(-1, 12, 800, 0, "Trebuchet MS") $Label5 = GUICtrlCreateLabel("Coms", 192, 16, 114, 26) GUICtrlSetFont(-1, 12, 800, 0, "Trebuchet MS") $Label6 = GUICtrlCreateLabel("Offline", 192, 56, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, "Trebuchet MS") GUICtrlSetColor(-1, 0xFF0000) $Label7 = GUICtrlCreateLabel("Offline", 192, 87, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, "Trebuchet MS") GUICtrlSetColor(-1, 0xFF0000) $Label8 = GUICtrlCreateLabel("Offline", 192, 118, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, "Trebuchet MS") GUICtrlSetColor(-1, 0xFF0000) $Button8 = GUICtrlCreateButton("Refresh", 8, 224, 81, 25) GUISetState(@SW_SHOW) Global $listaPCs[3][2] = [["Localhost", "$Label6"], ["Computer2", "$Label7"] , ["Computer3", "$Label8"]] Func _ping() for $i = 0 to UBound($listaPCs)-1 Step 1 Ping ($listaPCs[$i][0]) if @error= 0 Then GUICtrlSetData($listaPCs[$i][1], "Online") ConsoleWrite(@error) GUICtrlSetColor($label6, 0x008000) Else ConsoleWrite($listaPCs[$i][0] & " está offline" & @CRLF) EndIf Next EndFunc While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button8 _ping() EndSwitch WEnd Link to comment Share on other sites More sharing options...
BrewManNH Posted July 16, 2012 Share Posted July 16, 2012 Your variables in the array declaration are in quotes, remove the quotes and try it again. Global $listaPCs[3][2] = [["Localhost", $Label6], ["Computer2", $Label7] , ["Computer3", $Label8]]; no quotes around variable names If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag GudeHow to ask questions the smart way! I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from. Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays. - ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script. - Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label. - _FileGetProperty - Retrieve the properties of a file - SciTE Toolbar - A toolbar demo for use with the SciTE editor - GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI. - Latin Square password generator Link to comment Share on other sites More sharing options...
PredatorXXI Posted July 16, 2012 Author Share Posted July 16, 2012 Hey, that was simple...thank you! Link to comment Share on other sites More sharing options...
guinness Posted July 16, 2012 Share Posted July 16, 2012 (edited) I would also do away with double the number of variables and opt for $listaPCs[0][1] = GUICtrlCreate... instead of $Lable6 = GUICtrlCreate... but the array would have to be declared before you create the labels. Just an idea. Edited July 16, 2012 by guinness UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _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 parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
PredatorXXI Posted July 17, 2012 Author Share Posted July 17, 2012 I would also do away with double the number of variables and opt for $listaPCs[0][1] = GUICtrlCreate... instead of $Lable6 = GUICtrlCreate... but the array would have to be declared before you create the labels. Just an idea. Hi guinness, I don't think I understand what you're trying to say. Would you care to explain? Thank you! Link to comment Share on other sites More sharing options...
guinness Posted July 17, 2012 Share Posted July 17, 2012 Why the need for $Label6? expandcollapse popup#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7 #include <GUIConstantsEx.au3> Global $__ListPCs[3][2] = [['Localhost', '$Label6'],['Computer2', '$Label7'],['Computer3', '$Label8']] ; This could be Local and using ByRef too. Example() Func Example() #region ### START Koda GUI section ### Form= Local $hGUI = GUICreate('Main', 400, 263, 332, 402) GUICtrlCreateLabel('Localhost', 8, 56, 147, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlCreateLabel('Computer2', 8, 87, 157, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlCreateLabel('Computer3', 8, 118, 158, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlCreateLabel('Computer Name', 8, 16, 146, 26) GUICtrlSetFont(-1, 12, 800, 0, 'Trebuchet MS') GUICtrlCreateLabel('Coms', 192, 16, 114, 26) GUICtrlSetFont(-1, 12, 800, 0, 'Trebuchet MS') $__ListPCs[0][1] = GUICtrlCreateLabel('Offline', 192, 56, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlSetColor(-1, 0xFF0000) $__ListPCs[1][1] = GUICtrlCreateLabel('Offline', 192, 87, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlSetColor(-1, 0xFF0000) $__ListPCs[2][1] = GUICtrlCreateLabel('Offline', 192, 118, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlSetColor(-1, 0xFF0000) Local $iButton8 = GUICtrlCreateButton('Refresh', 8, 224, 81, 25) GUISetState(@SW_SHOW, $hGUI) Local $nMsg = 0 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ExitLoop Case $iButton8 _Ping() EndSwitch WEnd GUIDelete($hGUI) EndFunc ;==>Example Func _Ping() For $i = 0 To UBound($__ListPCs) - 1 Ping($__ListPCs[$i][0]) If @error = 0 Then GUICtrlSetData($__ListPCs[$i][1], 'Online') ConsoleWrite(@error) GUICtrlSetColor($__ListPCs[$i][1], 0x008000) Else ConsoleWrite($__ListPCs[$i][0] & ' está offline' & @CRLF) EndIf Next EndFunc ;==>_Ping UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _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 parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
PredatorXXI Posted July 18, 2012 Author Share Posted July 18, 2012 Why the need for $Label6? expandcollapse popup#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7 #include <GUIConstantsEx.au3> Global $__ListPCs[3][2] = [['Localhost', '$Label6'],['Computer2', '$Label7'],['Computer3', '$Label8']] ; This could be Local and using ByRef too. Example() Func Example() #region ### START Koda GUI section ### Form= Local $hGUI = GUICreate('Main', 400, 263, 332, 402) GUICtrlCreateLabel('Localhost', 8, 56, 147, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlCreateLabel('Computer2', 8, 87, 157, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlCreateLabel('Computer3', 8, 118, 158, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlCreateLabel('Computer Name', 8, 16, 146, 26) GUICtrlSetFont(-1, 12, 800, 0, 'Trebuchet MS') GUICtrlCreateLabel('Coms', 192, 16, 114, 26) GUICtrlSetFont(-1, 12, 800, 0, 'Trebuchet MS') $__ListPCs[0][1] = GUICtrlCreateLabel('Offline', 192, 56, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlSetColor(-1, 0xFF0000) $__ListPCs[1][1] = GUICtrlCreateLabel('Offline', 192, 87, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlSetColor(-1, 0xFF0000) $__ListPCs[2][1] = GUICtrlCreateLabel('Offline', 192, 118, 44, 22) GUICtrlSetFont(-1, 10, 400, 0, 'Trebuchet MS') GUICtrlSetColor(-1, 0xFF0000) Local $iButton8 = GUICtrlCreateButton('Refresh', 8, 224, 81, 25) GUISetState(@SW_SHOW, $hGUI) Local $nMsg = 0 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ExitLoop Case $iButton8 _Ping() EndSwitch WEnd GUIDelete($hGUI) EndFunc ;==>Example Func _Ping() For $i = 0 To UBound($__ListPCs) - 1 Ping($__ListPCs[$i][0]) If @error = 0 Then GUICtrlSetData($__ListPCs[$i][1], 'Online') ConsoleWrite(@error) GUICtrlSetColor($__ListPCs[$i][1], 0x008000) Else ConsoleWrite($__ListPCs[$i][0] & ' está offline' & @CRLF) EndIf Next EndFunc ;==>_Ping OK! I now got it. 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