PureBasic Forums - English

Code: Select all

Procedure IfThisLinkOk(Passed_suri$)  ; vm
	Protected.BROWSER *browser
	
  Debug "1 LINK Procedure IfThisLinkOk = " + Passed_suri$  ; vm"
  ThisLinkItemOk = #False 
  ResetList(ThisLinkList())
  While NextElement(ThisLinkList())
    CurrentElementContent$ = ThisLinkList() 
;    Debug "IfThisLinkOk  CurrentElementContent$" + CurrentElementContent$
    Position = FindString(Passed_suri$, CurrentElementContent$ , 0 ) 
    If Position > 0     
      Debug "ThisLinkItemOk = #True  " + Passed_suri$ 
      ThisLinkItemOk = #True 
    EndIf  ;  Greater than 0 == Yes its a Hit 
  Wend
  
    If ThisLinkItemOk = #False 
; GO TO:  https://kidsafebrowser.us/Warning-UnSafe-Site.html
      *browser = tab_GetCurrentBrowser()
      If *browser
      	*browser\core\Navigate("http://kidsafebrowser.us/Warning-UnSafe-Site.html")  ; 
      EndIf 

    EndIf 
EndProcedure ; IfThisLinkOk()  

Code: Select all

	sender\get_Source(@uri)
	If uri
	  suri = PeekS(uri)
	  Debug "Procedure core_NavigationCompleted  suri = " + suri
		str_FreeCoMemString(uri)
	EndIf

Code: Select all

Procedure core_NavigationCompleted(this.IWV2EventHandler, sender.ICoreWebView2, args.ICoreWebView2NavigationCompletedEventArgs)
	Protected.i uri, title
	Protected.s suri, stitle, host, iconUrl
	Protected.BROWSER *browser, *currBrowser
	  ;Debug "Procedure core_NavigationCompleted() = " + suri + "  Passed_suri$ = " + Passed_suri$  

	this\LockMutex()
	*browser = this\GetContext()
	
	sender\get_Source(@uri)
	If uri
	  suri = PeekS(uri)
	  Debug "Procedure core_NavigationCompleted  suri = " + suri
		str_FreeCoMemString(uri)
	EndIf
	
	host = GetURLPart(suri, #PB_URL_Site)
	If host
		
		;Get favicon	
; 		*browser\core\ExecuteScript(#FAVICON_SCRIPT_GET_ICON, wv2_EventHandler_New(@favicon_ScriptExecuted(), *browser))
	EndIf 
	
	sender\get_DocumentTitle(@title)
	If title
	  stitle = PeekS(title)
	  Debug "Procedure core_NavigationCompleted  stitle = " + stitle
		str_FreeCoMemString(title)
	EndIf 
	
; 	url_Edit_SetText(app\url, suri)
	
	If stitle = ""
		stitle = "New tab"
	EndIf 
	
	tabCtrl_SetItemText2(app\tab, browser_GetTabIndex(*browser), stitle, #TAB_MAX_ITEM_WIDTH)

	this\UnlockMutex()
EndProcedure ; core_NavigationCompleted

Code: Select all

url_Edit_SetText(app\url, suri) 

Code: Select all

XIncludeFile "math.pb"
XIncludeFile "Unsigned.pb"
XIncludeFile "stream.pb"
XIncludeFile "resource.pb"
XIncludeFile "json.pb"
XIncludeFile "keyboard.pb"
XIncludeFile "enum.pb"