<?xml version="1.0" encoding="windows-1251"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<atom:link href="https://runner.bbok.ru/export.php?type=rss" rel="self" type="application/rss+xml" />
		<title>Личный хомяк Максима</title>
		<link>http://runner.bbok.ru/</link>
		<description>Личный хомяк Максима</description>
		<language>ru-ru</language>
		<lastBuildDate>Fri, 24 Feb 2017 01:19:24 +0300</lastBuildDate>
		<generator>MyBB/mybb.ru</generator>
		<item>
			<title>Про пиндосов</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=348#p348</link>
			<description>&lt;p&gt;В ответ на заявление Трампа, что наплыв иммигрантов вызвал большие проблемы в Швеции, возмущённые шведы объявили ему джихад.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Fri, 24 Feb 2017 01:19:24 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=348#p348</guid>
		</item>
		<item>
			<title>Грубые анекдоты</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=347#p347</link>
			<description>&lt;p&gt;На свадьбе один из подвыпивших гостей берет микрофон и улыбаясь говорит:&lt;br /&gt;— Уважаемые! Дорогие гости! Прошу минуточку внимания!&lt;br /&gt;Все замолкают, он продолжает:&lt;br /&gt;— А сейчас. Я хочу. Чтобы невеста. При всех... сделала мне минет!&lt;br /&gt;Зависла пауза...&lt;br /&gt;Все офигели...&lt;br /&gt;Меееедленно, наливаясь кровью, поднимается жених.&lt;br /&gt;Гость:&lt;br /&gt;— Нет–нет! Я настаиваю, чтобы это сделала ИМЕННО невеста!..&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Wed, 22 Feb 2017 16:09:58 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=347#p347</guid>
		</item>
		<item>
			<title>Про наших братьев меньших</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=346#p346</link>
			<description>&lt;p&gt;Приводят на допрос русского партизана... Пытали, пытали... Пытали, пытали... Но тот ничего не сказал, и никого не сдал... По приказу этого генерала партизана расстреляли... Приводят партизана-белоруса. Того тоже замучили до полусмерти и никакой информации. Его тоже на расстрел... Привели партизана-татарина:&lt;br /&gt;- Кто по нации?&lt;br /&gt;- Татарин!&lt;br /&gt;- Расстрелять!!!&lt;br /&gt;Татарина увели, один из помощников генерала спрашивает:&lt;br /&gt;- Товарищ генерал, а почему сразу расстрел? Почему не допросили как тех двоих???&lt;br /&gt;- Ну его нах этих татар! Пару вопросов задашь, он потом окажется или знакомым, или родственником!!!&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Tue, 21 Feb 2017 01:32:39 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=346#p346</guid>
		</item>
		<item>
			<title>Исторические</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=345#p345</link>
			<description>&lt;p&gt;— Что-то давно тебя не видно. Где ты работаешь?&lt;br /&gt;— В КГБ. Но это — между нами.&lt;br /&gt;— А что же вы там делаете?&lt;br /&gt;— Занимаемся недовольными советской властью.&lt;br /&gt;— Ха! А что, есть довольные?&lt;br /&gt;— Есть, но ими занимается ОБХСС.&lt;br /&gt;*ОБХСС -&amp;quot;Отдел по борьбе с хищениями социалистической собственности&amp;quot;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 20 Feb 2017 15:35:39 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=345#p345</guid>
		</item>
		<item>
			<title>Производственные</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=344#p344</link>
			<description>&lt;p&gt;Шеф наш культурный, однако. К середине планерки взялся за голову и сказал: &lt;br /&gt;- Как же мне, Д&#039;Артаньяну, тяжело с вами...&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 20 Feb 2017 12:13:27 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=344#p344</guid>
		</item>
		<item>
			<title>Религиозные</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=342#p342</link>
			<description>&lt;p&gt;Моня заходит поужинать в ресторан, и вдруг видит своего ребе, перед которым на столе стоит жареный поросенок с моченым яблоком в пасти.&lt;br /&gt;Взаимное замешательство.&lt;br /&gt;Моня, ошалело: — Ребе?!!&lt;br /&gt;Ребе, с горечью: — Нет, ви посмотрите, КАК они сервируют заказанные мной яблоки!&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Thu, 16 Feb 2017 17:00:40 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=342#p342</guid>
		</item>
		<item>
			<title>Медицинские</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=334#p334</link>
			<description>&lt;p&gt;- Чего вы боитесь?&lt;br /&gt;- Темноты и стоматологов.&lt;br /&gt;- А темноты-то почему?&lt;br /&gt;- Блин, представляете сколько там стоматологов...&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Thu, 09 Feb 2017 14:23:41 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=334#p334</guid>
		</item>
		<item>
			<title>Access - щелчок правой клавишей</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=329#p329</link>
			<description>&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 16.5em&quot;&gt;&lt;pre&gt;Private Sub Дерево_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim mevent&amp;amp;

Select Case Button

Case 1

