Récupérer une adresse ip de connexion partagée
dvt_robo
Messages postés
6
Date d'inscription
lundi 14 mars 2005
Statut
Membre
Dernière intervention
2 novembre 2005
-
17 mars 2005 à 17:37
dvt_robo Messages postés 6 Date d'inscription lundi 14 mars 2005 Statut Membre Dernière intervention 2 novembre 2005 - 18 mars 2005 à 23:40
dvt_robo Messages postés 6 Date d'inscription lundi 14 mars 2005 Statut Membre Dernière intervention 2 novembre 2005 - 18 mars 2005 à 23:40
A voir également:
- Récupérer une adresse ip de connexion partagée
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Violation d'accès à l'adresse - Forum Delphi / Pascal
- Tag ip session ✓ - Forum C# / .NET
- Tag ip ouvrir une session - Forum C / C++ / C++.NET
- Comment connaître et mémoriser l'adresse IP des visiteurs de mo, site ✓ - Forum PHP
5 réponses
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
17 mars 2005 à 20:36
17 mars 2005 à 20:36
Salut,
Tape "ip publique" dans la zone de recherchedu site et tu auras quelques exemples.
Loup Gris
Tape "ip publique" dans la zone de recherchedu site et tu auras quelques exemples.
Loup Gris
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
18 mars 2005 à 07:41
18 mars 2005 à 07:41
Un des trucs classiques est de créer un script qui se connecte au site
http://www.whatismyip.org ou http://www.whatismyip.com. Mais je connais
rien dans les réseaux, je ne connais pas d'autres méthodes. (IPCONFIG
/ALL ?)
@+
MSN : x_men_40@hotmail.com
http://www.whatismyip.org ou http://www.whatismyip.com. Mais je connais
rien dans les réseaux, je ne connais pas d'autres méthodes. (IPCONFIG
/ALL ?)
@+
MSN : x_men_40@hotmail.com
rouzic_79
Messages postés
3
Date d'inscription
mardi 9 mars 2004
Statut
Membre
Dernière intervention
18 mars 2005
18 mars 2005 à 08:20
18 mars 2005 à 08:20
Avec les bons mots clés, on trouve ce qu'on veut....
Merci à Nocturne pour cette source : http://www.vbfrance.com/code.aspx?ID=5731
ça marche !!
Merci à Nocturne pour cette source : http://www.vbfrance.com/code.aspx?ID=5731
ça marche !!
dvt_robo
Messages postés
6
Date d'inscription
lundi 14 mars 2005
Statut
Membre
Dernière intervention
2 novembre 2005
18 mars 2005 à 18:16
18 mars 2005 à 18:16
ça marche super (après une petite adaptation à .NET).
Maintenant j'essaye d'envoyer des des fichiers sur le serveur ftp grâce
à l'API wininet (tant qu'à faire, puisque je l'utilise pour récupérer
l'IP). J'arrive à me connecter avec InternetOpen puis InternetConnect,
mais là où je bloque c'est pour sélectionner un répertoire courant avec
FtpSetCurrentDirectory : il me répond toujours faux.
J'utilise un code ressemblant à ça :
lgSession = InternetOpen("", 1, vbNullString, vbNullString, 0)
If lgSession Then
' Récupère un pointeur vers pour session FTP
lgFtp = InternetConnect(lgSession, stServ, INTERNET_DEFAULT_FTP_PORT, _
stLogin, stPass, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
If lgFtp Then
' Positionne le répertoire distant
If FtpSetCurrentDirectory(lgFtp, stRepFtp) Then ' c'est là que ça bloque
' par défaut, stRepFtp = "/"
' Envoie le fichier
blOk = FtpPutFile(lgFtp, stFicLocal, stFicFtp, _
FTP_TRANSFER_TYPE_ASCII, 0)
End If
End If
' Libération du pointeur
inRes = InternetCloseHandle(lgFtp)
End If
Ca ne fonctionne pas non plus si je fais FtpGetCurrentDirectory.
Quelqu'un aurait-il une idée ?
Maintenant j'essaye d'envoyer des des fichiers sur le serveur ftp grâce
à l'API wininet (tant qu'à faire, puisque je l'utilise pour récupérer
l'IP). J'arrive à me connecter avec InternetOpen puis InternetConnect,
mais là où je bloque c'est pour sélectionner un répertoire courant avec
FtpSetCurrentDirectory : il me répond toujours faux.
J'utilise un code ressemblant à ça :
lgSession = InternetOpen("", 1, vbNullString, vbNullString, 0)
If lgSession Then
' Récupère un pointeur vers pour session FTP
lgFtp = InternetConnect(lgSession, stServ, INTERNET_DEFAULT_FTP_PORT, _
stLogin, stPass, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
If lgFtp Then
' Positionne le répertoire distant
If FtpSetCurrentDirectory(lgFtp, stRepFtp) Then ' c'est là que ça bloque
' par défaut, stRepFtp = "/"
' Envoie le fichier
blOk = FtpPutFile(lgFtp, stFicLocal, stFicFtp, _
FTP_TRANSFER_TYPE_ASCII, 0)
End If
End If
' Libération du pointeur
inRes = InternetCloseHandle(lgFtp)
End If
Ca ne fonctionne pas non plus si je fais FtpGetCurrentDirectory.
Quelqu'un aurait-il une idée ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
dvt_robo
Messages postés
6
Date d'inscription
lundi 14 mars 2005
Statut
Membre
Dernière intervention
2 novembre 2005
18 mars 2005 à 23:40
18 mars 2005 à 23:40
c'est bon j'ai trouvé l'erreur. Pour ceux que ça intéresse : j'avais
mal déclaré les fonctions : en .NET, il faut remplacer les integer dans
les déclarations de fonction de l'API wininet par INT32.
Et c'est tout.
ex :
Private Declare Function InternetOpen Lib
"wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal
lAccessType As Int32, ByVal sProxyName As String, ByVal sProxyBypass As
String, ByVal lFlags As Int32) As Int32
mal déclaré les fonctions : en .NET, il faut remplacer les integer dans
les déclarations de fonction de l'API wininet par INT32.
Et c'est tout.
ex :
Private Declare Function InternetOpen Lib
"wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal
lAccessType As Int32, ByVal sProxyName As String, ByVal sProxyBypass As
String, ByVal lFlags As Int32) As Int32