Verificare l'esistenza di un dominio Internet con VB 6

Autore: Luca Ruggiero | Tell a Friend Corso Visual Basic 6 Impara a creare applicazioni gestionali col Visual Basic! Corso VB.NET Impara a creare applicazioni desktop con Microsoft .NET! Corso VBA Impara a gestire documenti MS Office col linguaggio VBA!

Nell'Articolo Verificare l'esistenza di un dominio o di un file remoto abbiamo visto come utilizzare l'oggetto XMLHTTP per verificare l'esistenza di un file remoto o di un dominio, sfruttando lo stato della richiesta che se uguale a 12007 significa che il dominio è libero, in caso contrario sarà occupato.

Questa non è altro che la versione Visual Basic della stessa utility. Si crei un nuovo progetto e si disegni la seguente form:



avendo cura di assegnare agli elementi i nomi txtDominio alla casella di testo, cmbVerifica al pulsante e lblRisultato all'unica delle tre Label che al momento è invisibile (vuota, priva di testo) posizionata a fianco del pulsante di verifica.

Di seguito il codice commentato:

Option Explicit
    Dim whois As Object  ' DICHIARO LA VARIABILE PER L'OGGETTO XMLHTTP
    Dim stato As Integer ' DICHIARO LA VARIABILE PER LA VERIFICA DELLO STATO DELLA RICHIESTA

Private Sub cmbVerifica_Click()
    Set whois = CreateObject("Microsoft.XMLHTTP") ' DICHIARO L'OGGETTO XMLHTTP

    On Error Resume Next ' GESTISCO ERRORI DERIVANTI DALL'INESISTENZA DEL DOMINIO, OVVERO UNA RICHIESTA VUOTA

     ' LANCIO LA RICHIESTA
    whois.Open "GET", "http://www." & txtDominio.Text, False
    whois.Send

    stato = whois.Status

    ' CONTROLLO LO STATO DELLA RICHIESTA E RESTITUISCO IL RISULTATO
    If stato = 12007 Then
        lblRisultato.Caption = "Dominio libero"
    Else
        lblRisultato.Caption = "Dominio occupato"
    End If

    ' UNN PO DI PULIZIA...
    Set whois = Nothing
End Sub