&#039; If MCLK = &amp;quot;RIGTH&amp;quot; Then Me.Кнопка19.Caption = &amp;quot;Сбросить&amp;quot; Else Me.Кнопка19.Caption = &amp;quot;Фиксировать&amp;quot;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 06 Feb 2017 18:44:06 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=329#p329</guid>
		</item>
		<item>
			<title>Политические</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=327#p327</link>
			<description>&lt;p&gt;В неком уездном городе М, в старосоветские времена пиво продавалось на разлив из квасных бочек.&lt;br /&gt;Продавец только что развернутой в боевой порядок бочки был атакован интеллигентного вида дядечкой с вопросом &amp;quot;Сколько вы хотите за бочку пива&amp;quot;. Представитель советской торговли назвал сумму, с учетом упущенной выгоды, получил денежку и отвалил.&lt;br /&gt;Интеллигент стал зазывать страждущих и БЕСПЛАТНО поить всех пивом.&lt;br /&gt;Через десять минут началось мордобитие.&lt;br /&gt;Прибывший наряд милиции повязал особо битых и активных, заодно поинтересовавшись у интеллигентного дядечки &amp;quot;Какого хрена&amp;quot;.&lt;br /&gt;&amp;quot;Видете ли, молодые люди, я очень стар и до коммунизма очевидно не доживу. А очень хотелось посмотреть как оно будет&amp;quot;.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Sat, 04 Feb 2017 12:59:07 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=327#p327</guid>
		</item>
		<item>
			<title>Привязка доверенности к сотруднику</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=326#p326</link>
			<description>&lt;p&gt;По умолчанию в бизнес-паке (у меня версия 7.7) для введения доверенности в договор предусмотрено отдельное поле в договоре. Это считаю неправильно, т.к. нужно постоянно проверять соответствие подписанта и доверенности, поменял одно - измени другое. Велика вероятность ошибки.&lt;br /&gt;Решение - привязать документы, на основании которых действует сотрудник, не к шаблону договора, а к самому сотруднику.&lt;br /&gt;В итоге, меняя сотрудника в договоре, не нужно задумываться, на основании чего он подписывает договор - это меняется автоматом.&lt;br /&gt;Код договора:&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 4.5em&quot;&gt;&lt;pre&gt;&amp;quot;[qryDoc.&amp;#34;fPartnerName&amp;#34;] ([gv(qryDoc[&#039;fPartner&#039;], &#039;ShortName&#039;)]), именуемое в дальнейшем &amp;#34;ЗАКАЗЧИК&amp;#34;, в лице [PadegProf(gv(mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), &#039;Dutie.Name&#039;), 2)] [FormatPeopleName(&#039;[f] [i] [o]&#039;, mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), 2)], действующего на основании [gv(mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), &#039;PspType&#039;)][iif(Length(gv(mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), &#039;PspSer&#039;)) &amp;#62; 0, &#039; серия &#039; + gv(mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), &#039;PspType&#039;), &#039;&#039;)][iif(Length(gv(mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), &#039;PspNum&#039;)) &amp;#62; 0, &#039; номер &#039; + gv(mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), &#039;PspNum&#039;), &#039;&#039;)][iif(DateToStr(gv(mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), &#039;PspDate&#039;)) = &#039;30.12.1899&#039;, &#039;&#039;, &#039; от &#039; + DateToStr(gv(mgd(qryDoc[&#039;fPartner&#039;], &#039;PartnerPerson&#039;), &#039;PspDate&#039;)) + &#039; г.&#039;)], с одной стороны,&amp;#13;&amp;#10;и [qryDoc.&amp;#34;fFirmName&amp;#34;] ([gv(qryDoc[&#039;fFirm&#039;], &#039;ShortName&#039;)]), именуемый в дальнейшем &amp;#34;ИСПОЛНИТЕЛЬ&amp;#34;, в лице [PadegProf(gv(mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), &#039;Dutie.Name&#039;), 2)] [FormatPeopleName(&#039;[f] [i] [o]&#039;, mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), 2)], действующего на основании [gv(mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), &#039;PspType&#039;)][iif(Length(gv(mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), &#039;PspSer&#039;)) &amp;#62; 0, &#039; серия &#039; + gv(mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), &#039;PspSer&#039;), &#039;&#039;)][iif(Length(gv(mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), &#039;PspNum&#039;)) &amp;#62; 0, &#039; номер &#039; + gv(mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), &#039;PspNum&#039;), &#039;&#039;)][iif(DateToStr(gv(mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), &#039;PspDate&#039;)) = &#039;30.12.1899&#039;, &#039;&#039;, &#039; от &#039; + DateToStr(gv(mgd(qryDoc[&#039;fFirm&#039;], &#039;FirmPerson&#039;), &#039;PspDate&#039;)) + &#039; г.&#039;)], с другой стороны,&amp;#13;&amp;#10;заключили настоящий договор о нижеследующем:&amp;quot;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;Куда вносить данные&lt;br /&gt;&lt;a href=&quot;http://uploads.ru/E8sQz.png&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://s5.uploads.ru/t/E8sQz.png&quot; alt=&quot;http://s5.uploads.ru/t/E8sQz.png&quot; /&gt;&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://uploads.ru/91ixI.png&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://s4.uploads.ru/t/91ixI.png&quot; alt=&quot;http://s4.uploads.ru/t/91ixI.png&quot; /&gt;&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://uploads.ru/TprE7.png&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://s7.uploads.ru/t/TprE7.png&quot; alt=&quot;http://s7.uploads.ru/t/TprE7.png&quot; /&gt;&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;Что в итоге будет в договоре&lt;br /&gt;&lt;a href=&quot;http://uploads.ru/GSHPw.png&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://sg.uploads.ru/t/GSHPw.png&quot; alt=&quot;http://sg.uploads.ru/t/GSHPw.png&quot; /&gt;&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Thu, 02 Feb 2017 02:02:28 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=326#p326</guid>
		</item>
		<item>
			<title>FlashGot + консольные качалки</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=324#p324</link>
			<description>&lt;p&gt;для Флешгота использую wget и Aria2c&lt;br /&gt;строка запуска для wget&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 4.5em&quot;&gt;&lt;pre&gt;/C start [/D FOLDER] d:\My\MyDisk\FAR_Add\Get\wget.exe [--referer=REFERER] [--post-data=POST] [--load-cookies=CFILE] [--header=Cookie:COOKIE] [--input-file=UFILE] [-O FNAME] -b --no-check-certificate&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;строка запуска для aria2c (использую когда нужно скачать торрент из интернета и тут же его запустить на закачку файлов)&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 4.5em&quot;&gt;&lt;pre&gt;/C start [/D FOLDER] d:\My\MyDisk\FAR_Add\Get\aria2c.exe [--referer=REFERER] [--load-cookie=CFILE] [-d FOLDER] [-i UFILE] --conf-path=d:\My\MyDisk\FAR_Add\Get\aria2.conf&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;строка запуска для aria2c (использую когда торрент уже скачан, нужно его локально открыть и запустить на закачку файлов)&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 4.5em&quot;&gt;&lt;pre&gt;/C start [/D FOLDER] d:\My\MyDisk\FAR_Add\Get\aria2c.exe [-d FOLDER] [FNAME] --conf-path=d:\My\MyDisk\FAR_Add\Get\aria2.conf&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Thu, 26 Jan 2017 13:56:02 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=324#p324</guid>
		</item>
		<item>
			<title>Прописывание собственного меню в AutoCAD 2006</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=312#p312</link>
			<description>&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;; прописка меню от ADD_ACAD в автокаде 2006

if MsgBox(65, &amp;quot;Прописка в AutoCAD&amp;quot;, &amp;quot;Внимание, сейчас будет прописываться меню в AutoCAD2006. Продолжаем?&amp;quot;) &amp;lt;&amp;gt; 1 then Exit

; Запускаем автокад и ждем появления окончательного окна
;
Run(&amp;quot;c:\Program Files\AutoCAD 2006\acad.exe&amp;quot;)
WinWaitActive(&amp;quot;AutoCAD 2006 - [Рисунок1.dwg]&amp;quot;, &amp;quot;Выполняется регенерация модели&amp;quot;)
Sleep (2000)

; После этого входим в Сервис - Адаптация - Интерфейс
; Первый вариант - через меню
;
;Send(&amp;quot;!с&amp;quot;)
;Send(&amp;quot;д&amp;quot;)
;Send(&amp;quot;и&amp;quot;)

; Второй вариант - через командную строку
;
Send (&amp;quot;_cui&amp;quot;)
Send(&amp;quot;{ENTER}&amp;quot;)

While WinWaitActive(&amp;quot;Настройка интерфейса пользователя&amp;quot;) &amp;lt;&amp;gt;1
Send(&amp;quot;{ENTER}&amp;quot;)
WEnd

; выбираем Все файлы адаптации, опускаемся по списку до конца - открыть, ентер
;
WinWaitActive(&amp;quot;Настройка интерфейса пользователя&amp;quot;)
ControlFocus (&amp;quot;Настройка интерфейса пользователя&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:WindowsForms10.COMBOBOX.app1; INSTANCE:4]&amp;quot;)
ControlClick ( &amp;quot;Настройка интерфейса пользователя&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:WindowsForms10.COMBOBOX.app1; INSTANCE:4]&amp;quot;)
Send(&amp;quot;{DOWN 15}&amp;quot;)
Send(&amp;quot;{ENTER}&amp;quot;)

; в окно открытия файла вводим путь к нашему меню и ентер
;
WinWaitActive(&amp;quot;Открыть&amp;quot;)
;ControlSend ( &amp;quot;Открыть&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:Edit; INSTANCE:1]&amp;quot;, &amp;quot;c:\Program Files\ADD_ACAD2\ADD_ACAD2_4.mnu&amp;quot;)
ControlFocus (&amp;quot;Открыть&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:Edit; INSTANCE:1]&amp;quot;)
ControlSetText ( &amp;quot;Открыть&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:Edit; INSTANCE:1]&amp;quot;, &amp;quot;c:\Program Files\ADD_ACAD2\ADD_ACAD2_4.mnu&amp;quot;)
Send(&amp;quot;{ENTER}&amp;quot;)

; Определяем, что за окно появилось. В любом случае ждем Ентер и выходим из настройки.
;
Select
     Case WinWaitActive(&amp;quot;Предупреждение&amp;quot;, &amp;quot;&amp;quot;, 3) = 1
          Send(&amp;quot;{ENTER}&amp;quot;)
          if WinWaitActive(&amp;quot;Открыть&amp;quot;)=1 then Send(&amp;quot;{ESC}&amp;quot;)
          WinWaitActive(&amp;quot;Настройка интерфейса пользователя&amp;quot;)
          ControlClick (&amp;quot;Настройка интерфейса пользователя&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:12]&amp;quot;)
          Sleep (1000)
          ControlFocus (&amp;quot;Настройка интерфейса пользователя&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:11]&amp;quot;)
          ControlClick (&amp;quot;Настройка интерфейса пользователя&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:11]&amp;quot;)

     Case WinWaitActive(&amp;quot;AutoCAD&amp;quot;) = 1
          Send(&amp;quot;{ENTER}&amp;quot;)
          if WinWaitActive(&amp;quot;Открыть&amp;quot;)=1 then Send(&amp;quot;{ESC}&amp;quot;)
          WinWaitActive(&amp;quot;Настройка интерфейса пользователя&amp;quot;)
          ControlClick (&amp;quot;Настройка интерфейса пользователя&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:12]&amp;quot;)
          Sleep (1000)
          ControlFocus (&amp;quot;Настройка интерфейса пользователя&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:11]&amp;quot;)
          ControlClick (&amp;quot;Настройка интерфейса пользователя&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:WindowsForms10.BUTTON.app1; INSTANCE:11]&amp;quot;)

EndSelect

; Выходим из автокада
;
WinWaitActive(&amp;quot;AutoCAD 2006 - [Рисунок1.dwg]&amp;quot;)
Send (&amp;quot;_quit&amp;quot;)
Send(&amp;quot;{ENTER}&amp;quot;)

; Если орет типа сохранить пустой файл - отказываемся
;
if WinWaitActive(&amp;quot;AutoCAD&amp;quot;)=1 then
ControlFocus (&amp;quot;AutoCAD&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:Button; INSTANCE:2]&amp;quot;)
ControlClick (&amp;quot;AutoCAD&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;[CLASS:Button; INSTANCE:2]&amp;quot;)
endif&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 14:44:02 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=312#p312</guid>
		</item>
		<item>
			<title>Лицензия</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=311#p311</link>
			<description>&lt;p&gt;1. Автор не несет ответственности за какой-либо ущерб, связанный с использо-&lt;br /&gt;ванием пакета. Пакет не влияет на программный код установленных в системе&lt;br /&gt;программ. Вносятся только изменения в набор параметров запуска.&lt;br /&gt;&amp;#160; &amp;#160;2. ЗАПРЕЩЕНО использование пакета с целью нанесения материального или мора-&lt;br /&gt;льного ущерба любым сторонам договора. В случае нарушения данного пункта до-&lt;br /&gt;говора материальную и моральную ответственность за последствия несет лицо,&lt;br /&gt;нарушившее данный пункт договора, или лица, вступившие в сговор с данной целью.&lt;/p&gt;
						&lt;p&gt;&amp;#160; &amp;#160;CopyRight © Данилин Максим Николаевич aka DaMaNic&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 14:39:27 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=311#p311</guid>
		</item>
		<item>
			<title>встроенный чат на этом форуме</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=307#p307</link>
			<description>&lt;p&gt;Вставляется вниз страницы&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 12em&quot;&gt;&lt;pre&gt;&amp;lt;!-- BEGIN CBOX - www.cbox.ws --&amp;gt;
