XProfan

Dafür nimmst Usted simplemente el Descargar-Unit.

03.05.2006 ▲

Macht el no Su navegador ? - Mozilla Firefox zeigt el Ver código fuente el grade geladenen Página a: Ansicht -> Seitenquelltext Mostrar -

04.05.2006 ▲

Frank
Abbing

Beim IE versteckt el Función bajo Ansicht/Ver código fuente.
Yo denke aber, Georg möchte el selber programa. Also veces iFs Vorschlag testen.

04.05.2006 ▲

Georg
Hovenbitzer

¡Hola zusammen,

ihr habt todos bastante

El Unit de IF macht eigentlich genau el Yo möchte, ABER ellos scheitert a el Página como uno se hay registro muss y el wohl encima Sessions ID gemacht se.
Also komme Yo así no más.

Lo son después de meiner Meinung zwei Möglichkeiten:

1. wget oder curl soweit a bekommen, dass ellos se einloggen y la página ziehen, esta entonces auswerten.
Hier el problema es, dass Yo el beiden Programas todavía no dazu gebracht habe se einzuloggen.

2. como Yo la página en el Moment ansehe wo Yo el Daten de el Ver código fuente necesidad, búsqueda Yo una Möglichkeit en el Hintergrund el Opción des Browsers, el Ver código fuente a zeigen, a nutzen.
Man podría el Browserfenster fernsteuern, qué me pero no tan bueno gefällt (Tastaturcodes senden, en el Editfenster alles marca, kopieren y auswerten)

Yo hoffe lo versteht uno Yo como geschrieben habe y kann me una Tip geben.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

04.05.2006 ▲

Clemens
Meier

Lo kommt el Login a. Usted puede dich con el PCU de IF auch registro. Lo kommt darauf a, si du una htaccess überwinden musst oder si una Formular benutzt se. Und natürlich, dass du el Logindaten hast.

In beiden Fällen musst du el URL algo ändern. Für una htaccess debería él como folgt aussehen:
[...]

¿Es una Formular, musst du el Zugangsdaten a el URL dran hängen. Sähe entonces así de (Yo glaube, el PCU de IF akzeptiert Querys):
[...]

Mit el Session dürfte lo auch kein Problema geben. Akzeptiert el Navegador no Cookies, se el Sessionid en cada URL con angehängt. So bekommst du ellos also. Musst also en el Ver código fuente sehen, dir el Sessionid con el entsprechenden Variables rauspicken y esta entonces jeweils a deine URLs dranhängen.

XProfan 9.1; XP SP2; FF; Editpad

Usted puede con el Unit el Loginurl (php?) el Logindaten por get senden - y erhältst una Página welche warscheinlich auch el SessionID en el Source haben se. Eigendlich es el qué Usted möchtest kein Problema, sei porque, el LoginPHP abverlangt el Logindaten ausschließlich por Post en lugar de por Get.

Clemens
Meier

Im letzteren Falle podría él el Procedimiento de el Hilo [...]

benutzen. Dann pero no el gleichen Fehler hacer Yo y vergessen el DLL einzubinden

XProfan 9.1; XP SP2; FF; Editpad

Uwe
''Pascal''
Niemeier

@ Georg: Como o. wo lässt du la página Mostrar? Normaler Navegador oder HTML-Control bajo Profano?
In letzterem Fall: Como erzeugst du lo?

Möglicherweise hay una COM-Solución, oder uno podría el Expediente en el Cache ausfindig hacer...

SeeYou
Pascal

Georg
Hovenbitzer

¡Hola zusammen,

ya veces vielen Dank para el Ayuda

Yo liebe dieses Foro

Yo probiere lo a Tiempo encima drei Möglichkeiten.

1. por alt.dll y una AtlAxWin Control
- así Yo lo geschaft la página darzustellen. Hierbei se kein Login benötigt, como wohl el Cookie benutzt se y él se así automáticamente einloggt.

2. por PCU de IF
- hier es nun auch, qué ebenso a el Cookie liegt. Das zurück geben como String haut en dieser Página no hin, Yo leite esta a una MultiEdit más y esta verabschiedet se todos (en google.de klappt lo con el Anzeige). Abspeichern en uno Expediente funktioniert.

3. Procedimiento vom Clemens
- esta haut no bastante hin, como esta wohl siempre sólo el ersten Frame nimmt. So sieht me, dass qué angezeit se, de.

Lo son also ya una lösung worauf Yo aufbauen kann.

Lo sería mich aber siempre interés si uno el IE anzapfen kann en se de hay el Ver código fuente a ziehen.
Dadurch bräuchte uno la página no doppelt aufzurufen, como Yo ellos me a el Zeitpunkt sí ansehe.

@Pascal
Nun es con beiden, also IE y HTML Control.
Mit el Cache Tuve me auch ya überlegt, como si uno bajo el Navegador se el Ver código fuente ansieht, es sí hay el Expediente. Oder se el en diesem Moment sólo erstellt ? Mit COM saber Yo mich no de, aber tal vez hast du sí una Concepto.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

