Foros del web, para los que viven de bits

Hola Amigos

Bueno, me gustaría saber como puedo hacer para Detectar en VB la IP y el Nombre del Computador. Y despues ponerlo en un TextBox

Saludos

Para saber el IP es asi:

inserta un control winsock en tu proyecto desde componentes,lo pones en tu form y haz doble click en tu winsock y pones la siguinte instruccion

text1=winsock.localIp


Para el nombre de la PC:

En un boton:
Private Sub Command1_Click()
Dim nPC As String
Dim buffer As String
Dim estado As Long
buffer = String$(255, " ")
estado = GetComputerName(buffer, 255)
If estado <> 0 Then
nPC = Left(buffer, 255)
End If
MsgBox "Nombre de la Computadora: " & nPC
End Sub

En un modulo:
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Saludos

Amigo

El nombre de la PC funciona pero el de LA IP no

Saludos

Aver pon un boton y un text y en el boton le pones:

text1=winsock.localIp

Si no funciona me dices

No, me tira un Erro diciendo

Se requiere un Objeto

Saludos

listo

ya esta

Era el nombre del Winsock

Saludos