&amp;lt;div align=&amp;quot;center&amp;quot; id=&amp;quot;cboxdiv&amp;quot;&amp;gt;
&amp;lt;iframe frameborder=&amp;quot;0&amp;quot; width=&amp;quot;900&amp;quot; height=&amp;quot;333&amp;quot; src=&amp;quot;http://www5.cbox.ws/box/?boxid=211678&amp;amp;amp;boxtag=vws2av&amp;amp;amp;sec=main&amp;quot; marginheight=&amp;quot;2&amp;quot; marginwidth=&amp;quot;2&amp;quot; scrolling=&amp;quot;auto&amp;quot; allowtransparency=&amp;quot;yes&amp;quot; name=&amp;quot;cboxmain&amp;quot; style=&amp;quot;border:#E0B23A 1px solid;&amp;quot; id=&amp;quot;cboxmain&amp;quot;&amp;gt;&amp;lt;/iframe&amp;gt;&amp;lt;br/&amp;gt;
&amp;lt;iframe frameborder=&amp;quot;0&amp;quot; width=&amp;quot;900&amp;quot; height=&amp;quot;117&amp;quot; src=&amp;quot;http://www5.cbox.ws/box/?boxid=211678&amp;amp;amp;boxtag=vws2av&amp;amp;amp;sec=form&amp;quot; marginheight=&amp;quot;2&amp;quot; marginwidth=&amp;quot;2&amp;quot; scrolling=&amp;quot;no&amp;quot; allowtransparency=&amp;quot;yes&amp;quot; name=&amp;quot;cboxform&amp;quot; style=&amp;quot;border:#E0B23A 1px solid;border-top:0px&amp;quot; id=&amp;quot;cboxform&amp;quot;&amp;gt;&amp;lt;/iframe&amp;gt;
&amp;lt;/div&amp;gt;
&amp;lt;!-- END CBOX --&amp;gt;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 02:27:08 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=307#p307</guid>
		</item>
		<item>
			<title>Настройки поля ответа (в этом форуме)</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=306#p306</link>
			<description>&lt;p&gt;Отключил, здесь оставлю&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 18em&quot;&gt;&lt;pre&gt;&amp;lt;table&amp;gt;&amp;lt;tr&amp;gt;
      &amp;lt;td align=&amp;quot;right&amp;quot; valign=&#039;top&#039; width=&#039;20%&#039;&amp;gt;
     &amp;lt;b&amp;gt;Если возникли проблемы с загрузкой картинок, загрузите их на ImageShack.us. Инструкция &amp;lt;a href=&amp;quot;http://runner.bbok.ru/viewtopic.php?id=32&amp;quot;&amp;gt;здесь&amp;lt;/a&amp;gt;&amp;lt;/b&amp;gt;
      &amp;lt;/td&amp;gt;
      &amp;lt;td align=&amp;quot;left&amp;quot; width=&#039;80%&#039;&amp;gt;
     &amp;lt;iframe src=&amp;quot;http://www.imageshack.us/iframe.php?txtcolor=111111&amp;quot; frameborder=&amp;quot;0&amp;quot; height=&amp;quot;70&amp;quot; scrolling=&amp;quot;no&amp;quot; width=&amp;quot;280&amp;quot;&amp;gt;
&amp;lt;/iframe&amp;gt;
     &amp;lt;/td&amp;gt;
  &amp;lt;/tr&amp;gt;
