Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RÉCUPÉRER VOTRE IP PUBLIC ( MÉLANGE DE PHP ET VB)


Information sur la source

Description

C’est un code que j’utilise dans une application Client/Serveur (IP dynamique), je sais qu il y a sûrement une meilleure  méthode…
Désole le code n'est pas commenté(je n’est pas de temps)
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de Cacophrene le 14/02/2005 19:41:50

Salut!

Si tu cherches seulement à récupérer l'IP (pardon je n'ai pas le temps de consulter ta source), tu peux utiliser :

Set NetW = CreateObject("WScript.NetWork")
Set wmiService = GetObject("winmgmts:\\")
Set wmiItem = wmiService.ExecQuery("SELECT * FROM Win32_NetWorkAdapterConfiguration WHERE IPEnabled = True")
    For Each Item In wmiItem
        With Item
            For Each AdresseIP In .IPAddress
                If AdresseIP <> "0.0.0.0" Then MsgBox AdresseIP
            Next
        End With
    Next

Cette source est un fragment de la source de Algori que tu trouveras ici http://www.vbfrance.com/code.aspx?ID=29390

Cacophrène

signaler à un administrateur
Commentaire de ana_adil le 15/02/2005 20:41:59

Salut Cacophrene
J'ai déjà signalé que c'est une méthode entre plusieurs.
Je n'ai pas testé ton code car il y a un prob dans mon vb, mais je le ferai le plus vite possible.
Est ce que ton code est en VB (je suis newbie en vb) ?
;)

signaler à un administrateur
Commentaire de Kazuya le 15/02/2005 22:29:37

cacophrene, sache que la methoque que tu preconise ne fonctionne pas derriere un routeur

signaler à un administrateur
Commentaire de Cacophrene le 16/02/2005 06:55:21

Oui, ça ne marche pas derrière un routeur... mais en général changer les données initiales change le problème, et donc aussi la solution Kazuya ;-)

Sinon, ce n'est PAS ma source : c'est, comme je l'ai déjà dit, un fragment d'une source d'Algori que vous pouvez trouver sur  http://www.vbfrance.com/code.aspx?ID=29390

Enfin, pour répondre à ana_adil, cette source est à l'origine du vbscript (voir la source d'Algori), mais elle est tout à fait valable en vb car la syntaxe est la même.

Cacophrène

signaler à un administrateur
Commentaire de ana_adil le 16/02/2005 20:29:54

SVP est ce que que qlq un a testé mon code!

signaler à un administrateur
Commentaire de castor_furieux le 24/02/2005 14:55:27

salut! apparement tu t'es bien pris la bugne pour pondre ce code....

je suis désolé mais ca ne me donne pas un résultat, comment dire... En fait, ca ne donne aucun résultat :|


Tu le sais déjà mais, y'a pas mal de sources qui permettent d'optenir ton ip (en utilisant les API). j'en utilise une qui doit faire 40 lignes a tout péter (et qui marche du feu de dieu).

de toute facon, si ca marche de ton coté, c'est l'essentiel.

pourrais tu me dire comment tu utilise ton appli, stp?

bonne journnée et bonne prog

signaler à un administrateur
Commentaire de ana_adil le 24/02/2005 21:01:34

Pour recuperer  l IP tu dois changer 0 par 1 ou 2
    
IP = Arr_Result(UBound(Arr_Result) - 0)

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,296 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.