XProfan

Español

Wieder una Fundstück de Andreas Miete - diesmal a aktuelle Adresse/ URL uno HTMLWin-Controls auszulesen:

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

Versuchs veces hiermit. Ist una algo abgewandelter Code de Uwe "Pascal" Niemeier.
Kompilieren Marca Separación

 $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 puede ser entonces con un pocos einfachen Handgriffen una einfachen Web-Navegador herstellen:

Descargar

Ruft uno WebInfo con Valor 29 como 2. Parámetro en entonces erhält uno scheinbar manchmal incluso el Seitentitel - desafortunadamente pero no siempre y yo habe no sé por qué. El URL hingegen scheint zuverlässig ermittelbar.