Продолжаем деградировать. Минимализм наше всё. Календарь 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,[])
}
Список файлов в папке --- Добавлено в 2026-05-05 19:34:08Список доступных Wi-Fi сетей и их уровни сигналов (для ноутбуков с wifi картой) 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"
}
|
Поиск
Друзья
Администрация