Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


[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 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
Blackorion35
Blackorion35
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 2611
Age : 29
Localisation : Rouen
Emploi/loisirs : Technicien Informatique Mazars / Associé Directeur Wemya
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 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/
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 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(
lereparateurdepc
lereparateurdepc


Masculin Nombre de messages : 5606
Age : 26
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 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


[RESOLU] Déterminer si un lien est valide Wp_20110[RESOLU] Déterminer si un lien est valide 10_32010[RESOLU] Déterminer si un lien est valide Wp_20111[RESOLU] Déterminer si un lien est valide 07_sig10
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 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)
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 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.
lereparateurdepc
lereparateurdepc


Masculin Nombre de messages : 5606
Age : 26
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 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


[RESOLU] Déterminer si un lien est valide Wp_20110[RESOLU] Déterminer si un lien est valide 10_32010[RESOLU] Déterminer si un lien est valide Wp_20111[RESOLU] Déterminer si un lien est valide 07_sig10
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 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é

[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 Ven 18 Oct 2019 - 16:52