Add(MainForm,2953706,112,70)
{
 Width=920
 Height=640
 link(onCreate,1335740:doString,[])
}
Add(FormatStr,1335740,161,84)
{
 Mask="Dim yearVal, fso, file, row, m, d, i, weekLine, hasData\r\nDim targetMonth, currentDay(3), monthDays(3), firstDays(3)\r\n\r\nyearVal = Year(Date)\r\n\r\nsys.onEvent  Space(35) & "КАЛЕНДАРЬ НА " & yearVal & " ГОД"\r\nsys.onEvent  String(96, "=")\r\n\r\nFor row = 0 To 2\r\n    Dim headers: headers = "       "\r\n    For m = 1 To 4\r\n        targetMonth = row * 4 + m\r\n        headers = headers & Left(MonthName(targetMonth) & Space(25), 25)\r\n    Next\r\n    sys.onEvent  headers\r\n\r\n    Dim daysHeader: daysHeader = " "\r\n    For m = 1 To 4\r\n        daysHeader = daysHeader & "Пн Вт Ср Чт Пт Сб Вс     "\r\n    Next\r\n    sys.onEvent  daysHeader\r\n\r\n    For m = 0 To 3\r\n        targetMonth = row * 4 + m + 1\r\n        monthDays(m) = Day(DateSerial(yearVal, targetMonth + 1, 0))\r\n        firstDays(m) = Weekday(DateSerial(yearVal, targetMonth, 1), vbMonday)\r\n        currentDay(m) = 1 - (firstDays(m) - 1)\r\n    Next\r\n\r\n    For i = 1 To 6\r\n        weekLine = ""\r\n        hasData = False\r\n        \r\n        For m = 0 To 3\r\n            Dim dayPart: dayPart = " "\r\n            For d = 1 To 7\r\n                If currentDay(m) >= 1 And currentDay(m) <= monthDays(m) Then\r\n                    dayPart = dayPart & Right("  " & currentDay(m), 2) & " "\r\n                    hasData = True\r\n                Else\r\n                    dayPart = dayPart & "   "\r\n                End If\r\n                currentDay(m) = currentDay(m) + 1\r\n            Next\r\n            weekLine = weekLine & dayPart & "   "\r\n        Next\r\n\r\n        If hasData Then sys.onEvent  weekLine\r\n    Next\r\n    sys.onEvent vbCrLf\r\nNext\r\n"
 link(onFString,11225278:##SetScript,[])
}
Add(VBJScript,11225278,210,84)
{
 WorkPoints=#11:##SetScript|0:|
 EventPoints=#7:onEvent|7:onError|0:|
 Script=#0:|0:|
 UseName=0
 link(onEvent,2980579:doCopy,[])
}
Add(Memo,3807029,315,84)
{
 Width=1141
 Height=604
 Align=5
 Font=[Consolas,12,0,0,204]
 Antialiased=1
 ScrollBars=3
}
Add(Copy,2980579,259,84)
{
 Count=96
 StartPosRTL=1
 link(onCopy,3807029:doAdd,[])
}

Add(MainForm,2953706,42,126)
{
 link(onCreate,2749553:doDeferredEvent,[])
}
Add(Dir,3900206,147,84)
{
}
Add(StringTable,10632120,231,140)
{
 Left=560
 Top=125
 Align=5
 Columns=#15:FilePathAndName|12:ParentFolder|4:Name|11:DateCreated|16:DateLastAccessed|16:DateLastModified|4:Size|4:Type|6:Suffix|0:|0:|
}
Add(VBJScript,4625900,147,140)
{
 WorkPoints=#6:doWork|
 EventPoints=#8:onStrOut|
 DataPoints=#4:Path|
 Script=#22:Sub doWork(Data,Index)|0:|42:  Dim objFSO, objFolder, objFiles, objFile|2:  |57:  Set objFSO = CreateObject("Scripting.FileSystemObject")|44:  Set objFolder = objFSO.GetFolder(sys.Path)|42:  Set objSubFolders = objFolder.SubFolders|32:  Set objFiles = objFolder.Files|0:|30:  For Each objFile In objFiles|35:    strOut = objFile.Path & ";" &_ |34:    objFile.ParentFolder & ";" &_ |26:    objFile.Name & ";" &_ |33:    objFile.DateCreated & ";" &_ |38:    objFile.DateLastAccessed & ";" &_ |38:    objFile.DateLastModified & ";" &_ |26:    objFile.Size & ";" &_ |26:    objFile.Type & ";" &_ |41:    objFSO.getextensionname(objFile.Path)|23:    sys.onStrOut strOut|0:|6:  Next|2:  |22:  Set objFSO = Nothing|24:  Set objFiles = Nothing|25:  Set objFolder = Nothing|0:|7:End Sub|
 UseName=0
 link(onStrOut,12748649:doEvent1,[])
 link(Path,3900206:CurrentDir,[])
}
Add(Application,14905817,231,189)
{
}
Add(Hub,12748649,196,140)
{
 link(onEvent1,10632120:doAdd,[])
 link(onEvent2,14905817:doProcessMessages,[(221,153)(221,195)])
}
Add(DeferredEvent,2749553,91,140)
{
 link(onDeferredEvent,4625900:doWork,[])
}

Add(MainForm,2953706,70,140)
{
 Width=1177
 Height=277
 link(onCreate,9791131:doExec,[])
}
Add(WinExec,4338443,217,147)
{
 FileName="netsh"
 Param="wlan show networks mode=bssid"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,9874410:doWork2,[])
 link(onConsoleError,9874410:doWork3,[(263,174)])
}
Add(HubEx,9874410,259,161)
{
 link(onEvent,14072012:doCharset,[])
}
Add(Charset,14072012,273,161)
{
 link(onCharset,12077553:doSearch,[])
}
Add(WinExec,9791131,119,154)
{
 FileName="explorer.exe"
 Param="ms-availablenetworks:"
 Mode=0
 RunEvent=1
 link(onFinished,5144219:doDeferredEvent,[])
}
Add(DeferredEvent,5144219,168,161)
{
 Delay=2000
 link(onDeferredEvent,4338443:doConsoleExec,[])
}
Add(BlockFind,12077553,322,161)
{
 StartBlock="SSID "
 EndBlock="\r\n\r\n"
 link(onSearch,13097786:doMTString,[])
 link(onEndSearch,9998054:doColAction,[(368,174)(368,195)])
}
Add(MT_String,13097786,378,147)
{
 Delimeter="\r\n"
 link(onResult,11737467:doRowAction,[])
}
Add(MTStrTbl,9782397,490,147)
{
 Width=1161
 Height=238
 Align=5
 Name="tabl"
 Columns=#4:SSID|8:Тип сети|20:Проверка подлинности|10:Шифрование|7:BSSID 1|6:Сигнал|9:Тип радио|5:Канал|25:Базовая скорость (мбит/с)|24:Другие скорости (мбит/с)|0:|
 ColorItems=0
 Redaction=0
 Grid=0
 link(CodePageSet,5474069:GetData,[])
}
Add(MST_RowAction,11737467,427,147)
{
 MSTControl="tabl"
}
Add(EventFromData,5474069,490,98)
{
 link(onEvent,3314252:doSplit,[])
}
Add(StrPart,3314252,539,98)
{
 Char=":"
 link(onSplit,1384034:doTrim,[])
}
Add(Trim,1384034,588,98)
{
 Mode=7
 link(onTrim,5474069:doData,[(627,104)(627,90)(480,90)(480,104)])
}
Add(MST_ColAction,9998054,378,189)
{
 Action=9
 AutoWidthByHeader=0
 Index=-2
 MSTControl="tabl"
}