Занимательное программирование :)

← →
Омлет © (2009-10-28 07:15) [0]

Всё плохо? Жизнь разваливается? Руки опускаются?
Занимательное программирование подарит вам надежду!
Создайте на рабочем столе текстовый файл и вставьте в него скрипт.
Сохраните файл, переименуйте в hope.js и запустите.

with (WScript) { wshShell = CreateObject("WScript.Shell"); with (wshShell) { do { Popup("Проверьте, чтобы в блокноте" + " был шрифт Lucida Console",0,"Важно",48); } while (Popup("Точно проверили?",0,"Подтверждение",36)!=6); var WshExec = Exec("notepad"); Sleep(1000); AppActivate(WshExec.ProcessID); SendKeys("~"); Wr(" H O P E ???"); SendKeys("~"); SendKeys("~"); Sleep(1500); Wr("35747578815979", "HHHOPE"); Wr("456465612615898", "HHHOPE"); Wr("5554556464539383338", "HHHOOPPEE"); Wr("6544456484439373537", "HHHOOPPEE"); Wr("7534357484439373537", "HHHOOPPEE"); Wr("8524258484439363736", "HHHOOPPEE"); Wr("9169484439363736", "HOOPPEE"); Wr("818848443935155", "HOOPPE"); Wr("753435748443935155", "HHHOOPPE"); Wr("65444564844393431134", "HHHOOPPEE"); Wr("55545564645393431134", "HHHOOPPEE"); Wr("4564656126393331333", "HHHOPPEE"); Wr("357475788393331333", "HHHOPPEE"); } } function Wr(sl, sh) { var i=0, n=0; while (i < sl.length) { var c = sl.charAt(i++); if (!sh) WScript.Sleep(150); wshShell.SendKeys(!sh?c:("{"+((++n%2!=0)?" ":sh.charAt((n-1)/2))+ " "+(c+(c!="1"?"":sl.charAt(i++)))+"}")); } wshShell.SendKeys("~"); WScript.Sleep(300); }

← →
Омлет © (2009-10-28 07:22) [1]

Самый смак, конечно, здесь:

wshShell.SendKeys(!sh?c:("{"+((++n%2!=0)?" ":sh.charAt((n-1)/2))+" "+(c+(c!="1"?"":sl.charAt(i++)))+"}"));

:)

← →
one more trader (2009-10-28 07:33) [2]

Гербалайф жил, жив и будет жить. Со Смаком. На пару.

← →
Омлет © (2009-10-28 07:39) [3]

> [2] one more trader (28.10.09 07:33)

Не понял, о чем вы.

← →
KSergey © (2009-10-28 14:07) [4]

чета ссыкотна

← →
@!!ex © (2009-10-28 14:09) [5]

Ниче страшного не делает. :))))

← →
McSimm © (2009-10-28 14:36) [6]

действительно, ничего страшного. Message box отображает и все.
Ошибка: Предполагается наличие объекта.
Код: 800A138F
Источник: Ошибка выполнения Microsoft JScript

← →
Юрий Зотов © (2009-10-28 14:38) [7]

Моя система умная, он че попало не выполняет, js там всякие...

← →
Anatoly Podgoretsky © (2009-10-28 14:42) [8]

> Ниче страшного не делает. :))))

Уже проверил :-)

← →
xayam © (2009-10-28 14:44) [9]

> Anatoly Podgoretsky © (28.10.09 14:42) [8]
> > Ниче страшного не делает. :))))
> Уже проверил :-)

нет зачем? Визуальная компиляция :)

← →
@!!ex © (2009-10-28 14:54) [10]

Что там компилировать, посылает нажатия клавиш и все...

← →
xayam © (2009-10-28 15:02) [11]

> @!!ex © (28.10.09 14:54) [10]
> Что там компилировать, посылает нажатия клавиш и все...

Как что вот как раз это? Помнится это выражение Игоря Шевченко, когда я на глаз сравнивал структуру xml-файла и msil . Хотя если обобщить это выражение на повседневную жизнь, то человек по сути - визуальный компилятор. Смотришь телевизор - переносишься в происходящие там события, слушаешь музыку - то же самое и т.д. Я про это уже рассказывал, но не знаю интересно ли тебе это?

← →
Юрий Зотов © (2009-10-28 15:31) [12]

> визуальный компилятор.
> слушаешь музыку

:o)

← →
_ (2009-10-28 15:35) [13]

Бек. Гадость какая. =)

← →
xayam © (2009-10-28 15:42) [14]

> Юрий Зотов © (28.10.09 15:31) [12]
> > визуальный компилятор.
> > слушаешь музыку
> :o)

