Как программно считать весь текст, который находится в активном окне?

;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Editor_0
  #Button_1
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 743, 39, 730, 663, "Текст из браузера", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
         EditorGadget(#Editor_0, 15, 20, 700, 585)
         ButtonGadget(#Button_1, 265, 620, 195, 30, "Грабить текст")
   
  EndIf
EndProcedure
 
OpenWindow_Window_0()
 
;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Editor_0
      ElseIf EventGadget = #Button_1
        ; Ищем окно Хрома
        WBrow = FindWindow_("Chrome_WidgetWin_1",0);  "MozillaWindowClass" это для Огнелиса
       
        If  WBrow
           SetForegroundWindow_(WBrow)
          Delay(200)
keybd_event_(#VK_CONTROL,0,0,0)
keybd_event_(#VK_A,0,0,0)
 Delay(200)
keybd_event_(#VK_A,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_CONTROL,0,#KEYEVENTF_KEYUP,0)
 
  Delay(200)    
 
keybd_event_(#VK_CONTROL,0,0,0)
keybd_event_(#VK_C,0,0,0)
Delay(200)
keybd_event_(#VK_C,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_CONTROL,0,#KEYEVENTF_KEYUP,0)
TextMess$ = GetClipboardText()
SetGadgetText(#Editor_0,TextMess$)
          
        EndIf
       SetForegroundWindow_(WindowID(#Window_0))  
        
        
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}