PureBasic

Forums PureBasic
Nous sommes le Mar 20/Oct/2020 12:07

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 4 messages ] 
Auteur Message
 Sujet du message: WebGadget & Proxy
MessagePosté: Mar 31/Juil/2012 14:35 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 27/Mar/2004 16:44
Messages: 480
Bonjour,

Voici un code pour que votre WebGadget puisse passer par un Proxy. C'est valable uniquement pour la session Internet en cours.
Attention, choisir un Proxy "Anonyme" pour n'avoir aucune trace, car en PHP on peut détecter le Proxy et retrouver votre vrai IP.
Dans l'exemple ci-dessous j'utilise un Proxy gratuit d'Inde hautement anonyme. Le site mon-ip.com ne détecte pas le Proxy :mrgreen:
Vous pouvez trouver des Proxy gratuits ici => http://www.freeproxylists.net

Code:
EnableExplicit
Structure INTERNET_PROXY_INFO
   dwAccessType.l
   *lpszProxy.l
   *lpszProxyBypass.l
EndStructure
#INTERNET_OPTION_PROXY = 38
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_OPEN_TYPE_DIRECT = 1
Procedure SetProxy(Proxy.s, Port.l, flags.l=#INTERNET_OPEN_TYPE_PROXY)
   Protected ProxyServer.s = Proxy + ":" + Str(Port)
   Protected PIInfo.INTERNET_PROXY_INFO
   PIInfo\dwAccessType = flags
   PIInfo\lpszProxy = @ProxyServer
   PIInfo\lpszProxyBypass = @""
   If UrlMkSetSessionOption_(#INTERNET_OPTION_PROXY, @PIInfo, SizeOf(INTERNET_PROXY_INFO), 0) = #S_OK
      ProcedureReturn #True
   Else
      ProcedureReturn #False
   EndIf
EndProcedure
If OpenWindow(0, 0, 0, 800, 600, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   ; www.freeproxylists.net => Liste de proxy gratuit
   If Not SetProxy("14.139.225.83", 3128) ;=> un proxy en Inde (Haut Anonyme)
      Debug "La commande a échoué"
   EndIf
   WebGadget(0, 10, 10, 780, 580, "www.mon-ip.com")
   Repeat
      Global Event.l = WaitWindowEvent()
   Until Event = #PB_Event_CloseWindow
EndIf

_________________
Speed Tetris Ultimate


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: WebGadget & Proxy
MessagePosté: Mar 31/Juil/2012 15:46 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 11/Fév/2005 17:34
Messages: 4233
Localisation: Arras, France
Cool merci !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: WebGadget & Proxy
MessagePosté: Mar 31/Juil/2012 16:15 
Hors ligne

Inscription: Lun 26/Avr/2004 0:40
Messages: 14534
marche bien, merci :)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: WebGadget & Proxy
MessagePosté: Mar 31/Juil/2012 16:22 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 9026
Cool ça, merci erix14, ça fait plaisir de te lire. :P

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.6x / 5.7x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 4 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 7 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye