IPDINAMICO

USUARIO.EXCLUIDOS 31/03/2005 14:47:19
#76025
Pessoal,

Gostaria de saber, como pegar o IP dinamico, de uma conexão Speed Home, isso é possivel??
USUARIO.EXCLUIDOS 31/03/2005 14:53:04
#76027 Resposta escolhida
é complicado....
Tenta Assim...


faz assim: 
MeuIp = Inet1.OpenUrl("http://www.whatismyip.com") 

dai vc edita a variável MeuIP e pega o seu IP

(PS: Vc vai precisar do controle INET..)
USUARIO.EXCLUIDOS 31/03/2005 15:09:19
#76029
Pode ser assim também

Dim MEUIP As String
'faz assim:
MEUIP = Inet1.OpenURL("http://www.whatismyip.com")
posicao = InStr(1, MEUIP, "IP is")
MsgBox Mid(MEUIP, posicao + 5, 14)

Ps: Você vai PRECISAR do COMPONENTE 'Microsoft Internet Control' ...
Dependendo do tamanho do IP... vc vai PRECISAR regular..
200.192.168.25 (14 DIGITOS)
Vai ter que regular.. pra menos.. ou pra mais..
FELIPEA 31/03/2005 18:47:04
#76063
Se vc quer o IP Externo é isso:

Citação:

' Crie um Label e pegue 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.ipchicken.com")
  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



Esse código foi pego nesse exemplo q fiz

[txt-color=#ff0000]Se o link não funcionar: http://www.vbmania.com.br/vbmdetail.php?varID=2631[/txt-color]
USUARIO.EXCLUIDOS 31/03/2005 18:55:56
#76064
Pronto... para FINALIZAR o assunto...
Para descobrir seu IP... faça Assim


'ps: Você vai PRECISAR do COMPONENTE 'Microsoft Internet Control' ...
Dim MEUIP As String
MEUIP = Inet1.OpenURL("http://www.germanir.com.br/gratis/freeip.asp")
MsgBox MEUIP


Compacto... simples e Fácil...
Encerre.. o topico..
FELIPEA 31/03/2005 18:58:21
#76065
ficou mais facil agora
USUARIO.EXCLUIDOS 01/04/2005 16:44:09
#76266
Não sei se eu posso fazer isso:

Quando o micro B(Local distinto do micro A) se conectar com a internet, gostariaque o micro B, acessasse remotamente, via porta B, o micro A e informasse no programa resistente A, o seu atual IP. Desta maneira, poderia gerar uma conexão entre A eB.

Isso é possivel???
Tópico encerrado , respostas não são mais permitidas
Voltar