Batch + JScript to .exe

I have a batch-file which includes some `JScript`, but I want to convert it to a `.exe` so the script can't be seen by others (*encrypted*)

**How can I do this?**

I tried with *Bat to Exe*, but doesn't work since I have `JScript`.

The code is basically launching a site and entering key inputs, and the .exe manages to launch the site, but that's it

#Script:

<!-- language: lang-js -->

@if (@CodeSection == @Batch) @then

@echo off

title Top Top
color 0c

if "%inputParty%" == "0" (
set title= %site% - Bean - Partyless
)

set /p site= Site:
set /p Clas= Username or Email:
set /p Party= Party:
set /p Cars= Cars:
set /p capture= Capture:

set inputsite= Site: %site%
set inputClas= Clas: UNKNOWN
set inputParty= Party: %Party%
set inputCars= Cars: %Cars%
set inputcapture= Capture: %capture%
set inputhide=

Hidden Content

You must

[To see links please register here]

or

[To see links please register here]

to view this content.

if "%Clas%" == "Username" (
set inputClas= Clas: Username:Password
)

if "%Clas%" == "Email" (
set inputClas= Clas: Email:Password
)

if "%Clas%" == "username" (
set inputClas= Clas: Username:Password
)

if "%Clas%" == "email" (
set inputClas= Clas: Email:Password
)


set title= %site% - Bean
if "%Party%" == "0" (
set title= %site% - Bean - Partyless
)

set SendKeys=CScript //nologo //E:JScript "%~F0"
START

[To see links please register here]

timeout /t 5

:: ACCESS TITLE INPUT BOX
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"
%SendKeys% "{TAB}"

:: INPUT TITLE
%SendKeys% "%title%"

:: REDIRECT INPUT TO DESCRIPTION
%SendKeys% "{TAB}"

:: INPUT DESCRIPTION
%SendKeys% "%inputsite%"
%SendKeys% "{ENTER}"
%SendKeys% "%inputClas%"
%SendKeys% "{ENTER}"
%SendKeys% "%inputParty%"
%SendKeys% "{ENTER}"
%SendKeys% "%inputCars%"
%SendKeys% "{ENTER}"
%SendKeys% "%inputcapture%"
%SendKeys% "{ENTER}"
%SendKeys% "{ENTER}"
%SendKeys% "%inputhide%"

if "%Party%"=="0" (goto prefix)
ELSE (
goto end
)

:prefix

:: INPUT PREFIX
set x= 20
for /L %%A in (1,1,%x%) do (
%SendKeys% "{TAB}"
)
%SendKeys% "{DOWN}"

:end

goto :EOF


@end
// JScript section

var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.SendKeys(WScript.Arguments(0));


#Output:

[![enter image description here][1]][1]

[1]:

Although converting a .bat to .exe is a bad idea in all cases, this method should solve your problem:

@echo off

title Top Top
color 0c

if "%inputParty%" == "0" (
set title= %site% - Bean - Partyless
)


set /p site= Site:
set /p Clas= Username or Email:
set /p Party= Party:
set /p Cars= Cars:
set /p capture= Capture:

set inputsite= Site: %site%
set inputClas= Clas: UNKNOWN
set inputParty= Party: %Party%
set inputCars= Cars: %Cars%
set inputcapture= Capture: %capture%
set inputhide=

Hidden Content

You must

[To see links please register here]

or

[To see links please register here]

to view this content.

if /I "%Clas%" == "Username" (
set inputClas= Clas: Username:Password
)

if /I "%Clas%" == "Email" (
set inputClas= Clas: Email:Password
)


set title= %site% - Bean
if "%Party%" == "0" (
set title= %site% - Bean - Partyless
)


rem // JScript section

echo var WshShell = WScript.CreateObject("WScript.Shell"); > SendKeys.js
echo WshShell.SendKeys(WScript.Arguments(0)); >> SendKeys.js

set SendKeys=CScript //nologo SendKeys.js
START

[To see links please register here]

timeout /t 5

:: ACCESS TITLE INPUT BOX
for /L %%i in (1,1,14) do %SendKeys% "{TAB}"

:: INPUT TITLE
%SendKeys% "%title%"

:: REDIRECT INPUT TO DESCRIPTION
%SendKeys% "{TAB}"

:: INPUT DESCRIPTION
%SendKeys% "%inputsite%{ENTER}"
%SendKeys% "%inputClas%{ENTER}"
%SendKeys% "%inputParty%{ENTER}"
%SendKeys% "%inputCars%{ENTER}"
%SendKeys% "%inputcapture%{ENTER}{ENTER}"
%SendKeys% "%inputhide%"

if "%Party%" neq "0" goto end

:: INPUT PREFIX
for /L %%A in (1,1,20) do %SendKeys% "{TAB}"
%SendKeys% "{DOWN}"

:end
del SendKeys.js

goto :EOF

`Hybrid JSBatch` files are basically a *'hack'* and the don't work as expected if compiled. <br>Try using '**[Bat to Exe Converter][1]**' from [f2ko.de][1]

Instead of using a hybrid JSBatch, it would be easier if you the programs 'Extended commands' to input keyboard keys.

#Example Script#

@echo off
start notepad.exe
timeout 3 >nul
%extd% /sendkeys "Hello World"


#Your Script (Modified)#
@echo off


title Top Top
color 0c

if "%inputParty%" == "0" (
set title= %site% - Bean - Partyless
)


set /p site= Site:
set /p Clas= Username or Email:
set /p Party= Party:
set /p Cars= Cars:
set /p capture= Capture:

set inputsite= Site: %site%
set inputClas= Clas: UNKNOWN
set inputParty= Party: %Party%
set inputCars= Cars: %Cars%
set inputcapture= Capture: %capture%
set inputhide=

Hidden Content

You must

[To see links please register here]

or

[To see links please register here]

to view this content.

if "%Clas%" == "Username" (
set inputClas= Clas: Username:Password
)

if "%Clas%" == "Email" (
set inputClas= Clas: Email:Password
)

if "%Clas%" == "username" (
set inputClas= Clas: Username:Password
)

if "%Clas%" == "email" (
set inputClas= Clas: Email:Password
)



set title= %site% - Bean
if "%Party%" == "0" (
set title= %site% - Bean - Partyless
)

START

[To see links please register here]

timeout /t 5

:: ACCESS TITLE INPUT BOX
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}
%extd% /sendkey {TAB}

:: INPUT TITLE
%extd% /sendkeys "%title%"

:: REDIRECT INPUT TO DESCRIPTION
%extd% /sendkey {TAB}


:: INPUT DESCRIPTION
%extd% /sendkeys "%inputsite%"
%extd% /sendkey {ENTER}
%extd% /sendkeys "%inputClas%"
%extd% /sendkey {ENTER}
%extd% /sendkeys "%inputParty%"
%extd% /sendkey {ENTER}
%extd% /sendkeys "%inputCars%"
%extd% /sendkey {ENTER}
%extd% /sendkeys "%inputcapture%"
%extd% /sendkey {ENTER}
%extd% /sendkey {ENTER}
%extd% /sendkeys "%inputhide%"

if "%Party%"=="0" (goto prefix)
ELSE (
goto end
)


:prefix
:: INPUT PREFIX
set x= 20
for /L %%A in (1,1,%x%) do (
%extd% /sendkey {TAB}
)
%extd% /sendkey {DOWN}

:end
goto :EOF

[1]:

[To see links please register here]