ну да нестыковочка, но это я обобщил сразу на слух. Скажем, если уж точнее, человек - компилятор. Соответственно, окружающая нас визуальная, слуховая, осязательная ... информация - это исходники для этого компилятора. А на выходе компилятора - выполнение каких-либо действий т.е. по сути поведение человека. Ну это так вкратце.

← →
Юрий Зотов © (2009-10-28 15:45) [15]

Сплю. Визуальная, слуховая, осязательная... информация отсутствует (или не воспринимается, что равносильно).

Что на выходе?

← →
xayam © (2009-10-28 15:49) [16]

> Юрий Зотов © (28.10.09 15:45) [15]
> Сплю. Визуальная, слуховая, осязательная... информация отсутствует
> (или не воспринимается, что равносильно).
> Что на выходе?

во-первых, не факт, что ты видишь все каналы поступления информации, и бессознательно их все равно воспринимаешь... на выходе то, что имеем сны, осознанные сноведения, выходы из тела и т.д. Причем, выходам из тела реально можно научиться, перепробовал на себе многие методики из книги "Вне тела" - работают!!!

← →
KSergey © (2009-10-28 15:54) [17]

> @!!ex © (28.10.09 14:54) [10]
> Что там компилировать, посылает нажатия клавиш и все...

Да да да
помню попадалась мине как-то ветка, по поводу линуксов чего-то
Тама один чувак начал ее постом "помогите отладить скрипт, чета не работает"
Скрипт с виду состояил из бредового набора букво/цифр и прочих згнаков припинания.
Пару ответов народ видимо пытался чего-то понять глазами, потом некоторое затишье в ответах - а потом сотня матерных сообщений от добрый и доверчивых граждан, которые этот скрипт запустили для целей отладки.
Оказалось, что из этот бредовый набор цифро-вукво-запятых был регулярный выражением, из которго среди мусора формировалась команда рекурсивного удаления фалов из корня тома и вниз, до конца.
Ну или еще была тама сотня сообщений, в котрых некоторые хвастали тем, что не работают из под рута и поучали как надо обустраивать жизнь приличному админу.

← →
Anatoly Podgoretsky © (2009-10-28 16:04) [18]

> KSergey (28.10.2009 15:54:17) [17]

Видел я этот скрипт, но я не дурак запускать с виду безобидный скрипт.

← →
KSergey © (2009-10-28 16:09) [19]

> Anatoly Podgoretsky © (28.10.09 16:04) [18]
> но я не дурак запускать с виду безобидный скрипт.

А людям помогать?

← →
Anatoly Podgoretsky © (2009-10-28 16:12) [20]

> KSergey (28.10.2009 16:09:19) [19]

А я такой же как и те, кто запустил, для меня это был набор букв.

← →
Anatoly Podgoretsky © (2009-10-28 16:13) [21]

> KSergey (28.10.2009 16:09:19) [19]

Кстати, как же им поможешь, если они как мухи набросились и стали подряд запускать, ох и много же их было.

← →
Омлет © (2009-10-29 00:30) [22]

Это не вирус. Тут некоторые просят протестировать свои exe-шники, так никто не подозревает на вирусы.
А пять строк исходного кода боитесь запустить!

> [6] McSimm © (28.10.09 14:36)

Странно... Виста?

← →
Inovet © (2009-10-29 00:51) [23]

Зелёный терминал напомнило. Задержка для пущей схожести вставлена?

← →
Омлет © (2009-10-29 00:56) [24]

> [23] Inovet © (29.10.09 00:51)

Что за зелёный терминал?

← →
McSimm © (2009-10-29 01:04) [25]

> Омлет © (29.10.09 00:30) [22]
> > [6] McSimm © (28.10.09 14:36)
>
> Странно... Виста?

руки :)

← →
Kostafey © (2009-10-29 01:04) [26]

> [0] Омлет © (28.10.09 07:15)

Класс! :-)

← →
Омлет © (2009-10-29 01:11) [27]

Кстати, последнице цифры можно убрать, просто сначала были не пробелы, а точки.

Wr("3574757881597", "HHHOPE"); Wr("45646561261589", "HHHOPE"); Wr("555455646453938333", "HHHOOPPEE"); Wr("654445648443937353", "HHHOOPPEE"); Wr("753435748443937353", "HHHOOPPEE"); Wr("852425848443936373", "HHHOOPPEE"); Wr("916948443936373", "HOOPPEE"); Wr("81884844393515", "HOOPPE"); Wr("75343574844393515", "HHHOOPPE"); Wr("6544456484439343113", "HHHOOPPEE"); Wr("5554556464539343113", "HHHOOPPEE"); Wr("456465612639333133", "HHHOPPEE"); Wr("35747578839333133", "HHHOPPEE");

← →
Inovet © (2009-10-29 01:15) [28]

> [24] Омлет © (29.10.09 00:56)
> > [23] Inovet © (29.10.09 00:51)
>
> Что за зелёный терминал?

