Genius писал(а):
code_15614.txtтак
Add(MainForm,4948405,70,231)
{
Visible=1
link(onCreate,11827282:doConsoleExec,[])
}
Add(WinExec,11827282,119,231)
{
FileName="cmd"
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
link(onConsoleResult,1196985:doEvent1,[])
}
Add(BlockFind,7202175,252,238)
{
IncludeBlock=1
StartBlock="Microsoft Windows"
EndBlock="]"
link(onSearch,3830177:doCompare,[])
}
Add(StrMask,3830177,315,238)
{
Mask="*6.1*"
link(onFalse,11513693:doCompare,[])
link(onTrue,7058907:doMessage,[(363,251)(363,293)])
}
Add(StrMask,11513693,385,238)
{
Mask="*5.0*"
link(onFalse,501431:doCompare,[])
link(onTrue,7911790:doMessage,[(436,251)(436,293)])
}
Add(StrMask,501431,455,238)
{
Mask="*5.1*"
link(onFalse,49131:doCompare,[])
link(onTrue,2334658:doMessage,[(506,251)(506,293)])
}
Add(StrMask,49131,526,238)
{
Mask="*5.2*"
link(onFalse,4544800:doCompare,[])
link(onTrue,4077594:doMessage,[(580,251)(580,293)])
}
Add(Message,2334658,525,287)
{
Message="Windows XP"
}
Add(Message,4077594,603,287)
{
Message="Windows Server 2003"
}
Add(Message,7790469,694,287)
{
Message="Windows Vista"
}
Add(StrMask,4544800,617,238)
{
Mask="*6.0*"
link(onFalse,118715:doMessage,[])
link(onTrue,7790469:doMessage,[(671,251)(671,293)])
}
Add(Message,118715,693,238)
{
Message="Неизвестно!"
}
Add(Charset,3537787,203,238)
{
link(onCharset,7202175:doSearch,[])
}
Add(Message,7911790,455,287)
{
Message="Windows 2000"
}
Add(Message,7058907,385,287)
{
Message="Windows 7"
}
Add(Hub,1196985,168,238)
{
link(onEvent1,3537787:doCharset,[])
link(onEvent2,4948405:doClose,[(194,251)(194,273)(56,273)(56,258)])
}
petrocan писал(а):
Или ты это мне говоришьне тебе, а вообще.