Comment savoir si une URL existe

Version imprimable

05/11/2005, 20h13
funzynator

Comment savoir si une URL existe

bonjour j ai un amis qui tient un serveur de jeu,
son lien est :

serveurdejeu.dyndns.org

je cree un programme permettant au joueur de se connecter a son serveur
le hic c est que je dois aussi integrer une fonction permettant de dire si le serveur est ON ou OFF alors j ai cree un bouton qui verifie si le lien existe,mais je ne connais pas la programmation pour verifier un URL

merci pour votre reponse
05/11/2005, 20h30
Franck.H

Je pense qu'un simple ping ou quelque chose dans ce genre suffirait, si pas de réponse bah Off line !
05/11/2005, 21h31
funzynator

le hic c'est que son pc a comme adresse serveurdejeu.dyndns.org et que l'adresse de son serveur c'est serveurdejeu.dyndns.org:8080 et quand je le met en recherche de ping ben il me met offline meme quand son serveur est allumer,il faudrait que:

Quand son serveur est allume,la page
http://serveurdejeu.dyndns.org:8080/index.html fonctionne
et j aimerais savoir s'il est possible de faire verifier si la page existe
05/11/2005, 23h37
AlainTech

Une url (ou une adresse IP) + un port = un socket.

Fait une recherche Google sur ce mot, tu devrais trouver ton bonheur.
05/11/2005, 23h49
David.Schris

Utilises UrlDownloadToFile pour télécharger l'index. Si la fonction échoue, c'est qu'il n'est pas en ligne.
06/11/2005, 00h09
funzynator

tu sais me faire un exemple?

je te donne les donnee

donc j ai le lblstatut qui m'affiche Serveur eteint ou Serveur en ligne selon les resultats de la demande
j ai l'adresse serveurdejeu.dyndns.org:8080/index.html

voila
merci bien
06/11/2005, 00h12
David.Schris

http://support.microsoft.com/kb/244757/EN-US/
06/11/2005, 00h21
funzynator

je suis un newbie je comprend pas ce qu'il est marquer tu sais pas me faire un exemple avec les donnee de ce que j ai dis? et me faire un copie coller du code?

tiens un peu de code ...:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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("http://www.google.fr/index.html")
      Debug.Print UrlExiste("http://www.google.fr/indexLOL.html")
 
End Sub

:wink:

Voila mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
 
Private Sub Statut_Click()
If URLDownloadToFile(0, st, "c:\tmp.tmp", 0, 0) = 0 Then
 
   UrlExiste = True
End If
 If (UrlExiste = True) Then
 lblstatut.Caption = "Serveur en ligne"
 Else
 lblstatut.Caption = "Serveur est eteint"
 End If
 
End Sub
____________________________________________________________
 
Sub test()
    Debug.Print UrlExiste("http://serveurdejeu.dyndns.org:8080/index.html")
      Debug.Print UrlExiste("http://serveurdejeu.dyndns.org:8080/create.html")
End Sub

et je sais pas pourkoi ya rien qui se passe

06/11/2005, 17h37
David.Schris

C'est à dire "rien" ?
Qu'est-ce qui s'affiche dans la fenêtre de débogage ?
Qu'est-ce qui s'affiche dans le label ?
Est-ce que le fichier "c:\tmp.tmp" est créé ?
Est-ce qu'une requête HTTP est envoyée ? (tu peux voir ça avec un sniffer si tu en as un)
06/11/2005, 17h45
Tofalu

Tu peux aussi à priori utiliser l'api :

Code:

Declare Function IsDestinationReachable Lib "SENSAPI.DLL" Alias "IsDestinationReachableA" (ByVal lpszDestination As String, ByRef lpQOCInfo As QOCINFO) As Long

Citation:

· lpszDestination
Pointer to a string that specifies the destination. The destination can be an IP address, a UNC name, or an URL.

· lpQOCInfo
Pointer to the QOCINFO structure that receives the Quality of Connection (QOC) information. You can supply a NULL pointer if the QOC information is not desired.

Je te laisse consulter l'api guide pour trouver un exemple :wink:
06/11/2005, 18h18
funzynator

Citation:

Envoyé par David.Schris

C'est à dire "rien" ?
Qu'est-ce qui s'affiche dans la fenêtre de débogage ?
Qu'est-ce qui s'affiche dans le label ?
Est-ce que le fichier "c:\tmp.tmp" est créé ?
Est-ce qu'une requête HTTP est envoyée ? (tu peux voir ça avec un sniffer si tu en as un)

bon j ai mieux que d ecrire,j ai l ecran,quand je fais debugage pas a pas sa m'affiche la meme chose:

http://img177.imageshack.us/img177/2743/14hk.gif
http://img177.imageshack.us/img177/8450/27bs.gif

voila j espere que tu pourra m aide sinon tofalu si tu m explique comment je peux faire mon code avec ce que tu m a dis je testerais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
    UrlExiste = (URLDownloadToFile(0, st, "c:\tmp.tmp", 0, 0) = 0) ' renvoie True si la condition est vérifiée
End Function
 
Private Sub Statut_Click() ' procédure définie en dehors du corps de la fonction !
    If UrlExiste("http://serveurdejeu.dyndns.org:8080/index.html") Then
        lblstatut.Caption = "Serveur en ligne"
    Else
        lblstatut.Caption = "Serveur est eteint"
    End If  
End Sub
 
' Procédure de test facultative
Sub test()
    Debug.Print UrlExiste("http://serveurdejeu.dyndns.org:8080/index.html")
      Debug.Print UrlExiste("http://serveurdejeu.dyndns.org:8080/create.html")
End Sub

07/11/2005, 20h56
funzynator

merrrrrrcccccciiiiiiiiiiiiiii david t es un pro

je remercie tout ceux qui m'ont aié

[PROBLEME RESOLU]