JEU DE SCRABBLE EN RÉSEAU
cs_Scorpio93
Messages postés
7
Date d'inscription
mercredi 14 juillet 2004
Statut
Membre
Dernière intervention
4 juin 2006
-
3 juin 2006 à 15:42
cs_edes Messages postés 1 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 13 janvier 2007 - 13 janv. 2007 à 21:04
cs_edes Messages postés 1 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 13 janvier 2007 - 13 janv. 2007 à 21:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37922-jeu-de-scrabble-en-reseau
https://codes-sources.commentcamarche.net/source/37922-jeu-de-scrabble-en-reseau
13 janv. 2007 à 21:04
6 juin 2006 à 11:56
Tu te branches sur un site Internet qui te renvoie cette adresse
Ce pourrait être ton propre site ou un existant comme WhatIsMyIP.com
C'est plus sécuritaire d'utiliser ton propre site parce que tu connais le format et ça ne changera pas. Je viens de faire un test avec whatismyip et le format avait changé. Il a donc fallu que je change mon code...
Dim a As Integer, b As Integer
Dim strURL As String, strIP As String
strURL = Inet1.OpenURL("http://www.whatismyip.com/")
a = InStr(1, strURL, "Your IP Is ")
b = InStr(1, strURL, "
")
strIP = Mid(strURL, a + 15, b - (a + 15))
msgbox strIP
Michel
4 juin 2006 à 11:03
Si mes souvenirs sont exacts, la livebox intègre un firewall qui bloque tous les ports. Pour que des clients externes puissent trouver ton serveur il faut que tu tiennes compte de deux choses :
- Ils doivent connaître ton adresse publique pour savoir ou se connecter
- Le port d'écoute de ton serveur doit être ouvert sur ton firewall (généralement, on utilise un port dont le numéro est > 1024 car les autres sont réservés pour les systèmes)
J'ai eu un pb similaire avec un outil C/S derrière une 9box.
Bon courage
4 juin 2006 à 09:18
Mon ordi est directement branché sur la livebox mais j'ai un 2eme ordi en réseau avec lequel la connexion internet est partagée.
4 juin 2006 à 00:04
3 juin 2006 à 16:03
Private Sub Text1_Change()
If Text1 = "" Then
Command5.Enabled = False
Else
Command5.Enabled = True
End If
End Sub
3 juin 2006 à 15:42