[R] Changer l'UserAgent d'un objet Internet Explorer

[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

[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

[TT22]

Non, ça ne fonctionne pas

[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

[TT22]

Cette clé n'existe pas chez moi
Et si je la crée, ça ne change rien.

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

[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

[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

[TT22]

Oui merci, ça fonctionne !