Всем привет, с Вами снова Black Cloud https://t.me/DarkCloudUse
Все мы прекрасно помним как раньше разводили людей при помощи "волшебного" архива. То есть в качестве доказательства что продавец знает исход матча, он отправляет покупателю БЕСПЛАТНО архив с текстовым файлом в котором написан правильный исход (архив запаролен), следовательно после окончания матча продавец предоставляет пароль и вуаля, покупатель видит правильный исход. В большинстве случаев человек захочет купить у вас результаты на следующие матчи, а там его уже и кидаем или же можно несколько раз развести.
Так вот, способ который я предоставляю является аналогом этой темы, если люди верят в капперские каналы, то еще огромное количество человек поведется на данный способ.
В общем, план схемы точно такой же как и с архивом, но в нашем случае мы будем использовать Word документ. Так как он поддерживает VBA , то можно сделать оригинальный вордовский файл с паролем и приложить к этому минимум усилий. И так как описывать процесс создания с нуля это займет много времени, то предложу переделать исходный файл под себя.
И так, что же нам нужно:
- Входим в него и вводим любой пароль, не важно какой текст появится, главное отредачить его под себя.
- Нажимаем комбинацию клавиш Alt + F11.
- Перед нами появляется окно с VBA для нашего документа. В Microsoft Word Objects видим файл ThisDocument, открываем его двойным нажатием мышки.
- Открывается новое окно с 2 выпадающими списками и площадью для ввода. В первом списке должно стоять Document, а во втором Open обязательно!
- В поле для ввода вводим следующий код: ( вместо frmPwd должно быть название формы ( создание формы в некст пункте ), код меняйте по своему усмотрению и вставляйте хоть миллион вариантов, можно при неправильном вводе закрыть файл, например)
Private Sub Document_Open()
ThisDocument.Range.Text = ""
Do
frmPwd.Show
If frmPwd.Tag <> "" Then Exit Do
Loop
pwd$ = frmPwd.Tag
Select Case (pwd$)
Case "123"
ThisDocument.Range.Text = "1 wins"
Case "456"
ThisDocument.Range.Text = "2 wins"
Case Else
ThisDocument.Range.Text = "Incorrect password"
End Select
End Sub
7. Чтобы отредактировать саму форму идем Project -> Forms -> наша форма , нажимаем на нее 2 раза и видим визуальный редактор формы, делаем что хотим и как хотим.
8. Ну и в конце просто сохраняем файл, при следующем запуске документа он будет вести себя по той логике, которую вы ему задали.
Прошу прощения если кто-то начнет писать про баяны или что-то подобное, как я уже сказал - не видел этого на форуме.
А тем более шарящие люди всегда найдут этому применение =)
С Вами был BLACK CLOUD
Telegram: @DarkCloudUse https://t.me/DarkCloudUse
