Системные

User's plugins

Системные

Postby Ilya » Tue, 29 Apr 2008, 19:00

Работа с процессами, ...
Ilya
 
Posts: 443
Joined: Mon, 07 Aug 2006, 09:51
Location: Санкт-Петербург

Повышение приоритет процесса активного окна до HIGH.

Postby Ilya » Tue, 29 Apr 2008, 19:08

Повышение приоритет процесса активного окна до HIGH.
Автор: memberlist.php?mode=viewprofile&u=21537
+ не требует еще одной программы в памяти и трее
- не отслеживает переключение на консольные окна, но потом все равно понижает приоритет окна до NORMAL

Проводился простой тест, сжимался альбомчик метров на 150, winrar, в рабочей обстановке (играет фубар, запущена аська, фар, опера, и несколько прог в фоне)
с включенным скриптом в nncron'e - 2:51
с отключенным скриптом в nncron'e - 5:22

Требует подключения плагина из стандартной поставки process.spf.
Code: Select all
<%
VARIABLE currentpid
VARIABLE lastpid
%>

#( high_cpu_act_win
WatchWinActivate: "*"
Action:
0 SP@ GetForegroundWindow GetWindowThreadProcessId DROP currentpid !
currentpid @ lastpid @ =
IF
   currentpid @ N>S HIGH_PRIORITY_CLASS PRIORITY
ELSE
   currentpid @ N>S HIGH_PRIORITY_CLASS PRIORITY
   lastpid @ N>S NORMAL_PRIORITY_CLASS PRIORITY
   currentpid @ lastpid !
THEN
)#
Ilya
 
Posts: 443
Joined: Mon, 07 Aug 2006, 09:51
Location: Санкт-Петербург

Время по UTC

Postby Ilya » Sun, 04 May 2008, 23:01

Прислал г-н AlikasS
Code: Select all
\ File:        times-utc.spf
\ Author:   Публиковалось кем-то на форуме
CREATE UTCTIME /SYSTEMTIME ALLOT
WINAPI: GetSystemTime KERNEL32.DLL
: GET-UTC-TIME UTCTIME GetSystemTime DROP ; \ принудительное обновление системного времени
: UTCMin@ UTCTIME wMinute W@ ;
: UTCHour@ UTCTIME wHour W@ ;
: UTCSec@ UTCTIME wSecond W@ ;
: UTCDay@ UTCTIME wDay W@ ;
: UTCMon@ UTCTIME wMonth W@ ;
: UTCYear@ UTCTIME wYear W@ ;
: UTCWDay@ UTCTIME wDayOfWeek W@ ?DUP 0= IF 7 THEN ;


: UTC-TIME&DATE ( -- sec min hr day mt year ) \ 94 FACIL
  SYSTEMTIME GetSystemTime DROP
  SYSTEMTIME wSecond W@
  SYSTEMTIME wMinute W@
  SYSTEMTIME wHour W@
  SYSTEMTIME wDay W@
  SYSTEMTIME wMonth W@
  SYSTEMTIME wYear W@
;

\EOF

TIME&DATE . . . . . . CR UTC-TIME&DATE . . . . . .
GET-UTC-TIME UTCHour@ . Hour@ .
\ Хабаровск часовой пояс UTC+10, летом разница UTC+11
Ilya
 
Posts: 443
Joined: Mon, 07 Aug 2006, 09:51
Location: Санкт-Петербург

"Долгоиграющий" WakeUP (подъем из спящего режима)

Postby Ilya » Sun, 04 May 2008, 23:11

Прислал г-н AlikasS
Требует подключения плагина из стандартной поставки wakeup.spf.
Code: Select all
\ File:         wakeup2.spf
\ Author:      Устанавливается
: WakeAtWd { a u N -- } ( "часы:минуты" деньнедели -- )
N WDay@ -  DUP 0=
IF DROP
   \ день недели совпал
   a u SH:M>Min TimeMin@ -
   DUP 0<
   IF \ день этот но время прошло, значит через неделю
   [ 7 1440 * ] LITERAL +
   THEN
   60000 *
   WakeAfter
ELSE
   DUP
   0<
   IF
   7 + 1440 *
      a u SH:M>Min TimeMin@ - + 60000 * WakeAfter
   ELSE
   1440 *
      a u SH:M>Min TimeMin@ - + 60000 * WakeAfter
   THEN
THEN
;

: WakeAtWd: eval-string, number, POSTPONE WakeAtWd ; IMMEDIATE



: WakeAtDate
0 YMDHMS>FT FT-CUR FT- FT>SEC D>S 1000 * WakeAfter
;
: WakeAtDate:  number, number, number, number, number, POSTPONE WakeAtDate ; IMMEDIATE

\EOF

\ S" 08:30" 5  WakeAtWd
\ WakeAtWd: "08:30" 5 \ разбудить в 8-30 в ближайшую пятницу
\ WakeAtWd: "17:00" 1 \ разбудить в 17-00 в ближайший понедельник

\ долгоиграющие WakeAtWd: :-)
\ WakeAtWd: "17:00" 8 \ разбудить в 17-00 во второй понедельник ( 1 + 7 )
\ WakeAtWd: "17:00" 10 \ разбудить в 17-00 во вторую среду ( 3 + 7 )

\ 2008 02 22 12 00 WakeAtDate \ проснуться 12-00 22 февраля 2008
\ WakeAtDate: 2008 02 22 12 00

#( проверить_просыпание
\ NoActive
WatchSuspend
NoLog
Action:
\ WakeAtWd: "08:40" 4 \ проснуться в 8-40 в ближайший четверг ( 4 - четвертый день недели )
WakeAtDate: 2008 02 20 22 00
)#
Ilya
 
Posts: 443
Joined: Mon, 07 Aug 2006, 09:51
Location: Санкт-Петербург

Реестр

Postby VoidVolker » Mon, 05 Nov 2012, 19:59

Реестр
Обсуждение
Скачать registry.spf

Плагин с множеством дополнительных слов для работы с реестром.
95% вопросов уже обсуждались на форуме или ответы на них есть в мануале.        nnCron 1.93 b15.exe
Как правильно задавать вопросы.
User avatar
VoidVolker
Site Admin
 
Posts: 2898
Joined: Tue, 25 Apr 2006, 17:56

COM-порт

Postby VoidVolker » Mon, 05 Nov 2012, 20:06

COM-порт
Обсуждение
Скачать comport.spf

Плагин для работы с последовательным портом.
95% вопросов уже обсуждались на форуме или ответы на них есть в мануале.        nnCron 1.93 b15.exe
Как правильно задавать вопросы.
User avatar
VoidVolker
Site Admin
 
Posts: 2898
Joined: Tue, 25 Apr 2006, 17:56

Шифрование методом ARC4

Postby VoidVolker » Sun, 07 Jul 2013, 12:22

Шифрование методом ARC4
Обсуждение
Скачать arcfour.spf

ARC4 ( a u akey ukey -- a_arc4 u_arc4 )
    Зашифровать или расшифровать строку a u с ключом akey ukey, на стеке останется зашифрованная или расшифрованная строка a_arc4 u_arc4.
95% вопросов уже обсуждались на форуме или ответы на них есть в мануале.        nnCron 1.93 b15.exe
Как правильно задавать вопросы.
User avatar
VoidVolker
Site Admin
 
Posts: 2898
Joined: Tue, 25 Apr 2006, 17:56


Return to Plugins

Who is online

Users browsing this forum: No registered users and 0 guests