Unmasked 0.1

[Lord_Korian]

Nome: Unmasked 0.1

Autore: LoRd_KoRiAn

Descrizione: permette di vedere se un dominio è occupato o è libero... per ora, quasi inutile ma a breve farò la versione 1.0 dove comparirà il tasto "Dettagli" quando il dominio sarà occupato e appunto visualizzerà tutti i dettagli del dominio.

Screen:

Link: h**p://lordkorian.altervista.org/Unmasked 0.1.rar

Sorgente:

Private Sub Command2_Click()
    Dim scelta
    scelta = MsgBox("Vuoi uscire dal programma?", vbYesNo, "Conferma")
    Select Case scelta
        Case 6
            Unload Me
        Case 7
            
    End Select
End Sub
---------------------------------------------
Private Sub lblRisultato_Click()

    Dim whois As Object
    Dim stato As Integer
End Sub
---------------------------------------------
Private Sub cmbVerifica_Click()
    Set whois = CreateObject("Microsoft.XMLHTTP")

    On Error Resume Next

    whois.Open "GET", "http://www." & txtDominio.Text, False
    whois.Send

    stato = whois.Status

     If stato = 12007 Then
        lblRisultato.Caption = "Il Dominio è libero"
    Else
        lblRisultato.Caption = "Il Dominio è occupato"
    End If

    Set whois = Nothing
End Sub
---------------------------------------------