Breadcrumbs

[ManMega1]

Welcome, today im going to show you how to make an IP Finder, this will find your computer's local IP, and no, this is not a program to hack other people using IP's, anyway add :

1 button
1 textbox1
and 1 Winsock Control

get the WinSock Control here http://www.dll-files.com/dllindex/dll-f ... l?mswinsck

unzip it then put the .dll in C:\WINDOWS\System32\

then go on visual basic 2008, go on the tools tab at the top, go on choose tool box items, then go on COM Components, then search for Microsoft Winsock Control, version 6.0, then make sure it's ticked once done, place the items however you want, put the button text as "Find My IP" then double click it, and enter this code

Code: Select all

Textbox1.text = AxWinsock1.LocalIP

and your done, debug it then your done.

EDIT : i have seen the link has not been working, but i have fixed it, thanks to AleRi8 with his post

lol you posted a wrong url link to the file it should be


Code: Select all
http://www.dll-files.com/dllindex/dll-f ... l?mswinsck

i found out how to do this via youtube ages ago very good if you want to know ur ip

[EwoudVL]

It works thou the link to the .dll is expired, might be easyer for people to add the .dll in the zip file
Nice n easy code ;) cooll;

[CodenStuff]

Hello ManMega1,

The link has also expired for me aswell. I see alot of people looking for ways to find the IP address so I know this will come in very handy. cooll;

[AleRi8]

lol you posted a wrong url link to the file it should be

Code: Select all

http://www.dll-files.com/dllindex/dll-files.shtml?mswinsck

i found out how to do this via youtube ages ago very good if you want to know ur ip

[Insignia]

Sad thing is this only gets your internal IP address to get the external give this a try;

Code: Select all

Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")
        Dim res As HttpWebResponse = req.GetResponse()
        Dim Stream As Stream = res.GetResponseStream()
        Dim sr As StreamReader = New StreamReader(Stream)
        messagebox.show(sr.ReadToEnd())

[AleRi8]

Sad thing is this only gets your internal IP address to get the external give this a try;

Code: Select all

Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")
        Dim res As HttpWebResponse = req.GetResponse()
        Dim Stream As Stream = res.GetResponseStream()
        Dim sr As StreamReader = New StreamReader(Stream)
        messagebox.show(sr.ReadToEnd())

wow this is very good thx

dont forget to put at the top

Code: Select all

Imports System.Net
Imports System.IO

[arno]

old but stil fun cooll;

[Usman55]

Hello ManMega1,

I know a way to make it shorter. The steps are:

1. Create a new project.
2. Make a new form.
3. Add a new label.

After that, add a Winsock control and put this code to the Form_Load event: Label1.Text = AxWinsock1.LocalIP

[arnas120]

cool i search how make this program thx dude

[nioz]

Sad thing is this only gets your internal IP address to get the external give this a try;

Code: Select all

Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")
        Dim res As HttpWebResponse = req.GetResponse()
        Dim Stream As Stream = res.GetResponseStream()
        Dim sr As StreamReader = New StreamReader(Stream)
        messagebox.show(sr.ReadToEnd())

wow this is very good thx

dont forget to put at the top

Code: Select all

Imports System.Net
Imports System.IO

--------------------------------------------------------------------------------------------------------------
replace http://whatismyip.com/automation/n09230945.asp
server response :
(Please update your script.
Please DO NOT hit this page more than once every 300 seconds to get your IP address.
Please set your code to scrape your IP from http://automation.whatismyip.com/n09230945.asp)