[Секреты ПК] АвтоТекст и Табло! Скрипты VBS

Опубликовано: 24 Март 2026
на канале: [YT] Programmer

885

АвтоТекст

Text = "Текст для ввода"

With CreateObject("WScript.Shell")
.Run "Notepad"
WScript.Sleep 2000
For i = 1 To Len(Text)
.SendKeys Mid(Text, i, 1)
WScript.Sleep 80
Next
End With

ВИрусы

do
msgbox "Нажми OK"
msgbox "Ладно хватит"
msgbox "Я серьёзно!"
msgbox "Пошутили и хватит"
msgbox "Всё?"
msgbox "Хватит!"
msgbox "Хочешь поиграть?"
msgbox "Ладно жми!"
msgbox "Давай!"
msgbox "Я жду!"
msgbox "Да, да, да!"
msgbox "Жми!"
msgbox "Ладно"
msgbox "Попробуй закрыть!"
msgbox "Никак!"
msgbox "Я вирус!"
msgbox "И меня не остановить!"
msgbox "Жми!"
msgbox "Я убью компьютер быстрее!"
msgbox "Жми!"
msgbox "Тебе не надоело?"
msgbox "Ладно!"
loop

Если наберется, 5-6 лайков выложу следующую серию завтра
JOIN QUIZGROUP PARTNER PROGRAM: http://join.quizgroup.com/?ref=82780