XProfan

- page 1 -

RGH

un kleiner Tipp:

cela ~GetClientRect() peux on sich sparen.
XProfan kennt depuis langem qui Funktionen Width(hWin&) / Height(hWin&), avec denen sich qui Ausmaße des Clientbrereiches des Fensters hWin& ermitteln laisser.
(bien sûr: cet Funktionen appeler naturellement aussi qui API GetClientRect() sur ...)

Salut
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

merci Euch allen pour qui Aider.
mais qui Lösungen sommes mir trop Komplex.
Mir serait wirklich ausreichen si Je l' Text markieren pourrait et ihm dans qui Zwieschenablage kopiert bekomme.
là cet vorgehen aussi manuel avec qui souris allez sollte es aussi Kommandos donner qui cela automatisch bewerkstelligen. comment wm_Copy, wm_Paste quoi mir fehlt ist qui Message pour alles markieren.

M fG

Andreas

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

Uwe
''Pascal''
Niemeier

allô gens!

@ Roland: Stimmt, cela GetClientRect() doit la fois chez irgendwelchen Versuchen übrig geblieben son

@ Andreas:

là cet vorgehen aussi manuel avec qui souris allez sollte es aussi Kommandos donner qui cela automatisch bewerkstelligen. comment wm_Copy, wm_Paste

plan pas

Quelque chose comme läßt sich im Webbrowser aussi seulement per COM realisieren, es sei car, du würdest souris/Cursor fernsteuern. avec einfachen Messages ist là rien trop faire.

HTH
Pascal

Frank
Abbing

Du könntest es avec einer Kombination aus den API SetCursorPos() et mouse_event() essayer. cela simuliert Mausbewegungen- et knopfdrücke.

RudiB.

j'ai la fois den oberen (ersten) Quellcode aufbereitet, bringt mir mais une Fehlermeldung. quoi fonctionne là de travers ?
Seitenaufruf=Google-Translate et Allemand Begriff wird avec transfert beim Aufruf.

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

je voudrais sur qui page lediglich qui Übersetzung des Wortes auslesen.

 $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 appel

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

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

proc TextAuslesen'-------------------------------------sichtbaren Text Lecture

    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&

    tandis que 1

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

    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"'-----------Pfad ou bien URL
Web&=control("AtlAxWin",a$,$50300000,0,0,780,250,%hwnd,0,0,$200)'-HTML-Contol anlegen
a$=TextAuslesen(Web&)
ME&=create("Multiedit",%hwnd,a$,0,290,780,250)'----Text Montrer

tandis que 1

    waitinput
    cas %umessage=16:pause

endwhile

destroywindow(Web&)
freedll Atl&

web_fehler.jpg	21 kB

Hochgeladen:	15.08.2021

Downloadcounter:
		Download

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

15.08.2021 ▲

RudiB.

...encore comme Nachtrag...qui Webseite wird komplett angezeigt, ensuite venez qui Fehlermeldung...

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

15.08.2021 ▲

Georg
Teles

Hi, dans qui proc CallMethod est un faute:

là steht un $ statt & beim paramètre Nr 4

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

Korrigiert klappt es chez mir

beim Erststart venez qui nervige Cookies annonce

Grüße

XProfan X2
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

20.08.2021 ▲

- page 2 -

RudiB.

allô Georg....tja c'est réellement un faute gewesen.
mais j'ai mich wohl faux ausgedrückt...
je voudrais pas seulement qui page angezeigt bekommen mais qui Übersetzung des Wortes auslesen et im Profan-Programme comme Variable transfert.

mais irgendwas stimmt dans diesem Voir le texte source mais toujours pas...es soll oui am Ende un MultiEdit erstellt volonté, cela taucht chez mir mais gar pas seulement sur...

....hab den faute trouvé !!!
so stehts im Voir le texte source....muss mais quelque chose anders son...

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

Variable a$ ist qui Knackpunkt....comment folgt avec Leerstring gehts naturellement

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

et ensuite den ausgelesenen Quellcode qui Webseite dans a$ à l' Multiedit transfert..

Settext ME&,a$' den ausgelesenen Quellcode qui Webseite à l' Multiedit transfert..

Hat mich mais aussi pas weitergebracht, qui Übersetzung des Wortes ist ici pas pour trouver.....SCHADE.

mais quand même vielen Dank Georg..

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

20.08.2021 ▲

p.specht

qui Übersetzung versteckt sich derrière einem Javascript-Link, sodass vous im ausgelesenen Seitentext gar pas auftaucht. Erlebe justement une ähnlich "Klauschutz" et suis plus am tüfteln ...

P.S.: Google Suchfeld selbst ist là kooperativer:
"rendition deutsch" comme Suchbegriff gibt une Antwortseite, qui pour einer festen CLASS Angabe cela korrekt übersetzte mot "Wiedergabe" contient. Könnte on rausfiltern ...

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

22.08.2021 ▲

RudiB.

avec qui normalen Google-cherche ca va zwar mais il pouvoir une automatische Reconnaissance vocale des Wortes.
So cherche je z.B. pour dem italienischen mot "bombo" sur allemande Hummel, qui Suchmaschine erkennt "bombo" cependant comme Spanisch et traduit es mir comme "Trommel"
habs justement la fois avec Leo.org ausprobiert....là peux on es auslesen.

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

23.08.2021 ▲

p.specht

Leo.org ist réellement une gute Adresse dans diesem Zusammenhang! merci 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 zum Beispiel qui IP auszulesen nutze je depuis Jahren entier simple une php-Dossier, qui je hochgeladen habe.
avec Profan lade je avec @DownLoadFile qui Dossier comme txt-Dossier herunter, lese vous aus et lösche vous wieder.
Beispiel php-Dossier:

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

Grundsätzlich devrait cela avec allen Webseiten aller. Runterladen, auslesen, fertig.

02.09.2021 ▲