CAPTURAR O IP DA MAQUINA
Alguém sabe como faço para capturar o IP da máquina?
Grato
Grato
Um deles seria via Winsock, adicione um controle Winsock e um TEXTBOX e um COMAND BUTTON
No commandbutton coloque Text1.Text = Winsock1.LocalIP
Este pega o IP local da máquina
No commandbutton coloque Text1.Text = Winsock1.LocalIP
Este pega o IP local da máquina
Tentei adicionar o componente mas não o encontrei. Sabe onde posso conseguir para baixar? Conhece outra forma de se descobrir o IP da máquina que estou usando? Grato.
Fiz uma função básica, vejá se te ajuda:
Public Function BuscaIP()
Dim myHost As String = System.Net.Dns.GetHostName
Dim myIPs As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(myHost)
Dim ip As String = [Ô][Ô]
For Each myIP As System.Net.IPAddress In myIPs.AddressList
ip = myIP.ToString
Next
MsgBox(ip)
Return ip
End Function
Att,
Lucas
Public Function BuscaIP()
Dim myHost As String = System.Net.Dns.GetHostName
Dim myIPs As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(myHost)
Dim ip As String = [Ô][Ô]
For Each myIP As System.Net.IPAddress In myIPs.AddressList
ip = myIP.ToString
Next
MsgBox(ip)
Return ip
End Function
Att,
Lucas
Perdão, não vi que o tópico era VB6... fiz em .Net .... mas a idéia é a mesma. Tenta ai.
Não deu certo amigo. De qualquer forma obrigado.
Edinaldo
Edinaldo
Você deverá selecionar o componente Winsock no menu [Ô]Project -> Componets -> Microsoft Winsock Control[Ô] e depois adicionar o objeto ao formulário.
Qquer coisa da um tok
[]'s
Qquer coisa da um tok
[]'s
O problema é que estou programando em VBA em um sistema que desenvolvi no Access2000 e neste caso não sei como inserir este componente. Grato
Será que existe alguma forma de utilizando o VBA do access eu possa capturar o IP do computador?
Utilizando o VBA do Access tem como eu capturar o IP do computador. Se alguém puder me ajudar agradeço.
Tópico encerrado , respostas não são mais permitidas