Batch Programs Thread.

I started work on EDS:The Chronicles of Adult Content. It will never be released unfortunatley. XD

ESRB Rating: A 

i have made a menu opens a web browser and it then asks for a web site or if you want a blank page (it also has a self edit option, but it does not work all the time)

Code: [Select]

@echo off
:run
cls
echo type command
echo edit
echo chrome
echo end

set/p "cho=>"
if %cho%==edit start notepad program_menu.bat
if %cho%==chrome goto chrome
if %cho%==end goto end
goto run

:chrome
echo type website or blank
set /p "cho3=>"
if %cho3%==blank goto just run chrome
cd "C:\Documents and Settings\%userprofile%\Local Settings\Application Data\Google\Chrome\Application"
start chrome.exe www.%cho3%
goto run

:just run chrome
cd "C:\Documents and Settings\%userprofile%\Local Settings\Application Data\Google\Chrome\Application"
start chrome.exe
goto run

:end



i could make it do a sort of goolge sarch thing more on that later (i need to go now)

my old project, 'Searcher'

Code: [Select]

@echo off

setlocal enabledelayedexpansion

set Sch_choice=,Google,Youtube,Yahoo,
set Sch=Google
set save_history=1

:LOOP
echo.
echo.= Menu =================================================
echo.
for /f "tokens=1,2,* delims=_ " %%A in ('"findstr /b /c:":menu_" "%~f0""') do echo.  %%B  %%C
echo.
echo.========================================================
choice /C:123 >nul
set choice=%errorlevel%
call :menu_%choice%
goto LOOP

:menu_1   Search Type: '!Sch!' [!Sch_choice:~1,-1!]
call :NIL Sch "!Sch_choice!"
cls
exit /b

:menu_2   Search
call :Search "!Sch!"
cls
exit /b

:menu_3   History
call :History
cls
exit /b

:NIL

set lst=%~2
set dlm=%lst:~-1%
set old=!%~1!
set fst=
for /f "delims=%dlm%" %%a in ("%lst%") do set fst=%%a
set lll=!lst:%dlm%%old%%dlm%=%dlm%@%dlm%!%fst%%dlm%
for /f "tokens=2 delims=@" %%a in ("%lll%") do set lll=%%a

for /f "delims=%dlm%" %%a in ("%lll%") do set new=%%a

SET %~1=%new%

exit /b


REM --------------------------------------------------------------

:Search
echo.
echo.
set type=%~1
if '%type%' equ '' EXIT /b
choice /C:YN /M "Search %type% ??"
echo.
if not %errorlevel% equ 1 EXIT /b
set /p Schtxt=Search:

call set Schtxt=%%Schtxt: =+%%
call :Config

call start %%%type%%%

if %save_history% equ 1 echo.%date% %time% %type% %Schtxt% >>SearchHistory.log
exit /b

:Config
set Google=http://www.google.com/search?q=%Schtxt%
set Youtube=http://www.youtube.com/results?search_query=%Schtxt%
set Yahoo=http://search.yahoo.com/search?p=%Schtxt%
exit /b

REM --------------------------------------------------------------

:History
cls
echo.HISTORY:
echo.
type SearchHistory.log
echo.
echo.
pause
exit /b
you can add your sites if you know how to

PS. you need Vista choice...

Nice one Dev!

Very well developed. 

i have made a menu opens a web browser and it then asks for a web site or if you want a blank page (it also has a self edit option, but it does not work all the time)

Code: [Select]

@echo off
:run
cls
echo type command
echo edit
echo chrome
echo end

set/p "cho=>"
if %cho%==edit start notepad program_menu.bat
if %cho%==chrome goto chrome
if %cho%==end goto end
goto run

:chrome
echo type website or blank
set/p "cho3=>"
if %cho3%==blank goto just run chrome
cd C:\Documents and Settings\jason\Local Settings\Application Data\Google\Chrome\Application
start chrome.exe www.%cho3%
goto run