&amp;lt;/table&amp;gt;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 02:25:00 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=306#p306</guid>
		</item>
		<item>
			<title>Убитый конвеер на моей 8600 GT</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=302#p302</link>
			<description>&lt;p&gt;Убил подключением к телевизору конвейер на видеокарте. Шахматка, мерцающие квадратики и прочая прелесть.&lt;br /&gt;Ставим рива тюнер посвежее (в данном случае 2.24.10)&lt;br /&gt;Идем по указанным диалоговым окна и делаем как указано&lt;br /&gt;&lt;a href=&quot;http://uploads.ru/wNWbF.jpg&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://s4.uploads.ru/t/wNWbF.jpg&quot; alt=&quot;http://s4.uploads.ru/t/wNWbF.jpg&quot; /&gt;&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://uploads.ru/SxDWO.jpg&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://s1.uploads.ru/t/SxDWO.jpg&quot; alt=&quot;http://s1.uploads.ru/t/SxDWO.jpg&quot; /&gt;&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://uploads.ru/up7GE.jpg&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;http://sa.uploads.ru/t/up7GE.jpg&quot; alt=&quot;http://sa.uploads.ru/t/up7GE.jpg&quot; /&gt;&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 02:16:38 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=302#p302</guid>
		</item>
		<item>
			<title>Digma 301</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=301#p301</link>
			<description>&lt;p&gt;ftp://ftpadmin:1234@ip_плеера/&lt;/p&gt;
						&lt;p&gt;ftp-сервер есть в моих сборках начиная с декабрьских.&lt;br /&gt;используются имена:&lt;br /&gt;ftpadmin - доступ к флеш плеера в режиме &amp;quot;чтение/запись&amp;quot;&lt;br /&gt;usb - к подлюченным USB-носителям в режиме &amp;quot;чтение/запись&amp;quot;&lt;br /&gt;usbread - к подлюченным USB-носителям в режиме &amp;quot;только чтение&amp;quot;&lt;/p&gt;
						&lt;p&gt;пароль &amp;quot;1234&amp;quot;&lt;/p&gt;
						&lt;p&gt;запрет на запись стоит&lt;br /&gt;telnet&lt;br /&gt;mount -o remount,rw /&lt;/p&gt;
						&lt;p&gt;После прошивки выяснилось, что youtube не совсем правильно работает. Необходимо сделать обновление пакета RssEx. Делается это примерно так.. Заходим на дигму по телнету и закачиваем в нее новую версию RssEx:&lt;/p&gt;
						&lt;p&gt;mkdir -p /usr/local/etc/translate&lt;br /&gt;cd /usr/local/etc/translate&lt;br /&gt;wget -O /tmp/mt.tar.bz2 &lt;a href=&quot;http://media-translate.googlecode.com/files/rss_ex_2.0.9.tar.bz2&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://media-translate.googlecode.com/f &amp;#8230; .9.tar.bz2&lt;/a&gt;&lt;br /&gt;tar -xjf /tmp/mt.tar.bz2&lt;br /&gt;rm /tmp/mt.tar.bz2&lt;br /&gt;mount -o remount,rw /&lt;br /&gt;cp -rf /usr/local/etc/translate/www /tmp_orig&lt;br /&gt;cp -rf /usr/local/etc/translate/www /tmp&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 02:08:51 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=301#p301</guid>
		</item>
		<item>
			<title>WiFi - переделка обычного USB свистка в точку доступа</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=300#p300</link>
			<description>&lt;p&gt;Предпосылки:&lt;br /&gt;- в windows 7 соединения ad hoc (компьютер-компьютер) могут быть только временными, т.е. каждый раз приходится вручную запускать подключение к такой сети. Это неудобно, приходится включать ноутбук, который создает сеть xxx, большой брат с win7 ее обнаруживает, надо нажимать кнопку подключения в трее и тд.&lt;br /&gt;Возможные решения:&lt;br /&gt;1) перевод свистка в режим точки доступа, т.н. SoftAP&lt;br /&gt;Пердупердение! win7 создает сеть Virtual WiFi обязательно с шифрованием WPA2, а стандартные драйвера winXP могут работать только в режиме WPA! Сразу ищите утилиты от производителя, умеющие соединять с WPA2, иначе убъете весь мозг пытаясь заставить эту связку работать.&lt;br /&gt;- вызываем командную строку и вбиваем:&lt;br /&gt;netsh wlan set hostednetwork mode=allow ssid=&amp;quot;MS Virtual WiFi&amp;quot; key=&amp;quot;softodrom&amp;quot; keyUsage=persistent&lt;br /&gt;&amp;quot;MS Virtual WiFi&amp;quot; тут - название (SSID) создаваемой виртуальной сети, а &amp;quot;softodrom&amp;quot; - пароль для доступа к сети. Конечно же, оба этих параметра можно изменить по собственному усмотрению.&lt;br /&gt;Последний параметр - keyUsage=persistent - определяет, что пароль будет сохранен и его не придется указывать каждый раз, когда надо будет запустить виртуальную сеть.&lt;br /&gt;После выполнения этой команды система обнаружит новое оборудование, и в Диспетчере устройств появится новый сетевой адаптер под названием &amp;quot;Адаптер мини-порта виртуального WiFi Microsoft&amp;quot;&lt;br /&gt;В Панель управления –&amp;gt; Центр управления сетями и общим доступом –&amp;gt; Изменение параметров адаптера: здесь появилось новое соединение &amp;quot;Беспроводное сетевое соединение 2&amp;quot; со статусом &amp;quot;Нет подключения&amp;quot;&lt;br /&gt;Переходим к запуску сети. В командной строке, запущенной с правами администратора, выполняем следующую команду:&lt;br /&gt;netsh wlan start hostednetwork&lt;br /&gt;После этого а) запустится сеть (Microsoft назвала ее &amp;quot;Размещенная сеть&amp;quot;) и б) заработает программная точка доступа, в чем можно будет убедиться, перейдя в Панель управления –&amp;gt; Центр управления сетями и общим доступом.&lt;br /&gt;Как мы видим, компьютер подключен одновременно к нескольким беспроводным сетям, причем теперь другие беспроводные устройства могут подключаться к нашей вновь созданной программной точке доступа.&lt;br /&gt;Для предоставления доступа к интернету другим беспроводным устройствам, которые будут подключаться к нашей программной точке доступа, следует перейти во вкладку Панель управления –&amp;gt; Центр управления сетями и общим доступом -&amp;gt; Изменение параметров адаптера и в свойствах того адаптера, через которое компьютер - в нашем случае нетбук eeePC - получает доступ к интернету (у нас это подключение по WiFi, но оно может быть любым из имеющихся - Еthernet, WiMax, 3G и т.п.) во вкладке &amp;quot;доступ&amp;quot; поставить галку &amp;quot;Разрешить другим пользователям сети использовать подключение к Интернету данного компьютера&amp;quot;.&lt;br /&gt;Кроме этого, в &amp;quot;Подключение домашней сети&amp;quot; нужно указать, на какой сетевой адаптер - в нашем случае это &amp;quot;Беспроводное сетевое подключение 2&amp;quot; - следует предоставить интернет.&lt;br /&gt;Наконец, про клиента. Со стороны клиента будет видно несколько беспроводных сетей, и при подключении к организованной точке доступа (ранее мы присвоили ей SSID = MS Virtual WiFi), клиент автоматически получит IP-адрес с внутреннего DHCP сервера, получит доступ к интернету и при этом будет отделен от внешней сети NAT (Network Address Translation).&lt;br /&gt;Встроенного графического интерфейса для Virtual WiFi в операционной системе, увы, нет, но на помощь, как и всегда в подобных случаях, пришли сторонние разработчики, выпустившие графические оболочки к Virtual WiFi - Connectify и Virtual Router Manager. Рекомендуем вторую, причем не за какие-то ее программные преимущества, а просто потому, что для того, чтобы скачать Connectify, придется сначала зарегистрироваться на сайте ее разработчика, а Virtual Router Manager этого не требует. &lt;/p&gt;
						&lt;p&gt;Команды для управления размещенной сетью&lt;/p&gt;
						&lt;p&gt;Напоследок для ценителей командной строки - новые команды для управления размещенной сетью, появившиеся в Windows 7 и Windows 2008 R2:&lt;br /&gt;netsh wlan set hostednetwork [mode=]allowed/disallowed – разрешить или запретить использование сети&lt;br /&gt;netsh wlan set hostednetwork [ssid=]&amp;lt;идентификатор_SSID&amp;gt; [key=]&amp;lt;парольная_фраза&amp;gt; [keyUsage=]persistent/temporary - настройка параметров сети, где SSID – SSID-идентификатор сети; key - используемый сетью ключ безопасности (пароль); keyUsage – указывает, является ключ безопасности постоянным или временным&lt;br /&gt;netsh wlan show settings – показывает свойства сети и ее состояние&lt;br /&gt;netsh wlan show hostednetwork setting=security – отображает параметры безопасности размещенной сети, в том числе показывает пароль, заданный в key при настройке netsh wlan set hostednetwork&lt;br /&gt;netsh wlan start hostednetwork - запустить размещенную сеть&lt;br /&gt;netsh wlan stop hostednetwork - остановить размещенную сеть. &lt;/p&gt;
						&lt;p&gt;Минусы - нестабильно шо писец, не видят друг друга компы постоянно, интернет выпадает через раз, плюс при создании сети win7 в обязательном порядке задает шифрование wpa2-personal, а стандартными средствами на winxp создаются только соединения wpa, что означает необьяснимую даже для windows xp невозможность подключится ни при каких условиях (необходимо качать софт производителя сетевушки с такими возможностями), и как апофеоз - точка доступа обьявляет себя источником интернета, что сводит с ума windows 7 в попытке понять, что она сама его точке отдала через расшару интернета и оттуда его брать не надо.&lt;/p&gt;
						&lt;p&gt;2) создать ad hoc заранее в &amp;quot;Управление беспроводными сетями&amp;quot;&lt;br /&gt;Запускаем Планировщик заданий --&amp;gt; Действие - Создать задачу (имя задачи любое) --&amp;gt; Триггеры - Cоздать --&amp;gt; Назаначить задачу - При входе в систему (в дополнительных параметрах задать задержку выполнения, рекомендуемое значение 10 сек.) --&amp;gt; Действие - Создать --&amp;gt; Действие - Запуск программы --&amp;gt; Программа или сценарий - находим файл ..\Windows\System32\netsh.exe --&amp;gt; В аргументах указать wlan connect name=имя_соединения &lt;/p&gt;
						&lt;p&gt;Проще и стабильнее в разы... хотя первый вариант еще думаю можно допилить, в экспериментах.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 02:07:59 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=300#p300</guid>
		</item>
		<item>
			<title>EEE PC 701 4G</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=299#p299</link>
			<description>&lt;p&gt;С. притащила сабж. В биос зайти невозможно, в винде под учетной записью &amp;quot;1231312&amp;quot; тоже нет входа, вход а-ля &amp;quot;Администратор&amp;quot; не работает.&lt;br /&gt;Мои действия:&lt;br /&gt;1) Пароль на биос - сбрасывается. Отключаем от питания, вынимаем батарейку, на 25 секунд зажимаем клавишу включения. После пароль требует, но входит в биос по простому Enter.&lt;br /&gt;2) Сбрасываем пароль под виндовс. Диск не воткнуть, есть флешка&lt;br /&gt;- скачиваем (получаем) любой мелкий дистрибутив Linux, который может грузиться с флешки. Для примера можно скачать &amp;quot;Windows Key Enterprise Edition&amp;quot; 8.0 - в нем есть такой образ. Запускаем UltraISO версии 9.3 (у меня такой был), открываем в нем ISO образ, заходим в Самозагрузка - записать образ жесткого диска - тип USB-HDD. Если образ чисто ISO, будет ругаться на небутабельность. Если же универсальный, обработает как SYSLINUX и запишет загрузчик. После чего дописываем (заменяем файлы) на флешке файлами от &amp;quot;Windows Admin Hack&amp;quot;. Т.е. загрузчик получается от &amp;quot;Windows Key Enterprise Edition&amp;quot; 8.0, файлы линукса от &amp;quot;Windows Admin Hack&amp;quot;. Загружаемся, ломаем.&lt;br /&gt;3) Заодно узнаем что название админской учетки - Admin. Может и не надо было ничего хакать? Вбить Admin и зайти...&lt;/p&gt;
						&lt;p&gt;Дополнительные материалы для курения:&lt;br /&gt;&lt;a href=&quot;http://www.xakep.ru/post/37738/default2.asp&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://www.xakep.ru/post/37738/default2.asp&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://www.altlinux.org/InstallFlash/win32&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://www.altlinux.org/InstallFlash/win32&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://greenflash.su/Syslinux/files/install.htm&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://greenflash.su/Syslinux/files/install.htm&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://syslinux.zytor.com/wiki/index.php/SYSLINUX&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://syslinux.zytor.com/wiki/index.php/SYSLINUX&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://gluek.info/wiki/software/windows-admin-hack-linux-boot&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://gluek.info/wiki/software/windows &amp;#8230; linux-boot&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://www.nowa.cc/showthread.php?t=37944&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://www.nowa.cc/showthread.php?t=37944&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://forum.oszone.net/thread-72251.html&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://forum.oszone.net/thread-72251.html&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 02:06:23 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=299#p299</guid>
		</item>
		<item>
			<title>Windows X vs Windows Y</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=297#p297</link>
			<description>&lt;p&gt;ХР sp2 vs XP sp3&lt;br /&gt;SP3 в отличие от SP2 корректно подключается к беспроводным сетям с защитой WPA-PSK/WPA2-PSK. Да, может подключиться и SP2, но уж как повезет&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 02:01:33 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=297#p297</guid>
		</item>
		<item>
			<title>Скрипт уплавнения видео</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=296#p296</link>
			<description>&lt;p&gt;Вариант уплавнялки в худшую сторону - сделать маленькое видео с 15 фпс кажется&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;#LoadPlugin(&amp;quot;FFMS2.dll&amp;quot;)
#Import(&amp;quot;ffms2.avsi&amp;quot;) # импортируем в свой скрипт содержимое скрипта LimitedSharpenFaster
#A = FFAudioSource(&amp;quot;d:\1\LOST\Lost.s06e17e18.rus.LostFilm_[tfile.ru].avi&amp;quot;)
#V = FFVideoSource(&amp;quot;d:\1\LOST\Lost.s06e17e18.rus.LostFilm_[tfile.ru].avi&amp;quot;)
#AudioDub(V, A)

#ASYNTHER AVISource
AVISource(&amp;quot;d:\1\LOST\Lost.s06e17e18.rus.LostFilm_[tfile.ru].avi&amp;quot;).ConvertToMono #,false
Trim(1,15000)
Lanczos4Resize (320, 186)

multinum=2  
multiden=3 
mask=0 
ml=2500 
spar=30 
pel=1 
blkh=32 
blkv=32 
overlap=8 
overlapv=8 

