Page 1 sur 1
[R] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 15:11
par TT22
Bonjour à tous !
Voici mon problème...
J'utilise le code suivant :
► Afficher le texte
Code : Tout sélectionner
#include <IE.au3>
$Gui = GUICreate("IE UserAgent",500,500)
$Embedded = _IECreateEmbedded()
$IEObject = GUICtrlCreateObj($Embedded, 0, 0, 500, 500)
_IENavigate($Embedded, "http://data.lecoindaide.com/utilities/useragent", 0)
GUISetState()
While GUIGetMsg() <> -3
WEnd
Je voudrais savoir comment faire pour modifier l'UserAgent utilisé dans un objet Internet Explorer.
J'ai essayé avec HttpSetUserAgent() mais ça ne fonctionne pas
Merci d'avance pour vos réponses
Re: [..] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 16:30
par mikell
Hum oui avec _IECreateEmbedded() tu crées un objet "Web Browser", pas un objet "Internet Explorer" donc ça marche pô
Peut-être avec qqe chose comme ça
► Afficher le texte
Code : Tout sélectionner
#include <IE.au3>
$Gui = GUICreate("IE UserAgent",500,500)
$Embedded = _IECreateEmbedded()
$IEObject = GUICtrlCreateObj($Embedded, 0, 0, 500, 500)
$Embedded.Navigate("http://data.lecoindaide.com/utilities/useragent", "self", "", "User-Agent: CustomUserAgent\r\n")
GUISetState()
While GUIGetMsg() <> -3
WEnd
Re: [..] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 16:40
par TT22
Non, ça ne fonctionne pas
Re: [..] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 16:54
par mikell
Oui, j'ai vu
Alors modifier la clé de registre correspondante, chez moi :
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform
ça, ça marche
Edit
Hum ya aussi
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent\Post Platform
Re: [..] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 16:56
par TT22
Cette clé n'existe pas chez moi
Et si je la crée, ça ne change rien.
Re: [..] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 17:19
par mikell
Tu as recherché dans le registre avec les mots "useragent" ou "Mozilla/4.0" ?
(en fait ce qui s'affiche sur la page de ton site)
Re: [..] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 17:29
par TT22
Oups, en recherchant je l'ai trouvé, j'avais mal recherché la première fois (je cherchais une clé au lieu d'une valeur).
Mais si je la modifie, ça ne change rien non plus
Re: [..] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 18:59
par mikell
Yep ! trouvé
miaou
► Afficher le texte
Code : Tout sélectionner
#include <IE.au3>
$Gui = GUICreate("IE UserAgent",500,500)
$Embedded = _IECreateEmbedded()
$IEObject = GUICtrlCreateObj($Embedded, 0, 0, 500, 500)
_SetUserAgent("mikell was here")
_IENavigate($Embedded, "http://data.lecoindaide.com/utilities/useragent", 0)
GUISetState()
While GUIGetMsg() <> -3
WEnd
Func _SetUserAgent($agent)
$agentLen = StringLen($agent)
Dim $tBuff = DllStructCreate("char["&$agentLen&"]")
DllStructSetData($tBuff, 1, $agent)
$chk_UrlMkSetSessionOption = DllCall("urlmon.dll", "long", "UrlMkSetSessionOption", "dword", 0x10000001, "ptr", DllStructGetPtr($tBuff), "dword", $agentLen, "dword", 0)
EndFunc
Re: [..] Changer l'UserAgent d'un objet Internet Explorer
Posté : dim. 09 déc. 2012 19:09
par TT22
Oui merci, ça fonctionne !