Simple: how to find I.P help!

Introdution:
hi there, im new to this forum so please be nice :wave:
I've used the search option but i can't find what i am looking for, i have also tryed to google it but i still can't find it :(

The problem:
I am trying to get into Using V.B, i have downloaded "ms visual basics 2005 express edition" from the microsoft website.

in college we have been set a task to code something in V.B, i chose to "find your i.p".
i've ranted many books but they dont really show me what i need to do, im guessing its quite a simple code, all i want it to do is display an I.P (i know you can go to !www.whatismyip.com".)

!! i would like a code to simpley go into command propt and type "ipconfig" and then the results would show up on the command prompt window !!

please help,
Sorry if its stupidly easy or something :(, im a noob to VB lol :eek2:

Look at the Shell API.

whats that :rolleyes: hehehe

If this is .Net then I can't really help much.

For people behind a router/hub, you cannot get your external IP locally. You have to get it remotely from a website like www.showmyip.com.

You can get your network/LAN IP, but this is not the one visible to other people on the internet.

For people who are not behind a router then you can get your IP locally.

You can probably do this using the Sockets class (which is similar to Winsock in VB 6). Or there might be a better way in .Net but I don't know.

I only use VB 6.

Shell is an API that alloows you to run an external (to the VB program that's using it) program. So you could shell IPConfig, send its output to a text file, then input and parse the text to find "IP Address:" and the numbers that follow it are the IP.

There's no point in shelling it to a textfile, reading the file, then getting the data, when it can be done using the system.net namespace

VB Code:

Dim hostName As String = System.Net.Dns.GetHostName()
        Dim ipaddress As String = System.Net.Dns.GetHostByName(hostName).AddressList(0).ToString
 
        MessageBox.Show("My Local IP Address is: " & ipaddress)
        MessageBox.Show("My Hostname is: " & hostName)

This program will return the GateWay, you could change the Shell to return the User's IP

chears for the feedback guys, :D

so when i go to design mode in my VB 2005, i put this code in

Public Class Form1

Dim hostName As String = System.Net.Dns.GetHostName()
Dim ipaddress As String = System.Net.Dns.GetHostByName(hostName).AddressList(0).ToString

MessageBox.Show("My Local IP Address is: " & ipaddress)
MessageBox.Show("My Hostname is: " & hostName)

End Class

but when i go to "play" the option it says "decleration expected" and highlights the two "MessageBox" part? im confused :(

you have to put the code in a button or something else that will trigger it. just put it in the click event of a button...

I am now using the college VB 6.0,

i have created a "button" and i insert the code
__________________________________________________________
Dim hostName As String = System.Net.Dns.GetHostName()
Dim ipaddress As String = System.Net.Dns.GetHostByName(hostName).AddressList(0).ToString

MessageBox.Show("My Local IP Address is: " & ipaddress)
MessageBox.Show("My Hostname is: " & hostName)
___________________________________________________________

i press "play" and it displays the .exe, it then comes with an error massage saying "compile error", "sytax error" and hightlights the 1st part of the code in red

Dim hostName As String = System.Net.Dns.GetHostName()
Dim ipaddress As String = System.Net.Dns.GetHostByName(hostName).AddressList(0).ToString

pleeeease help, chears for everything so far!

VB 2005 (all editions) are VB.Net, and VB6 is "Classic VB".

Despite them both having Visual Basic in their name, they are completely different languages. Code that works in one is very unlikely to work in the other - and your code is a good example of that.

Quote:

---

Originally Posted by scottaii

The problem:
I am trying to get into Using V.B, i have downloaded "ms visual basics 2005 express edition" from the microsoft website.

---

This is NOT VB6.^^

If you tell people your using vb2005 you will receive code specific to that version.

Anyway, heres how to do it in vb6, open a new project, go to project>componants in the menubar, then scroll down the list and select and check Microsoft Internet Transfer Control, then click OK, drag an Inet onto the form from the toolbox, and put this code in a button:

VB Code:

MsgBox "Your IP is: " & Inet1.OpenURL("http://www.whatismyip.org")

This wil tell you your external IP Address.

Thank you ALL very much for replying with excelant advise, i now have a new problem however.

there are the screen shots of what happens
http://img248.imageshack.us/img248/1715/problemcq8.jpg

after this
i press the play botton and i am left with this

http://img291.imageshack.us/img291/6044/problem2up9.jpg

as you can see there is no button to press and no i.p has been displayed
please help :(, thank you very much
hope to hear from you soon

After you have added the INet to the form, add a button to the form, then double click the button, and add the code:

VB Code:

MsgBox "Your IP is: " & Inet1.OpenURL("http://www.whatismyip.org")

The code must go in the Buttons click event if you want it to work when you press the button.

The problem you had is you put the code in the Inets StateChanged event, the code needs to go somewhere where you can trigger it for example a button_click or form_load

you can also try this codes below:

VB Code:

Private Sub Form_Load()
 Text1.Text = GetAddress()
End Sub
 
Public Function GetAddress() As String
   Dim sHostName As String * 256
   Dim lpHost As Long
   Dim HOST   As HOSTENT
   Dim dwAddr  As Long
   Dim tmpAddr() As Byte
   Dim i   As Integer
   Dim sAddr  As String
   
   If Not SocketsInitialize() Then
   GetAddress = ""
   Exit Function
   End If
   If gethostname(sHostName, 256) = Socket_Error Then
   GetAddress = ""
   MsgBox "Windows Sockets error " & Str$(WSAGetLastError()) & _
     " has occurred. Unable to successfully get Host Name."
   SocketsCleanup
   Exit Function
   End If
   sHostName = Trim$(sHostName)
   lpHost = gethostbyname(sHostName)
 
   If lpHost = 0 Then
   GetAddress = ""
   MsgBox "Windows Sockets are not responding. " & _
     "Unable to successfully get Host Name."
   SocketsCleanup
   Exit Function
   End If
   CopyMemory HOST, lpHost, Len(HOST)
   CopyMemory dwAddr, HOST.hAddrList, 4
   ReDim tmpAddr(1 To HOST.hLen)
   CopyMemory tmpAddr(1), dwAddr, HOST.hLen
   For i = 1 To HOST.hLen
   sAddr = sAddr & tmpAddr(i) & "-"
   Next
   GetAddress = Mid$(sAddr, 1, Len(sAddr) - 1)
   SocketsCleanup
End Function
 
Public Function HiByte(ByVal wParam As Integer)
 HiByte = wParam \ &H100 And &HFF&
End Function
 
Public Function LoByte(ByVal wParam As Integer)
 LoByte = wParam And &HFF&
End Function
 
Public Sub SocketsCleanup()
 If WSACleanup() <> ERROR_SUCCESS Then
  MsgBox "Socket error occurred in Cleanup."
 End If
End Sub
 
Public Function SocketsInitialize() As Boolean
   Dim WSAD As WSADATA
   Dim sLoByte As String
   Dim sHiByte As String
   If WSAStartup(WS_VERSION_REQD, WSAD) <> ERROR_SUCCESS Then
   MsgBox "The 32-bit Windows Socket is not responding."
   SocketsInitialize = False
   Exit Function
   End If
   
   If WSAD.wMaxSockets < MIN_SOCKETS_REQD Then
  MsgBox "This application requires a minimum of " & _
    CStr(MIN_SOCKETS_REQD) & " supported sockets."
  SocketsInitialize = False
  Exit Function
   End If
 
   If LoByte(WSAD.wVersion) < WS_VERSION_MAJOR Or _
  (LoByte(WSAD.wVersion) = WS_VERSION_MAJOR And _
   HiByte(WSAD.wVersion) < WS_VERSION_MINOR) Then
   
   sHiByte = CStr(HiByte(WSAD.wVersion))
   sLoByte = CStr(LoByte(WSAD.wVersion))
   
   MsgBox "Sockets version " & sLoByte & "." & sHiByte & _
    " is not supported by 32-bit Windows Sockets."
   SocketsInitialize = False
   Exit Function
 
   End If
 SocketsInitialize = True
End Function

this let you see what is your ip

but there is a more easy code to do that

VB Code:

Private Sub Form_Load()
 MsgBox "My IP is: " & Winsock1.LocalIP
 'MsgBox "My Host Name is: " & Winsock1.LocalHostName
End Sub