[VB6] - Controllare esistenza di pagine di internet

[buba88]

c'è un modo in vb6 di controllare se una determinata pagina internet esiste?
ad esempi se io ho un array contente vari url c'è un modo per controlllare quale di questi url esiste veramente e quale no ???

[b.lory]

Adattalo alle tue esigenze...

Private Declare Function IsValidURL Lib "urlmon" (ByVal pBC As Long, _
    url As Byte, ByVal dwReserved As Long) As Long
    
Dim url As String
Dim b() As Byte

url = "http://www.pippo.com"
' Questo è necessario in quanto viene passata una stringa Unicode 
b = url & vbNullChar

If IsValidURL(0, b(0), 0) = 0 Then    
    ' URL valido
Else
    ' URL non valido
End If

Ciao