[McLotos]

В общем чтобы каждый раз так не считать (а то взрыв мозга можно заработать), написал скриптик

читать дальше »

Код:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>

$BGUI=GUICreate("Шифровка IP",200,55)
   GUISetState(@SW_SHOW)
$octet1 = GUICtrlCreateInput("",10,5,30,20,$ES_NUMBER)
GUICtrlSetLimit(-1, 3)
$octet2 = GUICtrlCreateInput("",40,5,30,20,$ES_NUMBER )
GUICtrlSetLimit(-1, 3)
$octet3 = GUICtrlCreateInput("",70,5,30,20,$ES_NUMBER )
GUICtrlSetLimit(-1, 3)
$octet4 = GUICtrlCreateInput("",100,5,30,20,$ES_NUMBER )
GUICtrlSetLimit(-1, 3)
$button1 = GUICtrlCreateButton("Расчитать",130,5,60,20)
$code=GUICtrlCreateInput("",10,30,120,20,$ES_NUMBER)
$button2 = GUICtrlCreateButton("Расчитать",130,30,60,20)
GUICtrlSetLimit(-1, 10)
While 1
	 Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
			Case $button1
				MsgBox(0,'Результат',GUICtrlRead($octet1)*256*256*256+GUICtrlRead($octet2)*256*256+GUICtrlRead($octet3)*256+GUICtrlRead($octet4))
			Case $button2
				$octet1=StringLeft(GUICtrlRead($code)/256/256/256, StringInStr(GUICtrlRead($code)/256/256/256, ".") - 1)
				$tmp=GUICtrlRead($code)-$octet1*256*256*256
				$octet2=StringLeft($tmp/256/256, StringInStr($tmp/256/256, ".") - 1)
				$tmp2=($tmp-$octet2*256*256)
				$octet3=StringLeft($tmp2/256, StringInStr($tmp2/256, ".") - 1)
				$octet4=$tmp2-$octet3*256
				MsgBox(0,'Результат', $octet1 & '.' & $octet2 & '.' & $octet3 & '.' & $octet4)

        EndSwitch
	WEnd
	 GUIDelete($BGUI)