WebGadget Inhalt Duplizieren

[RSBasic]

hast du zufällig ein Beispiel?

Ich habe gerade keine passende große Website zum Testen, aber hier wurden ein paar Beispielcodes gepostet, die du ausprobieren kannst: viewtopic.php?p=326817

[Velindos]

Hallo RSBasic,
danke für deinen LINK, hatte irgendwie das Gefühl mit der Sache schon was zu Tun gehabt zu Haben!

Nun habe da weitergemacht, aber keinen Erfolg. Habe es mal mit einen Link probiert von einer Page, sehe aber nichts!

Code: Alles auswählen

EnableExplicit
; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;{  [GLO_95] P R O G R E S S B A R   
; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; ProgressBar
Global ProgressBar
Global ProgessBarModus      = 0 
Global ProgressBarMin       = 0
Global ProgressBarMax       = 10000
Global ProgressBarFaktor.f  = 1
Global ProgressBar_Anzahl   = 0 
Global ProgressBar_Zeiger   = 0
Global ProgressBar_Time     = 10
;}
; ================================
Enumeration
  #win
  #web
  #Windows_ProgressBar
EndEnumeration
Global iPage.IWebBrowser2
OpenWindow(#win, 0, 0, 800, 600, "WebGadget Fortschritt", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
; WebGadget(#web, 10, 10, 790, 560, "https://news.google.de/")
WebGadget(#web, 10, 10, 790, 560, "https://www.oe24.at/")
; WebGadget(#web, 10, 10, 790, 560, "D:\[INFORMENT]\iPAGE\SpareParts 2013-07.html")
SetGadgetAttribute(#web, #PB_Web_BlockPopups,0)
; -----------------------------
; Popups
SetGadgetAttribute(#web, #PB_Web_BlockPopups,1)
; -----------------------------
;  Skriptfehler ausschalten
iPage.IWebBrowser2 = GetWindowLong_(GadgetID(#web), #GWL_USERDATA)   
; -----------------------------
If iPage.IWebBrowser2
  iPage.IWebBrowser2\put_Silent(#True)
Else
  iPage.IWebBrowser2\put_Silent(#False)
EndIf
; -----------------------------
ProgressBar = ProgressBarGadget(#PB_Any,10, 580, 790, 20,ProgressBarMin,ProgressBarMax)

Define Event

Repeat
  
  Event = WaitWindowEvent()
  
  Select Event
      
    Case #PB_Event_Gadget
      
      Select EventGadget()
          
        Case #web
          
          Select EventType()
              
            Case #PB_EventType_DownloadStart
              Debug "DownloadStart"
              ProgressBarMin       = 0
              ProgressBarMax       = GetGadgetAttribute(#web, #PB_Web_ProgressMax)
              ProgressBarFaktor = ProgressBarMax/GetGadgetAttribute(#web, #PB_Web_Progress)
              
            Case #PB_EventType_DownloadProgress
              Debug "DownloadProgress: " + Str(GetGadgetAttribute(#web, #PB_Web_Progress))
              Debug "DownloadProgressMax: " + Str(GetGadgetAttribute(#web, #PB_Web_ProgressMax))
              SetGadgetState(ProgressBar, GetGadgetAttribute(#web, #PB_Web_Progress) * ProgressBarFaktor)
              
            Case #PB_EventType_DownloadEnd
              Debug "DownloadEnd"
              
          EndSelect
          
      EndSelect
      
  EndSelect   
  
Until Event = #PB_Event_CloseWindow

Starte die Seite mal mit einer Datei:

WebGadget(#web, 10, 10, 790, 560, "D:\[INFORMENT]\iPAGE\SpareParts 2013-07.html")

Also wenn ich eine html-DAtei lade kommt nichts als DownladStart und DownladEnd, obwohl die Seite noch geladen wird!
Eine Idee??

Gruss ... Velindos!