Détecter si un site web existe en vb .net 4.8 [Résolu]

Signaler
Messages postés
5
Date d'inscription
lundi 29 juin 2020
Statut
Membre
Dernière intervention
29 juin 2020
 -
Messages postés
5
Date d'inscription
lundi 29 juin 2020
Statut
Membre
Dernière intervention
29 juin 2020
 -
bonjour! je suis content d'être parmis vous aujourd'hui. je voulais savoir comment faire pour détecter si un site web existe. par exemple : 

If site web "https://www.example.com/example" = existe Then
   ...
End If"


merci. je suis déjà content d'être avec vous en ce jour.

- Roger
Afficher la suite

1 réponse

Réponse 1 / 1
Messages postés
28942
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
12 juillet 2020
 2 610
Bonjour,

Des tonnes de sujets sur le net traitent de cette question.
Par exemple : 
Public Function CheckAddress(ByVal URL As String) As Boolean
    Try
        Dim request As WebRequest = WebRequest.Create(URL)
        Dim response As WebResponse = request.GetResponse()
    Catch ex As Exception
        Return False
    End Try
    Return True
End Function

NB: L'url doit impérativement commencer par http:// ou https://
Afficher les 6 commentaires
Signaler
Messages postés
28942
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
12 juillet 2020
 2 610 >
Messages postés
5
Date d'inscription
lundi 29 juin 2020
Statut
Membre
Dernière intervention
29 juin 2020
Le code que je t'ai donné est une fonction qui retournera True ou False en fonction de l'existence ou non du site web.
Donc, une fois le code de la fonction collée dans ton code ( ta class ou ton module)
Tu dois pouvoir t'en servir via 
If CheckAddress("https://www.example.com/example") = true Then
   ...
End If
Signaler
Messages postés
5
Date d'inscription
lundi 29 juin 2020
Statut
Membre
Dernière intervention
29 juin 2020
 >
Messages postés
28942
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
12 juillet 2020
oh! merci énormément! je vais essayez ça tout de suite. et j’imagine que si je mets Else aussi, ça pourras faire autre chose non? merci énormément! je ne savait pas qu'ici, c'était une aussi bonne place!
Signaler
Messages postés
5
Date d'inscription
lundi 29 juin 2020
Statut
Membre
Dernière intervention
29 juin 2020
 >
Messages postés
5
Date d'inscription
lundi 29 juin 2020
Statut
Membre
Dernière intervention
29 juin 2020
et un dernier truc, est-ce que je doit modifier le premier code que tu m'as envoyée? comme par exemple, le (URL) par (www.example.com/example) dans 
WebRequest.Create(URL)
?
Signaler
Messages postés
28942
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
12 juillet 2020
 2 610 >
Messages postés
5
Date d'inscription
lundi 29 juin 2020
Statut
Membre
Dernière intervention
29 juin 2020
Non tu n'as rien à modifier dans la fonction que je t'ai donné.
Comme tu peux le voir, URL est un paramètres .....
Et quand tu fais ton IF .. tu lui passes, en paramètre, l'url que tu veux tester 
If CheckAddress("https://www.url.que.tu.veux.tester.com") = true Then
   ...

else
 ...
End If


Mais vu ta ( tes...) question(s), je pense que tu devrais déjà commencer par suivre des tutos sur le fonctionnement du VB.NET.
A vouloir utiliser du code trouvé un peu au pif sur le net.. tu risques de faire une usine à gaz bancale......
Autant apprendre les bonne pratiques tout de suite avant de te lancer.
Tu trouveras de nombreux tutos sur le net...

Bonne soirée et bon apprentissage;
Signaler
Messages postés
5
Date d'inscription
lundi 29 juin 2020
Statut
Membre
Dernière intervention
29 juin 2020
 >
Messages postés
28942
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
12 juillet 2020
merci énormément! je vais suivre tes conseils. si ça as fonctionné, tu devrais voir cette discussion comme "Résolue". merci et bonne soirée à toi aussi.
Répondre Posez votre question