Вверх ↑
Ответов: 839
Рейтинг: 17
#1: 2019-06-30 13:25:48 ЛС | профиль | цитата
Нашол в примерах но у меня почему то вообще не чего не происходит. Виндовс 10

Add(MainForm,2953706,777,721)
{
TaskBar=1
Point(onClose)
Point(Close)
}
Add(WinEnum,16070666,539,588)
{
link(onFindWindow,5366351:doWinInfo,[])
}
Add(WinInfo,5366351,595,588)
{
Point(ProcessID)
Point(Context)
Point(Width)
link(onWinInfo,7453905:doCompare,[])
link(Handle,4811835:Var3,[(601,576)(576,576)(576,632)])
}
Add(EnumProcess,12326089,483,581)
{
Name="notepad.exe"
Point(doFindName)
Point(onFind)
link(onFind,16070666:doEnum,[])
}
Add(If_else,7453905,679,588)
{
link(onTrue,14266306:doSplit,[])
link(Op1,5366351:ProcessID,[(685,576)(667,576)(667,632)(615,632)])
link(Op2,12326089:CurrentID,[(692,571)(583,571)(583,638)(489,638)])
}
Add(MultiStrData,14266306,728,588)
{
Char=" "
link(Str,5366351:Caption,[(734,576)(717,576)(717,638)(608,638)])
link(onPart1,5033018:doCompare,[])
}
Add(If_else,5033018,777,588)
{
Op2=String(Конструктор)
link(onTrue,9566465:doCalc,[])
}
Add(DocumentTemplate,3227997,938,588)
{
DrawSource=2
Name="dtmp"
link(onDraw,206563:doRedraw,[])
link(Bitmap,5366351:Context,[(944,571)(766,571)(766,644)(622,644)])
}
BEGIN_SDK
Add(Print_Text,11987365,-3,-3)
{
Name="txt"
Width=246
Height=24
Text="Отрисовка на чужом контексте"
Font=[MS Sans Serif,10,1,65535,1]
Vertical=1
Top=0
}
END_SDK
Add(WinTools,206563,987,560)
{
Point(doRedraw)
link(Handle,4811835:Var1,[(993,519)(528,519)(528,632)])
}
Add(GetDataEx,4811835,539,627)
{
link(Data,16070666:Handle,[])
}
Add(Timer,15003433,427,602)
{
Interval=50
link(onTimer,12326089:doFindName,[])
}
Add(Timer,1285238,434,658)
{
link(onTimer,5331966:doNext,[])
}
Add(PC_Text,13187686,777,665)
{
ItemName="txt"
Document="dtmp"
link(onText,2530833:doWork3,[(921,671)])
}
Add(HubEx,2530833,917,588)
{
link(onEvent,3227997:doDraw,[])
}
Add(Counter,5331966,539,658)
{
link(onNext,1942604:doCase,[])
}
Add(Case,1942604,679,658)
{
Value=Integer(2)
DataOnTrue=String(HiAsm рулит!)
link(onNextCase,7985061:doCase,[(723,664)(723,682)(667,682)(667,699)])
link(onTrue,1500043:doWork2,[])
}
Add(Case,7985061,679,693)
{
Value=Integer(4)
DataOnTrue=String(Good Bye!)
link(onNextCase,13769095:doCase,[(723,699)(723,717)(667,717)(667,734)])
link(onTrue,8481579:doWork2,[])
}
Add(Case,13769095,679,728)
{
Value=Integer(5)
DataOnTrue=String()
link(onTrue,13289398:doEvent1,[])
}
Add(Hub,13289398,728,735)
{
link(onEvent1,8481579:doWork3,[(760,741)])
link(onEvent2,2953706:doClose,[])
}
Add(HubEx,1500043,756,665)
{
link(onEvent,13187686:doText,[])
}
Add(HubEx,8481579,756,700)
{
Angle=3
link(onEvent,1500043:doWork3,[])
}
Add(PC_Position,12963329,875,588)
{
ItemName="txt"
Document="dtmp"
link(onPosition,2530833:doWork2,[])
link(Y,9239445:Value,[])
}
Add(MathParse,9566465,826,588)
{
MathStr="(%2 - %1) - 100"
link(onResult,12963329:doPosition,[])
link(X1,6030157:CurrentWidth,[])
link(X2,5366351:Width,[(839,577)(816,577)(816,650)(629,650)])
}
Add(PC_Size,6030157,826,525)
{
ItemName="txt"
Document="dtmp"
}
Add(Memory,9239445,882,525)
{
Default=Integer(6)
}


--- Добавлено в 2019-06-30 13:29:56

Я так понимаю что в теории должен появиться текст счёта. в текстовом документе

--- Добавлено в 2019-06-30 13:42:39

У меня не отрисовывает на блокноте не чего. может что то не так сделал

Add(MainForm,15801081,504,259)
{
Name="MyForm"
Caption="ukForm"
Point(onClose)
Point(Handle)
Point(onKeyDown)
}
Add(ChildForm,12275472,749,252)
{
link(Data1,12326089:CurrentID,[])
}
BEGIN_SDK
Add(EditMulti,7142546,21,21)
{
WorkCount=1
DataCount=1
VarCount=1
link(doWork1,2285761:doRedraw,[(32,27)(32,160)])
link(Var1,9819909:Var1,[(27,96)])
}
Add(MainForm,4614985,231,35)
{
Top=35
Width=380
Height=30
Color=0
WinStyle=1
Caption=""
BorderStyle=0
TransparentColor=0
ShiftLeft=10
ShiftTop=40
TransparentManager="MyMtn"
FormFastening="parent.MyForm"
Point(Handle)
}
Add(TransparentManager,11744501,140,56)
{
Name="MyMtn"
FormTranspColor=0
}
Add(WinTools,2285761,91,126)
{
Point(doRedraw)
link(Handle,9819909:Var2,[])
}
Add(GetDataEx,9819909,91,91)
{
link(Data,7142546ata1,[(97,56)(27,56)])
}
END_SDK
Add(Img_Text,6685059,749,315)
{
X=10
Y=5
DrawSource=1
Font=[MS Sans Serif,14,1,255,1]
link(Bitmap,12275472:Var1,[])
}
Add(EnumProcess,12326089,749,175)
{
Name="notepad.exe"
Point(doFindName)
Point(onFind)
link(onFind,12275472:doWork1,[(793,188)(793,223)(737,223)(737,258)])
}
Add(Button,7998640,504,196)
{
Left=20
Top=30
link(onClick,11542154:doEvent1,[])
}
Add(Hub,11542154,560,196)
{
OutCount=3
link(onEvent1,12326089:doFindName,[])
link(onEvent3,16002990:doData,[(602,216)(602,321)])
}
Add(DoData,16002990,609,315)
{
Data=String(тест)
link(onEventData,6685059:doDraw,[])
}
карма: 0

0
Редактировалось 2 раз(а), последний 2019-06-30 13:42:39