Ip Scout version 0.10

[themax90]

Here is the code. It gets your network ip and your public ip.

IpScout.au3

#include <GuiConstants.au3>
If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
GUICreate("Ip Scout", 220, 85, (@DesktopWidth - 220) / 2, (@DesktopHeight - 122) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$info = GUICtrlCreateLabel("Your Network Ip Is: ", 10, 11, 199, 31)
$update = GUICtrlCreateButton("Update", 10, 50, 110, 30)
$auto = GUICtrlCreateCheckbox("AutoScan", 135, 54, 70, 20)
GUISetState()
InetGet("http://www.whatismyip.org", "ip.tmp")
$ip = FileReadLine("ip.tmp")
FileDelete("ip.tmp")
GUICtrlSetData($info, "Your Network Ip Is: " & @IPAddress1 & "     Your True Ip Is: " & $ip)
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        MsgBox(0, "Goodbye!", "Thank you for using IP SCOUT!")
        Exit
    EndIf
    If $msg = 4 Then
        InetGet("http://www.whatismyip.org", "ip.tmp")
        $ip = FileReadLine("ip.tmp")
        FileDelete("ip.tmp")
        GUICtrlSetData($info, "Your Network Ip Is: " & @IPAddress1 & "     Your Public Ip Is: " & $ip)
    EndIf
    $info2 = GUICtrlRead($auto)
    If $info2 = $GUI_CHECKED Then
        InetGet("http://www.whatismyip.org", "ip.tmp")
        $ip = FileReadLine("ip.tmp")
        FileDelete("ip.tmp")
        GUICtrlSetData($info, "Your Network Ip Is: " & @IPAddress1 & "     Your Public Ip Is: " & $ip)
    EndIf
Wend
Exit

It's sucky, but I hope you like it. It's meant for noobys that dont know ANYTHING about getting there ips.

[DirtyBanditos]

Here is the code.  It gets your network ip and your public ip.

IpScout.au3

#include <GuiConstants.au3>
If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
GUICreate("Ip Scout", 220, 85, (@DesktopWidth - 220) / 2, (@DesktopHeight - 122) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$info = GUICtrlCreateLabel("Your Network Ip Is: ", 10, 11, 199, 31)
$update = GUICtrlCreateButton("Update", 10, 50, 110, 30)
$auto = GUICtrlCreateCheckbox("AutoScan", 135, 54, 70, 20)
GUISetState()
InetGet("http://www.whatismyip.org", "ip.tmp")
$ip = FileReadLine("ip.tmp")
FileDelete("ip.tmp")
GUICtrlSetData($info, "Your Network Ip Is: " & @IPAddress1 & "       Your True Ip Is: " & $ip)
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        MsgBox(0, "Goodbye!", "Thank you for using IP SCOUT!")
        Exit
    EndIf
    If $msg = 4 Then
        InetGet("http://www.whatismyip.org", "ip.tmp")
        $ip = FileReadLine("ip.tmp")
        FileDelete("ip.tmp")
        GUICtrlSetData($info, "Your Network Ip Is: " & @IPAddress1 & "       Your Public Ip Is: " & $ip)
    EndIf
    $info2 = GUICtrlRead($auto)
    If $info2 = $GUI_CHECKED Then
        InetGet("http://www.whatismyip.org", "ip.tmp")
        $ip = FileReadLine("ip.tmp")
        FileDelete("ip.tmp")
        GUICtrlSetData($info, "Your Network Ip Is: " & @IPAddress1 & "       Your Public Ip Is: " & $ip)
    EndIf
Wend
Exit

It's sucky, but I hope you like it.  It's meant for noobys that dont know ANYTHING about getting there ips.

<{POST_SNAPBACK}>

Hello Smith can you Share This Code out on my Forum?

I need many Members And Great Autoit3 Source codes Exampels !Join my forum out and share your great Autoit Codes Out !Many Newbie Members are like this codes !

My Forum Of Autoit3 Sources!Need Many New Great Members for It !

ShadowMail 2.0 Alfa & Autoit3 Resource Forum!

Edited January 16, 2005 by DirtyBanditos