PureBoard

Code: Alles auswählen

;PB 6.10b7 x64

Procedure.i PressControlKey(key)
   ;aus dem englischen Forum, etwas verändert
   
   Protected inputkey.INPUT
   
   Protected.i time = 0 ;null funktioniert bei mir
   
   ;Control key down
   inputkey\type = #INPUT_KEYBOARD
   inputkey\ki\wVk = #VK_CONTROL
   inputkey\ki\dwFlags = 0
   SendInput_(1, inputkey, SizeOf(INPUT)): Delay(time)
   
   ;key press
   inputkey\type = #INPUT_KEYBOARD
   inputkey\ki\wVk = key
   inputkey\ki\dwFlags = 0
   SendInput_(1, inputkey, SizeOf(INPUT)): Delay(time)
   ;key release
   inputkey\type = #INPUT_KEYBOARD
   inputkey\ki\wVk = key
   inputkey\ki\dwFlags =  #KEYEVENTF_KEYUP
   SendInput_(1, inputkey, SizeOf(INPUT)): Delay(time)
   
   ;Control key up
   inputkey\type = #INPUT_KEYBOARD
   inputkey\ki\wVk = #VK_CONTROL
   inputkey\ki\dwFlags = #KEYEVENTF_KEYUP
   SendInput_(1, inputkey, SizeOf(INPUT)): Delay(time)
   
EndProcedure

frm = 1
web = 10

OpenWindow(15, 10, 10, 1400, 800, "WebGadget", #PB_Window_SystemMenu) 

;ContainerGadget(frm, 5, 5, 1200, 750, #PB_Container_Flat)
WebGadget(web, 0, 0, 1198, 748, "https://www.momox.de/offer/9783734111730", #PB_Web_Edge) 
;CloseGadgetList()

;SetGadgetText(web, "https://www.momox.de/schneller-verkaufen/") 

Repeat
   Event = WaitWindowEvent()
   
   Select Event
         
      Case #PB_Event_Gadget
         Select EventGadget()
            Case web
               Debug EventType()
               
               If EventType() = #PB_EventType_DownloadEnd
                  Debug "#PB_Eventtype_DownloadEnd"                 
                  
                  PressControlKey(65) ;Ctrl A                    
                  
                  Repeat 
                     j+1
                     a$ = GetGadgetItemText(web, #PB_Web_SelectedText) : Debug "Len SelText: " + Len(a$)
                     
                     ;GetGadgetItemText gibt bei mir immer 2-4 mal 1 Zeichen zurück und dann den ganzen Text
                     
                     If Len(a$) > 1: Break: EndIf 
                     
                  ForEver
                  
                  Debug a$
                  Debug "Anzahl Repeat: " + j
                  
               EndIf 
               
         EndSelect
         
   EndSelect
Until Event = #PB_Event_CloseWindow