linewb.ru

linewb.ru - Ответы на вопросы
The FAQ » Развлечения » Как разыграть друга?

Как разыграть друга?

Как разыграть друга? Хотите разыграть друга (подругу)? Тогда мы вам предлагаем хороший способ. Розыгрыш состоит в том, что мы кидаем другу файл, а при открытии этого файла на компьютере, у пользователя начинает сама печатать клавиатура.

Для розыгрыша нам понадобится обыкновенный visual Basic Script файл.
Для этого открываем "блокнот" (Пуск → Стандартные → “Блокнот”)

Затем нам нужно придумать фразу, которую его компьютер будет печатать. Для примера возьмем простую фразу "Ваша клавиатура накрылась медным тазом, выкиньте ее, или отправьте смс на короткий номер ", а если это любимая девушка – можно написать что-нибудь вроде “Я клавиатура и …. тебя очень любит, о чем я тебе пишу”, где …. – ваше имя.

Прописываем в блокноте следующие строки:

Set s = CreateObject("Wscript.Shell")
a="Ваша клавиатура накрылась медным тазом, выкиньте ее, или отправьте смс на короткий номер "
b= len(a)
do while r<50
for i = 1 to b
s.sendkeys mid(a,i,1)
wscript.sleep 80
next
randomize timer()
i=int(RND*100)
r=r+1
loop


Измените фразу "Ваша клавиатура накрылась медным тазом, выкиньте ее, или отправьте смс на короткий номер " на ту, которую вы хотите. И не забудьте в конце, в кавычках поставить пробел, иначе предложения у будут писаться слитно, что будет не очень хорошо.
в строчке do while r<50 сказано, что после запуска программы фраза будет написана 50 раз. Это мы сделали для проверки нашей программы. Если вы хотите довести человека до безумия – можно эту строчку заменить просто на “do”, тогда фраза у нас будет повторяться бесконечное множество раз.

Теперь сохраняем этот файл как VBS скрипт. Нажмите в блокноте Файл→“Сохранить как…”, Тип файла измените на “Все файл (.)” и имя файла введите xxxxxxx.vbs , где xxxxxxx – любое имя файла.
Теперь запускаем и открываем любой документ, или текстовое поле, в котором можно печатать и увидите результат.

P.S. Для того что закончить этот процесс, надо зайти в диспетчер задач и завершить процесс wscript.exe

Присоединяйся к нам

Введите ваш eMail:

Нас уже

Наши друзьяНаши друзья

Случайный ответСлучайный ответ

как приготовить коктейль \"Ирландский кофе\"?
В 1952 году американский журналист Стэн Делаплейн из-за непогоды застрял в ирландском аэропорту Шеннон.В ожидание своего рейса, он......
Читать далее