PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

[Résolu] Comment trouver son IP sous PB ??

http://forums.purebasic.com/french/viewtopic.php?t=10585

Page 1 sur 2

[Résolu] Comment trouver son IP sous PB ??

Publié : mer. 19/mai/2010 9:45
par SPH
Question tres basique (lol), comment faire pour débugguer son IP actuelle ????

Reponses des PBiens :
1> Faire un fichier "IP.PHP" contenant ca :

Code : Tout sélectionner

<?
echo $_SERVER["REMOTE_ADDR"];
?>
2> Mettre ce fichier sur votre site (VotreURL+"/IP.PHP")
3> Executez ce code PB pour récuperer votre IP tel que le voient les internautes :

Code : Tout sélectionner

url$=[b]VotreURL+"/IP.PHP"[/b]

ProcedureDLL.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
  ;/ Author : Pille
  isLoop.b=1
  INET_RELOAD.l = $80000000
  hInet.l=0
  hURL.l=0
  Bytes.l=0
  Buffer.s= Space (2048 )
  RES.s= ""
  hInet = InternetOpen_ ( "" , OpenType, ProxyAndPort, "" , 0)
  hURL = InternetOpenUrl_ (hInet, Url, #Null , 0, INET_RELOAD, 0)
  Repeat
    InternetReadFile_ (hURL,@Buffer, Len (Buffer), @Bytes)
    If Bytes = 0
      isLoop=0
    Else
      RES = RES + Left (Buffer, Bytes)
    EndIf
  Until isLoop=0
  InternetCloseHandle_ (hURL)
  InternetCloseHandle_ (hInet)
  ProcedureReturn RES
EndProcedure

ProcedureDLL.s Url2Text(Url.s)
  ProcedureReturn Url2Text2(Url,1, "" )
EndProcedure 

Source$=Url2Text(url$)
MessageRequester("IP",Source$) ; la source complète de la page

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 10:41
par Patrick88
regarde dans un post de "Le psychopathe" = PB et le CMD windows

http://www.purebasic.fr/french/viewtopi ... =6&t=10503

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 11:59
par SPH
Bon, dites moi si cette méthode est bien :
pour récupérer mon ip, je lance un code PB qui va sur ce site : http://www.monip.org/
puis j'analyse la page et je peux récuperer mon ip.

Pas mal non ? :?: :idea:

PS : par peur que ce site soit un jour fermé, peut on piquer le code html/javascript du site pour le mettre sur son propre site free ?
Si oui, avez vous ce genre de code ???

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 12:05
par Le psychopathe
La fait de passer par ce site te donne ton adresse IP publique ( celle pour le net ).
C'est bon et si le fait de passer par ce site t'embêtes, rien ne t'empeches de faire toi même une page php qui te renvoit ton adresse ip (3 lignes de codes).
@+

edit allez je suis sympa :

Code : Tout sélectionner

<?
echo $_SERVER["REMOTE_ADDR"];
?>

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 12:13
par SPH
Merci psychopate.

Puis je abuser ? Ton code est a mettre dans un .HTML ? (AIE AIE AIE, peur de se faire engueuler :arrow: :cry: )


Sinon, j'ai fais ca mais je ne sais pas dans quel zone mémoire se trouve le résultat a décortiquer pour récupérer l'IP :

Code : Tout sélectionner

If OpenWindow(0,0,0,600,300,"WebGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
    WebGadget(0,10,10,580,280,"http://www.monip.org/")
    ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 13:57
par Backup
......................

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 14:04
par SPH
Dobro a écrit :tiens essaye ça :



prg= runprogram ( "cmd.exe" , "?/c ipconfig /all" , "" , #PB_Program_Open|#PB_Program_Read )

If prg
         While programrunning (prg)
                 Debug readprogramstring (prg)
         Wend
EndIf
closeprogram (prg)


Configuration IP de Windows

Nom de l'hôte . . . . . . . . . . : xpsp2-bc4a74c36
Suffixe DNS principal . . . . . . :
Type de nœud . . . . . . . . . . : Inconnu
Routage IP activé . . . . . . . . : Non
Proxy WINS activé . . . . . . . . : Non
Liste de recherche du suffixe DNS : home

Carte Ethernet Connexion au réseau local:

Suffixe DNS propre à la connexion : home
Description . . . . . . . . . . . : Attansic L1 Gigabit Ethernet 10/100/1000Base-T Controller
Adresse physique . . . . . . . . .: 00-1D-60-B9-57-7A
DHCP activé. . . . . . . . . . . : Oui
Configuration automatique activée . . . . : Oui
Adresse IP. . . . . . . . . . . . : 192.168.1.10
Masque de sous-réseau . . . . . . : 255.255.255.0
Passerelle par défaut . . . . . . : 192.168.1.1
Serveur DHCP. . . . . . . . . . . : 192.168.1.1
Serveurs DNS . . . . . . . . . . : 192.168.1.1
Bail obtenu . . . . . . . . . . . : mercredi 19 mai 2010 14:03:40
Bail expirant . . . . . . . . . . : jeudi 20 mai 2010 14:03:40


Rien de probant donc car mon IP est : 86.207.3.203

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 14:09
par GG
Lire dans l'arborescence de la base de registres :
\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\{14DBAFBC-7F4B-4E2A-8D38-1C2010524AA2}\Parameters\Tcpip
la clé : IPAddress.

Par contre, je ne sais pas si {14DBAFBC-7F4B-4E2A-8D38-1C2010524AA2} est propre au PC ou pas. Si tel est le cas, ça va casser le mythe...

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 14:12
par SPH
GG a écrit :Lire dans l'arborescence de la base de registres :
\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\{14DBAFBC-7F4B-4E2A-8D38-1C2010524AA2}\Parameters\Tcpip
la clé : IPAddress.

Par contre, je ne sais pas si {14DBAFBC-7F4B-4E2A-8D38-1C2010524AA2} est propre au PC ou pas. Si tel est le cas, ça va casser le mythe...
Bonne idée, je regarde.
Sinon, en ce qui concerne http://www.monip.org/ , il n'y a pas moyen de mettre le contennu de la page affiché (l'IP donc) dans un a$ ????

EDIT :
Non GG, l'ip n'est pas stocké (en tout cas chez moi). Par contre, je pense qu'interroger un site exterieur qui te renvoie ton IP est la meilleure soluce. Mais je ne sais pas décrypter les paquets entrant correspondant a la requette d'ouverture du site... :|

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 14:36
par Ar-S
Tu te fais une page affichant seulement l'IP comme ça tu te fais pas chier à trier les données.
http://arsworld.free.fr/ip.php

Ensuite le code.

Code : Tout sélectionner

url$="http://arsworld.free.fr/ip.php"

ProcedureDLL.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
  ;/ Author : Pille
  isLoop.b=1
  INET_RELOAD.l = $80000000
  hInet.l=0
  hURL.l=0
  Bytes.l=0
  Buffer.s= Space (2048 )
  RES.s= ""
  hInet = InternetOpen_ ( "" , OpenType, ProxyAndPort, "" , 0)
  hURL = InternetOpenUrl_ (hInet, Url, #Null , 0, INET_RELOAD, 0)
  Repeat
    InternetReadFile_ (hURL,@Buffer, Len (Buffer), @Bytes)
    If Bytes = 0
      isLoop=0
    Else
      RES = RES + Left (Buffer, Bytes)
    EndIf
  Until isLoop=0
  InternetCloseHandle_ (hURL)
  InternetCloseHandle_ (hInet)
  ProcedureReturn RES
EndProcedure

ProcedureDLL.s Url2Text(Url.s)
  ProcedureReturn Url2Text2(Url,1, "" )
EndProcedure 

Source$=Url2Text(url$)
MessageRequester("IP",Source$) ; la source complète de la page
;Ici on filtre pour ne garder que l'IP
debut=FindString(Source$,"-*",1)
fin=FindString(Source$,"*-",debut)
debut+2 ; on ajoute 2 à début, ça représente les 2 caractères -*
IPseule$=Mid(Source$,debut,fin-debut)
MessageRequester("IP Seule",IPseule$)

End

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 14:40
par SPH
Ar-S a écrit :Tu te fais une page affichant seulement l'IP comme ça tu te fais pas chier à trier les données.
http://arsworld.free.fr/ip.php
Le code est parfait.
OK pour le code PHP, je viens de le comprendre !!
PARFAIT les mecs, je vais pouvoir faire un joli tchat pour vous !!!! :mrgreen:

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 16:17
par Backup
SPH a écrit :
Ar-S a écrit :PARFAIT les mecs, je vais pouvoir faire un joli tchat pour vous !!!! :mrgreen:

ça servira a rien , j'ai mis a dispo un tchat dispo depuis mathusalem

ya jamais personne dessus ! :lol:

Re: [Résolu] Comment trouver son IP sous PB ??

Publié : mer. 19/mai/2010 16:22
par Ar-S
Pas grave ça l'entrainera. Qui ici n'a jamais essayé de faire un tchat ^^ ?

Re: Comment trouver son IP sous PB ?

Publié : mer. 19/mai/2010 16:30
par SPH
Dobro a écrit :
SPH a écrit :
Ar-S a écrit :PARFAIT les mecs, je vais pouvoir faire un joli tchat pour vous !!!! :mrgreen:

ça servira a rien , j'ai mis a dispo un tchat dispo depuis mathusalem

ya jamais personne dessus ! :lol:
Il est zou ton tchateux ?

Re: [Résolu] Comment trouver son IP sous PB ??

Publié : mer. 19/mai/2010 16:44
par Geo Trouvpatou
Un code portable

Code : Tout sélectionner

; Date 19-05-10
; OS : Windows, Linux

InitNetwork()

url$="http://arsworld.free.fr/ip.php" 

If ReceiveHTTPFile(url$, "ip.html")
      Debug "Succes"
      
      If FileSize("ip.html") <> -1
            fileNumber = ReadFile(#PB_Any, "ip.html")
            
            If fileNumber
                  
                  While Eof(fileNumber) = 0     
                        source$ + ReadString(fileNumber)
                  Wend
                  
                  CloseFile(fileNumber)
                  
                  Debug source$
                  ;Ici on filtre pour ne garder que l'IP 
                  debut=FindString(source$,"-*",1) 
                  fin=FindString(source$,"*-",debut) 
                  debut+2 ; on ajoute 2 à début, ça représente les 2 caractères -* 
                  IPseule$=Mid(source$,debut,fin-debut) 
                  MessageRequester("IP Seule",IPseule$)   
                  
            Else
                  MessageRequester("AVERTISSEMENT 1.", "Impossible de lire les infos de : "+ Chr(34) + "ip.html" + Chr(34) +". [Local]")
                  End 
            EndIf    
            
            
      Else
            MessageRequester("AVERTISSEMENT 2.", "Le fichier : "+ Chr(34) + "ip.html" + Chr(34) +" est absent. [Local]")
            End 
      EndIf    
      
Else
      ; Téléchargement IMPOSSIBLE
      MessageRequester("AVERTISSEMENT.", "Le fichier : "+ Chr(34) + "ip.php" + Chr(34) +" n'est pas présent sur le site. [Distant]")
      End ; On sort du programme
EndIf
Au passage si Ar-S n'avait pas ajouté de cochonceté avant et après l'ip, il n'y aurait pas eu à parser quoi que ce soit :wink:

Bye.
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru