Verificare l'esistenza di un dominio Internet con VB 6

Applicazioni desktop con Visual Basic 6
Impara a creare applicazioni gestionali col Visual Basic

Scritto da Luca Ruggiero nella sezione Visual Basic

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

I più cliccati della sezione Visual Basic

:: Guida a Visual Basic 6 (177.810)

:: Una rubrica in VB e Ms Access (98.452)

:: Richiamare una form da un'altra form in Visual Basic (25.010)

:: Interazione tra Visual Basic ed MS Excel (22.439)

:: Una semplice calcolatrice in VB 6 (22.430)

:: Leggere un file Xml col DOM in VB 6 (22.121)

:: Inviare email con CDO in Visual Basic 6 (21.549)

:: Un visualizzatore di immagini in VB 6 (14.546)

:: Un semplice sistema di Login in VB 6 (12.881)

:: Scrivere un file MS Word in VB6 (12.597)

IN EVIDENZA
DOWNLOAD