#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <FileConstants.au3>
#include <GuiComboBox.au3>
Local $hGUI = GUICreate("Test ping 4", 400, 400)

GUISetState(@SW_SHOW, $hGUI)
Local $idComboBox=GUICtrlCreateCombo("www.google.com", 0, 50, 200, 150, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_NOINTEGRALHEIGHT))
set_combo()
Local $idButton = GUICtrlCreateButton("добавить сайт", 200,50, 85, 25)

Local $test = GUICtrlCreateLabel("Состояние пинга", 10,110,200,150)

Local $testping = GUICtrlCreateButton("пропинговать сайт", 200,250, 185, 50)

Local $iFileExists = FileExists(@ScriptDir & '\config.txt')
If $iFileExists = 0 Then
MsgBox($MB_SYSTEMMODAL, "", "Файл config.txt не существует.Приложение завершается!")
Exit(0)
EndIf

While 1
Switch GUIGetMsg()
Case $testping

Local $site = GUICtrlRead($idComboBox)
$ping = Ping($site)

If $ping Then 
GUICtrlSetData($test,"Состояние пинга сайта "& $site & " " & @CRLF & "  В онлайне, задержка ответа: " & $ping)
Else
GUICtrlSetData($test, "Состояние пинга сайта "& $site & " "& @CRLF & "Произошла ошибка, @error=" & @error)
EndIf

Case $idButton

$hFile = FileOpen(@ScriptDir & '\config.txt', 1)
$value = InputBox("Запрос адреса сайта", "Введите адрес сайта")
FileWrite($hFile,$value & "|")
set_combo()
Case $GUI_EVENT_CLOSE
ExitLoop

EndSwitch
WEnd

func set_combo()

Local $hFileOpen = FileOpen("config.txt", $FO_READ)
Local $sFileRead = FileRead($hFileOpen)
_GUICtrlComboBox_ResetContent($idComboBox)
GUICtrlSetData($idComboBox, $sFileRead)
_GUICtrlComboBox_SetCurSel($idComboBox, 0)

EndFunc