WebGadget - Alles auswählen

Für allgemeine Fragen zur Programmierung mit PureBasic.
Joe
Beiträge: 3
Registriert: 24.01.2014 09:46

WebGadget - Alles auswählen

Beitrag von Joe »

Moin,
habe schon einiges versucht, bekomme es aber einfach nicht gebacken:
Wie kann ich im WebGadget "Alles markieren"??
Von Hand geht es natürlich (Ctrl A)

Jemand eine Idee?

Danke, Joe

Code: Alles auswählen

EnableExplicit

Enumeration FormWindow
  #frmMain
EndEnumeration

Enumeration FormGadget
  #wv
  #btnTest
EndEnumeration

Global.b flagForever = #True

Procedure OpenfrmMain(x = 0, y = 0, width = 567, height = 453)
  OpenWindow(#frmMain, x, y, width, height, "WebView", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  WebGadget(#wv, 7, 40, 553, 413, "")
  ButtonGadget(#btnTest, 7, 7, 113, 27, "Test")
EndProcedure


Procedure main()
   
   Repeat     
      Select WaitWindowEvent()
         Case #PB_Event_CloseWindow
            flagForever = #False
         Case #PB_Event_Gadget
            Select EventGadget()
               Case #btnTest
                  SetGadgetText(#wv, "https://www.purebasic.com")
                  While GetGadgetAttribute(#wv, #PB_Web_Busy)
                     WaitWindowEvent(#frmMain)
                  Wend
                  Debug GetGadgetItemText(#wv, #PB_Web_HtmlCode)
                  
                  ;SetActiveGadget(#wv)
                  ; send Ctrl+A (alles auswählen)
                  ; Debug GetGadgetItemText(#wv, #PB_Web_SelectedText)
                  
            EndSelect 
      EndSelect
   Until flagForever = #False
   
EndProcedure

openfrmMain()  
main()
End
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:

Re: WebGadget - Alles auswählen

Beitrag von bobobo »

If ReceiveHTTPFile("https://www.purebasic.com", GetTemporaryDirectory()+"tmp.txt")
RunProgram(GetTemporaryDirectory()+"tmp.txt")
EndIf

ok .. das war ein Schnellschuss und nicht das was du brauchst (zumal du das ja oben schon hast)

Du willst die Seite markieren und den TextInhalt haben.
Ein Parsen des Textinhalts wäre vermutlich angebracht.
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Benutzeravatar
kpeters58
Beiträge: 26
Registriert: 16.12.2014 18:51

Re: WebGadget - Alles auswählen

Beitrag von kpeters58 »

Keine Ahnung, ob das was wäre - probieren geht über studieren...?

http://forums.purebasic.com/english/vie ... php?t=7115
Benutzeravatar
Kiffi
Beiträge: 10711
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: WebGadget - Alles auswählen

Beitrag von Kiffi »

Bitte nicht mehr forums.purebasic.com verwenden. Die korrekte Adresse lautet:

https://www.purebasic.fr/english/viewtopic.php?t=7115
a²+b²=mc²
Antworten