| |
|
|
- 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 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 |
|
|
| |
|
|
|
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&
|
|
|
| |
|
|
|
RudiB. | ...yet as Nachtrag...The Website becomes complete displayed, then comes The Error Message... |
|
|
| |
|
|
|
Georg Teles | Hi, in the proc CallMethod is a Error:
there standing one $ instead of & at Parameter Nr 4
Korrigiert works it by me at Erststart comes The nervige Cookies Message
Regards |
|
|
| |
|
|
| |
|
- 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.. |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
p.specht
| Leo.org is objectively a good address in this Context! thanks you! |
|
|
| XProfan 11Computer: 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. 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:
fundamentally should with the all Websites weg. Runterladen, read, ready. |
|
|
| |
|
|