mjg 0 Report post Posted April 21, 2008 I'm fairly unfamiliar with Arrays and how they work, so if someone could help me out that would be great. Basically what I'm trying accomplish is to create an array of all of our sites so I can ping them and display the results verifying that the site is up and connected. Here is what I have thus far: expandcollapse popup#include <GuiConstantsEx.au3> #include <GuiListView.au3> #include <GuiImageList.au3> #include <Constants.au3> #include <GUIConstants.au3> #include <Array.au3> Dim $line Dim $item Dim $stArray[11] $stArray[0] = "192.168.8.1" ; Smithville $stArray[1] = "192.168.12.1" ; Pottsdale $stArray[2] = "192.168.16.1" ; Irwin $stArray[3] = "192.168.20.1" ; Dayton $stArray[4] = "192.168.24.1" ; Center1 $stArray[5] = "192.168.32.1" ; Middleburg $stArray[6] = "192.168.36.1" ; Rockville $stArray[7] = "192.168.40.1" ; Springvalley $stArray[8] = "192.168.48.1" ; Minster $stArray[9] = "192.168.52.1" ; West Alex $stArray[10] = "192.168.1.253" ; Tuna $GUI = GUICreate("Site Connections", 400 , 325) $view = GUICtrlCreateListView ("Site |Status|Latency", 10, 30, 370, 279) GUISetState (@SW_SHOW) $c = 0 func getPings() $time = ping("10.56.8.1",10) if $time Then $item = GuiCtrlCreateListViewItem("Smithville | UP! | "& $time &"ms",$view) GUICtrlSetImage(-1, "shell32.dll",19) Sleep(500) Else $item = GUICtrlCreateListViewItem("Smithville | DOWN | n/a",$view) GUICtrlSetImage(-1, "shell32.dll",240) Sleep(500) EndIf EndFunc call("getPings") $begin = TimerInit() while 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case Else $diff = TimerDiff($begin) if $diff > 10000 Then $begin = TimerInit() GUICtrlDelete($item) call("getPings") EndIf EndSwitch WEnd I have to thank zackrspv for helping me with this code; unfortunately, it isn't my own. Thanks for your help, -mjg Share this post Link to post Share on other sites
weaponx 10 Report post Posted April 21, 2008 expandcollapse popup#include <GuiConstantsEx.au3> #include <GuiListView.au3> #include <GuiImageList.au3> #include <Constants.au3> #include <GUIConstants.au3> #include <Array.au3> Dim $line Dim $item Dim $stArray[11][2] $stArray[0][0] = "192.168.8.1" ; Smithville $stArray[0][1] = "Smithville" $stArray[1][0] = "192.168.12.1" ; Pottsdale $stArray[1][1] = "Pottsdale" $stArray[2][0] = "192.168.16.1" ; Irwin $stArray[2][1] = "Irwin" $stArray[3][0] = "192.168.20.1" ; Dayton $stArray[3][1] = "Dayton" $stArray[4][0] = "192.168.24.1" ; Center1 $stArray[4][1] = "Center1" $stArray[5][0] = "192.168.32.1" ; Middleburg $stArray[5][1] = "Middleburg" $stArray[6][0] = "192.168.36.1" ; Rockville $stArray[6][1] = "Rockville" $stArray[7][0] = "192.168.40.1" ; Springvalley $stArray[7][1] = "Springvalley" $stArray[8][0] = "192.168.48.1" ; Minster $stArray[8][1] = "Minster" $stArray[9][0] = "192.168.52.1" ; West Alex $stArray[9][1] = "West Alex" $stArray[10][0] = "192.168.1.253" ; Tuna $stArray[10][1] = "Tuna" $GUI = GUICreate("Site Connections", 400 , 325) $view = GUICtrlCreateListView ("Site |Status|Latency", 10, 30, 370, 279) GUISetState (@SW_SHOW) $c = 0 func getPings() For $X = 0 to Ubound($stArray) -1 $time = ping($stArray[$X][0],10) if $time Then $item = GuiCtrlCreateListViewItem($stArray[$X][1] & " | UP! | "& $time &"ms",$view) GUICtrlSetImage(-1, "shell32.dll",19) Sleep(500) Else $item = GUICtrlCreateListViewItem($stArray[$X][1] & " | DOWN | n/a",$view) GUICtrlSetImage(-1, "shell32.dll",240) Sleep(500) EndIf Next EndFunc getPings() $begin = TimerInit() while 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case Else $diff = TimerDiff($begin) if $diff > 10000 Then $begin = TimerInit() GUICtrlDelete($item) getPings() EndIf EndSwitch WEnd Share this post Link to post Share on other sites
zackrspv 5 Report post Posted April 21, 2008 I'm fairly unfamiliar with Arrays and how they work, so if someone could help me out that would be great. Basically what I'm trying accomplish is to create an array of all of our sites so I can ping them and display the results verifying that the site is up and connected. Here is what I have thus far: expandcollapse popup#include <GuiConstantsEx.au3> #include <GuiListView.au3> #include <GuiImageList.au3> #include <Constants.au3> #include <GUIConstants.au3> #include <Array.au3> Dim $line Dim $item Dim $stArray[11] $stArray[0] = "192.168.8.1" ; Smithville $stArray[1] = "192.168.12.1" ; Pottsdale $stArray[2] = "192.168.16.1" ; Irwin $stArray[3] = "192.168.20.1" ; Dayton $stArray[4] = "192.168.24.1" ; Center1 $stArray[5] = "192.168.32.1" ; Middleburg $stArray[6] = "192.168.36.1" ; Rockville $stArray[7] = "192.168.40.1" ; Springvalley $stArray[8] = "192.168.48.1" ; Minster $stArray[9] = "192.168.52.1" ; West Alex $stArray[10] = "192.168.1.253" ; Tuna $GUI = GUICreate("Site Connections", 400 , 325) $view = GUICtrlCreateListView ("Site |Status|Latency", 10, 30, 370, 279) GUISetState (@SW_SHOW) $c = 0 func getPings() $time = ping("10.56.8.1",10) if $time Then $item = GuiCtrlCreateListViewItem("Smithville | UP! | "& $time &"ms",$view) GUICtrlSetImage(-1, "shell32.dll",19) Sleep(500) Else $item = GUICtrlCreateListViewItem("Smithville | DOWN | n/a",$view) GUICtrlSetImage(-1, "shell32.dll",240) Sleep(500) EndIf EndFunc call("getPings") $begin = TimerInit() while 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case Else $diff = TimerDiff($begin) if $diff > 10000 Then $begin = TimerInit() GUICtrlDelete($item) call("getPings") EndIf EndSwitch WEnd I have to thank zackrspv for helping me with this code; unfortunately, it isn't my own. Thanks for your help, -mjg See: Replied to IM NOTE: I'm not detracting from the above solution, as it works just fine. I just like to use text files for ping tests, as it's faster to configure -_-------__--_-_-____---_-_--_-__-__-_ ^^€ñ†®øÞÿ ë×阮§ wï†høµ† ƒë@®, wï†høµ† †ïmë, @ñd wï†høµ† @ †ïmïdï†ÿ ƒø® !ïƒë. €×阮 ñø†, bµ† ïñ§†ë@d wï†hïñ, ñ@ÿ, †h®øµghøµ† †hë 맧ëñ§ë øƒ !ïƒë. Share this post Link to post Share on other sites
