Box to enter IP

[Rahul Rohela]

HI,

I want to create input box to enter IP.. Just same as any other IP input box that we use with windows.

This box will not accespt number grate than 255 & to work same as we found on any window aplication that is using IP address.. Like IP scanners.

Please help....

Thx

[kpu]

I'm sure there is a better way to do this and I'm no programmer. So let me just get that out there first.

This should be what your looking for though.

expandcollapse popup

#include <GuiConstants.au3>
If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
GuiCreate("Form2", 310, 76, 430,346 ,BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Edit1 = GuiCtrlCreateInput("256", 8, 8, 41, 21)

GUICtrlSetLimit($Edit1,3)
$Edit2 = GuiCtrlCreateInput("20", 56, 8, 41, 21)

GUICtrlSetLimit($Edit2,3)
$Edit3 = GuiCtrlCreateInput("30", 104, 8, 41, 21)

GUICtrlSetLimit($Edit3,3)
$Edit4 = GuiCtrlCreateInput("100", 152, 8, 41, 21)

GUICtrlSetLimit($Edit4,3)
$Button1 = GuiCtrlCreateButton("Button1", 216, 8, 65, 25)



GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $Button1
        $ip1 = GUICtrlRead($Edit1)
        $ip2 = GUICtrlRead($Edit2)
        $ip3 = GUICtrlRead($edit3)
        $ip4 = GUICtrlRead($Edit4)
        $string = $ip1 & "." & $ip2 & "." & $ip3 & "." &  $ip4  
        _IPerrorCtrl()
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
    ;;;
    EndSelect
WEnd
Exit

Func _IPerrorCtrl()
    If $ip1 > 255 Then 
        MsgBox(16,"Warning!","Number be must be lower then 255")
        GUICtrlSetData($Edit1,"0")
    ElseIf $ip2 > 255 Then
        MsgBox(16,"Warning!","Number be must be lower then 255")
        GUICtrlSetData($Edit1,"0")
    ElseIf $ip3 > 255 Then
        MsgBox(16,"Warning!","Number be must be lower then 255")
        GUICtrlSetData($Edit1,"0")
    ElseIf $ip4 > 255 Then   
        MsgBox(16,"Warning!","Number be must be lower then 255")
GUICtrlSetData($Edit1,"0")      
    Else
        Msgbox(32,"",$string)
    ;RunCommand Here
    EndIf
    
EndFunc

[CyberSlug]

Might help, but I don't know how easy it is to integrate into projects:

http://www.autoitscript.com/forum/index.ph...7855&hl=address

In fact, it seems the Func Dot() doesn't work right in the current version of AutoIt....

Edited November 15, 2005 by CyberSlug

[w0uter]

i remember something about larry cyber embedding a sys control.

Edited November 15, 2005 by w0uter

[CyberSlug]

Bookmark Lazycat's site. He has a lot of useful DLLs and UDFs.

His SysIPAddress implementation would make a good addition to AutoIt's beta UDF collection.

[Rahul Rohela]

HI,

Thx for reply..

CyberSlug Posted Yesterday, 08:55 PM

Might help, but I don't know how easy it is to integrate into projects:

http://www.autoitscript.com/forum/index.ph...7855&hl=address

In fact, it seems the Func Dot() doesn't work right in the current version of AutoIt....

This is 100% close to my Query...

But problem is its not working with TAB or when we press "." Any suggestions to resolve this???

Thx

Edited November 16, 2005 by Rahul Rohela

[Rahul Rohela]

Larry Posted Yesterday, 09:09 PM

http://www.autoitscript.com/forum/index.ph...indpost&p=82741 ://http://www.autoitscript.com/forum/i...ndpost&p=82741 ://http://www.autoitscript.com/forum/i...ndpost&p=82741 ://http://www.autoitscript.com/forum/i...ndpost&p=82741 ://http://www.autoitscript.com/forum/i...ndpost&p=82741 ://http://www.autoitscript.com/forum/i...ndpost&p=82741 ://http://www.autoitscript.com/forum/i...ndpost&p=82741

Larry.. Its not working for me.. No field is there to enter IP & on using its functions is showing IP 0.0.0.0

Please help..