PureBasic Forums - English

Code: Select all

Enumeration
  #Web_0
  #Panel_0
  #Window_0
EndEnumeration



Declare   Main()
Declare   WebBrowser_(INT.l)
Declare.l WebBrowser_Scroll(Gadget.l,X.l,Y.l)

;-
Procedure WebBrowser_(INT.l)
Url.s = PeekS(INT)
If OpenWindow(#Window_0,#Null,#Null,1000,700,#NULL$,#PB_Window_SystemMenu)
 If CreateGadgetList(WindowID(#Window_0))
     PanelGadget(#Panel_0,#Null,#Null,1000,700)
     AddGadgetItem(#Panel_0,1,"Ok")
     WebGadget(#Web_0,#Null,#Null,WindowWidth(#Window_0)-3,WindowHeight(#Window_0)-22,Url)
     CloseGadgetList()
 EndIf
 Repeat
 Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
EndProcedure

;-
Procedure.l WebBrowser_Scroll(Gadget.l,X.l,Y.l)
CoInitialize_(#Null)
Res.l                         = #False
IWebBrowser2.IWebBrowser2     = GetWindowLong_(GadgetID(Gadget),#GWL_USERDATA)
IDispatch.IDispatch           = #Null
IHTMLDocument3.IHTMLDocument3 = #Null
IHTMLElement.IHTMLElement     = #Null
IHTMLElement2.IHTMLElement2   = #Null
If IWebBrowser2
 If IWebBrowser2\get_Document(@IDispatch) = #S_OK And IDispatch
  If IDispatch\QueryInterface(?IID_IHTMLDocument3,@IHTMLDocument3) = #S_OK And IHTMLDocument3 
   If IHTMLDocument3\get_documentElement(@IHTMLElement) = #S_OK And IHTMLElement 
    If IHTMLElement\QueryInterface(?IID_IHTMLElement2,@IHTMLElement2) = #S_OK And IHTMLElement2
     If IHTMLElement2\put_scrollTop(Y) = #S_OK And IHTMLElement2\put_scrollLeft(X) = #S_OK
         Res = #True 
     EndIf
     IHTMLElement2\Release() 
    EndIf 
    IHTMLElement\Release() 
   EndIf 
   IHTMLDocument3\Release() 
  EndIf 
  IHTMLDocument3\Release() 
 EndIf
 ;IWebBrowser2\Release()
EndIf
CoUninitialize_()
ProcedureReturn Res
EndProcedure

DataSection 
  IID_IWebBrowser2: 
    Data.l $D30C1661 
    Data.w $CDAF, $11D0 
    Data.b $8A, $3E, $00, $C0, $4F, $C9, $E2, $6E 
  IID_IConnectionPointContainer: 
    Data.l $B196B284 
    Data.w $BAB4, $101A 
    Data.b $B6, $9C, $00, $AA, $00, $34, $1D, $07    
  IID_IDispatch: 
    Data.l $00020400 
    Data.w $0000, $0000 
    Data.b $C0, $00, $00, $00, $00, $00, $00, $46 
  IID_IUnknown: 
    Data.l $00000000 
    Data.w $0000, $0000 
    Data.b $C0, $00, $00, $00, $00, $00, $00, $46 
  IID_DWebBrowserEvents2: 
    Data.l $34A715A0 
    Data.w $6587, $11D0 
    Data.b $92, $4A, $00, $20, $AF, $C7, $AC, $4D 
  IID_IHTMLDocument2:
    Data.l $332C4425 
    Data.w $26CB, $11D0 
    Data.b $B4, $83, $00, $C0, $4F, $D9, $01, $19
  IID_IHTMLElement2:
    Data.l $3050F434 
    Data.w $98B5, $11CF 
    Data.b $BB, $82, $00, $AA, $00, $BD, $CE, $0B
  IID_IHTMLDocument3:
    Data.l $3050F485 
    Data.w $98B5, $11CF 
    Data.b $BB, $82, $00, $AA, $00, $BD, $CE, $0B 
  IID_IHTMLElement:
    Data.l $3050F1FF 
    Data.w $98B5, $11CF 
    Data.b $BB, $82, $00, $AA, $00, $BD, $CE, $0B
EndDataSection






;-
Procedure Main()
While #True
Url.s = "http://www.purebasic.com"
Thread.l = CreateThread(@WebBrowser_(),@Url)
Sleep_(1000*20)

Debug WebBrowser_Scroll(#Web_0,20,20)
Sleep_(1000*10)

KillThread(Thread)
Wend 
EndProcedure

WaitThread(CreateThread(@Main(),#Null))