VB.Net super noob help: Show local IP on PC

[andyroo54]

Originally Posted by kreegor

Are all the computers connected via DNS or DHCP? If so I think I saw some options in the network interface list that had DNS and DHCP values so it may be possible to get it from those. I'll have a look and get back to you again.

Also, I'm sure its possible to filter by range. I'll have a look at that too while I'm at it. This is good learning for me too. I've never done this before

EDIT: Or what PabloEscobar suggested above

I think if it was filtered by those ranges, then 99% of the time it would work.

Like Pablo suggested we do lablel them, but over time they can come off, some of the older ones don't have them, and the users have been trained over time to quote the IP address. If I asked them for a computer name they would be confused. Then they'd have to try to find it. If I can say, "Click the icon that looks like a house ( If I use a house icon ((Ip ADDRESS get it?))for example) then it would be easier. Plus for remote people (with tablets) they can't see the labels because they are behind the covers..

I guessed there would probably be nicer already exisiting programs, but yeah I was just more keen to try to build one to help learn it.

[zach]

Dim strHostName As String
strHostName = System.Net.Dns.GetHostName()

would be easier - a pc only has 1 hostname, then do nslookup or whatever on your end.

EDIT:
Whoops I should probably learn to read haha, carry on.

[andyroo54]

Originally Posted by zach

Dim strHostName As String
strHostName = System.Net.Dns.GetHostName()

would be easier - a pc only has 1 hostname, then do nslookup or whatever on your end.

Thanks for that I'd like to have both, because preferably I'd like them to read out numbers than letters, which can be misinterpreted more easily. But yes that's why I've got a button to try to display PC name too

Edit I've added this to show machine name:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = (Environment.MachineName)

    End Sub

That seems to work. So in between Pablos code and this very simple one, the program does what I want, except for the problem whereby it is display the wrong IP. But it's getting there

[kreegor]

Originally Posted by andyroo54

Thanks for that I'd like to have both, because preferably I'd like them to read out numbers than letters, which can be misinterpreted more easily. But yes that's why I've got a button to try to display PC name too

Edit I've added this to show machine name:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = (Environment.MachineName)

    End Sub

That seems to work. So in between Pablos code and this very simple one, the program does what I want, except for the problem whereby it is display the wrong IP. But it's getting there

Modify your textbox to be multiline and have scrollbars and add my code. That will give you a list of network adapters and their ip address.

[andyroo54]

Originally Posted by kreegor

Modify your textbox to be multiline and have scrollbars and add my code. That will give you a list of network adapters and their ip address.

I'm... not really sure how to do this.. haha, but I've tried it on a few work PC and it works fine.. only doesn't work if you have virtual machines because for some reason virtuals take precedence and display their address first, even if they aren't first in the list of adapters.

But 99% of our users don't have virtuals, and if they do, they can click show PC name.. This is awesome thanks everyone for their help. I will credit you in the code! I'm going to make an installer and I'll upload it when it's done.

Thanks,

[kreegor]

Originally Posted by andyroo54

I'm... not really sure how to do this.. haha, but I've tried it on a few work PC and it works fine.. only doesn't work if you have virtual machines because for some reason virtuals take precedence and display their address first, even if they aren't first in the list of adapters.

But 99% of our users don't have virtuals, and if they do, they can click show PC name.. This is awesome thanks everyone for their help. I will credit you in the code! I'm going to make an installer and I'll upload it when it's done.

Thanks,

Ok. Easiest way to do it is to select the textbox in the controller and in the properties window, change the multiline and scrollbar properties.


Click to view full size!

If you can't find the properties window click on the textbox in the designer and press F4.

[andyroo54]

Originally Posted by kreegor

Ok. Easiest way to do it is to select the textbox in the controller and in the properties window, change the multiline and scrollbar properties.

pix

If you can't find the properties window click on the textbox in the designer and press F4.

I might have a look at that for version 1.1

If you want to you can download it here:

http://sourceforge.net/projects/whatisyourip/

[kreegor]

haha! ASCII dinosaur! Nice touch.

[andyroo54]

Originally Posted by kreegor

haha! ASCII dinosaur! Nice touch.

Haha didn't think anyone would ever see that.. I put yours and Pablo's usernames into the form code as well.

'Compiled by andyroo54, with great input from OCAU members: Kreegor andPabloEscobar.

[gcflora]

Where's the git repository

Edit: Actually, it would be nice not to have to install to look at the source code...

[andyroo54]

Originally Posted by gcflora

Where's the git repository

Edit: Actually, it would be nice not to have to install to look at the source code...

Not sure what git repositry? I wasn't sure how to post the code on sourceforge.. I mainly put it there as a good reliable download source.

But here is the form code:

Public Class Form1

    Public Function GetLocalIP() As String
        Dim _IP As String = Nothing

        ' Resolves a host name or IP address to an IPHostEntry instance.
        ' IPHostEntry - Provides a container class for Internet host address information. 
        Dim _IPHostEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())

        ' IPAddress class contains the address of a computer on an IP network. 
        For Each _IPAddress As System.Net.IPAddress In _IPHostEntry.AddressList
            ' InterNetwork indicates that an IP version 4 address is expected 
            ' when a Socket connects to an endpoint
            If _IPAddress.AddressFamily.ToString() = "InterNetwork" Then
                _IP = _IPAddress.ToString()
            End If
        Next _IPAddress
        Return _IP
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = GetLocalIP()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = (Environment.MachineName)

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub Label3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
End Class
'Compiled by andyroo54, with great input from OCAU members: Kreegor andPabloEscobar.

[andyroo54]

Holy crap this things been downloaded a lot?

http://sourceforge.net/projects/what...stats/timeline

46 times with Bangladesh being the top location? Maybe they think it's some kind of hacking tool? Like to find out people's IP addresses? Well technically that's what it's for but you know what I mean.

[gcflora]

Originally Posted by andyroo54

Holy crap this things been downloaded a lot?

http://sourceforge.net/projects/what...stats/timeline

46 times with Bangladesh being the top location? Maybe they think it's some kind of hacking tool? Like to find out people's IP addresses? Well technically that's what it's for but you know what I mean.

My two projects on sourceforge get mostly downloaded from China (they are scientific apps, one with a very narrow range of applicability - or so I thought).

[Foliage]

I wrote this in 5 minutes for luls

The exe
https://dl.dropbox.com/u/1428435/Wha...IpCompiled.zip

The .net C# source code and project
https://dl.dropbox.com/u/1428435/Wha...alIpSource.zip

        private void button1_Click(object sender, EventArgs e)
        {
            try
            {
                output.Text = "";
                IPHostEntry host;
                string localIP = "?";
                host = Dns.GetHostEntry(Dns.GetHostName());
                foreach (IPAddress ip in host.AddressList)
                {
                    output.Text += ip.ToString() + "\n";
                }
            }
            catch (Exception ex)
            {
                output.Text = "Shit guys, something went wrong!" + ex.Message;
            }
        }

to convert between C# and VB.net code use this website
http://www.developerfusion.com/tools.../csharp-to-vb/

[Foliage]

sure am glad I bothered helping