Apache OpenOffice: forum della comunità

Codice: Seleziona tutto

Sub Esistenza_URL()
    Dim http As Object, topics As Object, titleElem As Object, i As Integer
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", "https://nuvola.madisoft.it/mad/ATIC80100B/inserisci", False
    
    'http.Open "GET", "https://nuvola.madisoft.it/mad/BOIC824007/inserisci", False
    
    http.send

    If http.Status = "404" Then
        MsgBox "Sito non esiste"
    Else
        MsgBox "Sito esistente"
    End If

End Sub

Codice: Seleziona tutto

sub TestLink
'IfileStream="https://forum.openoffice.org/it/forum/viewtopic.php?t=11718" 'link esistente
IfileStream="https://fom.openoffice.org/it/forum/viewtopic.php?t=11718" 'link non esistente
rem apri file in lettura
iNumber = Freefile
on error GoTo NonEsiste
    Open iFileStream For Input As iNumber 
    Close #iNumber
    msgbox "Esiste"
    Exit sub
   NonEsiste:
   msgbox "Non esiste"
end sub