Вверх ↑
Ответов: 19
Рейтинг: 7
#1: 2015-01-22 15:31:28 ЛС | профиль | цитата
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"
}

Английский перевод с просторов интернета
MyDiskFix.jpg
карма: 0

0