(HELP) show IP, Host name, City, Region

[razor999 0]

hey all,

please help me finish this script.

I want to show all IP, region, city and etc

display did not work

someone please help me

#include <String.AU3>
#include <array.au3>


Global $Bin = InetRead ("http://www.find-ip-address.org/ip-location-lookup-module.php")
Global $Page = BinaryToString ($Bin)

$YourIP = _StringBetween ($Page, 'Your IP Number: <b>' , '</b></td></tr>')
$YourHostname = _StringBetween ($Page, 'Your Host name: <b>' , '</b></td></tr>')
$YourCity = _StringBetween ($Page, 'Your City: <b>' , '</b></td></tr>')
$YourRegion = _StringBetween ($Page, 'Your Region: <b>' , '</b></td></tr>')
$YourCapital = _StringBetween ($Page, 'Your Capital: <b>' , '</b></td></tr>')
$YourCountry = _StringBetween ($Page, 'Your Country Name: <b>' , '</b></td></tr>')
$IPOrganization = _StringBetween ($Page, 'IP Organization: <b>' , '</b></td></tr>')

msgbox (0, '' , $YourIP &@CRLF& $YourHostname &@CRLF& $YourCity &@CRLF& $YourRegion &@CRLF& $YourCapital &@CRLF& $YourCountry &@CRLF& $IPOrganization   )

[bwochinski 1]

The _StringBetween() function returns an array, in the event that it finds more than a single match. In your case the basic issue is that you simply have to specify the first element of the array when outputting to the msgbox().

msgbox(0, '' , $YourIP[0] &@CRLF& $YourHostname[0] &@CRLF& $YourCity[0] &@CRLF& $YourRegion[0] &@CRLF& $YourCapital[0] &@CRLF& $YourCountry[0] &@CRLF& $IPOrganization[0]   )

[razor999 0]

The _StringBetween() function returns an array, in the event that it finds more than a single match. In your case the basic issue is that you simply have to specify the first element of the array when outputting to the msgbox().

msgbox(0, '' , $YourIP[0] &@CRLF& $YourHostname[0] &@CRLF& $YourCity[0] &@CRLF& $YourRegion[0] &@CRLF& $YourCapital[0] &@CRLF& $YourCountry[0] &@CRLF& $IPOrganization[0]   )

thank you for your help

good luck today

[UEZ 972]

Try this:

Global $Bin = InetRead ("http://www.find-ip-address.org/ip-location-lookup-module.php")
Global $Page = BinaryToString ($Bin)

$YourIP = Grep($Page, "Your IP Number")
$YourHostname = Grep($Page, "Your Host name")
$YourCity =  Grep($Page, "Your City")
$YourRegion =  Grep($Page, "Your Region")
$YourCapital =  Grep($Page, "Your Capital")
$YourCountry =  Grep($Page, "Your Country Name")
$IPOrganization =  Grep($Page, "IP Organization")

msgbox (0, "IP location lookup" ,   "Your IP Number: " & @TAB & $YourIP & @LF & _
                                                            "Your Host name: " & @TAB & $YourHostname & @LF & _
                                                            "Your City: " & @TAB & @TAB & $YourCity & @LF & _
                                                            "Your Region: " & @TAB & $YourRegion & @LF & _
                                                            "Your Capital:  " & @TAB & $YourCapital & @LF & _
                                                            "Your Country Name: " & $YourCountry & @LF & _
                                                            "IP Organization: " & @TAB & $IPOrganization)
Func Grep($sString, $sSearch)
    Local $aGrep = StringRegExp($Page, "(?i)(?U)" & $sSearch & ": <b>(.*)</b>", 3)
    If @error Then Return SetError(@error, 0, 0)
    Return $aGrep[0]
EndFunc

Br,

UEZ

Edited April 17, 2011 by UEZ

[guinness 1,432]

Another example to add to my take on

Edited April 17, 2011 by guinness

[razor999 0]

Try this:

Global $Bin = InetRead ("http://www.find-ip-address.org/ip-location-lookup-module.php")
Global $Page = BinaryToString ($Bin)

$YourIP = Grep($Page, "Your IP Number")
$YourHostname = Grep($Page, "Your Host name")
$YourCity =  Grep($Page, "Your City")
$YourRegion =  Grep($Page, "Your Region")
$YourCapital =  Grep($Page, "Your Capital")
$YourCountry =  Grep($Page, "Your Country Name")
$IPOrganization =  Grep($Page, "IP Organization")

msgbox (0, "IP location lookup" ,   "Your IP Number: " & @TAB & $YourIP & @LF & _
                                                            "Your Host name: " & @TAB & $YourHostname & @LF & _
                                                            "Your City: " & @TAB & @TAB & $YourCity & @LF & _
                                                            "Your Region: " & @TAB & $YourRegion & @LF & _
                                                            "Your Capital:  " & @TAB & $YourCapital & @LF & _
                                                            "Your Country Name: " & $YourCountry & @LF & _
                                                            "IP Organization: " & @TAB & $IPOrganization)
Func Grep($sString, $sSearch)
    Local $aGrep = StringRegExp($Page, "(?i)(?U)" & $sSearch & ": <b>(.*)</b>", 3)
    If @error Then Return SetError(@error, 0, 0)
    Return $aGrep[0]
EndFunc

Br,

UEZ

thanks, nice script