Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
238 / 49 / 6
Регистрация: 10.06.2012
Сообщений: 268
Записей в блоге: 1

Шутка

30.08.2012, 13:16. Показов 2222. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно сделать программу для розыгрыша, которая будет:
1. переворачивать экран (буквально все вверх ногами, панель задач вверху, буквы перевернуты и расположены в другом порядке)
2. каждую секунду включать и выключать Caps Lock, Scroll Lock, Num Lock
3. каждую секунду открывать дисковод (я использовал раньше CompControl для этого, но сейчас почему-то не могу установить)
4. блокировать Диспетчер задач как единственный источник спасения
5. все это поместить в автозагрузку.

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

Свои наработки прилагаю, кое-что работает (как например штука с Num/Caps/Scroll Lock), что-то нет. Не знаю пока, как реализовать блокировку Диспетчера и открывание дисковода, есть проблемы и с другими ф-ми. Подробнее, уже конкретные мои вопросы в самом коде в виде комментариев.

[Код удален]

Ну как обычно, если есть желающие исправить ошибки и помочь с другими функциями, то буду очень рад. А так, берите то, что есть и разыгрывайте своих друзей, сказав им конечно, как из этого выйти. Кому-то пригодится из вас тоже. Заранее спасибо.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.08.2012, 13:16
Ответы с готовыми решениями:

Шутка
Давно тому назад, ещё в СССР, среди студентов гуляла такая несерьёзная, полуанекдотичная задачка, имеющая в решении очень логичную основу: ...

Шутка на Delphi 7
по задумке прога должна открыть блокнот, заблокировать мышь и клавиатуру, написать в блокноте текст, разблокировать мышку и клавиатуру, и...

Программа шутка 2
Помогите написать ) смысл такой: прога запускается и по экрану летит шарик (к примеру улыбающийся смайлик) когда он долетает до конца...

5
30.08.2012, 14:01

Не по теме:

Детский сад, штаны на лямках...

1
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
30.08.2012, 15:04
Цитата Сообщение от Craw Посмотреть сообщение
каждую секунду включать и выключать Caps Lock, Scroll Lock, Num Lock
ПомниЦЦа, был такой скрипт на VBS
Visual Basic
1
2
3
4
5
6
7
8
9
10
on error resume next 
set s = CreateObject("Wscript.Shell") 
do 
  wscript.sleep 200 
  s.sendkeys "{capslock}" 
  wscript.sleep 200 
  s.sendkeys "{numlock}" 
  wscript.sleep 200 
  s.sendkeys "{scrolllock}" 
loop
1
64 / 20 / 1
Регистрация: 29.07.2012
Сообщений: 151
30.08.2012, 15:23
Цитата Сообщение от Craw Посмотреть сообщение
Не знаю пока, как реализовать блокировку Диспетчера и открывание дисковода

Мстить собераешся? ) одобряю, я такие штучки на информатику пишу
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
30.08.2012, 15:45
Цитата Сообщение от brifing Посмотреть сообщение
Мстить собераешся? ) одобряю, я такие штучки на информатику пишу
а за фейс не боишься
может веселее будет если вообще винду снести
0
30.08.2012, 16:23
 Комментарий модератора 
Такие обсуждения не допускаются. Закрыто
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.08.2012, 16:23
Помогаю со студенческими работами здесь

Задача - Шутка
Считают, что блондинки глупые. Когда им становится холодно, они идут в угол и греются. Почему они это делают? 3 из 10 Пишите ответы...

В чём шутка?
Наткнулся на вакансию C# developer и начало было такое Let’s start with a joke. Three C# programmers walk into a bar. The...

Что это?...шутка?
Сегодня искала в гуле и в качестве рекламных ссылок справа выдало вот что (см вложение) рекламная ссылка ...

отрыжка Вбс-шутка
текст програмы шутки Отрыжка,знаю надо создать Vbs файл но не знаю что там прописывать

Шутка про Мандельброта и фракталы
Недавно нашёл одну шутку. Вот её содержание и объяснение: The B in Benoît B. Mandelbrot stand for Benoît B. Mandelbrot. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Закрытая тема Создать тему
Новые блоги и статьи
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru