XProfan

Italia

Wieder ein Fundstück von Andreas Miete - diesmal um die aktuelle Adresse/ URL eines HTMLWin-Controls auszulesen:

Andreas Miethe, URL=paules-pc-forum.de/forum/xprofan/127403-adresse-aus-htmlwin-auslesen-2.html#post780106, ZEITPUNKT=10.04.2010, 11:19

Versuchs mal hiermit. Ist ein etwas abgewandelter Code von Uwe "Pascal" Niemeier.
Kompilieren Markieren Separieren

 $H Windows.ph

proc StringToGUID'---------------Umwandlung String > globally unique identifier

    parameters GUID$,GUID&
    declare Temp$
    Temp$=space$(80)
    ~MultiByteToWideChar(1,1,addr(GUID$),-1,addr(Temp$),80)
    external("ole32","CLSIDFromString",addr(Temp$),GUID&)

endproc'-----------------------------------------------------------------------

proc WideToMultiOLE'------------------------------WideChar to MultiByte für OLE

    parameters Text&
    declare Size&,Text$
    Size&=external("oleaut32","SysStringLen",Text&)
    Text$=char$(Text&,0,Size&*2)
    Text$=substr$(Text$,1,"zz")
    Text$=translate$(Text$,"z","")
    external("oleaut32","SysFreeString",Text&)
    return Text$

endproc'-----------------------------------------------------------------------

proc WebInfo'------------------------------------------------------------------

    parameters WebCtrl&,Method%
    declare IID#,IUnknown&,IWebBrowser&,VTable&
    declare Text$,Text&
    dim IID#,16
    external("atl","AtlAxGetControl",WebCtrl&,addr(IUnknown&))
    StringToGUID("{D30C1661-CDAF-11d0-8A3E-00C04FC9E26E}",IID#)'--IID von IWebBrowser2
    VTable&=long(IUnknown&,0)'------------------------------------IVTable von IUnknown
    Call(long(VTable&,0),IUnknown&,IID#,addr(IWebBrowser&))'------IUnknown::QueryInterface
    Call(long(VTable&,8),IUnknown&)'------------------------------IUnknown::Release
    VTable&=long(IWebBrowser&,0)'---------------------------------IVTable von IWebBrowser2
    call(long(VTable&,Method%*4),IWebBrowser&,addr(Text&))
    Text$=WideToMultiOLE(Text&)
    Call(long(VTable&,8),IWebBrowser&)'---------------------------IWebBrowser2::Release
    dispose IID#
    return Text$

endproc'-----------------------------------------------------------------------

window 0,0-800,600
Var ende& = 0
Var URL$="https://www.ampsoft.eu"'-----------Pfad oder URL
Var Web&=create("HTMLWin",%hwnd,url$,0,0,0,800,600)

whilenot ende&

    Waitinput 100
    WindowTitle WebInfo(Web&,30)'----IWebBrowser2::get_LocationURL

EndWhile

destroywindow(Web&)
f='./../../funktionsreferenzen/xprofan/end/'>End

Damit wiederum kann man dann mit ein paar einfachen Handgriffen einen einfachen Web-Browser herstellen:

Herunterladen

Ruft man WebInfo mit Wert 29 als 2. Parameter auf dann erhält man scheinbar manchmal sogar den Seitentitel - leider aber nicht immer und ich habe keine Ahnung warum. Die URL hingegen scheint zuverlässig ermittelbar.