Détecter si un site web existe en vb .net 4.8

Résolu/Fermé

RogerVB Messages postés 5 Date d'inscription lundi 29 juin 2020 Statut Membre Dernière intervention 29 juin 2020 - 29 juin 2020 à 23:24
RogerVB Messages postés 5 Date d'inscription lundi 29 juin 2020 Statut Membre Dernière intervention 29 juin 2020 - 29 juin 2020 à 23:58

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

A voir également:

Détecter si un site web existe en vb .net 4.8
Site de telechargement - Guide
Paint net - Télécharger - Dessin & Illustration
Site de vente en ligne particulier - Guide
Site inaccessible - Guide
Traduire une page web - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
29 juin 2020 à 23:34

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://

RogerVB Messages postés 5 Date d'inscription lundi 29 juin 2020 Statut Membre Dernière intervention 29 juin 2020
29 juin 2020 à 23:35

merci Jordane. je voulais savoir, où puis-je insérez mes actions? merci!

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650 > RogerVB Messages postés 5 Date d'inscription lundi 29 juin 2020 Statut Membre Dernière intervention 29 juin 2020
Modifié le 29 juin 2020 à 23:46

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

RogerVB Messages postés 5 Date d'inscription lundi 29 juin 2020 Statut Membre Dernière intervention 29 juin 2020 > jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024
29 juin 2020 à 23:45

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!

RogerVB Messages postés 5 Date d'inscription lundi 29 juin 2020 Statut Membre Dernière intervention 29 juin 2020 > RogerVB Messages postés 5 Date d'inscription lundi 29 juin 2020 Statut Membre Dernière intervention 29 juin 2020
29 juin 2020 à 23:52

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)

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;

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

'Votre colis est dans le site de livraison qui dessert votre adresse' que faire

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters