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

[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

[Patrick88]

regarde dans un post de "Le psychopathe" = PB et le CMD windows

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

[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 ?

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 ???

[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"];
?>

[SPH]

Merci psychopate.

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


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
  

[Backup]

......................

[SPH]

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

[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...

[SPH]

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...

[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

[SPH]

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 !!!!

[Backup]

PARFAIT les mecs, je vais pouvoir faire un joli tchat pour vous !!!!

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

ya jamais personne dessus !

[Ar-S]

Pas grave ça l'entrainera. Qui ici n'a jamais essayé de faire un tchat ^^ ?

[SPH]

PARFAIT les mecs, je vais pouvoir faire un joli tchat pour vous !!!!

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

ya jamais personne dessus !

Il est zou ton tchateux ?

[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

Bye.