Имя пользователя:
Пароль:
 

Название темы: [решено] код vbs в bat
Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Вариант??
Код: Выделить весь код
@Echo Off
chcp 1251 >nul

Set "VBS=%TMP%\%~nx0.vbs"

Call :DoVBS
GoTo :Eof

:DoVBS
Del "%VBS%" 2>nul

>>"%VBS%" Echo Set WshS = CreateObject("WScript.Shell")
>>"%VBS%" Echo Randomize
>>"%VBS%" Echo Answ = ""
>>"%VBS%" Echo Do While 2 ^<^> WshS.Popup("Угадайте сгенерированное число от 1 до 100", 0, "Будем играться?", 33)
>>"%VBS%" Echo     Quest = Int((100 * Rnd) + 1)    ' Generate random value between 1 and 100.
>>"%VBS%" Echo     Do
>>"%VBS%" Echo         Answ = InputBox("Введите число от 1 до 100", "Угадываем задуманное число")
>>"%VBS%" Echo         If Answ = "" Then Exit Do
>>"%VBS%" Echo         Answ = CInt(Answ)
>>"%VBS%" Echo         Diff = Abs(Answ - Quest)
>>"%VBS%" Echo         If Diff = 0 Then
>>"%VBS%" Echo             MsgBox CStr(Answ) + "   Угадали !"
>>"%VBS%" Echo             Exit Do
>>"%VBS%" Echo         End If
>>"%VBS%" Echo         If Diff ^> 30 Then MsgBox CStr(Answ) + "   Хооолодно!!"
>>"%VBS%" Echo         If 20 ^< Diff And Diff ^<= 30 Then MsgBox CStr(Answ) + "   Тепло !"
>>"%VBS%" Echo         If 10 ^< Diff And Diff ^<= 20 Then MsgBox CStr(Answ) + "   Горячо!"
>>"%VBS%" Echo         If 5 ^< Diff And Diff ^<= 10 Then MsgBox CStr(Answ) + "   Почти угадали!"
>>"%VBS%" Echo         If 1 ^<= Diff And Diff ^<= 5 Then MsgBox CStr(Answ) + "   Еще чуть-чуть !!!"
>>"%VBS%" Echo     Loop
>>"%VBS%" Echo     If Answ = "" Then Exit Do
>>"%VBS%" Echo Loop

WScript.exe "%VBS%" 2>nul
Del "%VBS%" 2>nul
GoTo :Eof

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 18:21, 09-04-2017 | #4

Название темы: [решено] код vbs в bat