WebGadget and Page Title

Just starting out? Need help? Post your questions and find answers here.
firace
Addict
Addict
Posts: 899
Joined: Wed Nov 09, 2011 8:58 am

WebGadget and Page Title

Post by firace »

Hi, why is this code not able to get the page title (CNN - Breaking News)?

Code: Select all

; Procedure NavigationCallback(Gadget, Url$) 
;   
;   ProcedureReturn #True 
;   
; EndProcedure 

OpenWindow(0, 0, 0, 600, 300, "-", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 

WebGadget(0, 10, 10, 580, 280, "https://lite.cnn.io/") 
; SetGadgetAttribute(0, #PB_Web_NavigationCallback, @NavigationCallback())


Repeat 
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow : End
    Case #PB_Event_Gadget
      Select EventType()
        Case #PB_EventType_DownloadEnd
          If EventGadget() = 0
            SetWindowTitle(0, GetGadgetItemText(0,#PB_Web_PageTitle)) 
            
            done = 1
          EndIf
      EndSelect
  EndSelect
ForEver

User avatar
RSBasic
Moderator
Moderator
Posts: 1218
Joined: Thu Dec 31, 2009 11:05 pm
Location: Gernsbach (Germany)
Contact:

Re: WebGadget and Page Title

Post by RSBasic »

Code: Select all

; Procedure NavigationCallback(Gadget, Url$)
;   
;   ProcedureReturn #True
;   
; EndProcedure

OpenWindow(0, 0, 0, 600, 300, "-", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

WebGadget(0, 10, 10, 580, 280, "https://lite.cnn.io/")
; SetGadgetAttribute(0, #PB_Web_NavigationCallback, @NavigationCallback())


Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow : End
    Case #PB_Event_Gadget
      Select EventType()
        Case #PB_EventType_TitleChange
          If EventGadget() = 0
            SetWindowTitle(0, GetGadgetItemText(0,#PB_Web_PageTitle))
           
            done = 1
          EndIf
      EndSelect
  EndSelect
ForEver
If you want to hide Javascript errors:

Code: Select all

Define Browser.IWebBrowser2

; Procedure NavigationCallback(Gadget, Url$)
;   
;   ProcedureReturn #True
;   
; EndProcedure

OpenWindow(0, 0, 0, 600, 300, "-", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

WebGadget(0, 10, 10, 580, 280, "https://lite.cnn.io/")
; SetGadgetAttribute(0, #PB_Web_NavigationCallback, @NavigationCallback())

Browser = GetWindowLongPtr_(GadgetID(0), #GWL_USERDATA)
Browser\put_Silent(#True)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow : End
    Case #PB_Event_Gadget
      Select EventType()
        Case #PB_EventType_TitleChange
          If EventGadget() = 0
            SetWindowTitle(0, GetGadgetItemText(0,#PB_Web_PageTitle))
           
            done = 1
          EndIf
      EndSelect
  EndSelect
ForEver
Image
Image
firace
Addict
Addict
Posts: 899
Joined: Wed Nov 09, 2011 8:58 am

Re: WebGadget and Page Title

Post by firace »

Excellent! Thank you very much.
Post Reply