[VB8] Getting Your IP & Information [TUT]

[VB8] Getting Your IP & Information [TUT] - Printable Version

+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: [VB8] Getting Your IP & Information [TUT] (/showthread.php?tid=11257)

Pages: 1 2 3

[VB8] Getting Your IP & Information [TUT] - Fragma - 08-14-2010

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:
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.

RE: [VB8] Getting Your IP & Information [TUT] - .Nielz - 08-14-2010

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 Smile

RE: [VB8] Getting Your IP & Information [TUT] - Fragma - 08-14-2010

(08-14-2010, 05:24 AM).Nielz Wrote:
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.

RE: [VB8] Getting Your IP & Information [TUT] - .Nielz - 08-14-2010

(08-14-2010, 05:37 AM)Fragma Wrote: Thanks I kinda of wrote it in a rush. Updated it now.

Np , just want to help other people Smile

RE: [VB8] Getting Your IP & Information [TUT] - wchar_t - 08-14-2010

there is no such language as vb8.

-.-

its just vb.net

RE: [VB8] Getting Your IP & Information [TUT] - .Nielz - 08-14-2010

(08-14-2010, 06:18 AM)BlaiR Wrote: there is no such language as vb8.

-.-

its just vb.net

But it's for Visual basics 8 . Think

RE: [VB8] Getting Your IP & Information [TUT] - Kye - 08-14-2010

Thank you very much Big Grin

RE: [VB8] Getting Your IP & Information [TUT] - Xypher - 08-28-2010

(08-14-2010, 06:18 AM)Scammer Wrote: there is no such language as vb8.

-.-

its just vb.net

VB8 obviously refers to VB.Net.

RE: [VB8] Getting Your IP & Information [TUT] - Positive - 10-21-2010

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. Big Grin

RE: [VB8] Getting Your IP & Information [TUT] - Fragma - 10-21-2010

(10-21-2010, 03:01 PM)Positive Wrote: 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...