Пинговашка ver1

Разработана утилита автоматического запуска командной строки с пингованием выбранного объекта с ключом в параметре ping -t.

Объектов много, и руками набивать постоянно лень, а так, один клик мышкой и окно с пропинговкой готово.


автоматом окно урезается до минимума, и в заголовке окна прописывается имя объекта которое пингуется (штатными средствами командной строки такого не зделаеш.....)

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Ping-Pong.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <FontConstants.au3>
#include <ColorConstants.au3>
#include "..\log_print.au3"
#include "_StartPingCMD.au3"
#include "_GetHwndFromPID.au3"
;#include "_load_ip_list.au3"
;--------------------------------------------------------------------------------------
	$sy=30;
	$step_y=0;
	$step_x =10;
;--------------------------------------------------------------------------------------
    Local $hGUI = GUICreate("Ping - модуль запуска пингования.", 370, 660)
	GUISetIcon(@ScriptDir & "\Ping-Pong.ico")
    GUISetState(@SW_SHOW, $hGUI)
;------------------------------------------------------------------------------------
	$xlogo = 12;
	$ylogo = 570;
	$Pic1 = GUICtrlCreatePic(@ScriptDir & "\RTRS_logo.jpg", $xlogo, $ylogo, 120, 90)
	$Label1 = GUICtrlCreateLabel("цех Комсомльск-на-Амуре" , $xlogo + 120, $ylogo+50, 326, 44)
	GUICtrlSetFont(-1, 16, 800, 0, "Arial Narrow")
	;GUISetBkColor(0xaaaaaa)
	GUICtrlSetColor(-1, 0x0000FF)
;----------------------------------------------------------------------------------------
	$file_name = @ScriptDir & "\..\object_ip_list.txt"
	$count_ip = Number(_FileCountLines($file_name));
	logprint( $count_ip)
	Dim $MobList[$count_ip][3]
;----------------------------------------------------------------------------------------
	Local $hFileOpen = FileOpen($file_name, $FO_READ)
	For $i = 0 To $count_ip - 1
		$line = FileReadLine($hFileOpen)
		$cLine = StringSplit($line, ',')
		$MobList[$i][0] =  $cline[1]
		$MobList[$i][1] =  $cline[2]
		$MobList[$i][2] =  GUICtrlCreateButton($cline[2], $step_x, 3 + $step_y, 170, 27)
		GUICtrlSetFont($MobList[$i][2], 10, $FW_BOLD )
		GUICtrlSetBkColor(-1, 0xaaaaff)
		$step_y += $sy;
		if $i=18 then
			$step_x+=180;
			$step_y = 0;
		EndIf
	Next
	FileClose($file_name);
	;_ArrayDisplay($MobList, "$avArray as a list classes in window")
;-------------------------------------------------------------------------------------
	$exit=false;

    While $exit=false;
        $idMsg = GUIGetMsg()
		for $i = 0 to $count_ip-1
				if $idMsg = $MobList[$i][2] Then
					 _StartPingCMD($MobList[$i][0], $MobList[$i][1]);
				EndIf
				if $idMsg =  $GUI_EVENT_CLOSE Then $exit=true;
		Next
		if $exit = true then ExitLoop
    WEnd
Exit
© 2021 MidaDev.

Please publish modules in offcanvas position.