SetMemoryMax(1024)
LoadPlugin (&amp;quot;C:\Program Files (x86)\KMPlayer\svp\Plugins\MVTools2\mvtools2.dll&amp;quot;)
SetMTMode(5,2)
SetMTMode(2)
dist_h=int((0.01*spar*Width)/blkh)
dist_v=int((0.01*spar*Height)/blkv)
dist = dist_h&amp;gt;dist_v ? dist_h : dist_v
dist = dist&amp;gt;0 ? dist : 1
super=MSuper(pel=pel, hpad=blkh, vpad=blkv)
backward_vec1=MAnalyse(super, isb=true, blksize=blkh, blksizev=blkv, overlap=overlap, overlapv=overlapv, searchparam=dist, plevel=2)
forward_vec1=MAnalyse(super, isb=false, blksize=blkh, blksizev=blkv, overlap=overlap, overlapv=overlapv, searchparam=dist, plevel=2)
MFlowFps(super, backward_vec1, forward_vec1, num=FramerateNumerator(last)*multinum,den=FramerateDenominator(last)*multiden, mask=mask, ml=ml)&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 00:07:23 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=296#p296</guid>
		</item>
		<item>
			<title>Скрипт, шерстящий кучу Excel файла в поисках табличных данных</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=295#p295</link>
			<description>&lt;p&gt;Версия скрипта для парсинга таблиц материалов&lt;/p&gt;&lt;div class=&quot;quote-box spoiler-box&quot;&gt;&lt;div onclick=&quot;$(this).toggleClass(&#039;visible&#039;); $(this).next().toggleClass(&#039;visible&#039;);&quot;&gt;Инструкция&lt;/div&gt;&lt;blockquote&gt;&lt;p&gt;Итак, программа. Очень простая, не требует никаких особых знаний,&lt;br /&gt;но имеет свои ограничения.&lt;/p&gt;
						&lt;p&gt;1) На компе все таки есть Office и Excel. Писать свои модули&lt;br /&gt;&amp;#160; &amp;#160;обработки файлов лень, поэтому используется уже готовое.&lt;br /&gt;2) информация извлекается из первого листа книги - в каждом файле&lt;br /&gt;&amp;#160; &amp;#160;он один и называется по разному - в любой найденной книге XLS.&lt;br /&gt;3) Ищется в строке 13 столбце D слово &amp;quot;BILL OF MATERIAL&amp;quot; - в случае&lt;br /&gt;&amp;#160; &amp;#160;его отсутствия файл пропускается и в конечном файле прописывается&lt;br /&gt;&amp;#160; &amp;#160;&amp;quot;Книга ххх пропущена - не найдены данные&amp;quot;.&lt;br /&gt;4) суммарное количество всех строк с данными не может превышать 10000&lt;br /&gt;&amp;#160; &amp;#160;- можно поставить и 65 тысяч, это максимум для экселя, но время&lt;br /&gt;&amp;#160; &amp;#160;работы вырастет в разы - объем пустого пространства тоже&lt;br /&gt;&amp;#160; &amp;#160;перемалывается и на это тратится время.&lt;/p&gt;
						&lt;p&gt;Работа:&lt;/p&gt;
						&lt;p&gt;1) при запуске программы она спрашивает, в какой файл сохранять&lt;br /&gt;&amp;#160; &amp;#160;данные. Указываем, при необходимости перезаписи существующего&lt;br /&gt;&amp;#160; &amp;#160;файла подтверждаем это&lt;br /&gt;2) указываем директорию, в которой лежат наши рабочие файлы. Там&lt;br /&gt;&amp;#160; &amp;#160;должны лежать ТОЛЬКО файлы, соответствующие вышеприведенным&lt;br /&gt;&amp;#160; &amp;#160;условиям, иначе программа вылетит. Как лежат файлы, в каких&lt;br /&gt;&amp;#160; &amp;#160;подпапках - не важно, она их всех найдет и извлечет данные.&lt;br /&gt;3) получаем сообщение что все ок и все - можно открывать файл с&lt;br /&gt;&amp;#160; &amp;#160;результатом.&lt;br /&gt;4) Раздвиньте колонки по вкусу, выделите все десять (выделив&lt;br /&gt;&amp;#160; &amp;#160;заголовки, если кто не в курсе) и нажмите Данные-Фильтр-Автофильтр&lt;br /&gt;&amp;#160; &amp;#160;- получите простейшую базу данных с фильтрованием по любому&lt;br /&gt;&amp;#160; &amp;#160;параметру или их сочетанию.&lt;/p&gt;&lt;/blockquote&gt;&lt;/div&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;#include &amp;lt;Array.au3&amp;gt;

MsgBox (0, &amp;quot;Предупреждение&amp;quot;, &amp;quot;Рекомендую перед работой ознакомиться с инструкцией Excel.txt, ибо программа имеет ограничения, связанные с человеческим фактором&amp;quot;)

$oExcel = ObjGet(&amp;quot;&amp;quot;, &amp;quot;Excel.Application&amp;quot;) ; &amp;quot;схватить&amp;quot; существующий объект Excel (например, файл уже открыт в Excel)

If @error Then ; в случае неудачи создаем новый объект Excel и открываем требуемый файл
    $oExcel = ObjCreate(&amp;quot;Excel.Application&amp;quot;) ; создать объект Excel
    If Not IsObj($oExcel) Then Exit ; выйти, если не удалось создать объект Excel
EndIf

$sFilePath = FileSaveDialog ( &amp;quot;Указать путь к файлу результата&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;Книга Excel (*.xls)&amp;quot;, 1)
$oExcel.Workbooks.Add
$oExcel.ActiveWorkBook.SaveAs ($sFilePath)
$oExcel.ActiveWorkBook.ActiveSheet.Name = &amp;quot;Таблица&amp;quot;

$DirsArray = DirListToArray(StringRegExpReplace(FileSelectFolder( &amp;quot;Папка&amp;quot;, &amp;quot;&amp;quot;)&amp;amp; &amp;quot;\&amp;quot;, &#039;\\[^\\]+$&#039;, &#039;&#039;))
;_ArrayDisplay($DirsArray)

$FilesArray = FilesListToArray($DirsArray)
;_ArrayDisplay($FilesArray)
 
$StrArray = DataToList($FilesArray)
;_ArrayDisplay($StrArray)

$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 1) = &amp;quot;System:&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 2) = &amp;quot;Pipe Class:&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 3) = &amp;quot;OMK-PLATE&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 4) = &amp;quot;AP&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 5) = &amp;quot;Master No.TBZ&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 6) = &amp;quot;Quantity&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 7) = &amp;quot;Description1&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 8) = &amp;quot;Description2&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 9) = &amp;quot;Description3&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Cells(1, 10) = &amp;quot;Weight Kg&amp;quot;
$oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(&amp;quot;Таблица&amp;quot;).Rows(1).Font.Bold = True

for $i = 1 to $StrArray[0][0]
	for $j = 0 to 9
    $oExcel.Workbooks(RetFileName($sFilePath)).Worksheets(1).Cells($i+1, $j+1) = $StrArray[$i][$j]
	Next
Next


$oExcel.DisplayAlerts = 0 ; отключить предупреждения
$oExcel.Save ; сохранить файл
$oExcel.Quit ; выйти из экселя

MsgBox (0, &amp;quot;Поздравляю&amp;quot;, &amp;quot;Файл результата готов&amp;quot;)

