Написание деструктивных кодов и шуток на VB. Глава 3.
Постоянно вылезающая ошибка. Теперь мы поговорим о такой функции как msgbox. Она позволяет вести так называемый диалог с пользователем. Хотите поговорить с юзверем? Нет проблем! Теперь посмотрим, чего деструктивного она может сделать. Думаю, что можно забить экран до отказа этими ошибками, запуском самого себя. Теперь подумаем как нам сделать так, чтобы каждый раз форма была в разном месте. Для этого мы будем использовать функцию Rnd – Randomize для вывода случайных чисел и функцию Fix – Fixed для фиксирования целых чисел. Зачем нам нужна фиксация, а вот зачем, ведь может выпасть дробное значение, а нам с ним не надо парится. Теперь нам нужно написать много ошибок. Ведь если будет выползать только одна – это не будет интересным. Сделаем штук десять. Они тоже будут вылезать у нас randomiz’ом. И так приступим:
Создай процедуру Form_Load. И напиши в ней вот это:
Dim Vtop As Variant, Vleft As Variant ‘объявляем переменные для хранения чисел
Randomize ‘ чтобы при запуске числа были разные
Vtop = Fix(Rnd * 10425) ‘ уравниваем числа переменным
Vleft = Fix(Rnd * 8175)
Form1.top = Vtop ‘ присваиваем свойствам формы значение переменных
Form1.left = VleftDim
Попробуй запустить проект несколько раз, и ты увидишь, что каждый раз форма находится в разном месте. Теперь напишем генератор ошибок. Пишем новую процедуру
Public Sub Generator()
Dim chislo
Randomize
chislo = Fix(Rnd * 3)
If chislo = 1 Then
MsgBox "Ваш процессор достиг максимальной температуры! Немедленно выключите компьютер!", 16, "Ошибка"
End If
If chislo = 2 Then
MsgBox "Ваш компьютер вляпался в компьютерное дерьмо! Быстро отчистите!", 64, "Опять насрали!"
End If
If chislo = 3 Then
MsgBox "Вашу мышку заклинило!", 32, "Пипец!"
End If
End Sub
Теперь еще один важный момент. При запуске ошибки сфоткайте её (Print Screen\ SysRq) и паинте вырежте, а затем поместите ее на форму (Form1.Picture), и свойстве BorderStyle установите 0-ое значение. Подтяните форму под ошибку, и теперь наша форма – это полноценная ошибка (жизни!) Вставьте в проект самозапуск из 1 главы, запись в автозагрузку и все, что захотите! Перед вами простор для соображений. Ждите 4 главу! С уважение Azazel213 – полухакер, полуприколист.
|