Hi everybody
This my script
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Calculo IP", 499, 404, 192, 124)
$ButtonOK = GUICtrlCreateButton("Continuar", 96, 344, 75, 33)
GUICtrlSetState(-1, $GUI_FOCUS)
$ButtonSALIR = GUICtrlCreateButton("Salir", 320, 344, 75, 33)
$LabelIPR = GUICtrlCreateLabel("IP ROUTER:", 72, 222, 96, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
$IPAddressR = _GUICtrlIpAddress_Create($Form1, 280, 220, 130, 21)
_GUICtrlIpAddress_Set($IPAddressR, "0.0.0.0")
GUISetState(@SW_SHOW)
NEWIP ()
Func NEWIP ()
Local $aIPROUTER[4] , $aIPNEW[4] , $IPNEW , $IPROUTER
Do
$nMsg = GUIGetMsg()
If $nMsg = $ButtonOK Then
$IPROUTER = _GUICtrlIpAddress_Get($IPAddressR)
$aIPROUTER = _GUICtrlIpAddress_GetArray($IPROUTER)
$aIPNEW[0] = $aIPROUTER[0]
$aIPNEW[1] = $aIPROUTER[1]
$aIPNEW[2] = $aIPROUTER[2]
$aIPNEW[3] = $aIPROUTER[3] + 26
_GUICtrlIpAddress_Set($IPNEW, $aIPNEW[0] & "." & $aIPNEW[1] & "." & $aIPNEW[2] & "." & $aIPNEW[3])
MsgBox($MB_OK, "Calculo IP ", "Old IP is " & $IPROUTER & " New IP is " & $IPNEW )
EndIf
Until $nMsg = $ButtonSALIR
EndFunc