Srs,

 

Preciso capturar o ip da net e nao estou conseguindo, tenho uma placa de rede e conecto na net via dial-up, preciso capturar o ip da net mas so consigo capturar o da rede local. Existe alguma maneira de fazer com que o vb nao capture a local e sim o ip da net ?

 

Desdeja obrigado !

 

Sergio

Vá até a barra de ferramentas do vb e adicione um componente novo chamado "Microsoft WinSock Control 6.0"  e clique em aplicar.

'funçao exemplo:

 

Winsock1.RemotePort = 80
Winsock1.RemoteHost = "http://www.vbweb.com.br"
Winsock1.Connect

If Winsock1.state = 7 Then
   MsgBox Winsock1.remotehostip
End If

Serginho, (kkkkkk) pode não ser o único jeito, mais é o único que "EU" conheço, coloquei na àrea de transferências de arquivos um exemplinho chamado GETIP http://www.vbweb.com.br/transfer.asp?command=Download&folder=C:domainsvbweb.com.brpublicVB&file=GetIP.zip ah! mais vc tem que fazer login no site pra poder pegar......

ou assim, adicionando o componente "inet":

 

 

 

Public Function GetExternalIP(IIN As Inet)
  Dim lngA As Long
 
  Dim strA As String
  Dim strB() As String
 
  strA = IIN.OpenURL("www.vbweb.com.br")
  strB = Split(strA, Chr(10))
 
  GetExternalIP = Trim(Replace(Replace(strB(34), " ", ""), "<br>", ""))
 
End Function

Private Sub Form_Load()
    Dim EIP
    EIP = GetExternalIP(Inet1)
   
   Label1.Caption = EIP
End Sub