[VB8] Getting Your IP & Information [TUT]

[Fragma]

Not really a tutorial.. But I thought it would help some people out. Firstly you will need the following GetBetween function which I think was coded by Deathader but I'm not entirely sure.

GetBetween (Click to View)

Code:

Public Function GetBetween(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, _
                                Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String

        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function

Code:

Imports System.Net
Imports System.Text

Code:

Try
            Dim myWebClient As New WebClient()
            Dim myDatabuffer As Byte() = myWebClient.DownloadData("http://whatismyipaddress.com/")
            Dim download As String = Encoding.ASCII.GetString(myDatabuffer)

Basically all this does is downloads the source of www.whatismyipaddress.com.

Code:

Dim IP As String = GetBetween(download, "<span class=""ip blue"">", "<", 0)
            Dim ISP As String = GetBetween(download, "ISP:</th><td>", "</td>", 0)
            Dim ORG As String = GetBetween(download, "Organization:</th><td>", "</td>", 0)
            Dim PRO As String = GetBetween(download, "Proxy:</th><td>", "</td>", 0)
            Dim CIT As String = GetBetween(download, "City:</th><td>", "</td>", 0)
            Dim REG As String = GetBetween(download, "Region:</th><td>", "</td>", 0)
            Dim COU As String = GetBetween(download, "Country:</th><td>", "<img", 0)

This is scanning the source for the string of code which contains the information you need.

Code:

TextBox1.Text = IP
            TextBox2.Text = ISP
            TextBox3.Text = ORG
            If PRO.Contains("None Detected") Then
                TextBox4.Text = "None"
            Else
                TextBox4.Text = PRO
            End If
            TextBox5.Text = CIT
            TextBox6.Text = REG
            TextBox7.Text = COU
        Catch ex As Exception
        End Try

This is displaying all the information you have downloaded.

Hope this can help some people. I know it's not really a tutorial but I wanted to share it with you all.

[.Nielz]

Code:

Dim myDatabuffer As Byte() = myWebClient.DownloadData("http://whatismyipaddress.com/[b]"[/b])'Quote forgoten
Imports System.Net   'imports
Imports System.Text 'imports

Here're some fixes . Nice tutorial

[Fragma]

Code:

Dim myDatabuffer As Byte() = myWebClient.DownloadData("http://whatismyipaddress.com/[b]"[/b])'Quote forgoten
Imports System.Net   'imports
Imports System.Text 'imports

Here're some fixes . Nice tutorial

Thanks I kinda of wrote it in a rush. Updated it now.

[.Nielz]

Thanks I kinda of wrote it in a rush. Updated it now.

Np , just want to help other people

[wchar_t]

there is no such language as vb8.

-.-

its just vb.net

[.Nielz]

there is no such language as vb8.

-.-

its just vb.net

But it's for Visual basics 8 . Think

[Kye]

Thank you very much

[Xypher]

there is no such language as vb8.

-.-

its just vb.net

VB8 obviously refers to VB.Net.

[Positive]

Nice. Thanks very much for this. I am looking for something for my new HF Booter coming soon to Hackforums. Free for any member on there. I know everyone on there loves booting and coding. So i am here to help. Thanks for this awesome thread.

[Fragma]

Nice. Thanks very much for this. I am looking for something for my new HF Booter coming soon to Hackforums. Free for any member on there. I know everyone on there loves booting and coding. So i am here to help. Thanks for this awesome thread.

Nice to know you're wasting the code I've shared on something like a booter...