Func DirListToArray($sPath, $sRootPath=1)
    $sPath = StringRegExpReplace($sPath, &#039;\\+$&#039;, &#039;&#039;)
    Local $aRetArray[1], $aSubDirsArr, $sFindNextFile, $sCurrentPath
 
    Local $sFindFirstFile = FileFindFirstFile($sPath &amp;amp; &amp;quot;\*.*&amp;quot;)
    If @error = 1 Then Return SetError(1, 0, -1)
 
    If $sRootPath = 1 Then
        ReDim $aRetArray[2]
        $aRetArray[1] = $sPath
        $aRetArray[0] += 1
    EndIf
 
    While 1
        $sFindNextFile = FileFindNextFile($sFindFirstFile)
        If @error = 1 Then ExitLoop
         $sCurrentPath = $sPath &amp;amp; &amp;quot;\&amp;quot; &amp;amp; $sFindNextFile
         If StringInStr(FileGetAttrib($sCurrentPath), &amp;quot;D&amp;quot;) Then
            $aRetArray[0] += 1
            ReDim $aRetArray[$aRetArray[0]+1]
            $aRetArray[$aRetArray[0]] = $sCurrentPath
             $aSubDirsArr = DirListToArray($sCurrentPath, 0)
             If IsArray($aSubDirsArr) Then
                For $i = 1 To $aSubDirsArr[0]
                    $aRetArray[0] += 1
                    ReDim $aRetArray[$aRetArray[0]+1]
                    $aRetArray[$aRetArray[0]] = $aSubDirsArr[$i]
                Next
            EndIf
        EndIf
    WEnd
 
    FileClose($sFindFirstFile)
 
    Return $aRetArray
EndFunc

Func FilesListToArray($sPath, $Ext=&amp;quot;xls&amp;quot;)

$j = $sPath[0]

for $i = 1 to $j
    Local $sFindFirstFile = FileFindFirstFile($sPath[$i] &amp;amp; &amp;quot;\*.&amp;quot; &amp;amp; $Ext)
    If @error = 1 Then Return SetError(1, 0, -1)
;	_ArrayAdd ( $sPath, $sPath[$i] &amp;amp; &amp;quot;\&amp;quot; &amp;amp; $sFindFirstFile ) 

    While 1
        $sFindNextFile = FileFindNextFile($sFindFirstFile)
        If @error = 1 Then ExitLoop
        _ArrayAdd ( $sPath, $sPath[$i] &amp;amp; &amp;quot;\&amp;quot; &amp;amp; $sFindNextFile)
        $sPath[0] += 1

    WEnd
Next

for $i = 1 to $j
	_ArrayDelete ( $sPath, 1)
    $sPath[0] -= 1
Next

    Return $sPath
EndFunc

Func DataToList ($sPath)

Dim $Excels[10000][10]

$i = 0

Do
	$ii=$i + 1

	$oExcel.Workbooks.Open ($sPath[$ii]) ; открыть в Excel указанный файл
	
    if StringInStr( $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells(13, 4).Value, &amp;quot;BILL OF MATERIAL&amp;quot;) &amp;gt; 0 then
    	$System = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells(8, 5).Value
    	$Pipe = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells(9, 5).Value
    	$OMKPLATE = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells(15, 6).Value
    	$j = 19
    	While $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells($j, 4).Value &amp;gt; &amp;quot;&amp;quot;
        $Excels[0][0] += 1 
        $Excels[$Excels[0][0]][0] = $System
        $Excels[$Excels[0][0]][1] = $Pipe
        $Excels[$Excels[0][0]][2] = $OMKPLATE
        $Excels[$Excels[0][0]][3] = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells($j, 1).Value
        $Excels[$Excels[0][0]][4] = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells($j, 2).Value
        $Excels[$Excels[0][0]][5] = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells($j, 3).Value
        $Excels[$Excels[0][0]][6] = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells($j, 4).Value
        $Excels[$Excels[0][0]][7] = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells($j, 5).Value
        $Excels[$Excels[0][0]][8] = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells($j, 6).Value
        $Excels[$Excels[0][0]][9] = $oExcel.Workbooks(RetFileName($sPath[$ii])).Worksheets(1).Cells($j, 7).Value
        $j += 1 
    	WEnd
    Else
    	$Excels[0][0] += 1 
    	$Excels[$Excels[0][0]][0] = &amp;quot;Книга &amp;quot; &amp;amp; $sPath[$ii] &amp;amp; &amp;quot; пропущена - не найдены данные&amp;quot;
    EndIf

	$oExcel.DisplayAlerts = 0 ; отключить предупреждения
;	$oExcel.Save ; сохранить файл
	$oExcel.workbooks(RetFileName($sPath[$ii])).Close(0); // xlDontSaveChanges

	$i += 1
Until $i = $sPath[0]

    Return $Excels

EndFunc

Func RetFileName ($var)
    $var2 = StringLen ($var)
	if StringLen ($var) &amp;gt; 0 then Return StringRight( $Var, $var2 - StringInStr( $var, &amp;quot;\&amp;quot;, 0, -1 ))
EndFunc

Func RetDirName ($var)
	if StringLen ($var) &amp;gt; 0 then Return StringLeft( $Var, StringInStr( $var, &amp;quot;\&amp;quot;, 0, -1 ))
EndFunc

Func FindStr ($sFile, $str, $x, $y)
	for $i = $x to $x + 20
    if StringInStr( $oExcel.Workbooks($sFile).Worksheets(1).Cells($i, $y).Value, $str) &amp;gt; 0 then Return $i
	Next
EndFunc&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 00:03:16 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=295#p295</guid>
		</item>
		<item>
			<title>Скрипт соединения видео и аудио в формате DVD</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=294#p294</link>
			<description>&lt;p&gt;Более сложная версия от 12.11.2009&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;LoadPlugin(&amp;quot;DGDecode.dll&amp;quot;)
#clip1 = MPEG2Source(&amp;quot;123.d2v&amp;quot;).Trim(83616*25,1920*25).Crop(44,0,264,288).Lanczos4Resize(720,576)#.AssumeFPS(25, 1, true)
clip1 = MPEG2Source(&amp;quot;123.d2v&amp;quot;)

#LoadPlugin(&amp;quot;decomb.dll&amp;quot;)
#clip1 = clip1.Telecide(guide=2,blend=false)
#clip1 = clip1.Decimate(cycle=5)


clip1 = clip1.Trim(4380*25,4580*25).Crop(58,30,238,520).Lanczos4Resize(720,576)
#clip1 = clip1.AssumeFPS(25, 1, true)

clip2 = AviSource(&amp;quot;Крылатые качели-txt.avi&amp;quot;).ConvertToRGB32()

maskclip = ColorKeyMask(clip2, $00FF00, 100)

V = Overlay(clip1, clip2, mode=&amp;quot;blend&amp;quot;, mask=ShowAlpha(maskclip), opacity=1.0)

#LoadPlugin(&amp;quot;mpasource.dll&amp;quot;)
#A = MPASource(&amp;quot;sektor_gaza_-_30_let.wav.ac3.mp3&amp;quot;, normalize = false).delayAudio(0/1000) 

A = WavSource(&amp;quot;KRYLAT~1.WAV&amp;quot;).delayAudio(0/1000).TimeStretch(tempo=100)

AudioDub(V, A)
ConvertToYV12()
ColorYUV (Levels=&amp;quot;PC-&amp;gt;TV&amp;quot;) 
ConvertToRGB24()&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Mon, 23 Jan 2017 00:00:04 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=294#p294</guid>
		</item>
		<item>
			<title>WinUtils - скрипт установки Virtual DUB MOD и GoldWave</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=292#p292</link>
			<description>&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;Section &amp;quot;Virtual DUB MOD 1.5.10&amp;quot;
  SectionIn 1
  SetOutPath $INSTDIR
file VirtualDubMod.exe
file Codecs.ini
file AviSynthLexer.lexer
file corona.dll
file ogg.dll
file SciLexer.dll
file vdicmdrv.dll
file vorbis.dll
  SetOutPath $INSTDIR\Template
file Template\*.avst
WriteINIStr &amp;quot;$INSTDIR\Default.bar&amp;quot; Buttonbar menu6 &amp;quot;Virtual DUB MOD 1.5.10&amp;quot;

SectionEnd 
Section &amp;quot;GoldWave 4.24&amp;quot;
  SectionIn 1
  SetOutPath $INSTDIR
file calogg00.dll
file lame_enc.dll
file GoldWave.exe
  SetOutPath $WINDIR
file goldwave.ini
WriteINIStr &amp;quot;$INSTDIR\Default.bar&amp;quot; Buttonbar menu7 &amp;quot;GoldWave 4.24&amp;quot;
SectionEnd
SubSectionEnd

Section &amp;quot;Uninstall&amp;quot;
  Delete $INSTDIR\Templates\*.*
SectionEnd&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Sun, 22 Jan 2017 23:54:57 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=292#p292</guid>
		</item>
		<item>
			<title>Скрипт, включающий интернет соединение, поддерживающий и выключающий</title>
			<link>http://runner.bbok.ru/viewtopic.php?pid=291#p291</link>
			<description>&lt;p&gt;Версия от 06.12.2009, ведет лог со скриншотами&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;#include &amp;lt;GUIConstants.au3&amp;gt;

; На случай трансляции
; 1 - время да, 2 - инет да, 3 - контроль да, 4 - первый да

;$str1110 = &amp;quot;Время OK, инет OK, рулим шеф!&amp;quot;
;$str1010 = &amp;quot;Время OK, инет NO, втыкаем!&amp;quot;
;$str0110 = &amp;quot;Время NO, инет OK, рубим нах!&amp;quot;
;$str0010 = &amp;quot;Время NO, инет NO, курим!&amp;quot;
;$str0101 = &amp;quot;Время NO, инет OK, преднастрой!&amp;quot;
;$str0001 = &amp;quot;Время NO, инет NO, преднастрой!&amp;quot;
;$str1100 = &amp;quot;Время OK, инет OK, нет контроля!&amp;quot;
;$str1000 = &amp;quot;Время OK, инет NO, нет контроля!&amp;quot;
;$str0100 = &amp;quot;Время NO, инет OK, нет контроля!&amp;quot;
;$str0000 = &amp;quot;Время NO, инет NO, нет контроля!&amp;quot;
;$Control1 = &amp;quot;Включить контроль&amp;quot;
;$Control0 = &amp;quot;Выключить контроль&amp;quot;

$str1110 = &amp;quot;День, сеть, работаем насяльник!&amp;quot;
$str1010 = &amp;quot;День, дом, премся на поле!     &amp;quot;
$str0110 = &amp;quot;Ночь, сеть, в барак!           &amp;quot;
$str0010 = &amp;quot;Ночь, дом, спим!               &amp;quot;
$str0101 = &amp;quot;Ночь, сеть, настройки...       &amp;quot;
$str0001 = &amp;quot;Ночь, дом, настройки...        &amp;quot;
$str1100 = &amp;quot;День, сеть, что прикажете?     &amp;quot;
$str1000 = &amp;quot;День, дом, что прикажете?      &amp;quot;
$str0100 = &amp;quot;Ночь, сеть, что прикажете?     &amp;quot;
$str0000 = &amp;quot;Ночь, дом, что прикажете?      &amp;quot;
$Control1 = &amp;quot;Работать негра!&amp;quot;
$Control0 = &amp;quot;Вольно салага!&amp;quot;

$Over = 0
$Over1 = 0
$First = 1
$State = 0
$x = 0
$i_view32 = &amp;quot;c:\Program Files\WinUtils\i_view32.exe&amp;quot;
$file = &amp;quot;timer_for_HC.log.htm&amp;quot;
$last = 0

Opt(&amp;quot;GUIOnEventMode&amp;quot;, 1)  ; Change to OnEvent mode 
$mainwindow = GUICreate(&amp;quot;[Погоняло]+&amp;quot;, 400, 200)
GUISetOnEvent($GUI_EVENT_CLOSE, &amp;quot;CLOSEClicked&amp;quot;)

GUICtrlCreateLabel(&amp;quot;Таймер инета, для HC&amp;quot;, 10, 2)

; Небольшое описалово в вверху справа
;GUICtrlCreateGroup ( &amp;quot;Рекомендую ознакомиться (для версии без HC)&amp;quot;, 130, 2, 265, 72)
;GUICtrlCreateLabel(&amp;quot;Работает с подключ-м по умолчанию. В парамет-&amp;quot;, 135, 20)
;GUICtrlCreateLabel(&amp;quot;рах подключ-я IE должно стоять всегда исполь-&amp;quot;, 135, 35)
;GUICtrlCreateLabel(&amp;quot;зовать принятое по умолчанию подключение&amp;quot;, 135, 50)
GUICtrlCreateGroup ( &amp;quot;Рекомендую ознакомиться (для версии с HC)&amp;quot;, 130, 2, 265, 72)
GUICtrlCreateLabel(&amp;quot;Работает с программой Handy Cache. В НС на&amp;quot;, 135, 20)
GUICtrlCreateLabel(&amp;quot;закладке дозвон сделана опция дозвон/отклю-&amp;quot;, 135, 35)
GUICtrlCreateLabel(&amp;quot;чение по клавише Ctrl+Shift+F12, для управления&amp;quot;, 135, 50)

; Группа таймеров - сами часы, начало, конец
GUICtrlCreateGroup ( &amp;quot;Таймер&amp;quot;, 5, 15, 120, 150)


	$HH = GUICtrlCreateEdit ( &amp;quot;00:00:00&amp;quot;,  10, 40, 110, 30, $ES_READONLY+$ES_CENTER)
GUICtrlSetFont (-1,16, 600)

GUICtrlCreateLabel(&amp;quot;Подключить в Ч:М&amp;quot;, 10, 75)

	$HH1 = GUICtrlCreateInput ( &amp;quot;00&amp;quot;,  10, 90, 53, 25, $ES_CENTER+$ES_NUMBER)
    GUICtrlSetFont (-1,12, 600)
    GUICtrlCreateUpdown ($HH1)

	$MM1 = GUICtrlCreateInput ( &amp;quot;00&amp;quot;,  67, 90, 53, 25, $ES_CENTER+$ES_NUMBER)
    GUICtrlSetFont (-1,12, 600)
    GUICtrlCreateUpdown ($MM1)

; программа, запускаемая после подключения к интернету
GUICtrlCreateLabel(&amp;quot;- и запустить прогу&amp;quot;, 130, 75)
$Prog = GUICtrlCreateEdit ( &amp;quot;Запуск программы после&amp;quot;,  130, 97, 240, 20, $WS_HSCROLL)
$ProgButton = GUICtrlCreateButton ( &amp;quot;...&amp;quot;, 375, 97, 20, 20)

GUICtrlCreateLabel(&amp;quot;Отключить в Ч:М&amp;quot;, 10, 120)

	$HH2 = GUICtrlCreateInput ( &amp;quot;00&amp;quot;,  10, 135, 53, 25, $ES_CENTER+$ES_NUMBER)
    GUICtrlSetFont (-1,12, 600)
    GUICtrlCreateUpdown ($HH2)
	$MM2 = GUICtrlCreateInput ( &amp;quot;00&amp;quot;,  67, 135, 53, 25, $ES_CENTER+$ES_NUMBER)
    GUICtrlSetFont (-1,12, 600)
    GUICtrlCreateUpdown ($MM2)

; программа принудительно закрываемая после отключения интернета
$Shut = GUICtrlCreateCheckbox (&amp;quot;- и закрыть процесс, выключить комп&amp;quot;, 130, 120, 235, 20)
$Prog2 = GUICtrlCreateEdit ( &amp;quot;Запуск программы после&amp;quot;,  130, 142, 240, 20, $WS_HSCROLL)
$ProgButton2 = GUICtrlCreateButton ( &amp;quot;...&amp;quot;, 375, 142, 20, 20)

; галочка если нужно комп выключать

; небольшой сигнализатор, сообщающий должен быть инет или нет
$Inet = GUICtrlCreateLabel ( &amp;quot;Инициализация.........................................................&amp;quot;, 10, 175)
GUICtrlSetFont (-1,12, 400)
$OnButton = GUICtrlCreateButton ( $Control1, 275, 170, 120, 25)

GUICtrlSetOnEvent($OnButton, &amp;quot;OnButton&amp;quot;)
GUICtrlSetOnEvent($ProgButton, &amp;quot;ProgButton&amp;quot;)
GUICtrlSetOnEvent($ProgButton2, &amp;quot;ProgButton2&amp;quot;)

	GUICtrlSetData ( $HH1, IniRead ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;HH1&amp;quot;, &amp;quot;&amp;quot;))
	GUICtrlSetData ( $HH2, IniRead ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;HH2&amp;quot;, &amp;quot;&amp;quot;))
	GUICtrlSetData ( $MM1, IniRead ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;MM1&amp;quot;, &amp;quot;&amp;quot;))
	GUICtrlSetData ( $MM2, IniRead ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;MM2&amp;quot;, &amp;quot;&amp;quot;))
	GUICtrlSetData ( $Prog, IniRead ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;Prog&amp;quot;, &amp;quot;&amp;quot;))
	GUICtrlSetData ( $Prog2, IniRead ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;Prog2&amp;quot;, &amp;quot;&amp;quot;))
	GUICtrlSetState ( $Shut, IniRead ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;Shut&amp;quot;, &amp;quot;&amp;quot;))

