English
Forum

Webcontrol read ?

 
- Page 1 -



Andreas
Gaida
Hi!
wisely Perhaps someone How one whom Content one such Webcontrols read can.
Should a IP address from it read. with the mouse can Yes everything Mark and copy.but me are missing The
suitable Messages circa it automatically To make.If someone The knows ,true I for tappt im dunkeln very grateful.
CompileMarkSeparation
WebControl&=create(HTMLWin,%hwnd,http://fritz.box/,0,0,0,width(%hwnd),height(%hwnd))
>

MfG
Andreas
 
Athlon X2 4800 , 2GB Ram , GeForce 7800GT
Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b
01/18/08  
 



 
- 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
01/19/08  
 




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
01/19/08  
 




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
 
01/19/08  
 




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




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&

21 kB
Hochgeladen:08/15/21
Downloadcounter62
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  
 




Michael
Hettner
Andreas Gaida (18.01.2008)
Hi!
wisely Perhaps someone How one whom Content one such Webcontrols read can.
Should a IP address from it read. with the mouse can Yes everything Mark and copy.but me are missing The
suitable Messages circa it automatically To make.If someone The knows ,true I for tappt im dunkeln very grateful.
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  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

10.785 Views

Untitledvor 0 min.
Uwe Lang06/28/24
H.Brill06/07/24
Sven Bader11/21/23
Ernst05/29/22
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie