gui browser

;-- a browser  from user 'Soft' and 'Lexikos'
;===========================================================================

f1=https://autohotkey.com/boards/

Gui Add, Edit, w930 r1 vURL,%f1%
Gui Add, Button, x5 y28  gBrB, <
Gui Add, Button, x+1 y28 gBrF, >
Gui Add, Button, x+6 yp w44 Default gA1, Go
Gui Add, ActiveX, xm w1080 h720 vWB, Shell.Explorer

Gui Show,,My Browser
Gui Submit, NoHide
wb.silent := true
gosub,a1
return

a1:
Gui Submit, NoHide
WB.Navigate(URL)
return

Brb:
try{WB.GoBack()
}catch e{
xxx:=e.Message
msgbox, 262208,ERROR,Error=`n%xxx%`n------------------------------------------`n
return
}
return

BrF:
try{WB.GoForward()
}catch e{
xxx:=e.Message
msgbox, 262208,ERROR,Error=`n%xxx%`n------------------------------------------`n
return
}
return

class WB_events
{
NavigateComplete2(wb, NewURL)
  {
  GuiControl, Text, URL, %NewURL%  ;- Update the URL edit control.
  }
}

GuiClose:
ExitApp