Autoit.ES

Código: Seleccionar todo

#Region INCLUDES
#include <GUIConstants.au3>

#include <array.au3>
#include <AnimaVentana.au3>
#include <LOG_Programa.au3>
#include <ie.au3>
;~ #include "_DBlistView.au3"
#EndRegion INCLUDES
DIM $Form1P


;~ Func btnPING()
$imp_RouterIP = GUICtrlCreateInput("-",1,1,24,24)
GUICtrlSetData ($imp_RouterIP,"10.125.15.1")

	ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $imp_RouterIP = ' & GUICtrlRead($imp_RouterIP) & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
	If StringStripWS(GUICtrlRead($imp_RouterIP), 3) <> "" Then
		frm_Ping(GUICtrlRead($imp_RouterIP))
	Else
		#Region --- CodeWizard generated code Start ---
		;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Warning
		MsgBox(48, "Consulta Conectividad", "No hay ninguna IP para comprobar.")
		#EndRegion --- CodeWizard generated code Start ---
	EndIf
Exit

Func frm_Ping($IP)
	Dim $n_TiempoRespuesta, $ErrorIP, $n_Intentos, $Suma_Tiempos
	Opt("GUIOnEventMode", 0)
	#Region ### START Koda GUI section ### Form=C:\Documents and Settings\n854750\Mis documentos\AutoIT\jxo\Datos CS\Form_Ping.kxf
	$Form1P = GUICreate("Verificación Acceso", 287, 312, 282, 139)
	$Label1P = GUICtrlCreateLabel("Realizando PING a:" & StringStripWS($IP, 3), 16, 24, 122, 20)
	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
	$Label2P = GUICtrlCreateLabel("Resultado:", 104, 72, 65, 17)
	GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
	$lbl_ResultadoP = GUICtrlCreateLabel("-", 16, 96, 249, 20, $SS_CENTER)
	
	$Label3P = GUICtrlCreateLabel("Intentos:", 16, 136, 54, 17)
	GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
	$inp_IntentosP = GUICtrlCreateInput("0", 88, 132, 100, 21,BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL, $ES_READONLY))
	
	$Label4P = GUICtrlCreateLabel("Tiempos Respuesta:", 16, 168, 119, 17)
	GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
	
	$Label5P = GUICtrlCreateLabel("Ultimo Intento:", 48, 200, 72, 17)
	$Inp_UltimoP = GUICtrlCreateInput("0", 168, 196, 50, 21,BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL, $ES_READONLY))
	$Label6P = GUICtrlCreateLabel("Respuesta Media:", 48, 224, 90, 17)
	$Inp_MediaP = GUICtrlCreateInput("0", 168, 220, 50, 21,BitOR($ES_CENTER, $ES_UPPERCASE, $ES_AUTOHSCROLL, $ES_READONLY))
	GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

	$Btn_OKP = GUICtrlCreateButton("OK", 96, 272, 81, 25, 0,BitOR($BS_DEFPUSHBUTTON,$BS_NOTIFY))
;~ 	GUICtrlSetOnEvent($Btn_OKP, "btn_OKP")
	
	GUISetState(@SW_ENABLE,$Form1P)
	GUISetState(@SW_SHOW,$Form1P)

	

	#EndRegion ### END Koda GUI section ###
	$Bucle = 1
	While $Bucle
		Sleep(1000)
		$msgP=""
		$msgP = GUIGetMsg()
		ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $msgP = ' & $msgP & ' Boton: '& $Btn_OKP & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
		
		Select
			Case $msgP = $GUI_EVENT_CLOSE
				$Bucle = 0
			Case $msgP = $Btn_OKP
				$Bucle = 0
				ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Bucle = ' & $Bucle & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
			Case Else
				$n_Intentos = $n_Intentos + 1
				$n_TiempoRespuesta = Ping($IP,500)
				$ErrorIP = @error
				If $Bucle = 0 Then ExitLoop
				If $n_TiempoRespuesta = 0 Then ; Error de IP/Ping
;~ 	When the function fails (returns 0) @error contains extended information:
;~ 		1 = Host is offline
;~ 		2 = Host is unreachable
;~ 		3 = Bad destination
;~ 		4 = Other errors
					Switch $ErrorIP
						Case 1
							GUICtrlSetData($lbl_ResultadoP, "ERROR: El destino esta Fuera de Línea")
						Case 2
							GUICtrlSetData($lbl_ResultadoP, "ERROR: El tiempo de vida caduco en transito")
						Case 3
							GUICtrlSetData($lbl_ResultadoP, "ERROR: No existe el destino")
						Case 4
							GUICtrlSetData($lbl_ResultadoP, "ERROR: Error Desconocido")
						Case Else
							GUICtrlSetData($lbl_ResultadoP, "ERROR: Error Desconocido " & $ErrorIP)
					EndSwitch
				Else ; EL Ping ha tenido exito
					GUICtrlSetData($lbl_ResultadoP, "PING Realizado")
					$n_TiempoRespuesta = int($n_TiempoRespuesta*1000)/1000
				EndIf
				$Suma_Tiempos = $Suma_Tiempos + $n_TiempoRespuesta
				GUICtrlSetData($inp_IntentosP, $n_Intentos) ; Intentos Suma
				GUICtrlSetData($Inp_UltimoP, $n_TiempoRespuesta) ; Tiempo Ultimo aviso
				GUICtrlSetData($Inp_MediaP, int(($Suma_Tiempos / $n_Intentos)*1000)/1000)
		EndSelect
	WEnd


	GUISetState(@SW_DISABLE,$Form1P)
	GUISetState(@SW_HIDE,$Form1P)	
EndFunc   ;==>frm_Ping

Código: Seleccionar todo

 
   While $Bucle
      Sleep(1000)
      $msgP=""
      $msgP = GUIGetMsg()