Discussion :

[wnx83]

Bonjour a tous,

Pour etre franc je ne m'y connait pas du tout en Vbs, je commence a peine a bien gerer le Msdos et je compte bien en connaitre toutes les subtilitées avant de me lancer dans un autre language.
Je sait qu'Msdos ne fait pas tout, et c'es pour cette raison que j'ai besoin de votre savoir :p
J'ai un script vbs qui sert a recuperer l'adresse ip (du fai) et qui l'affiche dans une MessageBox, je voudrai savoir comment je pourrai lui demander de ne plus l'ecrire dans la MessageBox mais plutot dans un fichier.txt
Ps: de preference sans effacer le fichier en question avant reecriture

Je met le bout de code que j'ai denicher:

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
Dim IE, Page, Tag, TagPos, Longueur
Set IE = CreateObject("InternetExplorer.Application")
 
IE.Navigate "http://tools.scl.free.fr/me/"
While IE.Busy: WScript.Sleep 100: Wend
 
Page = IE.Document.Body.InnerHTML
IE.Quit
Set IE = Nothing
 
Tag="client_ip>"
TagPos = InStr(1, Page, "<" + Tag, vbTextCompare)
Longueur = InStr(TagPos + Len(Tag), Page, "</" + Tag, vbTextCompare) - TagPos - Len(Tag) - 1
 
MsgBox Mid(Page, TagPos + Len(Tag) + 1, Longueur)

Merci d'avance

[SfJ5Rpw8]

voir

Comment écrire dans un fichier texte ?

[wnx83]

J'avais deja vu cet article, mon probleme serai plutot de savoir comment remplacer Salut par l'ip, hormis le Tag="client_ip>" qui a mes yeux d'amateur semblerai le plus ressembler a une variable mais qui ne marche pas lors d'un

Code :

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

   f.write("client_ip>")

ou d'un

Code :

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

f.write("client_ip")

.
Je ne comprend pas comment faire passer une variable dans mon f.write (en admettant que ce soi la variable :p)

[SfJ5Rpw8]

J'....
Je ne comprend pas comment faire passer une variable dans mon f.write (en admettant que ce soi la variable :p)

exactement de la même manière que ton MsgBox ... tu remplace MsgBox par f.write ..

[wnx83]

Je te remerci pour tout, c'etait tellement simple