Ну какой, алфавитно-цифровой который, были оранжевые ещё. На них так писали.

← →
Игорь Шевченко © (2009-10-29 01:18) [29]

>
> Ну какой, алфавитно-цифровой который, были оранжевые ещё.
> На них так писали.

Оранжевые терминалы большее зло, чем зеленые. На правильных терминалах серые буквы

← →
Омлет © (2009-10-29 01:18) [30]

> [28] Inovet © (29.10.09 01:15)

Нет. Про терминалы не думал. Может таки черный? С зеленым текстом?

← →
Inovet © (2009-10-29 01:38) [31]

> [30] Омлет © (29.10.09 01:18)
> > [28] Inovet © (29.10.09 01:15)
>
> Нет. Про терминалы не думал. Может таки черный? С зеленым
> текстом?

Короче монохромный. Хотя и на графических цветных текст-то так же выводился.

> [29] Игорь Шевченко © (29.10.09 01:18)
> Оранжевые терминалы большее зло, чем зеленые. На правильных
> терминалах серые буквы

Ну белый вобщем нормально, но зелёный не зря применялся как и осцилографах, к примеру, но на них и синий был. Зелёный почему зло?

> Игорь Шевченко © (29.10.09 01:18) [29]
>
>
> >
> > Ну какой, алфавитно-цифровой который, были оранжевые ещё.
>
> > На них так писали.
>
>
> Оранжевые терминалы большее зло, чем зеленые. На правильных
> терминалах серые буквы
>

Нифига! Оранжевые - рулёз форева!
(с) ИШ
:)

Inovet © (29.10.09 01:38) [31]

В осциллографах применялся, потому что другого не было. Свойство люминофора такое - зеленым светиться, когда по нему электроны стукают.
Сейчас кстати синие осциллографы.

> Зелёный почему зло?

Потому что глаза от контраста устают.

> [10] @!!ex © (28.10.09 14:54)
> Что там компилировать, посылает нажатия клавиш и все...

Если честно, то основания для подозрений всё-таки есть.
Например, простой код с SendKeys:

wshShell = WScript.CreateObject("WScript.Shell"); wshShell.Run("cmd"); WScript.Sleep(100); wshShell.SendKeys("del C:\\yyy ~ exit ~");

быстро и почти незаметно удаляет файл yyy из корня диска. А это может быть и ntldr, к примеру )))

Я вот только не знаю, как посылать нажатия с русскими буквами.
Всяко пробовал - не выходит. Гугл тоже молчит.
Может, кто в курсе, как в SendKeys передать кириллицу или вообще юникодовский символ?

.... а потом появляются темы
http://delphimaster.net/view/15-1256679849/
:)))

И вообще - смахивает на рекламу шрифта Lucida Console )))

> Омлет © (29.10.09 03:04) [36]

> Я вот только не знаю, как посылать нажатия с русскими буквами.
> Всяко пробовал - не выходит. Гугл тоже молчит.

Надо переключиться в целевом потоке на русскую кодировку.
Тогда, например, вместо H будет Р и т.д.

--
Regards, LVT.

не запускается(, а что там.... ;)

> brother © (29.10.09 08:26) [39]

> не запускается(, а что там.... ;)

http://groups.google.com/group/fido7.ru.congratulation/msg/c1cd82d845329aa8?hl=ru

--
Regards, LVT.

> [39] brother © (29.10.09 08:26)
> не запускается

Убунта?

> [38] Leonid Troyanovsky © (29.10.09 08:08)

Хм, точно. Те, у кого по умолчанию русский, увидят РЩЗУ ))
Тогда другой вопрос - можно ли определить, какая раскладка активна в текущий момент?

> Омлет © (29.10.09 09:44) [41]

> Тогда другой вопрос - можно ли определить, какая раскладка
> активна в текущий момент?

Видимо, через WMI как-ни-ть.
Ну, а если именно в текущем, то WH_SHELL hook.

--
Regards, LVT.

> Омлет (29.10.2009 00:30:22) [22]

Некоторые тестировали, тестировали и теперь не докричаться.

← →
NeKerk (2009-10-29 14:20) [44]

Про терминалы. Зелёные. Других не бывает:)) Кто помнит БЭСМ-6 и фирму "Роботроникс", тот знает правду. А оранжевый цвет(!) придумали сторонники "Сименса", когда они, (сторонники), 45-ю серию запулили... И где теперь эта серия? В отличие от матрицы :)))
Подпись: Не Керк.

> [44] NeKerk (29.10.09 14:20)

Что вспомнил, как чукча покупал телевызор

- У Вас есть цветные телевизоры
- Есть. Вам какой.
- Дайте зелёный.

Занимательное программирование :) Найти похожие ветки