Quelltext AUS Webgadget lesen [gelöst]

[onny]

Hallo!

Habe hier mal ein Code, der mich brennend interisiert:

Code: Alles auswählen

Enumeration 1 
  #OLECMDID_OPEN          
  #OLECMDID_NEW        
  #OLECMDID_SAVE          
  #OLECMDID_SAVEAS            
  #OLECMDID_SAVECOPYAS    
  #OLECMDID_PRINT        
  #OLECMDID_PRINTPREVIEW        
  #OLECMDID_PAGESETUP        
  #OLECMDID_SPELL            
  #OLECMDID_PROPERTIES  
  #OLECMDID_CUT          
  #OLECMDID_COPY        
  #OLECMDID_PASTE            
  #OLECMDID_PASTESPECIAL    
  #OLECMDID_UNDO            
  #OLECMDID_REDO          
  #OLECMDID_SELECTALL        
  #OLECMDID_CLEARSELECTION 
  #OLECMDID_ZOOM            
  #OLECMDID_GETZOOMRANGE      
  #OLECMDID_UPDATECOMMANDS  
  #OLECMDID_REFRESH            
  #OLECMDID_STOP              
  #OLECMDID_HIDETOOLBARS      
  #OLECMDID_SETPROGRESSMAX    
  #OLECMDID_SETPROGRESSPOS  
  #OLECMDID_SETPROGRESSTEXT    
  #OLECMDID_SETTITLE          
  #OLECMDID_SETDOWNLOADSTATE  
  #OLECMDID_STOPDOWNLOAD      
EndEnumeration 

Enumeration 0 
  #OLECMDEXECOPT_DODEFAULT      
  #OLECMDEXECOPT_PROMPTUSER        
  #OLECMDEXECOPT_DONTPROMPTUSER    
  #OLECMDEXECOPT_SHOWHELP        
EndEnumeration 

; ----------------------------------------------------- 

; Now the code 

#WebGadget = 1 
#Button = 2 

OpenWindow(0, 0, 0, 800, 600, #PB_Window_ScreenCentered|#PB_Window_SystemMenu, "WebBrowser") 
CreateGadgetList(WindowID()) 

WebGadget(#WebGadget, 10, 40, 780, 550, "www.purebasic.com") 
ButtonGadget(#Button, 10, 10, 60, 20, "Copy") 

; Fred the genius stored the Interface pointer to IWebBrowser2 in the DATA 
; member of the windowstructure of the WebGadget containerwindow, so we can get 
; that easily: 
WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(#WebGadget), #GWL_USERDATA) 

Repeat 
  Event = WaitWindowEvent() 
  If Event = #PB_EventGadget And EventGadgetID() = #Button 
    
    ; Now here's the actual copy thing, not that complicated... 
    WebObject\ExecWB(#OLECMDID_COPY, #OLECMDEXECOPT_DONTPROMPTUSER, 0, 0) 
    
    ; little test: 
    MessageRequester("", GetClipboardText(), 0) 
    
  EndIf 
Until Event = #PB_EventCloseWindow 

End

Dieser Code kopiert einen makierten Text im Webgadget in die Zwischenablage. Mich würde gern interisieren wie dies Funktioniert:

Code: Alles auswählen

WebObject\ExecWB(#OLECMDID_COPY, #OLECMDEXECOPT_DONTPROMPTUSER, 0, 0)

[...]

WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(#WebGadget), #GWL_USERDATA) 

Was sind hier die Parameter und was machen die Befehle?
Hoffe ich bekomm ein paar Tipps

Und wäre es machbar einen Text aus dem Webgadget zu lesen OHNE diesen zu makieren oder aus dem Quelltext zu kopieren?

Schonmal vielen dank für alle Tipps im Vorraus! Gruß oNNy!


Rechtschreibfehler im Titel korrigiert - Kaeru fecit

[ts-soft]

Das Interface "IWebBrowser2" findeste im Strukturverzeichnis, Reiter Interface.
Den Rest im PSDK o. ä. der auch einen Com Ole Object Viewer unter Tools installiert.

[onny]

Das Interface "IWebBrowser2" findeste im Strukturverzeichnis, Reiter Interface.
Den Rest im PSDK o. ä. der auch einen Com Ole Object Viewer unter Tools installiert.

aha
ich hoffe das klärt meine frage und vielen dank für die schnelle antwort!

p.s. hier im pb forum ist ja noch immer mächtig was los, weiter so

[Jilocasin]

wieso willst du ihn kopieren ohne ihn markieren zu müssen?

[onny]

wieso willst du ihn kopieren ohne ihn markieren zu müssen?

das programm soll die stelle in der webseite selbst finden.
warum? hab da ein problem --> http://www.purebasic.fr/german/viewtopic.php?t=8729

[Jilocasin]

sry, kapier ich net
erklär' ma bittöö....

[roherter]

Hallo!

Habe hier mal ein Code, der mich brennend interisiert:

Und bei mir regt sich jeder auf, wenn ich mich mal verschreibe.

[ts-soft]

Und bei mir regt sich jeder auf, wenn ich mich mal verschreibe.

siehe hier: http://www.purebasic.fr/german/viewtopi ... geburtstag
onny : 28.10.1990
Ausserdem sind Deine Texte teilweise nicht zu verstehen, weil ohne Punkt, Komma, Strich, alles zu einem unverständlichem Satz wird

[onny]

kann man mich über meine rechtschreibfehler aufklären?

[roherter]

Ja ich weiß schon was das problem bei meinen Posts ist, und ich verstehe ja auch was ihr mir sagen wollt.
Ich meinte ja nur schließlich geht er noch zur schule und mit 15 sollte er das auch schon können.

ps:ich bin seit 14 jahren aus der schule raus.

edit :@ony -> auswärten und im ersten satz bei interisiert
gb.:17.05.1976