GUISwitch($mainwindow)
GUISetState(@SW_SHOW)

While 1

CheckData ($HH1, 00, 23)
CheckData ($MM1, 00, 59)
CheckData ($HH2, 00, 23)
CheckData ($MM2, 00, 59)

; это для движения часиков
	Sleep(1000)  ; Idle around
	GUICtrlSetData ( $HH, @HOUR &amp;amp; &amp;quot;:&amp;quot; &amp;amp; @MIN &amp;amp; &amp;quot;:&amp;quot; &amp;amp; @SEC)

if ProcessExists(&amp;quot;HandyCache.exe&amp;quot;) &amp;gt; 0 then
	if TimeOn() = 0 and $First = 1 then
    if _GetNetworkConnect() = True  then InfoDataSet ($str0101)
    if _GetNetworkConnect() = False  then InfoDataSet ($str0001)
	Else

; в случае если время включиться и еще не время выключиться,
; датчик сигнализует чтобы инет был, проверяет его наличие и
; при необходимости стартует его и запускает программу
    Select
    Case TimeOn() = 1 and GUICtrlRead ($OnButton) = $Control0
    	if _GetNetworkConnect() = True then InfoDataSet ($str1110)
    	if _GetNetworkConnect() = False then InfoDataSet ($str1010)
    	if _GetNetworkConnect() = False and $State = 0 then
        Send (&amp;quot;^+{F12}&amp;quot;)
        $State = 1
    	EndIf 
    	MonoRun(GUICtrlRead ($Prog))
    	$First = 0

