Пакетный + JScript для.exe
У меня есть пакетный файл, который включает в себя некоторые JScript
, но я хочу преобразовать его в .exe
таким образом, скрипт не может быть виден другим (зашифрован)
Как я могу это сделать?
Я пытался с Bat to Exe, но не работает, так как у меня есть JScript
,
Код в основном запускает сайт и вводит ключевые вводы, а.exe удается запустить сайт, но это все
Автор сценария:
@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= [hide] *Bean* [/hide]
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 https://Cear.io/xxxxx.php?fid=30
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));
Выход:
2 ответа
Хотя преобразование.bat в.exe является плохой идеей во всех случаях, этот метод должен решить вашу проблему:
@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= [hide] *Bean* [/hide]
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 https://Cear.io/xxxxx.php?fid=30
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
файлы в основном являются "взломанными", и они не работают должным образом, если скомпилированы.
Попробуйте использовать ' Bat to Exe Converter' из f2ko.de
Вместо использования гибридного JSBatch было бы проще, если бы вы запрограммировали "Расширенные команды" для ввода клавиш клавиатуры.
Пример скрипта
@echo off
start notepad.exe
timeout 3 >nul
%extd% /sendkeys "Hello World"
Ваш скрипт (модифицированный)
@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= [hide] *Bean* [/hide]
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 https://Cear.io/xxxxx.php?fid=30
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