#URL="http://www.google.com"
#X=800
#Y=600

Interface IOleInPlaceActiveObject 
  QueryInterface(a,b) 
  AddRef() 
  Release() 
  GetWindow(a) 
  ContextSensitiveHelp(a) 
  TranslateAccelerator(a) 
  OnFrameWindowActivate(a) 
  OnDocWindowActivate(a) 
  ResizeBorder(a,b,c) 
  EnableModeless(a) 
EndInterface 

;OpenConsole()

url$ = Reg_GetValue(#HKEY_LOCAL_MACHINE, "SOFTWARE\WinTan", "URL", "")

If url$=""
  url$=#URL
  Reg_CreateKeyValue(#HKEY_LOCAL_MACHINE,"SOFTWARE\WinTan", "URL", url$, #REG_SZ,"")
EndIf

If OpenWindow(0, 0, 0, #X, #Y, #PB_Window_MinimizeGadget|#PB_Window_BorderLess|#PB_Window_ScreenCentered,"PKBrowser 800x600")
  If CreateGadgetList(WindowID()) 
    hWeb = WebGadget(0, 0, 25, #X, #Y, url$) 
    WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(0), #GWL_USERDATA) 
  EndIf 
  StringGadget(1, 160, 2, #X-175, 20,url$) 
  ButtonGadget(2, 2, 2, 30, 20, "<-") 
  ButtonGadget(3, 32, 2, 30, 20, "->") 
  ButtonGadget(4, 62, 2, 30, 20, "X") 
  ButtonGadget(5, 92, 2, 30, 20, "R") 
  TextGadget(10, 130, 5, 30, 20,"URL") 
EndIf 

CoInitialize_(0)
If CoCreateInstance_(?CLSID_IOleInPlaceActiveObject,0,1,?IID_IOleInPlaceActiveObject,@OleObject.IOleInPlaceActiveObject) = 0 
EndIf 
CoUninitialize_() 
web.MSG 

EventCounter=0
Repeat 
  Event = WaitWindowEvent()
  Select Event 
    Case #WM_KEYDOWN
      WebObject\QueryInterface(?IID_IOleInPlaceActiveObject, @OleObject) 
      web\message = Event 
      web\wParam = EventwParam()
      web\lParam = EventlParam()
      ; backspace 8
      ; up down left right 37-40
      If web\wParam>8 And (web\wParam<37 Or web\wParam>40)
         OleObject\TranslateAccelerator(@web) 
         OleObject\Release() 
      EndIf
      If OldEventGadgetID=1 And web\wParam=13
        url$ = GetGadgetText(1) 
        SetGadgetText(0, url$)
        Reg_SetValue(#HKEY_LOCAL_MACHINE,"SOFTWARE\WinTan", "URL", url$, #REG_SZ,"")
      EndIf
    Case #PB_EventGadget
      EventGadgetID=EventGadgetID()
      Select EventGadgetID
        Case 1
          OldEventGadgetID=EventGadgetID
          EventCounter=0
        Case 2
          SetGadgetState(0, #PB_Web_Back)  
        Case 3
          SetGadgetState(0, #PB_Web_Forward)  
        Case 4
          SetGadgetState(0, #PB_Web_Stop)  
        Case 5
          SetGadgetState(0, #PB_Web_Refresh)  
      EndSelect
    Default
      EventCounter=EventCounter+1
      If EventCounter>100 
        OldEventGadgetID=0
      EndIf
   EndSelect
Until Event = #PB_EventCloseWindow 
End 

DataSection 
;{00000117-0000-0000-C000-000000000046} 
IID_IOleInPlaceActiveObject: 
Data.l $00000117 
Data.w $0000, $0000 
Data.b $C0, $00, $00, $00, $00, $00, $00, $46 

;{00000320-0000-0000-C000-000000000046} 
CLSID_IOleInPlaceActiveObject: 
Data.l $00000320 
Data.w $0000, $0000 
Data.b $C0, $00, $00, $00, $00, $00, $00, $46 
EndDataSection
 
; jaPBe Version=2.4.7.17
; Include=Registry.pbi
; Build=5
; Language=0x0000 Language Neutral
; FirstLine=56
; CursorPosition=20
; UseIcon=pkbrowser.ico
; ExecutableFormat=Windows
; Executable=E:\Program Files\Prog\pkbrowser800.exe
; DontSaveDeclare
; EOF