Discussion :

[funzynator]

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

[Franck.H]

Je pense qu'un simple ping ou quelque chose dans ce genre suffirait, si pas de réponse bah Off line !

[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

[AlainTech]

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

Fait une recherche Google sur ce mot, tu devrais trouver ton bonheur.

[David.Schris]

Utilises UrlDownloadToFile pour télécharger l'index. Si la fonction échoue, c'est qu'il n'est pas en ligne.

[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

[David.Schris]

http://support.microsoft.com/kb/244757/EN-US/

[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?

[SfJ5Rpw8]

tiens un peu de code ...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[funzynator]

Voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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)

[Tofalu]

Tu peux aussi à priori utiliser l'api :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

· 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

[funzynator]

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:




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

[David.Schris]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[funzynator]

merrrrrrcccccciiiiiiiiiiiiiii david t es un pro

je remercie tout ceux qui m'ont aié


[PROBLEME RESOLU]