XProfan

- Página 1 -

RGH

Ein kleiner Tipp:

Das ~GetClientRect() puede ser se sparen.
XProfan sabe seit langem el Características Width(hWin&) / Height(hWin&), con denen el Ausmaße des Clientbrereiches la ventana hWin& ermitteln dejar.
(Klar: Diese Características rufen natürlich auch el API GetClientRect() en ...)

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Andreas
Gaida

Gracias Euch allen para el Ayuda.
Aber el Lösungen son me a Komplex.
Mir sería wirklich ausreichen si yo el Texto marca podría y ihm en el Zwieschenablage kopiert bekomme.
Como dieses vorgehen auch manuell con ratón va debería lo auch Kommandos geben el el automáticamente bewerkstelligen. como wm_Copy, wm_Paste qué me fehlt Es el Message para alles marca.

M fG

Andreas

Athlon X2 4800 , 2GB Ram , GeForce 7800GT
Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b

Uwe
''Pascal''
Niemeier

¡Hola Personas!

@ Roland: Stimmt, el GetClientRect() muß veces en irgendwelchen Versuchen übrig geblieben ser

@ Andreas:

Como dieses vorgehen auch manuell con ratón va debería lo auch Kommandos geben el el automáticamente bewerkstelligen. como wm_Copy, wm_Paste

Eben no

Algo como läßt se en el Webbrowser auch sólo por COM realisieren, lo sei porque, du würdest Ratón/Cursor fernsteuern. Mit einfachen Messages es como nichts a hacer.

HTH
Pascal

Frank
Abbing

Usted könntest lo con uno Kombination de el API SetCursorPos() y mouse_event() probieren. Das simulado Mausbewegungen- y knopfdrücke.

RudiB.

Yo habe veces el oberen (ersten) Quellcode aufbereitet, bringt me aber una Fehlermeldung. Was se ejecuta como erróneo ?
Seitenaufruf=Google-Translate y Deutscher Begriff es con transferencia beim Aufruf.

"https://translate.google.com/?hl=de&sl=de&tl=it&text=hummel&op=translate"

Yo möchte en el Página lediglich el Übersetzung des Wortes auslesen.

 $H Windows.ph

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

    parámetros GUID$,GUID&
    declarar Temp$
    Temp$=space$(80)
    ~MultiByteToWideChar(1,1,addr(GUID$),-1,addr(Temp$),80)
    external("ole32","CLSIDFromString",addr(Temp$),GUID&)

ENDPROC'-----------------------------------------------------------------------

proc CallMethod'--------------------------Método uno COM-Interfaces aufrufen

    parámetros IFace&,Method&
    declarar VTable&
    VTable&=long(IFace&,0)
    Method&=long(VTable&,Method&*4)
    caso %pcount=2:volver call( Method&,IFace& )
    caso %pcount=3:volver call( Method&,IFace&,&(3) )
    caso %pcount=4:volver call( Method&,IFace&,&(3),$(4) )
    caso %pcount=5:volver call( Method&,IFace&,&(3),&(4),&(5) )

ENDPROC'-----------------------------------------------------------------------

