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

АвтоТекст 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