WebBrowser - paramétrage d'un proxy

Le
Pierre BOUSQUET
Bonjour,

j'utilise l'activeX Microsoft Web browser et j'aimerai paramétrer un
proxy avant un >>Navigate. pour cela j'ai réalisé une fonction qui ne
me retourne pas d'erreur mais qui ne fonctionne pas !!!
Avez-vous une idée ?
Merci d'avance

PROCEDURE XWEB_Proxy(IpProxy="", Port="")
SI IpProxy="" ALORS
AppelDLL32("WININET.DLL", "InternetSetOptionA", 0,
INTERNET_OPTION_PROXY, 0, 0)
RETOUR
FIN

INTERNET_PROXY_INFO est un sINTERNET_PROXY_INFO

INTERNET_PROXY_INFO:dwAccessType=INTERNET_OPEN_TYPE_PROXY
INTERNET_PROXY_INFO:lpszProxy="http="+IpProxy+":"+Port
INTERNET_PROXY_INFO:lpszProxyBypass=""

SI PAS AppelDLL32("WININET.DLL", "InternetSetOptionA", 0,
INTERNET_OPTION_PROXY, &INTERNET_PROXY_INFO,
Dimension(INTERNET_PROXY_INFO)) ALORS
Trace(ErreurInfo())
FIN





CONSTANTE
INTERNET_OPEN_TYPE_PRECONFIG = 0
INTERNET_OPEN_TYPE_DIRECT = 1
INTERNET_OPEN_TYPE_PROXY = 3
INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4

INTERNET_OPTION_REFRESH = 37
INTERNET_OPTION_PROXY = 38
INTERNET_OPTION_SETTINGS_CHANGED = 39
FIN

sINTERNET_PROXY_INFO est une structure
dwAccessType est entier
lpszProxy est string
lpszProxyBypass est string
FIN

--
Pierre BOUSQUET

" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Romain PETIT
Le #14528481
Pierre BOUSQUET avait soumis l'idée :
Bonjour,




Bonjour,

Avez-vous une idée ?



Désolé, pas trop le temps de regarder mais tu as jeté un oeil chez MS ?
Exemple :
http://support.microsoft.com/default.aspx/kb/226473

A+

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)
Publicité
Poster une réponse
Anonyme