Télécharger le zip
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
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) ? ;)
cacophrene, sache que la methoque que tu preconise ne fonctionne pas derriere un routeur
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
SVP est ce que que qlq un a testé mon code!
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
Pour recuperer l IP tu dois changer 0 par 1 ou 2 IP = Arr_Result(UBound(Arr_Result) - 0)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 764 membres 53 nouveaux aujourd'hui 16 151 membres club