[Iska]

Вместо прямого и незатейливого в лоб «необходимо» озвучьте Вашу задачу, поясните — почему необходимо, и почему необходимо именно так.

[vngreez@vk]

Iska, Пытаюсь конвертировать в exe, но не как не хочет прикреплять скрипт vbs

[megaloman]

Вариант??

Код:

@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

[Iska]

Пытаюсь конвертировать в exe »

Кого, зачем… Я же просил: озвучьте задачу, а не выбранное Вами решение.

[vngreez@vk]

Iska, Совместить скрипты в одном пакетном файле
megaloman, А есть способ без создания файла?

[Iska]

vngreez@vk, есть способ — не использовать вообще пакетный файл.

[Serguei Kouzmine]

[ATTACH]Файл 144880[/ATTACH]
Это можно сделать в jscript - но это "нехороший" стиль "программирования" - так в Microsoft писали 15-20 лет назад (может быть поэтому получилось то что получилось?

@set @_E=1; /*
@set @_E=
@echo OFF
cscript /E:jscript %~dpnx0
goto :EOF
*/
var objShell = new ActiveXObject("WScript.shell");;
objShell.Popup("test");

[alpap]

vngreez@vk,
я так понимаю вас, вероятно, однострочник интересует (на примере копипаста буфера обмена в файл с помощью js):

Код:

@echo off
call :# "file.txt"
exit

:#
 mshta "javascript:var x=clipboardData.getData('text');if(x)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(x);close();">"%~1"
exit /b

[vngreez@vk]

Спасибо всем за помощь! Решил использовать создание временного файла