Returning the Address takes between 500 to 800 milliseconds (on my system).ricardo wrote:Its me or its taking some time to show url and description.
Returning the Description takes between 3 to 5 milliseconds (on my system).
The discrepancy is due to the index position of each object and the subsequent number of child objects that need to be searched.
After a couple tweaks, the time it takes to return the address is between 100 to 200 milliseconds (on my system).
In addition, the Procedure to check browser version has been updated.
The following example should provide more accurate results; disable the debugger, enable DPI Aware.
Code: Select all
Enumeration
#MainWindow
#CE_WebGadget
#ButtonGadget1
#ButtonGadget2
#ButtonGadget3
#ButtonGadget4
#ButtonGadget5
#ButtonGadget6
EndEnumeration
#CE_WebGadget_Override_User_Directory = #True
IncludeFile "sources\cewg_sources.pbi"
WindowWidth = 800 : WindowHeight = 600
nFlags = #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered | #PB_Window_Invisible
If OpenWindow(#MainWindow, 0, 0, WindowWidth, WindowHeight, "Chromium Edge WebGadget", nFlags)
ButtonGadget(#ButtonGadget1, 10, 10, 120, 30, "Get Address")
ButtonGadget(#ButtonGadget2, 142, 10, 120, 30, "Get Description")
ButtonGadget(#ButtonGadget3, 274, 10, 120, 30, "Back")
ButtonGadget(#ButtonGadget4, 406, 10, 120, 30, "Forward")
ButtonGadget(#ButtonGadget5, 538, 10, 120, 30, "Refresh")
ButtonGadget(#ButtonGadget6, 670, 10, 120, 30, "Home")
CE_WebGadget(#CE_WebGadget, 10, 50, 780, 540, #CE_WebGadget_Flat)
cewg_data.CEWG_DATA
cewg_data\GadgetNumber = #CE_WebGadget
cewg_data\SourceURL = "https://youtube.com"
CE_WebGadget_Init(cewg_data)
HideWindow(#MainWindow, #False)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #ButtonGadget1
nStart = ElapsedMilliseconds()
Address$ = CE_WebGadget_Update(cewg_data, "GetAddress")
nFinish = ElapsedMilliseconds() - nStart
MessageRequester("Chromium Edge WebGadget", Address$ + ": " + Str(nFinish) + " ms", #PB_MessageRequester_Info)
Case #ButtonGadget2
nStart = ElapsedMilliseconds()
Description$ = CE_WebGadget_Update(cewg_data, "GetDescription")
nFinish = ElapsedMilliseconds() - nStart
MessageRequester("Chromium Edge WebGadget", Description$ + ": " + Str(nFinish) + " ms", #PB_MessageRequester_Info)
Case #ButtonGadget3
nStart = ElapsedMilliseconds()
CE_WebGadget_Update(cewg_data, "Back")
nFinish = ElapsedMilliseconds() - nStart
MessageRequester("Chromium Edge WebGadget", "Back: " + Str(nFinish) + " ms", #PB_MessageRequester_Info)
Case #ButtonGadget4
nStart = ElapsedMilliseconds()
CE_WebGadget_Update(cewg_data, "Forward")
nFinish = ElapsedMilliseconds() - nStart
MessageRequester("Chromium Edge WebGadget", "Forward: " + Str(nFinish) + " ms", #PB_MessageRequester_Info)
Case #ButtonGadget5
nStart = ElapsedMilliseconds()
CE_WebGadget_Update(cewg_data, "Refresh")
nFinish = ElapsedMilliseconds() - nStart
MessageRequester("Chromium Edge WebGadget", "Refresh: " + Str(nFinish) + " ms", #PB_MessageRequester_Info)
Case #ButtonGadget6
nStart = ElapsedMilliseconds()
CE_WebGadget_Update(cewg_data, "Home")
nFinish = ElapsedMilliseconds() - nStart
MessageRequester("Chromium Edge WebGadget", "Home: " + Str(nFinish) + " ms", #PB_MessageRequester_Info)
EndSelect
Case #PB_Event_CloseWindow : Break
EndSelect
ForEver
EndIf