[SOLVED!] WebGadget don't respond to clicks for an url

[zikitrake]

In the following code I cannot display the list of languages or make the translator work.
Does anyone know why?

Code: Select all

  If OpenWindow(0, 0, 0, 1024, 726, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    WebGadget(0, 0, 0, 1024, 726, "https://deepl.com/translator")
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Thank you!

EDIT: Nice, I just found a solution from JHPJHP Here: http://www.purebasic.fr/english/viewtop ... 01#p480801

lpValueName.s = GetFilePart(ProgramFilename()) : lpData = 11001

If RegCreateKeyEx_(#HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", 0, #Null, #REG_OPTION_VOLATILE, #KEY_ALL_ACCESS, #Null, @phkResult, @lpdwDisposition) = #ERROR_SUCCESS
RegSetValueEx_(phkResult, lpValueName, 0, #REG_DWORD, @lpData, SizeOf(LONG))
RegCloseKey_(phkResult)

If OpenWindow(0, 0, 0, 1920, 1200, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(0, 10, 10, 1900, 1180, "http://www.theaa.com/resources/js/homepage")
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

If RegOpenKeyEx_(#HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", 0, #KEY_SET_VALUE, @phkResult) = #ERROR_SUCCESS
RegDeleteValue_(phkResult, lpValueName)
RegCloseKey_(phkResult)
EndIf
EndIf