Что нового

Пинг компьютеров в сети

Forswear

Новичок
Сообщения
1
Репутация
0
Добрый день. Недавно начал пробовать разобраться в этом всем... Помогите написать простенькую форму для пинга компьютеров в сети, чтоб информация о пинге отображалась в нижнем поле после нажатия кнопки. Всю голову сломал себе.
Код:
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#include <EditConstants.au3>

Global $12 = GUICreate("12",350,350,-1,-1,-1,-1)
GUICtrlCreateInput("",90,35,150,20,-1,$WS_EX_CLIENTEDGE)
GUICtrlCreateInput("",40,140,274,173,-1,$WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Введите имя компьютера",90,20,142,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateButton("Пинг",120,80,100,30,-1,-1)
GUISetState(@SW_SHOW,$12)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
 
Верх