Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
How to make an IP finder
#1
How to make an IP Finder

Open VB
Press File>New Project and press OK.


Now make:
  • 2 Labels
  • 2 TextBoxes
  • 1 Button

Label1 text: "Website:"
Label2 text: "IP:"
Button text: "Get IP"

Put the first TextBox next to "Website:" and at (Name) put "TextSite"
Put the second TextBox next to "IP:" and at (Name) put "TextIp"

Go to the code and delete everything.

Then copy and paste this code:


Code:
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
Reply
#2
Wow, you're on a roll with posting useful stuff today, aren't you. Big Grin
Reply
#3
(04-06-2010, 01:21 AM)h4ckingURLife Wrote: Wow, you're on a roll with posting useful stuff today, aren't you. Big Grin

Yes Thumbsup
Reply
#4
Thanks For Sharing SmileBig Grin
If you are willing to join SF Webmasters.
Reply
#5
Thanks for the share Big Grin
Reply
#6
No problem! Glad you like it Smile
Reply
#7
This doesn't teach anyone anything.. sorry.
You should explain line by line what everything does, or at least comment the code.
Telling people to literally copy/paste the code is just promoting leechers.
It'd be better if you promoted the learning of actual coding.. not just script kiddie techniques (that is, copying/pasting source). I'm not saying that I don't appreciate your contribution.. I just think it'd be a lot better if you would explain to us line by line what you are doing.
Reply
#8
Thanks dude!, I am sure this will come in handy 1 way or another Smile, Thanks again for the share.
[Image: 2jalumb.jpg]
Reply
#9
Simple but usefull Big Grin
Thanks
Reply
#10
Thanks for sharing!

I might use this in my next application.
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  [TUT] MD5 Encrypter & Finder [VB.NET] Fragma 12 7,045 11-25-2012, 10:36 PM
Last Post: ƃu∀ ıʞƃu∀
  Factor Finder v1.0 (Numbers) AceInfinity 15 3,840 06-21-2011, 06:27 PM
Last Post: RiChZ
  [RELEASE] Empty Folder Finder Soldier 3 947 11-06-2010, 10:17 AM
Last Post: Soldier
  {TUT} Key Finder vb.2008 the_legend_nl 10 4,750 11-05-2010, 02:21 AM
Last Post: HeY?

Forum Jump:


Users browsing this thread: 1 Guest(s)