Вверх ↑
Этот топик читают: Гость
Ответов: 47
Рейтинг: 0
#1: 2020-10-12 16:49:40 ЛС | профиль | цитата
>

Как сохранить текст из окна, зная его handle
карма: 0

0
Ответов: 1926
Рейтинг: 172
#2: 2020-10-12 20:10:33 ЛС | профиль | цитата

Add(SendMessage,12738410,693,217)
{
Message=13
link(onSend,45188:doGet,[])
link(Handle,16328255:Handle,[])
link(LParam,15516707:Memory,[(713,201)(769,201)])
}
Add(Timer,8404764,539,203)
{
Interval=300
link(onTimer,5834539:doData,[])
}
Add(MemoryStream,15516707,749,154)
{
Point(Memory)
Point(doSize)
}
Add(DataToFile,45188,749,210)
{
Type=6
link(onGet,5175552:doText,[])
link(Stream,15516707:Stream,[])
}
Add(Hub,8233292,637,203)
{
OutCount=3
link(onEvent1,15516707:doClear,[(679,209)(679,167)])
link(onEvent2,15516707:doSize,[(685,216)(685,174)])
link(onEvent3,12738410:doSendMessage,[])
}
Add(MouseEvent,16328255,679,112)
{
Point(Handle)
}
Add(DoData,5834539,588,203)
{
Data=Integer(100000)
link(onEventData,8233292:doEvent1,[])
}
Add(Memo,5175552,805,189)
{
Top=25
Width=441
Height=66
ScrollBars=3
}
Add(InfoTip,10811912,504,49)
{
Info=#10:WM_GETTEXT|
Font=[MS Sans Serif,8,1,0,1]
Frame=2
Width=372
Height=270
Margin=3
}
Только хэндл нужен не самого окна, а надписи, т.е. мышь надо подвести к надписи.
карма: 9
0
Ответов: 793
Рейтинг: 168
#3: 2020-10-13 06:20:43 ЛС | профиль | цитата
SaturN26, если мне надо прочитать текст всплывающего окна я делаю ctrl-a и ctrl-c.

Add(MainForm,2953706,28,210)
{
}
Add(Clipboard,3823625,315,217)
{
}
Add(KeyEvent,14590844,273,224)
{
Code=65
Ctrl=1
link(Handle,11496284:Var3,[(279,194)])
}
Add(KeyEvent,491631,231,231)
{
Code=67
Ctrl=1
link(Handle,11496284:Var2,[])
}
Add(Hub,12626921,189,217)
{
InCount=2
OutCount=5
link(onEvent1,3042003:doActive,[(228,223)(228,160)])
link(onEvent2,14590844:doPress,[])
link(onEvent3,491631:doPress,[])
link(onEvent4,10983781:doAdd,[(221,244)(221,272)])
}
Add(Edit,15458784,231,84)
{
Left=75
Top=10
Width=175
Text=""
ClearAfterEnter=1
}
Add(Button,10836331,133,217)
{
Left=5
Top=10
link(onClick,12626921:doEvent1,[])
}
Add(GetDataEx,11496284,231,189)
{
link(Data,11135935:Var2,[])
}
Add(WinTools,3042003,252,140)
{
link(Handle,11135935:Var3,[(258,131)])
}
Add(GetDataEx,11135935,231,126)
{
link(Data,15458784:Text,[])
}
Add(Memo,10983781,315,266)
{
Top=41
Width=384
Height=220
Align=4
ScrollBars=3
link(Str,3823625:Text,[])
}

карма: 16

0
Ответов: 47
Рейтинг: 0
#4: 2020-10-13 09:09:14 ЛС | профиль | цитата
Всем спасибо, оба решения хороши
карма: 0

0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)