[Risolto] Verifica esistenza sito web

Creare una macro - Scrivere uno script - Usare le API
Rispondi
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

[Risolto] Verifica esistenza sito web

Messaggio da Luka2017 »

Buonasera sapere se esiste un modo, tramite macro, di poter verificare se il link di un sito web esiste, senza dover aprire il browser. Cercando in rete ho trovato questa macro, ma funziona solamente con excel. Mi potete aiutare? Grazie mille

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
Ultima modifica di Luka2017 il lunedì 9 maggio 2022, 20:14, modificato 1 volta in totale.
Open office 3.1 Windows 7
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Verifica esistenza sito web

Messaggio da unlucky83 »

Prova a vedere se una macro del genere va bene per il tuo caso.
Con pagine esistenti riesce ad aprire il file in lettura, mentre con pagine non esistenti non riesce ad aprire il file in lettura e gestendo l'errore riesci a scoprire se esiste oppure no.

Nel codice, il primo url è un indirizzo valido, il secondo è un indirizzo non valido.

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
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Verifica esistenza sito web

Messaggio da charlie »

Sei pregato di chiudere il precedente argomento con il tag [Risolto] sul primo messaggio.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Re: Verifica esistenza sito web

Messaggio da Luka2017 »

Buongiorno Charlie ho inserito il tag risolto ma mi sa che da cellulare non funziona. Infatti se entri nel messaggio c'è il simbolo del visto verde.
Open office 3.1 Windows 7
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Verifica esistenza sito web

Messaggio da charlie »

charlie ha scritto: lunedì 9 maggio 2022, 7:12 ... sul primo messaggio.
Hai sbagliato anche tutti i precedenti, li ho sistemati io.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Re: Verifica esistenza sito web

Messaggio da Luka2017 »

E che cosa ho sbagliato io ho seguito la procedura.
Open office 3.1 Windows 7
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Verifica esistenza sito web

Messaggio da charlie »

Mi ripeto:
charlie ha scritto: lunedì 9 maggio 2022, 7:51
charlie ha scritto: lunedì 9 maggio 2022, 7:12 ... sul primo messaggio.
Hai sbagliato anche tutti i precedenti, li ho sistemati io.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Verifica esistenza sito web

Messaggio da unlucky83 »

In altri termini:
Si deve modificare il titolo della discussione, cioè il titolo
Del primo messaggio ;)
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Re: Verifica esistenza sito web

Messaggio da Luka2017 »

Ok fatto.
Open office 3.1 Windows 7
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

verifica esistenza sito web

Messaggio da Luka2017 »

Sei un genio grazie infinite!!!!!! :D
Open office 3.1 Windows 7
Rispondi