Início
Agradecimentos
Primeiramente aperte CTRL+T e adicione o componente "Microsoft Itnernet Transfer Control 6.0" e o componente "Microsoft Winsock Control 6.0" e coloque os 2 componentes ao form.
Adicione a seguinte função ao form:
Public Function GetExternalIP(IIN As Inet)
Dim lngA As Long
Dim strA As String
Dim strB() As String
strA = IIN.OpenURL("[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
strB = Split(strA, Chr(10))
GetExternalIP = Trim(Replace(Replace(strB(34), " ", ""), "
", ""))
End Function
Crie 2 TextBox e 1 CommandButton
Então coloque o codigo abaixo no CommandButton:
Dim EIP
EIP = GetExternalIP(Inet1)
Text1.Text = EIP
Text2.Text = Winsock1.LocalIP
Créditos: The Joker/Tsunami/Taurus
Adicione a seguinte função ao form:
Public Function GetExternalIP(IIN As Inet)
Dim lngA As Long
Dim strA As String
Dim strB() As String
strA = IIN.OpenURL("[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
strB = Split(strA, Chr(10))
GetExternalIP = Trim(Replace(Replace(strB(34), " ", ""), "
", ""))
End Function
Crie 2 TextBox e 1 CommandButton
Então coloque o codigo abaixo no CommandButton:
Dim EIP
EIP = GetExternalIP(Inet1)
Text1.Text = EIP
Text2.Text = Winsock1.LocalIP
Créditos: The Joker/Tsunami/Taurus
» MU LIVE SEASON 2 | INAUGURA DOMINGO 17/09
» Sorteio Perfumes - Forum ViSiBLe
» Novas Vagas Para Staff
» CSGO [Internal/External] Multi-Hack AIMBOT + TRIGGERBOT + ESP + BHOP
» REB00T 31/07/2017
» [CS:GO] HENTAIWARE 19/08/2017 | LEGIT | RAGE | ESP | GLOVES | FACEIT |
» DeviceCheats CS:GO Gratuito 31/07/2017
» [CS:GO] External - Glow ESP | Triggerbot | RCS | BunnyHop | Noflash
» [CS:GO] GLOW ESP 21/08/2017