Вверх ↑
Ответов: 245
Рейтинг: 4
#1: 2018-09-02 18:25:22 ЛС | профиль | цитата
Вот кусок схемы через буфер вставляет три символа потом по одному бесконечно пока работает таймер а без него не как не выходит, пока грузится 1с прога ищет окно.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,259,301)
{
Width=331
Height=203
link(onCreate,2019802:doExec,[])
}
Add(WinEnum,1736614,462,315)
{
VisibleOnly=1
link(onFindWindow,1188678:doCompare,[])
}
Add(StrMask,1188678,518,315)
{
Mask="Авторизация*"
link(onTrue,11093269:doEvent1,[])
}
Add(FindWindow,9380362,462,392)
{
ClassName="Edit"
SkipParam=1
link(onFind,15981550:doCompare,[])
link(ParentHandle,5569049:Var2,[])
}
Add(Hub,11093269,560,322)
{
link(onEvent1,1736614:doStop,[(585,328)(585,304)(441,304)(441,335)])
link(onEvent2,9380362:doFindChild,[(586,335)(586,370)(450,370)(450,405)])
}
Add(If_else,15981550,511,392)
{
Op2=Integer(0)
link(onFalse,4949313:doEvent1,[(555,405)(555,429)(415,429)(415,482)])
}
Add(Hub,4949313,427,476)
{
OutCount=3
link(onEvent1,6982201:doSetText,[])
link(onEvent2,6982201:doPut,[])
link(onEvent3,15606624:doWinInfo,[(476,496)(476,489)])
}
Add(FindWindow,14645083,658,483)
{
ClassName="Button"
Caption="OK"
link(onFind,12580489:doSendMessage,[])
link(ParentHandle,5569049:Var3,[(664,362)])
}
Add(SendMessage,12580489,707,483)
{
Point(Message)
link(Message,14207121:Var,[])
}
Add(GlobalVar,14207121,728,455)
{
Name="245"
Data=Integer(245)
}
Add(GetDataEx,5569049,462,357)
{
link(Data,1736614:Handle,[])
}
Add(Hub,11040012,616,483)
{
link(onEvent1,11489438:doStop,[(642,489)(642,445)(364,445)(364,328)])
link(onEvent2,14645083:doFindChild,[])
}
Add(GetDataEx,9345157,462,427)
{
link(Data,9380362:Handle,[])
}
Add(MMTimer,11489438,378,315)
{
Enable=1
link(onTimer,1736614:doEnum,[])
}
Add(ClipboardHook,6982201,455,476)
{
DataStream=0
Point(Handle)
link(Text,4897208:Var1,[(461,457)])
link(Handle,9345157:Var2,[])
}
Add(If_else,12465453,567,483)
{
link(onTrue,11040012:doEvent1,[])
link(Op1,15606624:Caption,[(573,471)(549,471)(549,527)(524,527)])
link(Op2,4897208:Var2,[])
}
Add(WinInfo,15606624,511,483)
{
link(onWinInfo,12465453:doCompare,[])
link(Handle,9345157:Var3,[(517,432)])
}
Add(Edit,679552,588,399)
{
Left=45
Top=10
Text="123"
}
Add(WinExec,2019802,315,315)
{
FileName=""C:\\Program Files (x86)\\1Cv77\\BIN\\1cv7s.exe""
link(onExec,11489438:doTimer,[])
}
Add(GetDataEx,4897208,574,452)
{
Angle=1
link(Data,679552:Text,[(594,457)])
}

карма: 1

0