Ragazzi ho un programma che dato un IP raggiunge la sua pagina di configurazione, ne estrapola il codice HTML e cerca all'interno una stringa.

Alcuni IP però...presenti nel database a volte non sono raggiungibili..e il programma sta per troppo tempo piantanto su XMLHTTP.SEND

ecco il codice:

--------------------------

Dim OggettoHttp As Object

Set OggettoHttp = CreateObject("microsoft.xmlhttp")

Url = "http://......"

OggettoHttp.Open "GET", Url, False

OggettoHttp.send

-----------------------------



Vorrei fare un controllo che se il tempo di attesa fosse troppo lungo restituisca un messaggio di errore.

Non posso usare il Timer....


Grazie