Detre
Новичок
- Сообщения
- 70
- Репутация
- 0
Всем привет) Проблема такова, мне очень нужно сделать программку с полем введения хоста и с возможностью выбрать операции, которые необходимо произвести. Образец скорее как шаблонный, просто не совсем понимаю как это можно объединить. Пробовал найти нечто идентичное, но к сожалению остался ни с чем. Очень прошу вашей помощи)Всем хорошего времяпровождения)
Код:
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#RequireAdmin
#NoTrayIcon
;Все что написано, посде ";" явлется комментарием и ни как не влияет на работу скрипта.
Global $rMyName, $rHostName, $Chack1 = False ;объявляем переменные, которые будут использоваться в цикле
$Main = GUICreate('Script', 362, 128, 318, 213) ;рисуем главное окно
GUISetBkColor(0x000000)
$iHostName = GUICtrlCreateInput("", 80, 50, 242, 21) ; создаем поле ввода для имени пк
$iConnect = GUICtrlCreateButton("GO", 28, 80, 267, 33, $BS_DEFPUSHBUTTON) ;создаем кнопку подключения
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma") ;задаем стиль элементу выше
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x545454)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma") ;задаем стиль элементу выше
$Checkbox1 = GUICtrlCreateCheckbox("", 8, 25, 12, 12)
$Checkbox2 = GUICtrlCreateCheckbox("", 8, 55, 12, 12)
GUICtrlCreateLabel ("SetBat", 28, 25, 32, 16)
GUICtrlSetColor (-1, 0xffffff)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlCreateLabel ("HOST", 295, 35, 30, 11)
GUICtrlSetColor (-1, 0xffffff)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlCreateLabel ("PING", 28, 55, 30, 14)
GUICtrlSetColor (-1, 0xffffff)
GUICtrlSetBkColor (-1, 0x000000)
GUISetState(@SW_SHOW)
While 1 ;создаем цикл, который работает постоянно и отслеживает нажатие кнопок
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE ;нажатие на "крестик"
ExitLoop ;выходит из цикла и закрывает окно
Case $iConnect ; нажиматие нашей единственной кнопки
$rHostName = GUICtrlRead($iHostName) ;считывает поле ввода HostName, в переменную
If $rHostName = "" Then ;защита от пустого поля логина
MsgBox(16+8192+262144,"Error","Поле HostName - пустое")
Else
_hide() ;отключает все элементы ввода и кнопку
RunWait(@ComSpec & ' /c C:\Windows\System32\Ping.exe ' & $rHostName & ' -t')
RunWait(@ComSpec & ' /c \\' & $rHostName & '\C$\TestBat.cmd')
_show() ;включает все элементы ввода и кнопку
EndIf
EndSwitch
WEnd
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
$Chack1 = True
Else
$Chack1 = False
EndIf
Case $Checkbox1
If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
$Chack2 = True
Else
$Chack2 = False
EndIf
Case $iConnect
If $Chack1 Then _1()
If (Not $Chack1) And (Not $Chack2)
Exit
EndIf
EndSwitch
WEnd