RÉCUPÉRER SON ADRESSE IP INTERNET (VERSION SIMPLE ET QUI FONCTIONNE)

Commentaire de crenaud76 le 15/01/2006 23:15:37

Salut,
Pourquoi utiliser un richtextbox pour ca ! Une simple variable de type String aurait fait
l'affaire !!
Et puis ton Doevents se trouve en dehors d ela boucle Do ... Until alors il ne sert pas à grand chose !
Et attention a ta variable "DebuT", qui est un variant et pas une String ! En VB6, il faut donner le type pour chaque variable, même si elles sont déclarées sur une seule et même ligne de déclaration, contrairement au VB.NET
Je te propose aussi d'utiliser la fonction Mid$(), plutot que Mid() : Ce qui me connaisse sauront que c'ets un de mes chevaux de bataille !
Reste plus qu'à essayer de se passer du controle Inet (qu'à défaut je transmettrais personnellement en tant qu'argument de la fonction) et se sera tres bien ...

CR

Commentaire de bobjay le 15/01/2006 23:52:43

crenaud76,

"Pourquoi utiliser un richtextbox pour ca "
=> Je l'ai expliqué dans les commentaires de ma source (voir ligne 5 et 6 du script): le richtext box me permet de stocker une plus grande quantité de caractères qu'une simple variable string (string est limité à je ne sais plus combien de caracteres tandis que je n'ai jamais encore atteint de limite avec un richtext)

"attention a ta variable "DebuT", qui est un variant et pas une String"
=> Je suis étonné que tu ne dise rien à propos de mes variables L1 et L2 que j'ai omis de déclarer :p
J'aime beaucoup le VB pour ça, on n'est pas obligé d'être super rigoureux au niveau des déclarations des variables pour que ça fonctionne, on gagne un temps fou lorsque l'on développe des bouts d'essais, par contre quand on réalise une appli sérieuse, il est clair qu'il vaut mieux faire attention et déclarer toutes ses variables (vive l'option Explicit pour retrouver ses oublis de déclaration hihihi). Néanmoins je peux t'assurer que cette source fonctionne telle qu'elle est affichée sur cette page, que les variables soient bien déclarées ou non, car je l'ai copié-collé direct de mon projet vb (j'aime bien tester avant de poster).

En tout cas, je te remercie pour ta note, c'est plutot sympa car je ne trouve pas que ça le mérite, vu le faible niveau de programmation que ça demande... Je suis certain que d'autres peuvent mieux faire que mon "bricolage",j'espère simplement que ça pourra aider quelques débutants en attendant qu'un code + court et + efficace se présente ;)

@+

Commentaire de Renfield le 16/01/2006 09:47:35 administrateur CS

je soutiens Crenaud76... ajoutes un Option Explicit, et lance ton programme en pressant Ctrl + F5 (ces deux aspects pouvant être rendus automatiques, dans les options)

gain de temps ? un Dim n'est pas bien long, accélère le code (pas de Variant)
et évite bien des tracas (fautes de frappe, casting, etc)

le RichTextBox est inutile....
un String suffit très largement.... surtout pour la page utilisée (7.5 ko)

le contrôle Inet aussi, mais c'est excusable... c'est un moyen simple d'accéder au Web...(je favoriserai les API)

Commentaire de Neo.balastik le 16/01/2006 10:53:54

Salut ;O)

Source sans passer par le contrôle Inet - Utilisation de l'API wininet
(tirée de l'API-Guide) et s'inspirant de la source postée :

Option Explicit

Const scUserAgent = "API-Guide test program"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL As String = "http://www.mon-ip.com/"

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Sub Form_Load()

    Dim hOpen    As Long
    Dim hFile    As Long
    Dim Ret      As Long
    Dim lOffset1 As Long
    Dim lOffset2 As Long
    Dim sBuffer  As String
    
    Const sStart  As String = "<DIV class=IP>Votre adresse IP est "
    Const sEnd    As String = "</DIV>"
    
    'Create a buffer for the file we're going to download
    sBuffer = Space(5000)
    'Create an internet connection
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    'Open the url
    hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    
    'Read the first 5000 bytes of the file
    InternetReadFile hFile, sBuffer, 5000, Ret
    'clean up
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
            
    lOffset1 = InStr(1, sBuffer, sStart, vbTextCompare)
    lOffset2 = InStr(lOffset1, sBuffer, sEnd, vbTextCompare)
    lOffset1 = lOffset1 + Len(sStart)
    lOffset2 = lOffset2 - lOffset1

    MsgBox "Adresse IP : " & Mid$(sBuffer, lOffset1, lOffset2)

End Sub

Commentaire de BruNews le 16/01/2006 10:59:34 administrateur CS

Un textbox (classe 'EDIT' pour Windows) en multilne n'est virtuellement limité que par la mémoire disponible, 32 Ko est seulement le buffer qu'il alloue par défaut quand il est créé.
On peut tout à fait le changer à l'exécution, voici exemple en C que je vous laisse traduire:

hedtxt est le handle du textbox.

int __stdcall PrepBuffEdit()
{
  HLOCAL pbuff;
  pbuff = (HLOCAL) SendMessage(hedtxt, EM_GETHANDLE, 0, 0);
  if(pbuff) LocalFree(pbuff);
  pbuff = LocalAlloc(LHND, 2097152); // 2 Mo
  if(!pbuff) return 0;
  SendMessage(hedtxt, EM_SETHANDLE, (WPARAM) pbuff, 0);
  SendMessage(hedtxt, EM_LIMITTEXT, 2097151, 0);
  return 1;
}

ATTENTION, si on ferme la fenêtre contenat le EDIT sans finir le prog, il est de la responsabilité du développeur de libérer la mémoire.

Commentaire de bobjay le 16/01/2006 13:59:54

Jack, je suis au courant que c'est la N-eme source à traiter le sujet (d'ailleurs tu n'as pas du lire la description de la fonction, tu aurais vu que je t'ai précédé sur cette remarque lol). Si j'ai décidé de publier ce code, c'est parce qu'il m'a semblé un poil plus clair que les autres, et qu'on n'est pas obligé de télécharger un fichier Zip pour pouvoir lire un code si simplet (je n'apprécie pas trop de devoir télécharger des fichiers pour lire 10 petites lignes de code). Ok ce sont des arguments de fainéant, mais n'est-ce pas le but de l'informatique de nous faciliter la vie ?

Neo.balastik, merci pour ta source qui nous permet d'économiser les controles, certes ce code est légèrement plus long que le mien à cause des déclarations de l'api, mais c'est génial et ça vaut  vraiment le coup si on peu éviter d'utiliser des controles !

BruNews, ne le prends surtout pas mal, mais il me semble qu'il s'agit d'un site VB ici, alors les exemples en C, c'est bien gentil mais on peut surement s'en dispenser...

Crenaud76, on ne va pas se battre pour une histoire de capacité de variable tout de même lol. Pour la déclaration j'avoue avoir un comportement barbare, peut etre est-ce du à l'époque ou je programmais en Basic, ou il fallait jusqu'a déclarer le numéro de la ligne de code que l'on écrivait. Le VB fut pour moi assez "magique" justement de ne pas boguer pour un simple oubli de déclaration de variable alors j'en profite un petit peu, mais je ne suis vraiment pas un exemple à suivre, tout bon programmeur qui se respecte doit impérativement déclarer chaque variable, ne serait-ce que pour assurer un meilleur controle de l'application développée. De plus il est clair qu'une simple var string fait largement l'affaire pour ce genre de traitement, mais j'ai appris à toujours voir + grand car je ne suis pas à l'abris d'utiliser cette fonction pour trouver autre chose qu'une IP dans une page html (qui peut le plus peut le moins, mais l'inverse est plus difficile). Conclusion pour récupérer votre IP Internet avec le code que j'ai proposé, laissez tomber le RichText et utilisez une var String si vous désirez davantage simplifier ce code.

Merci à tous pour vos précieuses remarques, vos corrections et à bientot !

PS: Si je propose une autre source, promis je tacherais d'être plus rigoureux avec mes variables ;)

Commentaire de ratala le 17/01/2006 22:32:23

salut tout le monde, quelqun aurait l'aimabilité de m'expliquer (clairement si possible...) quelle est la différence entre les fonction mid$ et mid ?

Commentaire de ratala le 18/01/2006 13:06:12

A ok merci Renfield

Commentaire de Renfield le 20/01/2006 16:45:59 administrateur CS

quel interet de passer par un script VBS ?

Commentaire de Renfield le 20/01/2006 17:07:38 administrateur CS

certes.
mais aucunement besoin d'un vbs pour ca....

l'IP donnée ici est l'IP internet, pas l'IP locale.