:just run chrome
cd C:\Documents and Settings\jason\Local Settings\Application Data\Google\Chrome\Application
start chrome.exe
goto run

:end



i could make it do a sort of goolge sarch thing more on that later (i need to go now)

Won't work unless you replace C:\Documents and Settings\jason with %userprofile%, and you wrap it in quotes...you'll get an error otherwise.

you mean it wont work on your computer cause it works on mine

A space is needed between the Set and /P 

it makes list of specified folders and then you can use this to jump there fast everywhere on your disks like games movies etc.

Code: [Select]

@echo off
mode 50,100
setlocal enabledelayedexpansion

REM <!-- SETUP

set selIco=[%%]
set unselIco= %%
set yourDir="E:\MEDIA\" "F:\MEDIA\"

REM PUT "" ON ALL DIRS & PUT \ AT THE END

REM -->

set num=1
for /f "tokens=*" %%a in ('dir /b %yourDir%') do (
set Ico!num!=%unselIco%
set word!num!=%%a
set /a num+=1
)

set /a maxnum=%num%-1
set Ico1=%selIco%
set num=1
set selNum=1

:ECHO
cls
set num=1
echo.#############################
echo.
for %%a in (%yourDir%) do (
echo.------------------------- %%a
for /f %%b in ('dir /b %%a') do (
call set tmpw=%%Ico!num!%%%%word!num!%%%
echo !tmpw!
set /a num+=1
)
echo.
)
call echo.Selected: %selNum% %%word%selNum%%%
echo.#############################
choice.exe /C wsd >nul

if %errorlevel% equ 1 goto UP
if %errorlevel% equ 2 goto DN
if %errorlevel% equ 3 goto START
goto ECHO

:UP
set Ico%selNum%=%unselIco%
set /a selNum-=1
if %selNum% lss 1 set selNum=%maxnum%
set Ico%selNum%=%selIco%
goto ECHO


:DN
set Ico%selNum%=%unselIco%
set /a selNum+=1
if %selNum% gtr %maxnum% set selNum=1
set Ico%selNum%=%selIco%
goto ECHO

:START
call set tmpa=%%word%selNum%%%
for %%a in (%yourDir%) do (
set tmpb=%%~a
if exist "!tmpb!\%tmpa%" set openDir=!tmpb!
)

start explorer "%openDir%%tmpa%"
exit
PS well i dont speek english so good to tell you this script do but try it

EDIT: ofc you need choice.exe

you mean it wont work on your computer cause it works on mine

But because you posted it here, it is meant to be used by others. Userprofile is the variable for C:\Documents and Settings\USERNAME , and changes for each computer allowing any computer which runs it to use it.

Finished SysStat v3.

With new features:
-Format Floppies
-Check Processor Type, ID, etc.
-Operation History(This show what features you have used in the past)
-Error Notification

There is also a Temp folder created at first run to store the operation log.

Enjoy

[attachment deleted by admin]

A space is needed between the Set and /P 

wrong, the following will work
set/p var=enter value:
no space needed between set and /p

quotes for pathname containing space is needed for copy, move, ren, dir, del, etc..etc..
quotes for pathname containing space is optional for cd

ESRB Rating: A 

AO...Adult Only.

i've just finished audio player it plays only .mp3 files, you can create your playlist and it will auto play them

this is how it looks:

Code: [Select]

================================================================
LIST:
28 - ZZ Top - La Grange.mp3
34 - Tenacious D - The Metal.mp3
37 - Slipknot - Before I Forget.mp3
52 - Dragonforce - Through The Fire And The Flames.mp3
================================================================
Now playing:

Artist  :       Dragonforce
Title   :       Through the Fire and Flames
Genre   :

428s. <> [##                                                  ]
================================================================
O - open new file
P - stop played file & pause
C - clear temp
D - next file

tell me an errors...


EDIT:

you can find it here :http://www.computerhope.com/forum/index.php/topic,59426.msg565578.html#msg565578

Seems to be missing Playlist.lst