[RESOLU] Déterminer si un lien est valide

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

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

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

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 (

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 !

Testé ET fonctionnel sous SZ 2011 !!!!

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

Cordialement ,
Le réparateur de PC

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

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
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.

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

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.