Bem-vindo à SACheats

Registre-se para obter acesso a todos os nossos recursos. Uma vez registrado e logado, você poderá criar tópicos, postar respostas a tópicos já existentes, dar reputação aos seus companheiros, realizar downloads e muito mais.
Registre-se Agora

Criando Capturador de IP De Sites

Discussão em 'Delphi / Visual Basic' iniciado por SteelGhost, Fevereiro 12, 2017.

  1. SteelGhost

    SteelGhost Membro Avançado

    55
    5
    8
    SACoins:
    165
    Vamos lá
    Vamos precisar de 1 Button e 2 Text Box.

    Código:
    Imports System.Net 'Se for usar deixe os Créditos por favor[/SIZE][/LEFT]
    [SIZE=5]
    [LEFT]Public Class Form1 'LAK_UFC
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Hostname As IPHostEntry = Dns.GetHostEntry(TextBox1.Text)
    Dim ip As IPAddress() = Hostname.AddressList
    If TextBox2.Text = ip(0).ToString Then
    TextBox2.Enabled = True
    End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    MsgBox("IP Capturado Salve LAK_UFC!")
    End Sub
    End Class

    CRÉDITOS:
    LAK_UFC​
     

Compartilhe esta Página

Please enable / Bitte aktiviere JavaScript!
Veuillez activer / Por favor activa el Javascript![ ? ]