Batch Programming (slightly Advanced)

hello, first off i would like to say that if you are new to batch programming then you might want to go to an easier link for the basics, anyway, this is a code i wrote that i thought was kinda nifty, though it may seem like a ripoff of someone elses i assure you that i wrote it myself.



@echo off
color 0f
:login
cls
echo \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
echo app chooser made by me
echo /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
set /p user=enter passcode:
if "%user%"=="" goto welcome
:welcome
cls
echo welcome to the app chooser i made, feel free to browse around maybe even go to the membership section i made so that people with a member status can look at the other half of the apps!_!
echo ---------------------------
echo ---------------------------
echo 1 facebook
echo 2 youtube
echo 3 ourworld
echo 4 downworld
echo 5 happy wheels
echo 6 gmail
echo 7 go to membership stuff
set /p user=go ahead make a choice (p.s. members can add new links and app ideas!):
if "%user%"=="1" start https://www.facebook.com/
if "%user%"=="2" start http://www.youtube.com/
if "%user%"=="3" start http://web2.ourworld.com/ow/?env=home
if "%user%"=="4" start http://dweb1.downworld.com/dw/?env=home
if "%user%"=="5" start http://www.totaljerkface.com/happy_wheels.php
if "%user%"=="6" start https://accounts.google.com/ServiceLogin?service=mail&passive=true&rm=false&continue=http://mail.google.com/mail/&scc=1
if "%user%"=="7" goto member
goto welcome
:member
cls
echo welcome to the members area, where you can earn a membeship by simply [set prerequisites here]
echo ---------------------------------------
echo 1 i have a membership, what do i do with it?
echo 2 why wont my membership work?
echo 3 i like waffles!
echo 4 what will membership give me?
echo 5 i want to insert my passcode for the weekly membership
set /p user=enter option:
if "%user%"=="1" goto whatnow
if "%user%"=="2" goto whywontitwork
if "%user%"=="3" goto waffle
if "%user%"=="4" goto whatwill
if "%user%"=="5" goto pass
:whatnow
cls
echo you go to the member area and enter your code under the number five (5) option.
pause
goto member
:whywontitwork
cls
echo you probably have a bad code, or maybe the programmer mistyped the code into the program and you have the right code, either way talk to mike and he will resolve it free of charge!
pause
goto member
:waffle
cls
echo me too!
pause
goto member
:whatwill
cls
echo membership will give you access to 5 exclusive apps, as well as you will be able to make suggestions as to what apps should be on here and also have permission to get up to 2 links/apps of your choice put on here, and with super membership (coming soon) you will even be able yo have your own passcode on them to keep them safe and yours alone from those unsightly noobs.
pause
goto member
:pass
cls
set /p user=enter membership code now:
if "%user%"=="[set member pass here]" goto memblist
if "%user%"=="" goto wrong
:wrong
cls
echo no, try again
pause>nul
goto pass
:memblist
cls
echo welcome to the members area, as i know you have earned the usage of these apps(some of which are exclusive to app chooser)
echo 1 calculator
echo 2 random flashing colors( can only exit by closing and reopening app chooser)
echo 3 coming soon!
echo 4 coming soon!
echo 5 coming soon!
set /p user=make a choice, member:
if "%user%"=="1" goto calc
if "%user%"=="2" goto color
:calc
CLS
echo ------------------------------------------------------
echo     Welcome To the calculator Brought To You By mike
echo ------------------------------------------------------
echo To Exit Write Exit
echo.
echo + is plus, / is divide, * is multiply
set /p sum=
if "%sum%"=="exit" goto memblist
set /a ans=%sum%
echo.
echo The Answer Is: %ans%
echo --------------------------------------------------
pause
cls
goto calc
:color
:begin
color 12
color 22
color 32
color 42
color 52
goto begin

please feel free to modify the contents of this batch file and re-post them so that one day there will be an amazing program!

