XProfan

- Page 1 -

RGH

One small Tipp:

the ~GetClientRect() can itself save.
XProfan knows for a long time The functions Width(hWin&) / Height(hWin&), with them the Ausmaße the Clientbrereiches the Fensters hWin& detect let.
(clear: These functions call naturally too The API GetClientRect() on ...)

Greeting
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

thanks you all for Help.
but The Solutions are me To Komplex.
me would really suffice if I whom Text Mark could and it into Zwieschenablage copies get.
there this vorgehen too manually with the mouse goes ought to it too commands give The the automatically manage. How wm_Copy, wm_Paste what me missing is the Message for everything Mark.

M fG

Andreas

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

Uwe
''Pascal''
Niemeier

Hello people!

@ Roland: is correct, the GetClientRect() must time with irgendwelchen try spare stayed his

@ Andreas:

there this vorgehen too manually with the mouse goes ought to it too commands give The the automatically manage. How wm_Copy, wm_Paste

even not

Something like can itself in the Webbrowser too only by COM release, unless, You would mouse/Cursor fernsteuern. with einfachen Messages is there nothing To make.

HTH
Pascal

Frank
Abbing

You could it with of/ one combination from whom API SetCursorPos() and mouse_event() try. the simulate Mausbewegungen- and knopfdrücke.

RudiB.

I have time whom oberen (first) Source aufbereitet, bring me but a Error Message. what runs there schief ?
Seitenaufruf=Google-Translate and Deutscher concept is with transfer when calling.

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

i want on the Page solely The Translation the Wortes read.

 $H windows.ph

proc StringToGUID'---------------conversion 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'--------------------------method one COM-Interfaces Call

    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 TextAuslesen'-------------------------------------visible Text Reading

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

    while 1

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

    endwhile

    declare IHTMLDocument2&
    CallMethod(IWebbrowser&,18,addr(IHTMLDocument2&))'--IWebbrowser::get_Document
    declare IHTMLElement&
    CallMethod(IHTMLDocument2&,9,addr(IHTMLElement&))'--IHTMLDocument2::get_body
    declare Text&
    CallMethod(IHTMLElement&,64,addr(Text&))'--IHTMLElement::get_outerText
    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)
    CallMethod(IHTMLElement&,2)'----IHTMLElement::Release
    CallMethod(IHTMLDocument2&,2)'--IHTMLElement::Release
    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$,ME&
Atl&=usedll("atl.dll")
AtlAxWinInit()
a$="https://translate.google.com/?hl=de&sl=de&tl=it&text=hummel&op=translate"'-----------way or URL
Web&=control("AtlAxWin",a$,$50300000,0,0,780,250,%hwnd,0,0,$200)'-HTML-Contol lay out
a$=TextAuslesen(Web&)
ME&=create("Multiedit",%hwnd,a$,0,290,780,250)'----Text Show

while 1

    waitinput
    case %umessage=16:break

endwhile

destroywindow(Web&)
freedll Atl&

web_fehler.jpg	21 kB

Hochgeladen:	08/15/21

Downloadcounter:
		Download

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

08/15/21 ▲

RudiB.

...yet as Nachtrag...The Website becomes complete displayed, then comes The Error Message...

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

08/15/21 ▲

Georg
Teles

Hi, in the proc CallMethod is a Error:

there standing one $ instead of & at Parameter Nr 4

case %pcount=4:return call( Method&,IFace&,&(3),$(4) )

Korrigiert works it by me

at Erststart comes The nervige Cookies Message

Regards

XProfan X2
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

08/20/21 ▲

- Page 2 -

RudiB.

Hello Georg....tja this is objectively one Error been.
but I have me well wrong framed...
i want not only The Page displayed get separate The Translation the Wortes read and in the Profan-Program as Variable transfer.

but something is correct in this View source but still not...it should Yes end one MultiEdit prepares go, the diving by me but none first on...

....Have whom Error found !!!
so stehts in the View source....must but something differently his...

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

Variable a$ is the Knackpunkt....How follows with Leerstring GEHTS naturally

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

and then whom ausgelesenen Source the Website in a$ ans MultiEdit transfer..

Settext ME&,a$' whom ausgelesenen Source the Website ans MultiEdit transfer..

has me but neither weitergebracht, The Translation the Wortes is not to find.....SCHADE.

but nevertheless many Thanks Georg..

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

08/20/21 ▲

p.specht

The Translation cache itself behind one Javascript-Link, so tappt im dunkeln in the ausgelesenen Seitentext none auftaucht. Erlebe straight a similar "Klauschutz" and be moreover on the tüfteln ...

P.s.: Date Suchfeld self is there kooperativer:
"rendition deutsch" as Suchbegriff gives a Antwortseite, The after a solid CLASS indicated the correctly übersetzte word "Wiedergabe" contains. might one rausfiltern ...

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

08/22/21 ▲

RudiB.

with the normalen Date-Search goes it of course but it power a automatic Voice Recognition the Wortes.
so Search I z.B. to the italian word "bombo" to German Hummel, The Suchmaschine recognize "bombo" however as Español and Translated it me as "Trommel"
habs straight time with Leo.org ausprobiert....there can be it read.

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

08/23/21 ▲

p.specht

Leo.org is objectively a good address in this Context! thanks you!

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

08/25/21 ▲

Andreas Gaida (18.01.2008)

Michael
Hettner

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

MfG
Andreas

circa to that example The IP auszulesen use I since years integrally simply a php-File, The I uploaded have.
with Profan load I with @DownLoadFile The File as txt-File down, read tappt im dunkeln from and lösche tappt im dunkeln again.
example php-File:

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

fundamentally should with the all Websites weg. Runterladen, read, ready.

09/02/21 ▲