proc TextAuslesen'-------------------------------------sichtbaren Texto Auslesen

    parámetros WebCtrl&
    declarar IID#
    dim IID#,16
    external("ole32","CoInitialize",0)
    declarar IUnknown&
    external("atl","AtlAxGetControl",WebCtrl&,addr(IUnknown&))
    declarar IWebBrowser&
    StringToGUID("{D30C1661-CDAF-11d0-8A3E-00C04FC9E26E}",IID#)'--IID_IWebBrowser2
    CallMethod(IUnknown&,0,IID#,addr(IWebBrowser&))'-------IUnknown::QueryInterface
    declarar Status&

    mientras que 1

        sleep 300
        CallMethod(IWebBrowser&,31,addr(Status&))'--IWebBrowser&::get_Busy
        casenot Status&:romper

    endwhile

    declarar IHTMLDocument2&
    CallMethod(IWebbrowser&,18,addr(IHTMLDocument2&))'--IWebbrowser::get_Document
    declarar IHTMLElement&
    CallMethod(IHTMLDocument2&,9,addr(IHTMLElement&))'--IHTMLDocument2::get_body
    declarar Text&
    CallMethod(IHTMLElement&,64,addr(Text&))'--IHTMLElement::get_outerText
    declarar Size&,Texto#,Texto$
    Size&=external("oleaut32","SysStringLen",Text&)
    dim Texto#,Size&
    ~WideCharToMultiByte(0,0,Text&,-1,Texto#,Size&,0,0)
    external("oleaut32","SysFreeString",Text&)
    Texto$=cadena$(Texto#,0)
    CallMethod(IHTMLElement&,2)'----IHTMLElement::Release
    CallMethod(IHTMLDocument2&,2)'--IHTMLElement::Release
    disponer Texto#
    disponer IID#
    external("ole32","CoUninitialize")
    volver Texto$

ENDPROC'-----------------------------------------------------------------------

window 0,0-800,600
usermessages 16
def AtlAxWinInit(0) !"atl.dll","AtlAxWinInit"
def AtlAxCreateControl(4) !"atl.dll","AtlAxCreateControl"
declarar Atl&,Web&,a$,ME&
Atl&=usedll("atl.dll")
AtlAxWinInit()
a$="https://translate.google.com/?hl=de&sl=de&tl=it&text=hummel&op=translate"'-----------Pfad oder URL
Web&=control("AtlAxWin",a$,$50300000,0,0,780,250,%hwnd,0,0,$200)'-HTML-Contol invertir
a$=TextAuslesen(Web&)
ME&=create("Multiedit",%hwnd,a$,0,290,780,250)'----Texto Mostrar

mientras que 1

    waitinput
    caso %umessage=16:romper

endwhile

destroywindow(Web&)
freedll Atl&

web_fehler.jpg	21 kB

Hochgeladen:	15.08.2021

Ladeanzahl:
		Descargar

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

15.08.2021 ▲

RudiB.

...todavía como Apéndice...el Webseite se komplett adecuado, entonces kommt el Fehlermeldung...

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

15.08.2021 ▲

Georg
Teles

Hi, en el proc CallMethod es una fehler:

hay es una $ en lugar de & beim Parámetro Nr 4

caso %pcount=4:volver call( Method&,IFace&,&(3),$(4) )

Korrigiert klappt lo en me

beim Erststart kommt el nervige Cookies Meldung

Grüße

XProfan X2
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

20.08.2021 ▲

- Página 2 -

RudiB.

¡Hola Georg....tja el es tatsächlich una Fehler gewesen.
Aber Yo mich wohl falso ausgedrückt...
Yo möchte no sólo la página adecuado bekommen pero el Übersetzung des Wortes auslesen y en el Profano-Programa como Variable transferencia.

Aber algo stimmt en diesem Ver código fuente aber siempre todavía no...lo se sí al Ende una MultiEdit erstellt voluntad, el taucht en me aber nada sólo en...

....tener el Fehler gefunden !!!
así stehts en el Ver código fuente....muss aber algo anders ser...

ME&=create("Multiedit",%hwnd,a$,0,100,780,550)'----Texto Mostrar

Variable a$ es el Knackpunkt....como folgt con Leerstring gehts natürlich

ME&=create("Multiedit",%hwnd,"",0,100,780,550)'----Texto Mostrar

y luego el ausgelesenen Quellcode el Webseite en a$ ans Multiedit transferencia..

Settext ME&,a$' el ausgelesenen Quellcode el Webseite ans Multiedit transferencia..

Sombrero mich aber auch no weitergebracht, el Übersetzung des Wortes es hier no para encontrar.....SCHADE.

Aber trotzdem vielen Dank Georg..

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

20.08.2021 ▲

p.specht

El Übersetzung versteckt se hinter una Javascript-Link, sodass ellos en el ausgelesenen Seitentext nada auftaucht. Erlebe gerade una ähnlich "Klauschutz" y bin más al tüfteln ...

P.S.: Google Suchfeld incluso es como kooperativer:
"rendition deutsch" como Suchbegriff son una Antwortseite, el después de uno festen CLASS Angabe el korrekt übersetzte Wort "Wiedergabe" enthält. Könnte uno rausfiltern ...

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

22.08.2021 ▲

RudiB.

Mit el normalen Google-Búsqueda es zwar aber él macht una automatische Reconocimiento de Voz des Wortes.
So búsqueda Yo z.B. después de el italienischen Wort "bombo" al alemán Hummel, el Suchmaschine erkennt "bombo" sin embargo como Spanisch y traducido lo me como "Trommel"
habs gerade veces con Leo.org ausprobiert....hay puede ser lo auslesen.

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

23.08.2021 ▲

p.specht

Leo.org es tatsächlich una gute Adresse en diesem Zusammenhang! Gracias dir!

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

25.08.2021 ▲

Andreas Gaida (18.01.2008)

Michael
Hettner

WebControl&=create(HTMLWin,%hwnd,http://fritz.box/,0,0,0,width(%hwnd),height(%hwnd))

MfG
Andreas

Um para Ejemplo el IP auszulesen nutze Yo seit Jahren bastante simplemente una php-Expediente, el Yo hochgeladen habe.
Mit Profano lade I, con @DownLoadFile el Expediente como txt-Expediente herunter, lese ellos de y lösche ellos otra vez.
Ejemplo php-Expediente:

<?php
echo gethostbyaddr($_SERVER["REMOTE_ADDR"]);
echo $_SERVER["REMOTE_ADDR"];
?>

Grundsätzlich debería el con allen Webseiten ir. Runterladen, auslesen, fertig.

02.09.2021 ▲