Share

    Recommendations

    • Make it Glow Contest 2018

      Make it Glow Contest 2018
    • Toys Contest

      Toys Contest
    • PCB Contest

      PCB Contest

    11 Discussions

    0
    None
    Hak3r213

    1 year ago

    An example of what utkarshsinghal was talking about with mixing vbs with batch can be found here: https://www.instructables.com/id/AI-Chatbot/ . It is a very complex file

    0
    None
    Dr.M3

    2 years ago

    that was awesome, i made something similar to that, check it out:

    @echo off

    :home

    title Log in to Exp.os16

    color 07

    cls

    echo.

    echo Exp.os16 Accounts

    echo =================

    echo.

    echo %TIME% %DATE%

    echo [1] Log In

    echo [2] Sign Up

    echo [3] Exit

    echo.

    set /p op=

    if %op%==1 goto 123

    if %op%==2 goto 223

    if %op%==3 exit

    goto error

    :223

    cls

    echo Sign Up

    echo ======================================

    echo.

    echo %TIME% %DATE%

    set /p newname="Enter new username:"

    if "%newname%"=="%newname%" goto inputname

    :inputname

    cd "%userprofile%\documents"

    if exist "cmdacoBin" goto skip

    if not exist "cmdacoBin" goto noskip

    :noskip

    md "cmdacoBin"

    goto skip

    :skip

    cd "%userprofile%\documents\cmdacoBin"

    if exist "%newname%.bat" goto namexist

    if not exist "%newname%.bat" goto skip2

    :skip2

    echo set realusername=%newname%> "%newname%.bat"

    goto next

    :next

    echo.

    set /p pswd=Enter new Password:

    if "%pswd%"=="%pswd%" goto inputpass

    :inputpass

    cd "%userprofile%\documents\cmdacoBin"

    echo set password=%pswd%>> "%newname%.bat"

    goto next1

    :namexist

    echo.

    echo The entered username already exists.

    echo Press any key to return. . .

    pause >nul

    goto 2

    :next1

    cls

    echo Exp.os16 Accounts

    echo =================

    echo.

    echo %TIME% %DATE%

    echo Your account has been successfully created!

    echo.

    pause

    goto home

    :123

    color 07

    cls

    echo Exp.os16 Accounts Log In

    echo ========================

    echo.

    echo %TIME% %DATE%

    Set /p logname=Username:

    if "%logname%"=="%logname%" goto 2.1

    :2.1

    echo.

    set /p logpass="Password:"

    if "%logpass%"=="%logpass%" goto login

    :login

    cd "%userprofile%\documents\cmdacoBin"

    if exist "%logname%.bat" goto call

    if not exist "%logname%.bat" goto errorlog

    :call

    call "%logname%.bat"

    if "%password%"=="%logpass%" goto logdone

    goto errorlog

    :errorlog

    color 0c

    echo.

    echo Username or Password incorrect.

    echo Access denied.

    pause >nul

    goto home

    :logdone

    cls

    echo Command Prompt

    echo ==============

    echo.

    echo %TIME% %DATE%

    echo Successfully logged in!

    echo.

    pause

    goto account

    :account

    cls

    cd "%userprofile%\documents\cmdacoBin"

    call "%realusername%color.bat"

    call "%realusername%.bat"

    color %colorcode%

    cls

    echo.

    echo -------------------------------------------------------------------------------

    echo %realusername%

    echo -------------------------------------------------------------------------------

    break off

    Title Command Prompt

    cls

    :cmd

    echo Type "home" any time to go to the current user profile directory.

    echo Type "desktop" any time to go to the current user desktop.

    echo.

    echo Type help to see list of common commands like cd, rd, md, del,

    echo ren, replace, copy, xcopy, move, attrib, tree, edit, and cls.

    echo Type [command]/? for detailed info.

    echo.

    echo Type red, blue, or green to change color of text.

    echo Type normal to change the color of the text back.

    echo.

    echo Type apps to go to app screen.

    echo.

    echo %TIME% %DATE%

    echo Directory: %CD%

    set /P CMD=Command:

    if "%CMD%" == "cls" goto cls

    if "%CMD%" == "home" goto home2

    if "%CMD%" == "desktop" goto desktop

    if "%CMD%" == "red" goto red

    if "%CMD%" == "green" goto green

    if "%CMD%" == "normal" goto normall12

    if "%CMD%" == "blue" goto blue

    if "%CMD%" == "apps" goto Beginning

    cls

    %CMD%

    cd C:\

    goto cmd

    :cls

    cls

    goto cmd

    :home2

    cd /d %USERPROFILE%

    cls

    goto cmd

    :desktop

    cd /d %SystemDrive%\Users\%USERNAME%\Desktop

    cls

    goto cmd

    :red

    color 0c

    cls

    goto cmd

    :green

    color 0a

    cls

    goto cmd

    :blue

    color 9

    cls

    goto cmd

    :normall12

    color 7

    cls

    goto cmd

    cls

    :Beginning

    cls

    echo Type [1] to start Browser.

    echo Type [2] to start Calculator.

    echo Type [3] to start File editor.

    echo Type [4] to start PC cleaner.

    echo Type [5] to start random string generator.

    echo Type [6] to start start screen

    echo Type [7] to start batch file maker/editor

    echo Type [8] to exit Exp.os12.

    echo %TIME% %DATE%

    set /p input= "input number"

    if %input%==1 goto Browser

    if %input%==2 goto Calculator

    if %input%==3 goto File editor

    if %input%==4 goto menu

    if %input%==5 goto random

    if %input%==6 goto account

    if %input%==7 goto begg

    if %input%==8 exit

    :random

    cls

    setlocal enabledelayedexpansion

    echo =================================

    echo Exp.os16 random string generator.

    echo =================================

    echo %TIME% %DATE%

    set /p input= "Input string length."

    set _RNDLength=%input%

    set _Alphanumeric=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890

    set _Str=%_Alphanumeric%\

    :_LenLoop

    if not "%_Str:~18%"=="" SET _Str=%_Str:~9%& SET /A _Len+=9& GOTO :_LenLoop

    set _tmp=%_Str:~9,1%

    set /A _Len=_Len+_tmp

    set _count=0

    set _RndAlphaNum=

    :_loop

    set /a _count+=1

    set _RND=%Random%

    set /A _RND=_RND%%%_Len%

    set _RndAlphaNum=!_RndAlphaNum!!_Alphanumeric:~%_RND%,1!

    if !_count! lss %_RNDLength% goto _loop

    echo Random string is !_RndAlphaNum!

    set /p uppit= "Do you want to exit? (y/n)"

    if %uppit%==y goto Beginning

    if %uppit%==n goto random

    :menu

    cls

    echo ===========================

    echo Exp.os16 PC Cleanup Utility

    echo ===========================

    echo %TIME% %DATE%

    echo.

    echo Select a tool

    echo =============

    echo.

    echo [1] Delete Internet Cookies

    echo [2] Delete Temporary Internet Files

    echo [3] Disk Cleanup

    echo [4] Disk Defragment

    echo [5] Exit

    echo.

    set /p op=Run:

    if %op%==1 goto 1

    if %op%==2 goto 2

    if %op%==3 goto 3

    if %op%==4 goto 4

    if %op%==5 goto Beginning

    goto error

    :1

    cls

    echo =======================

    echo Delete Internet Cookies

    echo =======================

    echo.

    echo %TIME% %DATE%

    echo Deleting Cookies...

    ping localhost -n 3 >nul

    del /f /q "%userprofile%\Cookies\*.*"

    cls

    echo =======================

    echo Delete Internet Cookies

    echo =======================

    echo.

    echo %TIME% %DATE%

    echo Cookies deleted.

    echo.

    echo Press any key to return to the menu. . .

    pause >nul

    goto menu

    :2

    cls

    echo ===============================

    echo Delete Temporary Internet Files

    echo ===============================

    echo.

    echo %TIME% %DATE%

    echo Deleting Temporary Files...

    ping localhost -n 3 >nul

    del /f /q "%userprofile%\AppData\Local\Microsoft\Windows\Temporary Internet Files\*.*"

    cls

    echo ===============================

    echo Delete Temporary Internet Files

    echo ===============================

    echo.

    echo %TIME% %DATE%

    echo Temporary Internet Files deleted.

    echo.

    echo Press any key to return to the menu. . .

    pause >nul

    goto menu

    :3

    cls

    echo ============

    echo Disk Cleanup

    echo ============

    echo.

    echo %TIME% %DATE%

    echo Running Disk Cleanup...

    ping localhost -n 3 >nul

    if exist "C:\WINDOWS\temp"del /f /q "C:WINDOWS\temp\*.*"

    if exist "C:\WINDOWS\tmp" del /f /q "C:\WINDOWS\tmp\*.*"

    if exist "C:\tmp" del /f /q "C:\tmp\*.*"

    if exist "C:\temp" del /f /q "C:\temp\*.*"

    if exist "%temp%" del /f /q "%temp%\*.*"

    if exist "%tmp%" del /f /q "%tmp%\*.*"

    if not exist "C:\WINDOWS\Users\*.*" goto skip

    if exist "C:\WINDOWS\Users\*.zip" del "C:\WINDOWS\Users\*.zip" /f /q

    if exist "C:\WINDOWS\Users\*.exe" del "C:\WINDOWS\Users\*.exe" /f /q

    if exist "C:\WINDOWS\Users\*.gif" del "C:\WINDOWS\Users\*.gif" /f /q

    if exist "C:\WINDOWS\Users\*.jpg" del "C:\WINDOWS\Users\*.jpg" /f /q

    if exist "C:\WINDOWS\Users\*.png" del "C:\WINDOWS\Users\*.png" /f /q

    if exist "C:\WINDOWS\Users\*.bmp" del "C:\WINDOWS\Users\*.bmp" /f /q

    if exist "C:\WINDOWS\Users\*.avi" del "C:\WINDOWS\Users\*.avi" /f /q

    if exist "C:\WINDOWS\Users\*.mpg" del "C:\WINDOWS\Users\*.mpg" /f /q

    if exist "C:\WINDOWS\Users\*.mpeg" del "C:\WINDOWS\Users\*.mpeg" /f /q

    if exist "C:\WINDOWS\Users\*.ra" del "C:\WINDOWS\Users\*.ra" /f /q

    if exist "C:\WINDOWS\Users\*.ram" del "C:\WINDOWS\Users\*.ram"/f /q

    if exist "C:\WINDOWS\Users\*.mp3" del "C:\WINDOWS\Users\*.mp3" /f /q

    if exist "C:\WINDOWS\Users\*.mov" del "C:\WINDOWS\Users\*.mov" /f /q

    if exist "C:\WINDOWS\Users\*.qt" del "C:\WINDOWS\Users\*.qt" /f /q

    if exist "C:\WINDOWS\Users\*.asf" del "C:\WINDOWS\Users\*.asf" /f /q

    :skip

    if not exist C:\WINDOWS\Users\Users\*.* goto skippy /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.zip del C:\WINDOWS\Users\Users\*.zip /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.exe del C:\WINDOWS\Users\Users\*.exe /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.gif del C:\WINDOWS\Users\Users\*.gif /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.jpg del C:\WINDOWS\Users\Users\*.jpg /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.png del C:\WINDOWS\Users\Users\*.png /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.bmp del C:\WINDOWS\Users\Users\*.bmp /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.avi del C:\WINDOWS\Users\Users\*.avi /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.mpg del C:\WINDOWS\Users\Users\*.mpg /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.mpeg del C:\WINDOWS\Users\Users\*.mpeg /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.ra del C:\WINDOWS\Users\Users\*.ra /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.ram del C:\WINDOWS\Users\Users\*.ram /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.mp3 del C:\WINDOWS\Users\Users\*.mp3 /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.asf del C:\WINDOWS\Users\Users\*.asf /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.qt del C:\WINDOWS\Users\Users\*.qt /f /q

    if exist C:\WINDOWS\Users\AppData\Temp\*.mov del C:\WINDOWS\Users\Users\*.mov /f /q

    :skippy

    if exist "C:\WINDOWS\ff*.tmp" del C:\WINDOWS\ff*.tmp /f /q

    if exist C:\WINDOWS\ShellIconCache del /f /q "C:\WINDOWS\ShellI~1\*.*"

    cls

    echo ============

    echo Disk Cleanup

    echo ============

    echo.

    echo %TIME% %DATE%

    echo Disk Cleanup successful!

    echo.

    pause

    goto menu

    :4

    cls

    echo ===============

    echo Disk Defragment

    echo ===============

    echo.

    echo %TIME% %DATE%

    echo Defragmenting hard disks...

    ping localhost -n 3 >nul

    defrag -c -v

    cls

    echo ===============

    echo Disk Defragment

    echo ===============

    echo.

    echo %TIME% %DATE%

    echo Disk Defrag successful!

    echo.

    pause

    goto menu

    :error

    cls

    echo Command not recognized.

    ping localhost -n 4 >nul

    :Browser

    title Batch browser

    :start

    cls

    echo _/Main Menu\____________________________Exp.os16 Browser______________________________

    echo _____________________________________________________________________________________)

    echo Welcome to Exp.os16 Browser!

    echo Type [1] to open search.

    echo Type [2] to open apps.

    echo Type [3] to Exit This Browser.

    echo %TIME% %DATE%

    set /p menu=

    if %menu%==1 (

    set menu=

    goto middle

    )

    if %menu%==2 (

    set menu=

    goto end

    )

    if %menu%==3 goto Beginning

    cls

    :middle

    echo _/Search\____________________________Exp.os16 Browser_________________________________

    echo _____________________________________________________________________________________)

    echo Enter keywords or surf the web.

    echo Type "1" to exit Search.

    echo %TIME% %DATE%

    set /p keyword=

    if %keyword%==1 (

    set keyword=

    goto start

    )

    start "" https://www.google.com/?gws_rd=ssl#q=%keyword%

    start %keyword%

    pause>null

    cls

    goto middle

    pause>null

    :end

    cls

    echo _/Apps\____________________________Exp.os16 Browser___________________________________

    echo _____________________________________________________________________________________)

    echo These are your apps.

    echo Type [1] to start Google.

    echo Type [2] to start Youtube.

    echo Type [3] to start Reddit

    echo Type [4] to start Instructables

    echo Type [5] to Exit Apps.

    echo %TIME% %DATE%

    set /p select=

    if %select%==1 (

    set select=

    start "" https://www.google.com/?gws_rd=ssl

    goto end

    )

    if %select%==2 (

    set select=

    start "" https://youtube.com/

    goto end

    )

    if %select%==3 (

    set select=

    start "" https://reddit.com/

    goto end

    )

    if %select%==4 (

    set select=

    start "" https://instructables.com/

    goto end

    )

    if %select%==5 (

    set select=

    goto start

    )

    :Calculator

    title Exp.os16Calculator

    :main

    cls

    echo ========================================

    echo Your previous Calulated number was %sum%

    echo ========================================

    echo %TIME% %DATE%

    echo.

    echo Enter the specified number to continue..

    echo.

    echo [1] Addition

    echo.

    echo [2] Subtraction

    echo.

    echo [3] Divison

    echo.

    echo [4] Multipication

    echo.

    echo [5] Square, Cube or any power

    echo.

    echo [6] Exit

    set /p do=Value.

    if %do%== 1 goto add

    if %do%== 2 goto sub

    if %do%== 3 goto div

    if %do%== 4 goto mul

    if %do%== 5 goto power1

    if %do%== 6 goto Beginning

    echo.

    cls

    echo Invalid value = %do%

    echo.

    pause

    cls

    goto main

    :add

    cls

    echo ADDITON

    echo.

    set /p no1="num1. "

    echo +

    set /p no2="num2. "

    set /a sum=no1+no2

    echo ------------

    echo %sum%

    echo.

    pause

    cls

    goto main

    :sub

    cls

    echo SUBTRACTION

    echo.

    set /p no1="num1. "

    echo -

    set /p no2="num2. "

    set /a sum=no1-no2

    echo ------------

    echo %sum%

    echo.

    pause

    cls

    goto main

    :div

    cls

    echo DIVISON

    echo.

    set /p no1="num1. "

    echo /

    set /p no2="num2. "

    set /a sum=no1/no2

    echo ------------

    echo %sum%

    echo.

    pause

    cls

    goto main

    :mul

    cls

    echo MULTIPLICATION

    echo.

    set /p no1="num1. "

    echo *

    set /p no2="num2. "

    set /a sum=no1*no2

    echo ------------

    echo %sum%

    echo.

    pause

    cls

    goto main

    :power1

    cls

    echo Square, Cube or any power

    echo.

    echo Select the number

    set /p num=

    cls

    echo Select the power

    set /p pow=

    set /a pow=%pow%+1

    set ans=%num%

    cls

    :power2

    set /a pow=%pow%-1

    if %pow% LSS 1 goto next

    set /a ans=%ans%*%num%

    goto power2

    :next

    echo Your answer is %ans%

    echo.

    goto main

    :File editor

    title Exp.os16File editor

    :options

    cls

    echo Exp.os16 File editor.

    echo Type [1] to edit a File that already exists.

    echo Type [2] to edit the name of your document.

    echo Type [3] to edit the contents of your File.

    echo Type [4] to exit.

    echo %TIME% %DATE%

    set /p you=">"

    if %you%==1 goto 1

    if %you%==2 goto 2

    if %you%==3 help

    if %you%==4 goto Beginning

    :1

    echo Name Your File.

    set /p name=">"

    goto options

    :2

    cls

    echo - %name%

    echo To add another line to your text press enter. To stop editing press the big

    echo red X in the corner of this screen.

    echo.

    echo Cannot use symbols:" > < | " if you use any of them the window closes.

    echo.

    set /p content=">"

    echo %content%>>%name%

    cls

    echo Save Successful!

    ping localhost -n 2 >nul

    goto 2

    :help

    cls

    :0

    cls

    echo - %name%

    echo Type in the name.

    echo The file has to be in the same directory as notepad.

    set /p edit=">"

    edit %edit%

    goto options

    :begg

    cls

    echo ==========================

    echo Exp.os16 batch file editor

    echo ==========================

    echo %TIME% %DATE%

    :begg

    set /p opttt="edit file? (y/n)"

    if %opttt%=="y" goto hurrr

    if %opttt%=="n" goto beggg

    :beggg

    set /p filename="name file"

    set /p fileinsides="create file""

    if exist "expfilebin" goto hurdur

    if not exist "expfilebin" goto hurdurr

    :hurdurr

    md "expfilebin"

    goto hurdur

    :hurdur

    cd "%userprofile%\documents\expfilebin"

    echo @echo off>> "%filename%.bat"

    echo echo %fileinsides%>> "%filename%.bat"

    echo pause>> "%filename%.bat"

    :hurrr

    set /p fileopen="open file and state file name"

    if exist "%fileopen%" goto hhh

    if not exist "%fileopen%" goto unfound

    :hhh

    set /p ff="input file contents"

    echo echo %ff%>> "%fileopen%.bat"

    echo pause>> "%fileopen%.bat"

    goto exx

    :unfound

    echo file not found

    pause

    goto begg

    :exx

    set /p exxx="exit (y/n)"

    if %exxx%==y goto Beginning

    if %exxx%==n goto begg

    0
    None

    hello i would send you my batch file script but it is 160 pages long so if you would like it i can send you a compressed version just email me at BryansBatch@gmail.com

    1 reply
    0
    None
    MineSikes

    4 years ago on Introduction

    This was really cool. I am going to try to add on to yours. But, you did puplish this in 2010, so I don't really know how many people will respond.

    3 replies
    0
    None
    MineSikesMineSikes

    Reply 4 years ago on Introduction

    Sorry, I don't know where I got that 2010 from. But I can tell it was published long ago.

    0
    None
    MineSikesMineSikes

    Reply 4 years ago on Introduction

    I think I have done something with it...

    (I tried to keep everything you had too)

    Here is the new code:

    @echo off
    echo CreateObject("SAPI.SpVoice").Speak"welcome">welcom.vbs
    title The APP Player!
    @mode con cols=100 lines=30
    rem The code above changes the size of the program.
    rem The "rem" command means that you can take notes while programming.
    rem It has no effect on the output of your program.
    color 0f
    :login
    cls
    echo.
    echo App Player Made by Me! (someone else made this)
    echo.
    set /p user=enter passcode:
    if %user%=="" goto welcome
    start welcom.vbs
    :welcome
    cls
    echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    echo ³Welcome to the app chooser I didn't make! ³
    echo ³Feel free to browse around maybe even go to the membership section. ³
    echo ³I made this so that people with a member status can look at the other half of the apps!_!³
    echo ³(p.s. Members can add new links and app ideas!) ³
    echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    echo.
    echo 1) Facebook *
    echo 2) Youtube *
    echo 3) Ourworld *
    echo 4) Downworld *
    echo 5) Happy wheels *
    echo 6) Gmail *
    echo 7) go to membership stuff *(you will need internet)
    set /p user=NUMBER:
    del welcom.vbs
    if %user%==1 start https://www.facebook.com/
    if %user%==2 start http://www.youtube.com/
    if %user%==3 start http://web2.ourworld.com/ow/?env=home
    if %user%==4 start http://dweb1.downworld.com/dw/?env=home
    if %user%==5 start http://www.totaljerkface.com/happy_wheels.php
    if %user%==6 start https://accounts.google.com/ServiceLogin?service=mail&passive=true&rm=false&continue=http://mail.google.com/mail/&scc=1
    if %user%==7 goto member
    cls
    echo Sorry, that wasn't an option!
    pause
    goto welcome
    :member
    cls
    echo Welcome to the members area, where you can earn a membeship/membership
    echo money by simply answering random questions!
    echo.
    echo 1) I have a membership, now what do i do with it?
    echo 2) Why wont my membership work?
    echo 3) I like waffles!
    echo 4) What does my membership have to offer me?
    echo 5) I want to insert my passcode for the weekly membership
    echo 6) Back to main menu.
    set /p member=enter option:
    if %member%==1 goto whatnow
    if %member%==2 goto whywontitwork
    if %member%==3 goto waffle
    if %member%==4 goto whatwill
    if %member%==5 goto pass
    if %member%==6 goto welcome
    cls
    echo That wasn't an option!
    pause
    goto member
    :whatnow
    cls
    echo You can go to the member area and enter your code under the number five (5) option.
    pause
    goto member
    :whywontitwork
    cls
    echo You probably have a bad code, typed it in wrong, or maybe the programmer
    echo mistyped the code into the program and you have the right code,
    echo either way talk to mike and he will resolve it free of charge!
    pause
    goto member
    :waffle
    cls
    echo Pancakes are better!
    pause
    goto member
    :whatwill
    cls
    echo Membership will give you access to 5 exclusive apps, as well as you will be able to make suggestions
    echo as to what apps should be on here and also have permission to get up to 2 links/apps of your choice
    echo put on here, and with super membership (coming soon) you will even be able yo have your own
    echo passcode on them to keep them safe and yours alone from those unsightly noobs.
    pause
    goto member
    :pass
    cls
    echo Type "back" to go to the main menu.
    echo.
    set /p user=enter membership code now:
    if %user%==cheatcode46 goto memblist
    if %user%==back goto welcome
    goto wrong
    :wrong
    cls
    echo No, please try again.
    pause>nul
    goto pass
    :memblist
    cls
    echo Welcome to the members area, as I know you have earned the usage of these apps
    echo (some of which are exclusive to app chooser).
    echo.
    echo 1) Calculator
    echo 2) Random flashing colors (can only exit by closing and reopening app chooser)
    echo 3) DOGS
    echo 4) BLUE BALL MACHINE!
    echo 5) coming soon!
    echo 6) Main Menu
    set /p anything=Make a choice, member:
    if %anything%==1 goto calc
    if %anything%==2 goto color
    if %anything%==3 goto dog
    if %anything%==4 goto bluemachine
    if %anything%==6 goto welcome
    cls
    echo That wasn't an option!
    pause
    goto memblist
    :dog
    cls
    echo Turn down your sound, but enough to where you can still
    echo hear the music.
    timeout 3 >nul
    start iexplore.exe http://omfgdogs.com/
    goto memblist
    :bluemachine
    cls
    echo Turn down your sound, but enough to where you can still
    echo hear the music.
    timeout 3 >nul
    start iexplore.exe https://www.haneke.net/
    goto memblist
    :calc
    CLS
    echo ------------------------------------------------------
    echo Welcome To the calculator Brought To You By mike
    echo ------------------------------------------------------
    echo To Exit Write Exit
    echo.
    echo + is plus, / is divide, * is multiply
    set /p sum=
    if "%sum%"=="exit" goto memblist
    set /a ans=%sum%
    echo.
    echo The Answer Is: %ans%
    echo --------------------------------------------------
    pause
    cls
    goto calc
    :color
    :begin
    color 12
    color 22
    color 32
    color 42
    color 52
    goto begin

    0
    None
    MineSikesMineSikes

    Reply 4 years ago on Introduction

    Sorry, it is so long. Please tell me if there are any problems with it.

    I NOW PASS THIS CODE ON TO A NEW PROGRAMMER, TO EDIT, TO LEARN, AND TO MAKE BETTER!

    awesome program!!!you can even add vbscript to make it even more advanced.for win7 and vista pc's, vbs code
    Set ai = Wscript.CreateObject("SAPI.SpVoice")
    ai.speak"[insert the phrase here]"
    can make the computer speak it all!!!

    1 reply