[Сеть, интернет] Команда PING и вывод результата

[AtoS]

Коллеги, доброго времени суток! делаю интерфейс проверки в сети ли кассы и столкнулся с такой проблемой: при нажатии на кнопку "подтвердить", выводиься результат для одной кассы, а при повторном нажатии для всех касс. Помогите пожалуйста исправить ошибку и сделать так чтобы при одинарном нажатии выводился результат сразу для всех касс.

#Include <StaticConstants.au3>
#Include <WindowsConstants.au3>
#include <ButtonConstants.au3>

Opt("GUICoordMode",1)

$msg1 = GUICreate("Интерфейс инженера технической поддержки пользователей",300,200, -1, -1)
$cassa1 = GUICtrlCreateLabel("Касса 1", 20,15,50,20)
$cassa2 = 	GUICtrlCreateLabel("Касса 2", 20,35,180,20)
$cassa3 = GUICtrlCreateLabel("Касса 3", 20,55,180,20)
$cassa4 = GUICtrlCreateLabel("Касса 4", 20,75,180,20)
$button_3 = GUICtrlCreateButton("Подтвердить",20,145,90,-1)

GUISetState ()
While 1
    $msg = GUIGetMsg()
		If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	Select
		Case $msg = $button_3
		 $var1 = Ping("Cassa631",250)
				if @error Then
					GUICtrlCreatePic("D:\test\AutoITTest\For KKM\error.jpg", 75,15,0,0)
				Else
					GUICtrlCreatePic("D:\test\AutoITTest\For KKM\ok.jpg", 75,15,0,0)
				EndIf
		$var2 = Ping("Cassa632",250)
				if @error Then
					GUICtrlCreatePic("D:\test\AutoITTest\For KKM\error.jpg", 75,35,0,0)
				Else
					GUICtrlCreatePic("D:\test\AutoITTest\For KKM\ok.jpg", 75,35,0,0)
				EndIf
		$var3 = Ping("Cassa633",250)
				if @error Then
					GUICtrlCreatePic("D:\test\AutoITTest\For KKM\error.jpg", 75,55,0,0)
				Else
					GUICtrlCreatePic("D:\test\AutoITTest\For KKM\ok.jpg", 75,55,0,0)
				EndIf
		$var4 = Ping("Cassa634",250)
				if @error Then
					GUICtrlCreatePic("D:\test\AutoITTest\For KKM\error.jpg", 75,75,0,0)
				Else
					GUICtrlCreatePic("D:\test\AutoITTest\For KKM\ok.jpg", 75,75,0,0)
				EndIf
	EndSelect
Wend

Добавлено:

Сообщение автоматически объединено: 27 Фев 2010

Проблема решена следующим способом:

#Include <GUIConstants.au3>


Opt("GUICoordMode",1)

$msg1 = GUICreate("КассЕР",500,200, -1, -1)
$cassa1 = GUICtrlCreateLabel("Cassa 1", 20,15,50,20)
$cassa2 = GUICtrlCreateLabel("Cassa 2", 20,35,180,20)
$cassa3 = GUICtrlCreateLabel("Cassa 3", 20,55,180,20)
$cassa4 = GUICtrlCreateLabel("Cassa 4", 20,75,180,20)
$button_3 = GUICtrlCreateButton("Проверить статус",20,145,100,-1)

GUISetState ()
While 1
    $msg = GUIGetMsg()
		If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	Select
	Case $msg = $button_3
	
		 $var1 = Ping("Cassa631",250)
				if @error Then
					$status1 = GUICtrlCreateLabel("Касса не в сети", 75,15,82,15)
					GUICtrlSetBkColor(-1,0xFF2021)
				Else
					$status1 = GUICtrlCreateLabel("Касса в сети", 75,15,70,15)
					GUICtrlSetBkColor(-1,0x008200)
				EndIf
		$var2 = Ping("Cassa632",250)
				if @error Then
					$status1 = GUICtrlCreateLabel("Касса не в сети", 75,35,82,15)
					GUICtrlSetBkColor(-1,0xFF2021)
				Else
					$status1 = GUICtrlCreateLabel("Касса в сети", 75,35,70,15)
					GUICtrlSetBkColor(-1,0x008200)
				EndIf
		$var3 = Ping("Cassa633",250)
				if @error Then
					$status1 = GUICtrlCreateLabel("Касса не в сети", 75,55,82,15)
					GUICtrlSetBkColor(-1,0xFF2021)
				Else
					$status1 = GUICtrlCreateLabel("Касса в сети", 75,55,70,15)
					GUICtrlSetBkColor(-1,0x008200)
				EndIf
		$var4 = Ping("Cassa634",250)
				if @error Then
					$status1 = GUICtrlCreateLabel("Касса не в сети", 75,75,82,15)
					GUICtrlSetBkColor(-1,0xFF2021)
				Else
					$status1 = GUICtrlCreateLabel("Касса в сети", 75,75,75,15)
					GUICtrlSetBkColor(-1,0x008200)
				EndIf
	;Case $msg = $button_1
	
	EndSelect
Wend