; если же время вышло, то закрывается принудительно инет,
; так же закрывается прога, ждется 10 сек и комп выключается
    Case TimeOn() = 0 and $First = 0 and GUICtrlRead ($OnButton) = $Control0
    	if _GetNetworkConnect() = True then InfoDataSet ($str0110)
    	if _GetNetworkConnect() = False then InfoDataSet ($str0010)
    	if _GetNetworkConnect() = True then Send (&amp;quot;^+{F12}&amp;quot;)
    	Sleep(5000)  ; Idle around
    	if GUICtrlRead ($Shut) = $GUI_CHECKED then
        $out2 = @YEAR &amp;amp; &amp;quot;-&amp;quot; &amp;amp; @MON &amp;amp; &amp;quot;-&amp;quot; &amp;amp; @MDAY &amp;amp; &amp;quot; &amp;quot; &amp;amp; @HOUR &amp;amp; &amp;quot;-&amp;quot; &amp;amp; @MIN &amp;amp; &amp;quot;-&amp;quot; &amp;amp; @SEC
        if SnapShot (&amp;quot;µTorrent&amp;quot;, $out2 &amp;amp; &amp;quot;.gif&amp;quot;, &amp;quot;RD&amp;quot;, -500, -18, 400, 11) = True then InfoDataSet (&#039; &amp;lt;img src=&amp;quot;&#039; &amp;amp; $out2 &amp;amp; &#039;.gif&amp;quot;&amp;gt;&#039;) 
        AllClose(GUICtrlRead ($Prog2))
        Sleep(5000)  ; Idle around
        Shutdown (9) 
        CLOSEClicked()
    	EndIf 
    Case TimeOn() = 1 and GUICtrlRead ($OnButton) = $Control1
    	if _GetNetworkConnect() = True then InfoDataSet ($str1100)
    	if _GetNetworkConnect() = False  then InfoDataSet ($str1000)
    Case TimeOn() = 0 and $First = 0 and GUICtrlRead ($OnButton) = $Control1
    	if _GetNetworkConnect() = True  then InfoDataSet ($str0100)
    	if _GetNetworkConnect() = False  then InfoDataSet ($str0000)
    EndSelect 
	endif 
Else
	GUICtrlSetData ( $Inet, &amp;quot;Хендика нет!&amp;quot;)
endif
WEnd

Func TimeOn()
; проверка - если время начала позже времени конца, значит это
; время вчерашнего дня, и инет в промежуток между вчера и
; сегодня будет работать (проблема перехода через 0)
	if GUICtrlRead ($HH1) * 60 + GUICtrlRead ($MM1) &amp;gt;= GUICtrlRead ($HH2) * 60 + GUICtrlRead ($MM2) then
    Select
    	Case @HOUR * 60 + @MIN &amp;lt;= GUICtrlRead ($HH1) * 60 + GUICtrlRead ($MM1) and @HOUR * 60 + @MIN &amp;gt;= GUICtrlRead ($HH2) * 60 + GUICtrlRead ($MM2)
        return 0
    	Case @HOUR * 60 + @MIN &amp;gt;= GUICtrlRead ($HH1) * 60 + GUICtrlRead ($MM1) or @HOUR * 60 + @MIN &amp;lt; GUICtrlRead ($HH2) * 60 + GUICtrlRead ($MM2)
        return 1
    EndSelect
	else
    if @HOUR * 60 + @MIN &amp;gt;= GUICtrlRead ($HH1) * 60 + GUICtrlRead ($MM1) and @HOUR * 60 + @MIN &amp;lt; GUICtrlRead ($HH2) * 60 + GUICtrlRead ($MM2) then
    	return 1
    else
    	return 0
    endif
	endif
EndFunc

;Func _GetNetworkConnect()
;    Local $aRet, $iResult
;    $aRet = DllCall(&amp;quot;sensapi.dll&amp;quot;, &amp;quot;int&amp;quot;, &amp;quot;IsNetworkAlive&amp;quot;, &amp;quot;int*&amp;quot;, 0)
;    If BitAND($aRet[1], 0x2) Then Return True
;    If BitAND($aRet[0], 0x2) Then Return True
;    Return False
;EndFunc

Func _GetNetworkConnect()
	$InetStruct = DllStructCreate(&amp;quot;int&amp;quot;)
	$aRet = DllCall(&amp;quot;wininet.dll&amp;quot;, &amp;quot;int&amp;quot;, &amp;quot;InternetGetConnectedState&amp;quot;, &amp;quot;ptr&amp;quot;, DllStructGetPtr($InetStruct), &amp;quot;int&amp;quot;, 0)
	$val = DllStructGetData($InetStruct, 1)
	if $val = 81 Then Return True
	Return False
EndFunc

Func OnButton()
	Select
    Case GUICtrlRead ($OnButton) = $Control1
    	GUICtrlSetData ( $OnButton, $Control0)
    Case GUICtrlRead ($OnButton) = $Control0
    	GUICtrlSetData ( $OnButton, $Control1)
	EndSelect
EndFunc

Func ProgButton()
	$var = FileOpenDialog ( &amp;quot;Указать путь к программе&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;Исполняемый файл (*.exe)&amp;quot;, 1)
	if StringLen ($var) &amp;gt; 0 then GUICtrlSetData ( $Prog, $var)
EndFunc

Func ProgButton2()
	$var = FileOpenDialog ( &amp;quot;Указать путь к программе&amp;quot;, &amp;quot;&amp;quot;, &amp;quot;Исполняемый файл (*.exe)&amp;quot;, 1)
    $var2 = StringLen ($var)
	if StringLen ($var) &amp;gt; 0 then GUICtrlSetData ( $Prog2, StringRight( $Var, $var2 - StringInStr( $var, &amp;quot;\&amp;quot;, 0, -1 )) &amp;amp; &amp;quot;;&amp;quot; &amp;amp; GUICtrlRead ($Prog2))
EndFunc

Func MonoRun($x)
    $var2 = StringLen ($x)
	if StringLen ($x) &amp;gt; 0 then
    $x = StringRight( GUICtrlRead ($Prog), $var2 - StringInStr( GUICtrlRead ($Prog), &amp;quot;\&amp;quot;, 0, -1 ) )
    if ProcessExists($x) = 0 then ShellExecute(&#039;&amp;quot;&#039; &amp;amp; GUICtrlRead ($Prog) &amp;amp; &#039;&amp;quot;&#039;, &amp;quot;&amp;quot;, &amp;quot;&amp;quot;)
	endif
EndFunc

Func AllClose($x)
	$m = 0
	for $i = 1 to StringLen ($x)
    if StringMid( $x, $i, 1) = &amp;quot;;&amp;quot; then
    	if ProcessExists(StringMid($x, $m + 1, $i - $m - 1)) then ProcessClose(ProcessExists(StringMid( $x, $m + 1, $i - $m - 1)))
    	$m = $i
    Endif
	Next
EndFunc

Func CLOSEClicked()
	IniWrite ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;HH1&amp;quot;, GUICtrlRead ($HH1) )
	IniWrite ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;HH2&amp;quot;, GUICtrlRead ($HH2) )
	IniWrite ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;MM1&amp;quot;, GUICtrlRead ($MM1) )
	IniWrite ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;MM2&amp;quot;, GUICtrlRead ($MM2) )
	IniWrite ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;Prog&amp;quot;, GUICtrlRead ($Prog) )
	IniWrite ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;Prog2&amp;quot;, GUICtrlRead ($Prog2) )
	IniWrite ( @ScriptDir &amp;amp; &amp;quot;\Autoit.ini&amp;quot;, &amp;quot;Timers&amp;quot;, &amp;quot;Shut&amp;quot;, GUICtrlRead ($Shut) )
    Exit
EndFunc

Func InfoDataSet($x)
	WinSetTitle ( WinGetTitle( &amp;quot;[Погоняло]&amp;quot;, &amp;quot;Таймер инета, для HC&amp;quot; ), &amp;quot;Таймер инета, для HC&amp;quot;, &amp;quot;[Погоняло] - &amp;quot; &amp;amp; $x )
	GUICtrlSetData ( $Inet, $x)
	$out = &amp;quot;[&amp;quot; &amp;amp; @YEAR &amp;amp; &amp;quot;-&amp;quot; &amp;amp; @MON &amp;amp; &amp;quot;-&amp;quot; &amp;amp; @MDAY &amp;amp; &amp;quot; &amp;quot; &amp;amp; @HOUR &amp;amp; &amp;quot;:&amp;quot; &amp;amp; @MIN &amp;amp; &amp;quot;:&amp;quot; &amp;amp; @SEC &amp;amp; &amp;quot;] &amp;quot;
	if $last &amp;lt;&amp;gt; $x then
    FileWrite(@ScriptDir &amp;amp; &amp;quot;\&amp;quot; &amp;amp; $file, $out &amp;amp; $x &amp;amp; @CRLF)
	Endif
	$last = $x
EndFunc

Func CheckData ($x, $y, $z)
	if GUICtrlRead ($x) &amp;gt; $z then GUICtrlSetData ($x, $y) 
	if GUICtrlRead ($x) &amp;lt; $y then GUICtrlSetData ($x, $z) 
EndFunc

Func SnapShot ($prog, $out, $zero, $x, $y, $w, $h)
	if WinExists ($prog) then
    WinSetState ($prog, &amp;quot;&amp;quot;, @SW_SHOW)
    WinSetState ($prog, &amp;quot;&amp;quot;, @SW_RESTORE)
    sleep (250)
    WinActivate ($prog)
    sleep (250)
    $size2 = WinGetPos($prog, &amp;quot;&amp;quot;)
;	Так как нужно вычленять определенный кусок экрана определенной программы,
;	то указывается откуда считать, с какого края окна
    if $zero = &amp;quot;LU&amp;quot; then ShellExecute($i_view32, &#039;/capture=0 /crop=(&#039; &amp;amp; $size2[0]+$x &#039;,&#039; $size2[1]+$y &#039;,&#039; $w &#039;,&#039; $h &#039;) /bpp=1 /convert=&#039; &amp;amp; @ScriptDir &amp;amp; &#039;\&#039; &amp;amp; $out)
    if $zero = &amp;quot;RU&amp;quot; then ShellExecute($i_view32, &amp;quot;/capture=0 /crop=(&amp;quot; &amp;amp; $size2[0]+$size2[2]+$x &amp;quot;,&amp;quot; $size2[1]+$y &amp;quot;,&amp;quot; $w &amp;quot;,&amp;quot; $h &amp;quot;) /bpp=1 /convert=&amp;quot; &amp;amp; @ScriptDir &amp;amp; &amp;quot;\&amp;quot; &amp;amp; $out)
    if $zero = &amp;quot;LD&amp;quot; then ShellExecute($i_view32, &amp;quot;/capture=0 /crop=(&amp;quot; &amp;amp; $size2[0]+$x &amp;quot;,&amp;quot; $size2[1]+$size2[3]+$y &amp;quot;,&amp;quot; $w &amp;quot;,&amp;quot; $h &amp;quot;) /bpp=1 /convert=&amp;quot; &amp;amp; @ScriptDir &amp;amp; &amp;quot;\&amp;quot; &amp;amp; $out)
    if $zero = &amp;quot;RD&amp;quot; then ShellExecute($i_view32, &#039;/capture=0 /crop=(&#039; &amp;amp; $size2[0]+$size2[2]+$x &amp;amp; &#039;,&#039; &amp;amp; $size2[1]+$size2[3]+$y &amp;amp; &#039;,&#039; &amp;amp; $w &amp;amp; &#039;,&#039; &amp;amp; $h &amp;amp; &#039;) /bpp=1 /convert=&#039; &amp;amp; @ScriptDir &amp;amp; &#039;\&#039; &amp;amp; $out)
    sleep (250)
    WinActivate (&amp;quot;[Погоняло]&amp;quot;)
    Return True
	Else
    Return False
	Endif	
EndFunc&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Кармадрил)</author>
			<pubDate>Sun, 22 Jan 2017 23:52:49 +0300</pubDate>
			<guid>http://runner.bbok.ru/viewtopic.php?pid=291#p291</guid>
		</item>
	</channel>
</rss>
