25/02/12 23:11
VMikle
Non so se sia la soluzione migliore, ma dovrebbe andar bene
Function IsResourceAvailable(ByVal Resource As Uri) As Boolean 'Uri obbliga la giusta formattazione della richiesta
Dim Response As WebResponse = Nothing
Try
Response = WebRequest.Create(Resource).GetResponse()
Catch
Return False 'la risorsa è inaccessibile
Finally
If Response IsNot Nothing Then Response.Close()
End Try
Return True 'la risorsa è accessibile
End Function
Ultima modifica effettuata da VMikle 25/02/12 23:14
aaa
29/02/12 20:22
VMikle
E' una funzione che restituisce un boolean dato un indirizzo web: true se è raggiungibile e false se non lo è.
Il funzionamento consiste nel tentare una richiesta tramite WebRequest e WebResponse in un blocco Try\Catch, nel caso si verifichi un'eccezione significa che non è stato possibile collegarsi.
aaa