DownloadThis was made for cases where you need to remote control a users PC, but they can't see it (Say BGInfo hasn't worked), and so you don't have to tell them how to do ipconfig, then can just run this program.
Written in VB.NET so you will need a newish .NET framwork installed.
Project Samples
Follow What is your IP
You Might Also Like
Secure remote access solution to your private network, in the cloud or on-prem.
OpenVPN is here to bring simple, flexible, and cost-effective secure remote access to companies of all sizes, regardless of where their resources are located.
Rate This Project
Login To Rate This Project
User Reviews
-
I can't figure how to GIT 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.