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)]) }
------------ Дoбавленo в 23.32:
petrocan писал(а): Или ты это мне говоришь
не тебе, а вообще.
|