[Source + Tutorial]Website IP (VB.net)

[Coolis®]

No blabla just lets start :P

 

1.Make new project, Select Windows form application write name and press OK

 

2. Add 2 Labels, 2 Textboxs and 1 Button.

 

3. Rename 1st Label to Website, Rename second label to IP address ||||||| Rename button to Get

 

4. Double On your project to get source window and put this code inside:

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If Textbox1.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(Textbox1.Text.Replace("http://", String.Empty))
                TextBox2.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox2.Text)
                TextBox2.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub
End Class

 

OK now if you want to edit your project just go to properties window and edit whatever you want...

 

DOWNLOAD APP HERE:

http://www.maxcheaters.com/forum/index.php?topic=130764.0

[Lucky Dice]

Credits to ?

[Coolis®]

  On 3/15/2010 at 8:15 PM, Vorfin said:

Credits to ?

me?

[Lucky Dice]

  On 3/15/2010 at 8:18 PM, Coolis® said:

me?

Where you find the source code ?

[Coolis®]

  On 3/15/2010 at 8:18 PM, Vorfin said:

Where you find the source code ?

o copy it from my mind :P

[Lucky Dice]

  On 3/15/2010 at 8:19 PM, Coolis® said:

o copy it from my mind :P

Ok Then Good Jod My Friend :)

[Coolis®]

  On 3/15/2010 at 8:21 PM, Vorfin said:

Ok Then Good Jod My Friend :)

ty :O

[dhm.msd]

Very Good M8 :)

 

Just an notice...When you Press Get Its Replace The URL with the IP...Fix it cuz the noobies will not know how to fix that xP

[FreakyCoder]

come on...

i have see this code like over 100 times and you say credits to you....

[Tifε]

Very good Nice Sounce

[nextlive]

  On 3/15/2010 at 8:18 PM, Vorfin said:

Where you find the source code ?

 

its t0fx's from skid forums he just changed the textboxes' name.

 

t0fx's:

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextSite.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text.Replace("http://", String.Empty))
                TextIp.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text)
                TextIp.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub
End Class

 

his:

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If Textbox1.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(Textbox1.Text.Replace("http://", String.Empty))
                TextBox2.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox2.Text)
                TextBox2.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub
End Class

 

http://www.hackforums.net/showthread.php?tid=179827

[HackMeUpReturns]

  On 7/8/2010 at 6:56 AM, nextlive said:

its t0fx's from skid forums he just changed the textboxes' name.

 

t0fx's:

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextSite.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text.Replace("http://", String.Empty))
                TextIp.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text)
                TextIp.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub
End Class

 

his:

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If Textbox1.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(Textbox1.Text.Replace("http://", String.Empty))
                TextBox2.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox2.Text)
                TextBox2.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub
End Class

 

http://www.hackforums.net/showthread.php?tid=179827

Well,maybe you are correct,but there is not very hard for someone to write this simple code ^^

Hope,that the code is originally written by Coolis :)

[nextlive]

  On 7/9/2010 at 2:38 PM, HackMeUpReturns said:

Well,maybe you are correct,but there is not very hard for someone to write this simple code ^^

Hope,that the code is originally written by Coolis :)

 

Both of the codes have: Dim iphe

[SoRa]

Good job  man....keep your good working.

[DeadlyHero]

nice :D