Uwe
''Pascal''
Niemeier

¡Hola Georg!

Hier una experimenteller Code, en de una ATL-WebContol el Ver código fuente a ermitteln:
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 CallMethod--------------------------Methode eines COM-Interfaces aufrufen

        parameters IFace&,Method&
        declare VTable&
        VTable&=long(IFace&,0)
        Method&=long(VTable&,Method&*4)
        case %pcount=2:return call( Method&,IFace& )
        case %pcount=3:return call( Method&,IFace&,&(3) )
        case %pcount=4:return call( Method&,IFace&,&(3),$(4) )
        case %pcount=5:return call( Method&,IFace&,&(3),&(4),&(5) )
        endproc-----------------------------------------------------------------------

        proc Quelltext_Lesen----------------------------Quelltext_Lesen---------------

            parameters WebCtrl&
            declare IID#,Error&
            dim IID#,16
            external("ole32","CoInitialize",0)
            print "ATL-WebControl",WebCtrl&
            print
            declare IUnknown&
            Error&=external("atl","AtlAxGetControl",WebCtrl&,addr(IUnknown&))
            print "Error AtlAxGetControl",Error&
            print "IUnknown",IUnknown&
            print
            declare IWebBrowser&
            StringToGUID("{D30C1661-CDAF-11d0-8A3E-00C04FC9E26E}",IID#)--IID_IWebBrowser2
            Error&=CallMethod(IUnknown&,0,IID#,addr(IWebBrowser&))-------IUnknown::QueryInterface
            print "Error IUnknown::QueryInterface",Error&
            print "IWebBrowser",IWebBrowser&
            print
            declare IHTMLDocument2&
            Error&=CallMethod(IWebbrowser&,18,addr(IHTMLDocument2&))--IWebbrowser::get_Document
            print "Error IWebbrowser::get_Document",Error&
            print "IHTMLDocument2",IHTMLDocument2&
            print
            declare IHTMLElement&
            Error&=CallMethod(IHTMLDocument2&,9,addr(IHTMLElement&))--IHTMLDocument2::get_body
            print "Error IHTMLDocument2::get_body",Error&
            print "IHTMLElement",IHTMLElement&
            print
            declare Text&
            Error&=CallMethod(IHTMLElement&,62,addr(Text&))--IHTMLElement::get_outerHTML
            print "Error IHTMLElement::get_outerHTML",Error&
            print "Pointer outerHTML",Text&
            declare Size&,Text#,Text$
            Size&=external("oleaut32","SysStringLen",Text&)
            dim Text#,Size&
            ~WideCharToMultiByte(0,0,Text&,-1,Text#,Size&,0,0)
            external("oleaut32","SysFreeString",Text&)
            Text$=string$(Text#,0)
            dispose Text#
            dispose IID#
            external("ole32","CoUninitialize")
            return Text$
            endproc-----------------------------------------------------------------------
            --------------------------------------------------------------------------------------------
            window 0,0-800,600
            usermessages 16
            def AtlAxWinInit(0) !"atl.dll","AtlAxWinInit"
            def AtlAxCreateControl(4) !"atl.dll","AtlAxCreateControl"
            declare Atl&,Web&,a$
            Atl&=usedll("atl.dll")
            AtlAxWinInit()
            a$="C:Test.html"-----------Pfad oder URL
            Web&=control("AtlAxWin",a$,$50300000,400,0,380,250,%hwnd,0,0,$200)-HTML-Contol anlegen
            a$=Quelltext_Lesen(Web&)
            create("Multiedit",%hwnd,a$,0,290,780,250)----Text anzeigen

            while 1

                waitinput
                case %umessage=16:break

            endwhile

            destroywindow(Web&)

freedll Atl&

Der Haken daran: Usted erwähntest Frames... In el Fall wirst du sólo el Frameset adecuado kriegen, lo sei porque, du kannst el gewünschte Página direkt anspringen.

Yo voluntad aber todavía después de el otro Möglichkeiten schaun

BTW: Wird el el besagte Página überhaupt en el Cache abgelegt (si ellos sicherheitsrelevant es, puede doch auch unterdrückt voluntad)?

HTH
Pascal

06.05.2006 ▲

Georg
Hovenbitzer

¡Hola Pascal,

el Code klappt con zwei pequeño Los cambios muy bien.
Dem Multiedit debería uno el Inhalt por SendMessage zukommen dejar, como el meisten Páginas más que 255 Signo haben.
Desweiteren Yo después de el AtlAxWin Control Aufruf una Waitinput gesetzt, como lo si la Página todavía no vollständig geladen wurde a una Systemfehler kommt.

Yo saber mich con COM überhaupt no de, kommt uno nun a el original Browserfenster ran oder muss uno se siempre una propio redactar?

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

08.05.2006 ▲