PureBasic Forums - English

Posted: **Tue Jan 30, 2018 1:35 am**

PB WebGadget:
https://www.google.co.uk/maps/

You seem to be using an unsupported browser.
Old browsers can put your security at risk, are slow and don't work with newer Google Maps features. To access Google Maps, you'll need to update to a modern browser.

Worked sometime last year, doesn't work now, probably because more websites are now HTML5?

To get it to work before, this work-around was applied:

Code: Select all

;===== Registry: temp setting to optimise web gadget =====
Global     sglpValueName.s = GetFilePart(ProgramFilename())
Global          lglpData.l = 11001
Global lglpdwDisposition.l
Global       igphkResult.i

If RegCreateKeyEx_(#HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", 0, #Null, #REG_OPTION_VOLATILE, #KEY_ALL_ACCESS, #Null, @igphkResult, @lglpdwDisposition) = #ERROR_SUCCESS
    RegSetValueEx_(igphkResult, sglpValueName, 0, #REG_DWORD, @lglpData, SizeOf(LONG))
      RegCloseKey_(igphkResult)
EndIf

Any ideas?

Posted: **Tue Jan 30, 2018 6:02 pm**

I tested your code and it worked well with Purebasic 5.61 (x86 and x64).

Sorry for not being able to help you further.

Code: Select all

;===== Registry: temp setting to optimise web gadget =====
Global     sglpValueName.s = GetFilePart(ProgramFilename())
Global          lglpData.l = 11001
Global lglpdwDisposition.l
Global       igphkResult.i

Debug sglpValueName

If RegCreateKeyEx_(#HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", 0, #Null, #REG_OPTION_VOLATILE, #KEY_ALL_ACCESS, #Null, @igphkResult, @lglpdwDisposition) = #ERROR_SUCCESS
    RegSetValueEx_(igphkResult, sglpValueName, 0, #REG_DWORD, @lglpData, SizeOf(LONG))
    RegCloseKey_(igphkResult)
EndIf


If OpenWindow(0, 0, 0, 600, 300, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
    WebGadget(0, 10, 10, 580, 280, "https://www.google.co.uk/maps/") 
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf

Posted: **Tue Jan 30, 2018 6:21 pm**

Hi Nico

Thanks for testing, my tests too are Win7, PB5.61 x64 and x86

PureBasic Forums - English

You seem to be using an unsupported browser

You seem to be using an unsupported browser

Re: You seem to be using an unsupported browser

Re: You seem to be using an unsupported browser