halt, каким образом, Microsoft Visual Basic 5.0 / 6.0 NordWest, примерно так Add(MainForm,2953706,7,56) { Width=330 Height=114 Caption="MiniWinMon" BorderStyle=4 Point(Handle) Point(onClose) } Add(MouseEvent,13429574,196,98) { Point(Handle) } Add(Timer,19873,168,147) { Interval=500 link(onTimer,16579421:doData,[]) } Add(DoData,16579421,210,147) { link(onEventData,6394182:doEvent1,[]) link(Data,13429574:Handle,[]) } Add(WinInfo,10694279,350,154) { } Add(Hub,16384350,301,154) { OutCount=3 link(onEvent1,10694279:doWinInfo,[]) link(onEvent2,11601673:doText,[(333,167)(333,209)]) link(onEvent3,4934373:doText,[(329,174)(329,251)]) } Add(Hub,6394182,259,147) { link(onEvent1,11648737:doText,[(284,153)(284,62)]) link(onEvent2,16384350:doEvent1,[]) } Add(Label,3198782,56,14) { Left=20 Top=10 Width=48 Height=17 Font=[MS Sans Serif,8,1,255,1] Caption="Handle:" } Add(Label,13757441,63,21) { Left=20 Top=29 Width=70 Height=17 Font=[MS Sans Serif,8,1,255,1] Caption="ClassName:" } Add(Label,2765683,70,28) { Left=20 Top=48 Width=51 Height=17 Font=[MS Sans Serif,8,1,255,1] Caption="Caption:" } Add(Edit,11648737,294,56) { Left=95 Top=5 Width=225 Height=18 Color=-16777201 } Add(Edit,11601673,350,203) { Left=95 Top=25 Width=225 Height=18 Color=-16777201 link(Str,10694279:ClassName,[]) } Add(Edit,4934373,357,245) { Left=95 Top=45 Width=225 Height=18 Color=-16777201 link(Str,10694279:Caption,[]) } Add(StyleXP,15618063,7,14) { } Add(Switch,9452833,126,140) { DataOn=Integer(1) DataOff=Integer(1) Default=0 Point(onOn) Point(onOff) link(onOn,19873:doTimer,[]) link(onOff,19873:doStop,[]) } Add(KeyHook,9386569,28,140) { link(onKeyDown,11771475:doCheckMask,[]) } Add(KeyMask,11771475,77,140) { Alt=1 Key=49 link(onTrue,9452833:doSwitch,[(117,153)(117,146)]) } Add(Edit,7484158,168,231) { Left=95 Top=65 Width=225 Height=18 Color=-16777201 Text=""Текст для исправления"" } Add(Button,2903955,119,280) { Left=20 Top=65 Width=65 Height=18 TabOrder=-1 Caption="Заменить" link(onClick,1878384:doData,[]) } Add(DoData,1878384,168,280) { link(onEventData,11654446:doEvent1,[(216,286)(216,314)]) link(Data,7484158:Text,[]) } Add(WinTools,10039688,252,280) { Point(doCaption) Point(doRedraw) link(Handle,10144723:Var,[]) } Add(LineBreak,13817967,294,98) { Type=1 link(Data,11648737:Text,[]) Primary=[10144723,-42,154] } Add(Hub,11654446,224,308) { link(onEvent1,10039688:doCaption,[]) link(onEvent2,10039688:doRedraw,[]) } Add(Label,6244717,147,28) { Left=5 Top=5 Width=11 Height=17 Color=12632256 Font=[MS Sans Serif,8,1,0,1] Hint="Help" Caption="?" link(onClick,13841724:doMessage,[]) } Add(Message,13841724,196,28) { Message="Находим окно жмём Alt + 1 Заполняем поле "Текст для исправления" Нажимаем заменить И так далее buns." Caption="Info" }
Английский перевод с просторов интернета
|