Problème IE est WebBrowser

Question

Bonjour,

J&#8217;ai besoin de votre aide car je deviens fou avec ce problème.

J&#8217;ai examiné les sources de Renfield allocine etc.. Et je me suis fait une application qui fait des commandes de produits à ma place sellons une liste, le tous automatiquement est en quelques secondes (biensur en desactivant les l&#8217;afichages des images dans. Merci a Renfield
Voila j&#8217;ai un webbrowser1 sur ma form1
Je donne l&#8217;exemple avec pixmania.fr
Le logiciel surfe sur pixmania.fr il rajoute les produits dans le panier puis à la fin il ouvrir une fenêtre IE pour valider le panier.
Le problème est que le panier est toujours vide dans IE

3 jours de recherche mais rien trouvé 
Merci d&#8217;avance si vous pouvez m&#8217;aider car mon cerveau surchauffe.





Const navOpenInNewWindow = 1
Const navNoHistory = 2
Const navNoReadFromCache = 4
Const navNoWriteToCache = 8
Const navAllowAutosearch = 10
Const navBrowserBar = 20
Const navHyperlink = 40
Const navEnforceRestricted = 80
Const navNewWindowsManaged = 100
Const navUntrustedForDownload = 200
Const navTrustedForActiveX = 400
Const navOpenInNewTab = 800
Const navOpenInBackgroundTab = 1000
Const navKeepWordWheelText = 2000
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Const KEY_WRITE = &H20006
Const REG_SZ = 1
Const KEY_HKCU = &H80000001

Private Sub Command1_Click()
HideImages
'WebBrowser1.AddressBar = False
WebBrowser1.Silent = True
'WebBrowser1.TheaterMode = True
Call WebBrowser1.Navigate("http://www.pixmania.fr/", navTrustedForActiveX + navNewWindowsManaged, "_self", "Cookie: sdasddw", "")
'ShowImages
'Call WebBrowser1.Navigate("www.amazon.fr/", "", "_self", "Cookie: sdasddw")
End Sub

Private Sub Command2_Click()
ShowImages
'WebBrowser1.ExecWB OLECMDID_CLOSE, OLECMDEXECOPT_DODEFAULT, 0
'WebBrowser2.ExecWB OLECMDID_CLOSE, OLECMDEXECOPT_DODEFAULT, 0
Call WebBrowser1.Navigate("http://www.pixmania.fr/", navTrustedForActiveX + navNewWindowsManaged + navOpenInBackgroundTab, "_blanc", "Cookie: sdasddw", "")
'Call WebBrowser2.Navigate("http://www.pixmania.fr/", navTrustedForActiveX + navNewWindowsManaged + navOpenInBackgroundTab + navOpenInNewWindow, "_self", "Cookie: sdasddw", "")
'Call WebBrowser1.Navigate("www.amazon.fr/", "", "_blank", "Cookie: sdasddw")
End Sub

Sub SetRegistryValue(Value As String)
Dim handle As Long
Dim strValue As String
Dim RetVal As Long
If RegOpenKeyEx(KEY_HKCU, "Software\Microsoft\Internet Explorer\Main", 0, KEY_WRITE, handle) Then
Exit Sub
End If
strValue = Value
RetVal = RegSetValueEx(handle, "Display Inline Images", 0, REG_SZ, ByVal strValue, Len(strValue))
RegCloseKey handle
End Sub

Public Function ShowImages()
SetRegistryValue ("yes")
End Function

Public Function HideImages()
SetRegistryValue ("no")
End Function

Private Sub Form_Load()
HideImages ' nav plus rapide
End Sub





Cordialement,

cs_didine13 · Answer

re,

J'ai résolus mes problèmes grâce aux interventions et les  sources de Renfield (une vraie mine d'or).
Donc si vous avez les mêmes problèmes que moi chercher tous ce qui concerne Renfield.
Vive Renfield.

Cordialement,

Problème IE est WebBrowser

1 réponse

Votre réponse

Discussions similaires