input.txt
-- empty --
output.txt
-- empty --
trigger.txt
-- empty --
Installer.bat
@echo off
Move /y Eclips-Terminal c:\
Move /y C:\Eclips-Terminal\Eclips-Terminal.vbs %CD%
bsod.hta
<html><head><title>BSOD</title>
<hta:application id="oBVC"
applicationname="BSOD"
version="1.0"
maximizebutton="no"
minimizebutton="no"
sysmenu="no"
Caption="no"
windowstate="maximize"/>
</head><body bgcolor="#000088" scroll="no">
<font face="Lucida Console" size="4" color="#FFFFFF">
<p>A problem has been detected and windows has been shutdown to prevent damage to your computer.</p>
<p>If this is the first time you've seen this stop error screen, restart your computer, If this screen appears again, follow these steps:</p>
<p>Check to make sure any new hardware or software is properly installed. If this is a new installation, ask your hardware or software manufacturer for any windows updates you might need.</p>
<p>If problems continue, disable or remove any newly installed hardware or software. Disable BIOS memory options such as caching or shadowing. If you need to use Safe Mode to remove or disable components, restart your computer, press F8 to select Advanced Startup Options, and then select Safe Mode.</p>
<p>Technical information:</p>
<p>*** gv3.sys - Address F86B5A89 base at F86B5000, DateStamp 3dd9919eb</p>
<p>Beginning dump of physical memory</p>
<p>Physical memory dump complete.</p>
<p>Contact your system administrator or technical support group for further assistance.</p>
</font>
</body></html>
command.bat
@echo off
set /p tool=< C:\Eclips-Terminal\trigger.txt
if %tool%==1 goto mouse_button_swapper
if %tool%==2 goto calculator
if %tool%==3 goto encrypter
if %tool%==4 goto decrypter
if %tool%==5 goto matrix
if %tool%==6 goto folder_spammer
if %tool%==7 goto forced_cmd
if %tool%==8 goto ip_data
if %tool%==9 goto seizure
:mouse_button_swapper
Rundll32 User32,SwapMouseButton
goto exit
:calculator
set /p math=<C:\Eclips-Terminal\input.txt
set /a calculation=%math%
echo. >> C:\Eclips-Terminal\output.txt
echo %calculation% >> C:\Eclips-Terminal\output.txt
goto exit
:matrix
@echo off
title The Matrix
color 0A
atrix has
ping localhost -n .15 >nul
cls
echo The Matrix has y
ping localhost -n .15 >nul
cls
echo The Matrix has yo
ping localhost -n .15 >nul
cls
echo The Matrix has you
ping localhost -n .15 >nul
cls
echo The Matrix has you.
ping localhost -n .15 >nul
cls
echo The Matrix has you..
ping localhost -n .15 >nul
cls
echo The Matrix has you...
ping localhost -n 5 >nul
cls
echo F
ping localhost -n .15 >nul
cls
echo Fo
ping localhost -n .15 >nul
cls
echo Fol
ping localhost -n .15 >nul
cls
echo Foll
ping localhost -n .15 >nul
cls
echo Follo
ping localhost -n .15 >nul
cls
echo Follow
ping localhost -n .15 >nul
cls
echo Follow
ping localhost -n .15 >nul
cls
echo Follow t
ping localhost -n .15 >nul
cls
echo Follow th
ping localhost -n .15 >nul
cls
echo Follow the
ping localhost -n .15 >nul
cls
echo Follow the
ping localhost -n .15 >nul
cls
echo Follow the w
ping localhost -n .15 >nul
cls
echo Follow the wh
ping localhost -n .15 >nul
cls
echo Follow the whi
ping localhost -n .15 >nul
cls
echo Follow the whit
ping localhost -n .15 >nul
cls
echo Follow the white
ping localhost -n .15 >nul
cls
echo Follow the white
ping localhost -n .15 >nul
cls
echo Follow the white r
ping localhost -n .15 >nul
cls
echo Follow the white ra
ping localhost -n .15 >nul
cls
echo Follow the white rab
ping localhost -n .15 >nul
cls
echo Follow the white rabb
ping localhost -n .15 >nul
cls
echo Follow the white rabbi
ping localhost -n .15 >nul
cls
echo Follow the white rabbit
ping localhost -n .15 >nul
cls
echo Follow the white rabbit.
ping localhost -n 5 >nul
cls
echo K
ping localhost -n .15 >nul
cls
echo Kn
ping localhost -n .15 >nul
cls
echo Kno
ping localhost -n .15 >nul
cls
echo Knoc
ping localhost -n .15 >nul
cls
echo Knock
ping localhost -n .15 >nul
cls
echo Knock,
ping localhost -n .15 >nul
cls
echo Knock,
ping localhost -n .15 >nul
cls
echo Knock, k
ping localhost -n .15 >nul
cls
echo Knock, kn
ping localhost -n .15 >nul
cls
echo Knock, kno
ping localhost -n .15 >nul
cls
echo Knock, knoc
ping localhost -n .15 >nul
cls
echo Knock, knock
ping localhost -n .15 >nul
cls
echo Knock, knock,
ping localhost -n .15 >nul
cls
echo Knock, knock,
ping localhost -n .15 >nul
cls
echo Knock, knock, N
ping localhost -n .15 >nul
cls
echo Knock, knock, Ne
ping localhost -n .15 >nul
cls
echo Knock, knock, Neo
ping localhost -n .15 >nul
cls
echo Knock, knock, Neo.
ping localhost -n .15 >nul
cls
echo Knock, knock, Neo. .
ping localhost -n .15 >nul
cls
echo Knock, knock, Neo. . .
ping localhost -n 5 >nul
cls
:matrix_loop
echo 010 010 10 01 0100 10 010 10 010 1001 10 010 10 10 010 101110 10 100 100 1011
echo 101010100 100 00100 010 0010 01000010 010 01000100010 01000 0100100 100 01000
echo 101 0100010 1000001 01010 10 0100010 10 0010 010010 0 010 010 0000111001011011
echo 000 010 01010010 010001001 00100100 1010 01001001 0010010 01001000100 00100111
echo 001 0010 10 010010010 010 100 10 01 010 010 010 010 10 010 10 010 10 01010 0
echo 000 010 00 001 0010 00 1000100 10
echo 1111 10 010 01 0010100 10 01001010 1 11 0001 00 001 1 1 01 0100000 1 1 11 1
echo 000 1000 10 010 100 0010 10 01 010 010 10000 010 010 01 10010010010 1001 100
echo 1010010 010 100 010 10 010 10 010 1010 010 01 01 00001 010 01 010 010 10 001
echo 111 11111 11111 11111 11111 11111 1111111 111111111
echo 101010100 100 00100 010 0010 01000010 010 01000100010 01000 0100100 100 011
echo 1111 10 010 01 0010100 10 01001010 1 11 0001 00 001 1 1 01 0100000 1 1 11 1
echo 000 1000 10 010 100 0010 10 01 010 010 10000 010 010 01 10010010010 1001 10011
echo 1010010 010 100 010 10 010 10 010 1010 010 01 01 00001 010 01 010 010 10 0011111
echo 101 0100010 1000001 01010 10 0100010 10 0010 010010 0 010 010 00001110010110111
echo 000 010 01010010 010001001 00100100 1010 01001001 0010010 01001000100 001001111
echo 0000 00 000000000000 000000000000000000 00000000000001111 10 0100000 1000000111
echo 111111111111111111111111111111111111111111111111111111111111111111111111111110
goto matrix_loop
:folder_spammer
cd C:\
:loop
Md %random%
goto loop
:forced_cmd
cls
title Batchcc Prompt %cd%
color 0c
cls
:cmd
set /p "cmd=%CD%>"
%cmd%
echo.
goto cmd
Add TipAsk QuestionCommentDownload
Step 6: 3D Spinning Circle
Quite unfortunately did not make this one but it’s still cool.
@echo off & setlocal & title Sphere 3D & set /a cols=62, lines=62 & goto :Init_system
:: By einstein1969. Dedicated to jeb, dbenham, penpen, carlos, aGerman, Aacini, EdDyreen,
:: npocmaka_, Liviu, Sponge Belly, Magialisk, the users and the staff of Dostips forum.
:: Use raster font 8x8.
:Main
set /a ar=100, rt=0, ds=0, cx=cols/2, cz=4000, cY=lines/2
(
set SIN=
set _PLOT$_=
set _$PLOT_=
set _empty=
set lines=
set cols=
for /L %%\ in (1000,-1,0) do (
set /a "rt+=31416/60"
if !ds! lss 1000 set /a ds+=10
setlocal
set /a "a=(15708-rt) %% 62832, c=(a>>31|1)*a"
if !c! gtr 47124 (set /a "a=a-(a>>31|1)*62832, b=%SIN%, a=rt %% 62832, c=(a>>31|1)*a") else (if !c! gtr 15708 (set /a "a=(a>>31|1)*31416-a, b=%SIN%, a=rt %% 62832, c=(a>>31|1)*a") else set /a "b=%SIN%, a=rt %% 62832, c=(a>>31|1)*a")
if !c! gtr 47124 (set /a "a=a-(a>>31|1)*62832, a=%SIN%") else (if !c! gtr 15708 (set /a "a=(a>>31|1)*31416-a, a=%SIN%") else set /a "a=%SIN%")
for %%f in ("0 9999" "-5000 8661" "-8661 5000" "-9999 0" "-8661 -5000" "-5000 -8661" "0 -9999" "5000 -8661" "8661 -5000" "9999 0" "8661 5000" "5000 8661") do for /f "tokens=1,2" %%g in (%%f) do (
for %%t in ("3827 9239" "7071 7071" "9239 3827" "9999 0" "9239 -3827" "7071 -7071" "3827 -9239") do for /f "tokens=1,2" %%u in (%%t) do (
set /a "ax=ar*%%h/10000*%%u/10000, az=ar*%%g/10000*%%u/10000, ay=ar*%%v/10000, aax=(ax*b/10000-(ay*a/10000+az*b/10000)*a/10000)*b/10000-(ay*b/10000-az*a/10000)*a/10000, aay=(ax*b/10000-(ay*a/10000+az*b/10000)*a/10000)*a/10000+(ay*b/10000-az*a/10000)*b/10000, e=ax*a/10000+(ay*a/10000+az*b/10000)*b/10000, c=ds*aax/(e-cz)+cx, d=ds*aay/(e-cz)+cy"
if not defined L!d! set L!d!=%_empty%
if !e! lss 0 (%_$PLOT_% !c! !d! 1 %_PLOT$_%) else %_$PLOT_% !c! !d! 4 %_PLOT$_%
)
)
if not "!OT!"=="!time:~-1!" (
cls & (For /L %%l in (1,1,%lines%) do if not defined L%%l (echo() else echo( !L%%l!)>CON
if "!OT!"=="0" title Sphere 3D [%%\]
endlocal
set OT=!time:~-1!
) else endlocal
)
)
goto :eof
:Init_system
setlocal DisableDelayedExpansion
set /a cc=cols+2, ll=lines+2
(
mode %cc%,%ll% & cls
for /F "Tokens=1 delims==" %%v in ('set') do set "%%v="
set /a cols=%cols%, lines=%lines%
)
set "_$PLOT_=For /F usebackq^ tokens^=1-3 %%x in ('"
set "_PLOT$_=') do set /a f=%%x+1 & For %%w in (!f!) do set L%%y=!L%%y:~0,%%x!!g:~%%z,1!!L%%y:~%%w!"
set "SIN=(a-a*a/1920*a/312500+a*a/1920*a/15625*a/15625*a/2560000-a*a/1875*a/15360*a/15625*a/15625*a/16000*a/44800000)"
setlocal EnableDelayedExpansion
For /L %%l in (1,1,%cols%) do set "_empty=!_empty! "
set g= .±²@"
Goto :Main
:ip_data
ipconfig > C:\Eclips-Terminal\output.txt
goto exit
:seizure
color cb
echo (%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)
color 01
echo (%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)
color f2
echo (%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)
color 58
echo (%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)
color 4f
echo (%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)(%random%) (%random%) (%random%) (%random%)
goto seizure
:exit
One_Liner.bat
@echo off
::::::::::::::::::::::::::::::::::::::::::::
:: Automatically check & get admin rights V2
::::::::::::::::::::::::::::::::::::::::::::
@echo off
CLS
ECHO.
ECHO =============================
ECHO Running Admin shell
ECHO =============================
:init
setlocal DisableDelayedExpansion
set "batchPath=%~0"
for %%k in (%0) do set batchName=%%~nk
set "vbsGetPrivileges=%temp%\OEgetPriv_%batchName%.vbs"
setlocal EnableDelayedExpansion
:checkPrivileges
NET FILE 1>NUL 2>NUL
if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges )
:getPrivileges
if '%1'=='ELEV' (echo ELEV & shift /1 & goto gotPrivileges)
ECHO.
ECHO **************************************
ECHO Invoking UAC for Privilege Escalation
ECHO **************************************
ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
ECHO args = "ELEV " >> "%vbsGetPrivileges%"
ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
ECHO Next >> "%vbsGetPrivileges%"
ECHO UAC.ShellExecute "!batchPath!", args, "", "runas", 1 >> "%vbsGetPrivileges%"
"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
exit /B
:gotPrivileges
setlocal & pushd .
if '%1'=='ELEV' (del "%vbsGetPrivileges%" 1>nul 2>nul & shift /1)
set /p code=< C:\Eclips-Terminal\One_liner_RAM.txt
if %code%==1 bcdedit > C:\Eclips-Terminal\Boot_RAM.txt
if %code%==2 sysdm.cpl
if %code%==3 msinfo32
if %code%==4 osk
if %code%==5 perfmon.msc
if %code%==6 inetcpl.cpl
if %code%==7 control keyboard
if %code%==8 mrt
if %code%==9 telephon.cpl
if %code%==10 dialer
if %code%==11 regedit
if %code%==12 mstsc
if %code%==13 control schedtasks
if %code%==14 compmgmt.msc
if %code%==15 assoc >> C:\Eclips-Terminal\running_RAM.txt
Eclips-Terminal.vbs
option explicit
dim tfile, ec_hold, count_dc, dc_txt, ec_txt, rfile_command, rfile_running, rfile_boot, ofile_admin, admin, confirm_stealth, strCommand, rFile_ip, ip_confirm, corn_confirm, confirm_caps_pain, BSOD_confirm, tts_place_holder, confirm_tts_loop, ammount_tts_loop, msg_tts_loop, d, sapi, confirm_tts, tts, confirm_holes, rick_confirm, stick_confirm, hider_confirm, confirm_decrypt, confirm_encrypt, calculation, rFile, fso, oFile, confir_folder, confirm_forced_cmd, count_wait1, count_wait, confirm_counter, count_number ,j, scrip, Text_Type, text_delay, text_delay1, pick_text, confirm_Text_Typer, objFileToRead, custom_text_typer_corr, custom_typer_wait, custom_typer_wait1, Confirm_Custom_Typer, strFileText, RR_wait, RR_wait1, RR_Confirm, time, time_changer_confirm, confirm_close_all, l, confirm_dos, ammount_ping, target_ip, PINGFlag1, PINGFlag, WshShell, temp, server_stat_check_confirm, server_stat, i, spam_wait1, spam_wait, spam_msg, speed_spam, ammount_spam, confirm_spam_bot, pick_script, wsh, swap_ammount, confirm_seizure_script, confirm_passcode_generator, confirm_internet_disabler, swap, confirm_swap, f_repeat, confirm_f, confirm_forced_shutdown, confirm_matrix, confirm_host_craher, crash_host_ammount, num1, num2, equ, calculator_confirm, website_unblocker_confirm, website_unblock_choise, crash_host_program
Set wsh=WScript.CreateObject("WScript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
set oFile = fso.OpenTextFile("C:\Eclips-Terminal\input.txt", 2)
set rFile = fso.OpenTextFile("C:\Eclips-Terminal\output.txt", 1)
set tFile = fso.OpenTextFile("C:\Eclips-Terminal\trigger.txt", 2)
Set sapi=CreateObject("sapi.spvoice")
msgbox "Welcome to the Eclips-Terminal." &vbLf&vbLf& "Coded by: smvd#4197 on discord" &vbLf& "Website: https://eclips-terminal.jouwweb.nl/" &vblf& "Version: 3.0" ,0 , "Eclips-Terminal"
call home
sub home
pick_script =inputbox("What tool do you want to use?" &vblf&vblf&vbtab& "1. Calculator" &vblf&vbTab& "2. Website Unblocker" &vblf&vbTab& "3.Time Changer(possible permission error)" &vblf&vbTab& "4. Forced CMD" &vblf&vbTab& "5. Passcode Generator" &vblf&vbTab& "6. Enter the Matrix" &vblf&vbTab& "7. Host Crasher" &vblf&vbTab& "8. Close All Programs" &vblf&vbTab& "9. Seizure Script" &vblf&vbTab& "10. Forced Shutdown" &vblf&vbTab& "11. Mouse Button Swapper" &vblf&vbTab& "12. Rick Rolled" &vblf&vbTab& "13. Stick Rolled" &vblf&vbTab& "14. spam bot" &vblf&vbTab& "15. Internet Disabler" &vblf&vbTab& "16. F In The Chat" &vblf&vbtab& "17. Encrypt" &vblf&vbtab& "18. Decrypt" &vbLf&vbtab& "19. Server Status Checker" &vbLf&vbtab& "20. Text Rick Rolled" &vbLf&vbtab& "21. Counter" &vbLf&vbtab& "22. Holes?" &vbLf&vbtab& "23. Folder Bomb" &vbLf&vbtab& "24. Hide Programs" &vbLf&vbtab& "25. Text-To-Speach" &vbLf&vbtab& "26. TTS Loop" &vbLf&vbtab& "27. Fake BSOD" &vbLf&vbtab& "28. Capslock Torture" &vbLf&vbtab& "29. Corn HUB" &vbLf&vbtab& "30. IP Data" &vbLf&vbtab& "31. Stealth Crasher" &vbLf&vbtab& "32. Admin Menu" &vbLf&vbtab& "33. Quit" &vbLf&vblf& "Enter the number of the one you would like to use.","Eclips-Terminal")
select case pick_script
case "1"
call Calculator
case "2"
call Website_Unblocker
case "3"
call Time_Changer
case "4"
call forced_CMD
case "5"
call passcode_generator
case "6"
call enter_the_matrix
case "7"
call host_crasher
case "8"
call close_all
case "9"
call seizure_script
case "10"
call forced_shutdown
case "11"
call mouse_button_swapper
case "12"
call rick_rolled
case "13"
call stick_rolled
case "14"
call spam_bot
case "15"
call internet_disabler
case "16"
call f_in_the_chat
case "17"
call Encrypt
case "18"
call Decrypt
case "19"
call Server_Stat_Check
case "20"
call Type_RR
case "21"
call counter
case "22"
call Holes
case "23"
call folder_bomb
case "24"
call explorer_off
case "25"
call talk
case "26"
call tts_loop_confirmed
case "27"
call BSOD
case "28"
call Caps_pain
case "29"
call corn
case "30"
call IP_logger
case "31"
call stealth
case "32"
call admin_menu
case "33"
call quit
case "666"
call testing
case ""
call quit
case else
msgbox "The number " & pick_script & " is not a option, please select a valid one."
call home
end select
end sub
sub Calculator
calculator_confirm= msgbox("Are you shure you want to use the calculator?", vbOKCancel+vbQuestion, "Eclips-Terminal Calculator")
if calculator_confirm=1 then call calculator_start
if calculator_confirm=2 then call home
end sub
sub calculator_start
calculation = inputbox("What do you want to calculate?(include =)", "Eclips-Terminal Calculator")
oFile.write "" & calculation & ""
oFile.close
tfile.write 2
tfile.close
wsh.run "C:\Eclips-Terminal\command.bat",0
wscript.sleep 3000
msgbox rfile.readall
rFile.close
call quit
end sub
sub Website_Unblocker
website_unblocker_confirm = msgbox("Are you shure you want to unblock a website?", vbOKCancel+vbQuestion, "Eclips-Terminal Website Unblocker")
if website_unblocker_confirm=1 then call unblock_website
if website_unblocker_confirm=2 then call home
end sub
sub unblock_website
website_unblock_choise =inputbox("What website do you want to unblock?", "Eclips-Terminal Website Unblocker")
wsh.run (website_unblock_choise)
end sub
sub Time_Changer
time_changer_confirm =msgbox("Are you shure you want to change the system time?", vbOKCancel+vbQuestion, "Eclips-Terminal Time Changer")
time= inputbox("What do you want to change the time to?", "Eclips-Terminal Time Changer")
if time_changer_confirm=1 then call Time_Changer_start
if time_changer_confirm=2 then call home
end sub
sub Time_Changer_start
wsh.run "cmd.exe"
wscript.sleep 1000
wsh.sendkeys ("time ")
wsh.sendkeys (time)
wsh.sendkeys "{enter}"
call home
end sub
sub forced_CMD
confirm_forced_cmd = msgbox("Are you shure you want to force run cmd?", vbOKCancel+vbQuestion, "Eclips-Terminal CMD Forcer")
if confirm_forced_cmd=1 then call forced_CMD_confirm
if confirm_forced_cmd=2 then call home
end sub
sub forced_CMD_confirm
tfile.write 7
tfile.close
wsh.run "C:\Eclips-Terminal\command.bat"
call home
end sub
sub close_all
confirm_close_all = msgbox("Are you shure you want to close all programs?", vbOKCancel+vbQuestion, "Eclips-Terminal All Program Closer")
if confirm_close_all=1 then call close_all_confirm
if confirm_close_all=2 then call home
end sub
sub close_all_confirm
For l = 1 To 10000
wsh.SendKeys "%{F4}"
next
call home
end sub
sub passcode_generator
confirm_passcode_generator = msgbox("Are you shure you want to generate a pass code between 1000/9999?", vbOKCancel+vbQuestion, "Eclips-Terminal passcode Generator")
if confirm_passcode_generator=1 then call generate_passcode
if confirm_passcode_generator=2 then call home
end sub
sub generate_passcode
Wscript.Echo Int( ( 9999 - 1000 + 1 ) * Rnd + 1000 )
call home
end sub
sub enter_the_matrix
confirm_matrix =msgbox("Are you shure you want to enter the matrix?", vbOKCancel+vbQuestion, "Eclips-Terminal Matrix Simulator")
if confirm_matrix=1 then call enter_matrix
if confirm_matrix=2 then call home
end sub
sub enter_matrix
tfile.write 5
tfile.close
wsh.run "C:\Eclips-Terminal\command.bat"
call home
end sub
sub host_crasher
confirm_host_craher =msgbox("Are you shure you want to use this?" &vbLf& "Unless you have a custom kill switch the only way to stop it is to restart your pc.",vbOKCancel+vbQuestion, "Eclips-Terminal Host Crasher")
if confirm_host_craher=1 then call crash_host_choise
if confirm_host_craher=2 then call home
end sub
sub crash_host_choise
crash_host_program = inputbox("What program(with .exe) do you want to spam open? (default is notepad.exe)", "Eclips-Terminal Host Crasher")
crash_host_ammount = inputbox("How many times do you want to open the program?(enter 0 to loop forever)", "Eclips-Terminal Host Crasher")
if crash_host_ammount=0 then call crash_host_inf
call crash_host_loop
end sub
sub crash_host_loop
set crash_host_ammount=crash_host_ammount - 1
wsh.run crash_host_program
if crash_host_ammount=0 then call home
call crash_host_loop
end sub
sub crash_host_inf
wsh.run crash_host_program
call crash_host_inf
end sub
sub seizure_script
confirm_seizure_script = msgbox("This program has a seizure warning, are you shure you want to run this?", vbOKCancel+vbQuestion, "Eclips-Terminal Seizure Script")
if confirm_seizure_script=1 then call run_seizure
if confirm_seizure_script=2 then call home
end sub
sub run_seizure
tfile.write 9
wsh.run "C:\Eclips-Terminal\command.bat"
end sub
sub forced_shutdown
confirm_forced_shutdown=msgbox("Are you shure you want to shut-down?", vbOKCancel+vbQuestion, "Eclips-Terminal Forced Shutdown")
if confirm_forced_shutdown=1 then call shutdown
if confirm_forced_shutdown=2 then call home
end sub
sub shutdown
wsh.run "shutdown /p /f"
end sub
sub mouse_button_swapper
confirm_swap =msgbox("Are you shure you want to swap your mouse buttons?", vbOKCancel+vbQuestion, "Eclips-Terminal Mouse Button Swapper")
if confirm_swap=1 then call confirm_mouse_button_swapper
if confirm_swap=2 then call home
end sub
sub confirm_mouse_button_swapper
tfile.write 1
tfile.close
wsh.run "C:\Eclips-Terminal\command.bat"
call home
end sub
sub rick_rolled
rick_confirm = msgbox ("Are you shure you want to run this script?", vbOKCancel+vbQuestion, "Eclips-Terminal Rick Rolled")
if rick_confirm=1 then call rick_confirmd
if rick_confirm=2 then call home
end sub
sub rick_confirmd
wsh.Run "https://www.youtube.com/watch?v=xvFZjo5PgG0"
end sub
sub stick_rolled
stick_confirm = msgbox ("Are you shure you want to run this script?", vbOKCancel+vbQuestion, "Eclips-Terminal Rick Rolled")
if stick_confirm=1 then call stick_confirmd
if stick_confirm=2 then call home
end sub
sub stick_confirmd
wsh.run "https://www.youtube.com/watch?v=xuCO7-DLCaA"
end sub
sub spam_bot
confirm_spam_bot = msgbox("Are you shure you want to use the spam bot?" , vbOKCancel+vbQuestion, "Eclips-Terminal Spam Bot")
if confirm_spam_bot=1then call spam_bot_setup
if confirm_spam_bot=2 then call home
end sub
sub spam_bot_setup
spam_msg = inputbox("What message do you want to spam?", "Eclips-Terminal Spam Bot")
ammount_spam = inputbox("How many messages do you want to spam?", "Eclips-Terminal Spam Bot")
speed_spam= inputbox("How many milliseconds do you want to wait between messages?(100 is suggested)", "Eclips-Terminal Spam Bot")
spam_wait1= inputbox("How long do you need to get to the inputbox?" , "Eclips-Terminal Spam Bot")
spam_wait= spam_wait1 * 1000
msgbox "You have " & spam_wait & " milliseconds to get to your input area where you are going to spam."
wscript.sleep spam_wait
wsh.sendkeys ("Spambot activated" & "{enter}")
for i=0 to ammount_spam
wsh.sendkeys (spam_msg & "{enter}")
wscript.sleep speed_spam
Next
wscript.sleep 1000
wsh.sendkeys ("Eclips-Terminal Spambot. If you want to get this usefull tool go to https://eclips-terminal.jouwweb.nl/" & "{enter}")
wscript.sleep 1000
msgbox"Done spamming."
call home
end sub
sub internet_disabler
confirm_internet_disabler = msgbox("After running this script there are only 2 ways to revert it either:" &vbLf&vbtab& "-restart" &vbLf&vbTab& "-use ipconfig /renew" &vbLf& "Are you shure you want to use this program?", vbOKCancel+vbQuestion, "Eclips-Terminal Internet Disabler")
if confirm_internet_disabler=1 then call disable_internet
if confirm_internet_disabler=2 then call home
end sub
sub disable_internet
wsh.run "ipconfig /release"
end sub
sub f_in_the_chat
confirm_f = msgbox("The only way to stop this program is to restart are you shure you want to run it?", vbOKCancel+vbQuestion, "Eclips-Terminal F In The Chat")
if confirm_f=1 then call f
if confirm_f=2 then call home
end sub
sub f
f_repeat = msgbox("F in the chat",vbOKOnly, "F")
if f_repeat=1 then call f
call f
end sub
sub Encrypt
confirm_encrypt =msgbox("Are you shure you want to run this tool?", vbOKCancel+vbQuestion ,"Eclips-Terminal Encrypter")
if confirm_encrypt=1 then call encrypt_set
if confirm_encrypt=2 then call home
end sub
sub encrypt_set
ec_txt = inputbox ("What text do you want to encrypt?", "Eclips-Terminal Encrypter")
ec_txt=Replace(ec_txt,".","00101.")
ec_txt=Replace(ec_txt,"0","0.")
ec_txt=Replace(ec_txt,"1","1.")
ec_txt=Replace(ec_txt,"2","01.")
ec_txt=Replace(ec_txt,"3","10.")
ec_txt=Replace(ec_txt,"4","11.")
ec_txt=Replace(ec_txt,"5","001.")
ec_txt=Replace(ec_txt,"6","011.")
ec_txt=Replace(ec_txt,"7","111.")
ec_txt=Replace(ec_txt,"8","100.")
ec_txt=Replace(ec_txt,"9","110.")
ec_txt=Replace(ec_txt,"a","010.")
ec_txt=Replace(ec_txt,"b","101.")
ec_txt=Replace(ec_txt,"c","0001.")
ec_txt=Replace(ec_txt,"d","0010.")
ec_txt=Replace(ec_txt,"e","0100.")
ec_txt=Replace(ec_txt,"f","1000.")
ec_txt=Replace(ec_txt,"g","0011.")
ec_txt=Replace(ec_txt,"h","0110.")
ec_txt=Replace(ec_txt,"i","1100.")
ec_txt=Replace(ec_txt,"j","0101.")
ec_txt=Replace(ec_txt,"k","1010.")
ec_txt=Replace(ec_txt,"l","1110.")
ec_txt=Replace(ec_txt,"m","0111.")
ec_txt=Replace(ec_txt,"n","00001.")
ec_txt=Replace(ec_txt,"o","00010.")
ec_txt=Replace(ec_txt,"p","00100.")
ec_txt=Replace(ec_txt,"q","01000.")
ec_txt=Replace(ec_txt,"r","10000.")
ec_txt=Replace(ec_txt,"s","00011.")
ec_txt=Replace(ec_txt,"t","00110.")
ec_txt=Replace(ec_txt,"u","01100.")
ec_txt=Replace(ec_txt,"v","11000.")
ec_txt=Replace(ec_txt,"w","11100.")
ec_txt=Replace(ec_txt,"x","01110.")
ec_txt=Replace(ec_txt,"y","00111.")
ec_txt=Replace(ec_txt,"z","01010.")
ec_txt=Replace(ec_txt," ","10101.")
ec_txt=Replace(ec_txt,",","10100.")
ec_txt=Replace(ec_txt,":","1111.")
ec_txt=Replace(ec_txt,")","11111.")
ec_txt=Replace(ec_txt,"(","11110.")
ec_txt=Replace(ec_txt,"?","01111.")
ec_txt=Replace(ec_txt,"-","00101.")
ec_txt=Replace(ec_txt,"_","00.")
ec_txt=Replace(ec_txt,"/","000.")
ec_txt=Replace(ec_txt,"!","0000.")
ec_txt=Replace(ec_txt,"@","00000.")
ec_txt=Replace(ec_txt,"#","000001.")
ec_txt=Replace(ec_txt,"$","000010.")
ec_txt=Replace(ec_txt,"%","000100.")
ec_txt=Replace(ec_txt,"^","001000.")
ec_txt=Replace(ec_txt,"&","010000.")
ec_txt=Replace(ec_txt,"*","100000.")
ec_txt=Replace(ec_txt,";","110000.")
ec_txt=Replace(ec_txt,"{","011000.")
ec_txt=Replace(ec_txt,"}","001100.")
ec_txt=Replace(ec_txt,"[","000110.")
ec_txt=Replace(ec_txt,"]","000011.")
ec_txt=Replace(ec_txt,"+","111000.")
ec_txt=Replace(ec_txt,"=","011100.")
ec_txt=Replace(ec_txt,"\","001110.")
ec_txt=Replace(ec_txt,"|","000111.")
ec_txt=Replace(ec_txt,"~","111100.")
ec_txt=Replace(ec_txt,"`","011110.")
ec_txt=Replace(ec_txt,"<","001111.")
ec_txt=Replace(ec_txt,">","111110.")
ec_txt=Replace(ec_txt,"€","011111.")
ec_hold = inputbox("Your message is:", "Eclips-Terminal Encrypter", ec_txt)
call home
end sub
sub Decrypt
confirm_decrypt =msgbox("Are you shure you want to run this tool?", vbOKCancel+vbQuestion ,"Eclips-Terminal Decrypter")
if confirm_decrypt=1 then call decrypt_confirm
if confirm_decrypt=2 then call home
end sub
sub decrypt_confirm
dc_txt = inputbox ("What text do you want to decrypt?", "Eclips-Terminal Decrypter")
dc_txt=Replace(dc_txt,"000001.","#")
dc_txt=Replace(dc_txt,"000010.","$")
dc_txt=Replace(dc_txt,"000100.","%")
dc_txt=Replace(dc_txt,"001000.","^")
dc_txt=Replace(dc_txt,"010000.","&")
dc_txt=Replace(dc_txt,"100000.","*")
dc_txt=Replace(dc_txt,"110000.",";")
dc_txt=Replace(dc_txt,"011000.","{")
dc_txt=Replace(dc_txt,"001100.","}")
dc_txt=Replace(dc_txt,"000110.","[")
dc_txt=Replace(dc_txt,"000011.","]")
dc_txt=Replace(dc_txt,"111000.","+")
dc_txt=Replace(dc_txt,"011100.","=")
dc_txt=Replace(dc_txt,"001110.","\")
dc_txt=Replace(dc_txt,"000111.","|")
dc_txt=Replace(dc_txt,"111100.","~")
dc_txt=Replace(dc_txt,"011110.","`")
dc_txt=Replace(dc_txt,"001111.","<")
dc_txt=Replace(dc_txt,"111110.",">")
dc_txt=Replace(dc_txt,"011111.","€")
dc_txt=Replace(dc_txt,"00000.","@")
dc_txt=Replace(dc_txt,"11111.",")")
dc_txt=Replace(dc_txt,"11110.","(")
dc_txt=Replace(dc_txt,"01111.","?")
dc_txt=Replace(dc_txt,"00101.","-")
dc_txt=Replace(dc_txt,"00001.","n")
dc_txt=Replace(dc_txt,"00010.","o")
dc_txt=Replace(dc_txt,"00100.","p")
dc_txt=Replace(dc_txt,"01000.","q")
dc_txt=Replace(dc_txt,"10000.","r")
dc_txt=Replace(dc_txt,"00011.","s")
dc_txt=Replace(dc_txt,"00110.","t")
dc_txt=Replace(dc_txt,"01100.","u")
dc_txt=Replace(dc_txt,"11000.","v")
dc_txt=Replace(dc_txt,"11100.","w")
dc_txt=Replace(dc_txt,"01110.","x")
dc_txt=Replace(dc_txt,"00111.","y")
dc_txt=Replace(dc_txt,"01010.","z")
dc_txt=Replace(dc_txt,"10101."," ")
dc_txt=Replace(dc_txt,"00101.",".")
dc_txt=Replace(dc_txt,"10100.",",")
dc_txt=Replace(dc_txt,"0000.","!")
dc_txt=Replace(dc_txt,"0001.","c")
dc_txt=Replace(dc_txt,"0010.","d")
dc_txt=Replace(dc_txt,"0100.","e")
dc_txt=Replace(dc_txt,"1000.","f")
dc_txt=Replace(dc_txt,"0011.","g")
dc_txt=Replace(dc_txt,"0110.","h")
dc_txt=Replace(dc_txt,"1100.","i")
dc_txt=Replace(dc_txt,"0101.","j")
dc_txt=Replace(dc_txt,"1010.","k")
dc_txt=Replace(dc_txt,"l110.","l")
dc_txt=Replace(dc_txt,"0111.","m")
dc_txt=Replace(dc_txt,"000.","/")
dc_txt=Replace(dc_txt,"001.","5")
dc_txt=Replace(dc_txt,"011.","6")
dc_txt=Replace(dc_txt,"111.","7")
dc_txt=Replace(dc_txt,"100.","8")
dc_txt=Replace(dc_txt,"110.","9")
dc_txt=Replace(dc_txt,"010.","a")
dc_txt=Replace(dc_txt,"01.","2")
dc_txt=Replace(dc_txt,"10.","3")
dc_txt=Replace(dc_txt,"11.","4")
dc_txt=Replace(dc_txt,"00.","_")
dc_txt=Replace(dc_txt,"1.","1")
dc_txt=Replace(dc_txt,"0.","0")
wscript.echo dc_txt
call home
end sub
sub Server_Stat_Check
server_stat_check_confirm = msgbox("Are you shure you want to test the server status?", vbOKCancel+vbQuestion, "Eclips-Terminal Server Status Checker")
if server_stat_check_confirm=1 then call Server_Stat_Check_Confirmed
if server_stat_check_confirm=2 then call home
end sub
sub Server_Stat_Check_Confirmed
Set WshShell = CreateObject("WScript.Shell")
temp=inputbox("Enter the server you want to ping.(IP/Web Addres)", "Eclips-Terminal Server Status Checker")
PINGFlag = Not CBool(WshShell.run("ping -n 1" & temp & 0,True))
If PINGFlag = True Then
MsgBox "Server Online"
Else
MsgBox "Server Offline"
End If
call home
end sub
sub Type_RR
RR_Confirm= msgbox("Are you shure you want to rick roll a person?", vbOKCancel+vbQuestion, "Eclips-Terminal Text Rick Roll")
if RR_Confirm=1 then call RR_confirmed
if RR_Confirm=2 then call home
end sub
sub RR_confirmed
RR_wait1= inputbox("How long do you need to get to the inputbox?" , "Eclips-Terminal Spam Bot")
RR_wait= RR_wait1 * 1000
msgbox "You have " & RR_wait & " milliseconds to get to your input area where you are going to spam."
wscript.sleep RR_wait
call Text_RR
end sub
sub Text_RR
wsh.sendkeys "We're no strangers to love {enter}"
wscript.sleep 500
wsh.sendkeys "You know the rules and so do I {enter}"
wscript.sleep 500
wsh.sendkeys "A full commitment's what I'm thinking of {enter}"
wscript.sleep 500
wsh.sendkeys "You wouldn't get this from any other guy {enter}"
wscript.sleep 500
wsh.sendkeys "I just wanna tell you how I'm feeling {enter}"
wscript.sleep 500
wsh.sendkeys "Gotta make you understand {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna give you up {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna let you down {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna run around and desert you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna make you cry {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna say goodbye {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna tell a lie and hurt you {enter}"
wscript.sleep 500
wsh.sendkeys "We've known each other for so long {enter}"
wscript.sleep 500
wsh.sendkeys "Your heart's been aching but you're too shy to say it {enter}"
wscript.sleep 500
wsh.sendkeys "Inside we both know what's been going on {enter}"
wscript.sleep 500
wsh.sendkeys "We know the game and we're gonna play it {enter}"
wscript.sleep 500
wsh.sendkeys "And if you ask me how I'm feeling {enter}"
wscript.sleep 500
wsh.sendkeys "Don't tell me you're too blind to see {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna give you up {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna let you down {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna run around and desert you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna make you cry {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna say goodbye {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna tell a lie and hurt you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna give you up {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna run around and desert you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna make you cry {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna say goodbye {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna tell a lie and hurt you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna give, never gonna give {enter}"
wscript.sleep 500
wsh.sendkeys "(Give you up) {enter}"
wscript.sleep 500
wsh.sendkeys "(Ooh) Never gonna give, never gonna give {enter}"
wscript.sleep 500
wsh.sendkeys "(Give you up) {enter}"
wscript.sleep 500
wsh.sendkeys "We've known each other for so long {enter}"
wscript.sleep 500
wsh.sendkeys "Your heart's been aching but you're too shy to say it {enter}"
wscript.sleep 500
wsh.sendkeys "Inside we both know what's been going on {enter}"
wscript.sleep 500
wsh.sendkeys "We know the game and we're gonna play it {enter}"
wscript.sleep 500
wsh.sendkeys "I just wanna tell you how I'm feeling {enter}"
wscript.sleep 500
wsh.sendkeys "Gotta make you understand {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna give you up {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna let you down {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna run around and desert you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna make you cry {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna say goodbye {enter}"
wscript.sleep 1000
wsh.sendkeys "Never gonna tell a lie and hurt you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna give you up {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna let you down {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna run around and desert you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna make you cry {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna say goodbye {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna tell a lie and hurt you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna give you up {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna let you down {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna run around and desert you {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna make you cry {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna say goodbye {enter}"
wscript.sleep 500
wsh.sendkeys "Never gonna tell a lie and hurt... {enter}"
wscript.sleep 500
wsh.sendkeys "You just got rickrolled {enter}"
wscript.sleep 500
wsh.sendkeys ("Eclips-Terminal RickRoll. If you want to get this usefull tool go to https://eclips-terminal.jouwweb.nl/" & "{enter}")
wscript.sleep 500
call home
end sub
sub counter
confirm_counter = msgbox("Are you shure you want to use the auto counter?", vbOKCancel+vbQuestion, "Eclips-Terminal Auto Counter")
if confirm_counter=1 then call counter_confirm
if confirm_counter=2 then call home
end sub
sub counter_confirm
count_number= inputbox("To what number do you want the program to count?", "Eclips-Terminal Auto Counter")
count_wait= inputbox("How long do you need the program to wait untill it will start typing out the numbers?", "Eclips-Terminal Auto Counter")
count_wait1= count_wait * 1000
wscript.sleep count_wait1
wsh.sendkeys "Starting Eclips-Terminal Counter"
for j=0 to count_number
wsh.sendkeys ("{enter}" & j)
next
wsh.sendkeys ("{enter}" & "Done Counting" & "{enter}")
end sub
sub Holes
confirm_holes = msgbox ("Are you shure you want to run this script?", vbOKCancel+vbQuestion, "Eclips-Terminal Holes")
if confirm_holes=1 then call confirmd_holes
if confirm_holes=2 then call home
end sub
sub confirmd_holes
wsh.Run "https://www.youtube.com/watch?v=egEraZP9yXQ&t=44s"
end sub
sub folder_bomb
confir_folder = msgbox("Are you shure you want to spam your C:\ drive with folders?", vbOKCancel+vbQuestion, "Eclips-Terminal Folder Bomb")
if confir_folder=1 then call folder
if confir_folder=2 then call home
end sub
sub folder
tfile.write 6
tfile.close
wsh.run "C:\Eclips-Terminal\command.bat",0
call home
end sub
sub explorer_off
hider_confirm = msgbox ("To reverting this can be done by relaunching windows explorer(google it)." &vblf& "Are you shure you want to run this script?", vbOKCancel+vbExclamation, "Eclips-Terminal Program Hider")
if hider_confirm =1 then call confirm_explorer_off
if hider_confirm =2 then call home
end sub
sub confirm_explorer_off
wsh.run "taskkill /F /IM explorer.exe",0
call quit
end sub
sub talk
confirm_tts = msgbox ("Are you shure you want to use text-to-speach?", vbOKCancel+vbQuestion, "Eclips-Terminal TTS")
if confirm_tts=1 then call tts_confirm
if confirm_tts=2 then call home
end sub
sub tts_confirm
tts = inputbox ("What text do you want to say?", "Eclips-Terminal TTS")
sapi.speak tts
call home
end sub
sub tts_loop
confirm_tts_loop = msgbox ("Are you shure you want to use this program?", vbOKCancel+vbQuestion, "Eclips-Terminal TTS Loop")
if confirm_tts_loop=1 then call tts_loop_confirmed
if confirm_tts_loop=2 then call home
end sub
sub tts_loop_confirmed
msg_tts_loop = inputbox ("What message do you want to TTS loop?", "Eclips-Terminal TTS Loop")
ammount_tts_loop=inputbox ("How many times do you want to loop?(0 to loop forever)", "Eclips-Terminal TTS Loop")
if ammount_tts_loop=0 then call tts_inf_loop
for d=1 to ammount_tts_loop
sapi.speak msg_tts_loop
next
call end_tts_loop
end sub
sub tts_inf_loop
sapi.speak msg_tts_loop
call tts_inf_loop
end sub
sub end_tts_loop
msgbox "Done looping"
call home
end sub
sub BSOD
BSOD_confirm = msgbox ("Are you shure you want to use this script?", vbOKCancel+vbQuestion, "Eclips-Terminal BSOD")
if BSOD_confirm=1 then call confirm_BSOD
if BSOD_confirm=2 then call home
end sub
sub confirm_BSOD
wsh.run "C:\Eclips-Terminal\bsod.hta"
call home
end sub
sub Caps_pain
confirm_caps_pain = msgbox ("Are you shure you want to use this script?", vbOKCancel+vbQuestion, "Eclips-Terminal Caps Torture")
if confirm_caps_pain=1 then call caps_confirmed
if confirm_caps_pain=2 then call home
end sub
sub caps_confirmed
wscript.sleep 100
wsh.sendkeys "{CAPSLOCK}"
call caps_confirmed
end sub
sub corn
corn_confirm = msgbox ("Are you shure you want to run this script?", vbOKCancel+vbQuestion, "Eclips-Terminal Corny?")
if corn_confirm=1 then call corn_confirmd
if corn_confirm=2 then call home
end sub
sub corn_confirmd
wsh.run "http://corn-hub.blogspot.com/"
end sub
sub IP_logger
ip_confirm = msgbox ("Are you shure you want to use this?(its all local so i cant see your ip)", vbOKCancel+vbQuestion, "Eclips-Terminal IP Data")
if ip_confirm =1 then call ip_confirmd
if ip_confirm =2 then call home
end sub
sub ip_confirmd
tfile.write 8
tfile.close
wsh.run "C:\Eclips-Terminal\command.bat"
msgbox rFile.readall
rfile.close
end sub
sub stealth
confirm_stealth = msgbox ("Are you shure you want to use this script? It will eventualy crash your pc.", vbOKCancel+vbQuestion, "Eclips-Terminal Stealth Crasher")
if confirm_stealth=1 then call stealth_confirmed
if confirm_stealth=2 then call home
end sub
sub stealth_confirmed
wsh.Run "notepad.exe", vbHide, TRUE
call stealth_confirmed
end sub
sub admin_menu
admin = inputbox ("Wich one liner do you want to run?" &vbLf&vbLf&vbTab& "1. Boot Setting" &vbLf&vbTab& "2. System Propertys" &vbLf&vbTab& "3. System Info" &vbLf&vbTab& "4. On Screen Keyboard" &vbLf&vbTab& "5. Preformance" &vbLf&vbTab& "6. Internet Propertys" &vbLf&vbTab& "7. Keyboard Propertys" &vbLf&vbTab& "8. Virus Remover" &vbLf&vbTab& "9. Location Information" &vbLf&vbTab& "10. Dialer" &vbLf&vbTab& "11. Reg Edit" &vbLf&vbTab& "12. Remote Desktop" &vbLf&vbTab& "13. Task Planner" &vbLf&vbTab& "14. Computer Managment" &vbLf&vbTab& "15. Active Programs" &vbLf&vbTab&vbLf& "What option do you like?", "Eclips-Terminal Admin Menu")
tfile.write "" & admin & ""
tfile.close
wsh.run "C:\Eclips-Terminal\One_Liner.bat"
call results
end sub
sub results
if admin =1 then call boot
if admin =2 then call boot
call home
end sub
sub boot
msgbox rfile.readall
rfile.close
end sub
sub testing
msgbox "TESTING"
end sub
sub quit
end sub
'end of script
Maak jouw eigen website met JouwWeb