Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


[RESOLU] Déterminer si un lien est valide

Partagez

Teknik
Nouveau
Nouveau

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

[RESOLU] Déterminer si un lien est valide

Message par Teknik le 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
avatar
Blackorion35
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 2567
Age : 27
Localisation : Rouen
Emploi/loisirs : Dirigeant société informatique déclaré/Informaticien au CNED
Humeur : En forme !
Date d'inscription : 19/03/2013

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

Message par Blackorion35 le 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/

Teknik
Nouveau
Nouveau

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

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

Message par Teknik le 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(
avatar
lereparateurdepc


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

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

Message par lereparateurdepc le 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



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA



Teknik
Nouveau
Nouveau

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

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

Message par Teknik le Sam 23 Mar 2013 - 22:17

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

Teknik
Nouveau
Nouveau

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

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

Message par Teknik le 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.
avatar
lereparateurdepc


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

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

Message par lereparateurdepc le 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



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA



Teknik
Nouveau
Nouveau

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

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

Message par Teknik le 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é

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

Message par Contenu sponsorisé


    La date/heure actuelle est Sam 21 Oct 2017 - 0:54