Etienne BAUDOUX

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX

Le Deal du moment :
Fnac : 2 Funko Pop achetées : le 3ème ...
Voir le deal

3 participants

    [RESOLU] Déterminer si un lien est valide

    avatar
    Teknik
    Nouveau
    Nouveau


    Masculin Nombre de messages : 85
    Date d'inscription : 17/11/2011

    [RESOLU] Déterminer si un lien est valide Empty [RESOLU] Déterminer si un lien est valide

    Message par Teknik Jeu 21 Mar 2013 - 23:04

    Bonjour à tous !

    J'ai dans mon application une fonction qui doit télécharger un fichier sur internet or si le lien en question n'est plus valide où que le serveur est éteint ...
    le logiciel va me retourner une erreur.

    Est t'il possible de détecter la disponibilité d'un lien et d'enregistrer la valeur dans une variable ?

    Merci


    Dernière édition par Teknik le Sam 23 Mar 2013 - 22:19, édité 1 fois
    Blackorion35
    Blackorion35
    Je suis là tous les jours
    Je suis là tous les jours


    Masculin Nombre de messages : 2612
    Age : 33
    Localisation : Rouen
    Emploi/loisirs : Technicien Informatique DEC / Associé Directeur Convergence
    Humeur : C'est quand les prochaines vacs... ?
    Date d'inscription : 19/03/2013

    [RESOLU] Déterminer si un lien est valide Empty Re: [RESOLU] Déterminer si un lien est valide

    Message par Blackorion35 Ven 22 Mar 2013 - 8:44

    Bonjour,

    Je me posais exactement la même question mais également pour une IP (pour la création d'un logiciel de surveillance de serveur).
    En effet si quelqu'un connaîterai une réponse sa serait bien Smile
    Sinon tu pourrais utiliser un code du type Si Adresse IP + Port (=socket) alors ...

    Voici un code mais je ne sais pas s'il convient et comment l'interpreter sous SZ2012 :

    Code:


    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
    szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


    Function UrlExiste(st As String) As Boolean
    If URLDownloadToFile(0, st, "c:\tmp.tmp", 0, 0) = 0 Then

    UrlExiste = True
    End If


    End Function


    Sub test()
    Debug.Print UrlExiste("[url=http://www.google.fr/index.html]http://www.google.fr/index.html[/url]")
    Debug.Print UrlExiste("[url=http://www.google.fr/indexLOL.html]http://www.google.fr/indexLOL.html[/url]")

    End Sub

    Je ne sais pas si sa t'aidera :/

    SOURCE : http://www.developpez.net/forums/d66121/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/savoir-url-existe/
    avatar
    Teknik
    Nouveau
    Nouveau


    Masculin Nombre de messages : 85
    Date d'inscription : 17/11/2011

    [RESOLU] Déterminer si un lien est valide Empty Re: [RESOLU] Déterminer si un lien est valide

    Message par Teknik Ven 22 Mar 2013 - 17:57

    Merci de la réponse, mais moi non plus je ne sais pas trop utiliser le code que tu as donné Embarassed

    J'ai trouvé ceci sur le net :

    Code:
    ' URL validation
    Public Function UrlIsValid(ByVal url As String) As Boolean
    If url.ToLower().StartsWith("www.") Then url = "http://" & url
    Dim webResponse As Net.HttpWebResponse = Nothing
    Try
    Dim webRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
    webResponse = DirectCast(webRequest.GetResponse(), Net.HttpWebResponse)
    Return True
    Catch
    Return False
    Finally
    If webResponse IsNot Nothing Then webResponse.Close()
    End Try
    End Function

    Je pense que ce code est plus approprié mais je ne sais pas comment le mettre en place dans softwarzator Surprised(
    lereparateurdepc
    lereparateurdepc



    Masculin Nombre de messages : 5621
    Age : 31
    Localisation : Calvados
    Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
    Humeur : toujours cool
    Date d'inscription : 31/01/2010

    [RESOLU] Déterminer si un lien est valide Empty Re: [RESOLU] Déterminer si un lien est valide

    Message par lereparateurdepc Sam 23 Mar 2013 - 18:44

    re,

    Pour savoir si un serveur est OK : PING peut servir .....

    Teknik, ton code se place normalement dans le premier onglet de SZ.

    Pour l'utiliser ensuite, dans un évènement click par exemple modifie une variable IsSvrOK de cette façon:
    Modifier la variable NON tableau IsSvrOK avec comme valeur NON textuelle : UrlIsValid("www.url.com")
    NOTE : les www sont requis faut voir avec un site sans www .......
    Je test ! Smile

    Testé ET fonctionnel sous SZ 2011 !!!!

    Blackorion35, le code ne fonctionne pas sous Visual Basic 2010 .....

    Cordialement ,
    Le réparateur de PC
    avatar
    Teknik
    Nouveau
    Nouveau


    Masculin Nombre de messages : 85
    Date d'inscription : 17/11/2011

    [RESOLU] Déterminer si un lien est valide Empty Re: [RESOLU] Déterminer si un lien est valide

    Message par Teknik Sam 23 Mar 2013 - 22:17

    oooooh ! Mais c'est tip top nikel !
    Un grand merci à vous deux, ça faisais un bail lereparateurdepc ;o)
    avatar
    Teknik
    Nouveau
    Nouveau


    Masculin Nombre de messages : 85
    Date d'inscription : 17/11/2011

    [RESOLU] Déterminer si un lien est valide Empty Re: [RESOLU] Déterminer si un lien est valide

    Message par Teknik Sam 23 Mar 2013 - 23:35

    Teknik a écrit:oooooh ! Mais c'est tip top nikel !
    Un grand merci à vous deux, ça faisais un bail lereparateurdepc ;o)


    [EDIT]

    Ou moment où j'ai réglé ce problème c'est SZ 2012 qui a planté complétement Sad
    Je pense que le système de solution ect ect n'est pas très fonctionnel, maintenant il ne me génère plus le logiciel tous est mélanger sa bug dans tous les sens snif
    J'ai juste cliquer sur un bouton et SZ ma afficher une erreur bizarre raaaaaaaaaaah !
    Je vais tout réinstaller et faire uniquement une seule solution et uniquement un seul projet à la fois.
    lereparateurdepc
    lereparateurdepc



    Masculin Nombre de messages : 5621
    Age : 31
    Localisation : Calvados
    Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
    Humeur : toujours cool
    Date d'inscription : 31/01/2010

    [RESOLU] Déterminer si un lien est valide Empty Re: [RESOLU] Déterminer si un lien est valide

    Message par lereparateurdepc Dim 24 Mar 2013 - 7:17

    re,

    C'est quoi l'erreur ? Poste le message d'erreur.

    J'ai testé sous SZ 2011 .... MAIS ça reste vrai pour SZ 2012 normalement!

    Cordialement ,
    Le réparateur de PC
    avatar
    Teknik
    Nouveau
    Nouveau


    Masculin Nombre de messages : 85
    Date d'inscription : 17/11/2011

    [RESOLU] Déterminer si un lien est valide Empty Re: [RESOLU] Déterminer si un lien est valide

    Message par Teknik Dim 24 Mar 2013 - 9:56

    Je n'ai plus le message d'erreur je ne l'ai pas noté arf.
    Mais le bug n'est pas en rapport avec l'action que l'on a testé, c'est SZ 2012 qui à tous mélanger les répertoires de générations de projets et de plus il ne génère plus le .exe de l'application.

    Je vais essayer de recrée le bug comme ça je pourrais copié le message d'erreur.

    Contenu sponsorisé


    [RESOLU] Déterminer si un lien est valide Empty Re: [RESOLU] Déterminer si un lien est valide

    Message par Contenu sponsorisé


      La date/heure actuelle est Jeu 28 Mar 2024 - 14:19