Any idea why? It does work fine in IE11, though...
Code: Select all
Define.s regkeyName, dwLabel, statusMsg, keyResult.i
Define.l dwValue, dwValueCheck
regkeyName = "Software\Microsoft\Internet Explorer\Main\FeatureControl\Feature_Browser_Emulation\"
dwLabel = GetFilePart(ProgramFilename())
dwValue = 11001
RegOpenKeyEx_(#HKEY_CURRENT_USER, regkeyName, 0, #KEY_ALL_ACCESS, @keyResult)
RegSetValueEx_(keyResult, @dwLabel, 0, #REG_DWORD, @dwValue, SizeOf(Long))
OpenWindow(0, 0, 0, 800,440, "", #PB_Window_SystemMenu)
WebGadget(0, 0, 0, 800, 440, "https://www.imdb.com/list/ls025720609/videoplayer/vi3918510617?ref_=hm_hp_i_1")
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow