Jump to content
Sign in to follow this  
themax90

Ip Scout version 0.10

Recommended Posts

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.

Share this post


Link to post
Share on other sites

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 :idiot: 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 ! :D

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

ShadowMail 2.0 Alfa & Autoit3 Resource Forum!

Edited by DirtyBanditos

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...