Program Batch Saya

Program TTS (Text To Speech) sederhana.
(Tingkat: mudah)
Program TTS Sederhana menggunakan VBScript

@echo off

:start

cls

set /p a=bilang apa:

echo CreateObject("SAPI.SpVoice").Speak"%a%" > "D:\sp.vbs"

start D:\sp.vbs

pause

del D:\sp.vbs

goto start

Pencari Simbol Bahan Kimia (menggunakan perintah "find")
(Tingkat: mudah)
Ini adalah program yang datanya saya salin dari buku IPA saya.

@echo off

:start

cls

set /p f=cari: 

type Dictscdata. | find "%f%"

if %errorlevel%==1 echo tdk ketemu

pause

goto start

::program selesai //closing program

Jangan lupa datanya:

:H=hydrogen

:He=helium

:Li=lithium

:Be=berryllium

:B=boron

:C=carbom

:N=nitrogen

:O=oxygen

:F=fluorine

:Ne=neon

:Na=sodium

:Mg=magnesium

:Al=aluminium

:Si=silicon

:P=phosporus

:S=sulphur

:Cl=chlorine

:Ar=argon

:K=pottasium

:Ca=calcium

:Sc=scandium

:Ti=titanium

:V=vanadium

:Cr=chromium

:Mn=mangaan

:Fe=iron

:Co=cobalt

:Ni=nickel

:Cu=copper

:Zn=zinc

:Ga=gallium

:Ge=germanium

:As=arsen

:Se=selenium

:Br=bromine

:Kr=crypton

:Rb=rubidium

:Sr=strontium

:Zr=zirconium

:Nb=niobium

:Mo=molybdenum

:Tc=technetium

:Rh=ruthenium

:Pd=palladium

:Ag=silver/argentum

:Cd=cadmium

:In=indium

:Sn=tin

:Sb=antimon

:Te=telurium

:I=iodine

:Xe=xenon

:Cs=caesium

:Ba=barium

:La=lantanum

:Pr=praeseodimium

:Nd=neodimium

:Pr=prometium

:Sm=samarium

:Eu=europium

:Gd=gadolinium

:Tb=terbium

:Dy=disprosium

:Ho=holmium

:Er=erbium

:Tm=thulium

:Lu=lutessium

:Hf=hafnium

:Ta=tantalum

:w=tungsten

:Re=rhenium

:Os=osmium

:Ir=iridium

:Pt=platinum

:Au=gold

:Hg=mercury

:Tl=thallium

:Pb=lead

:Bi=bismuth

:Po=polonium

:At=astatine

:Rn=radon

:Fr=francium

:Ra=radium

:Ac=actinium

:th=thorium

:Pa=protactinium

:U=uranium

:Np=neptunium

:Pu=plutonium

:Am=americium

:Cm=curium

:Bk=berkelium

:Cf=californium

:Es=einsteinium

:Fm=fermium

:Md=mendelevium

:No=nobelium

:Lr=laurensium

:Yb=iterbium

save data diatas di notepad, save as > Dictscdata.
jangan lupa titik. (dictscdata".")

Countdowner 1
(Tingkat: sedang-sulit)
Meskipun namanya Countdowner, cara kerjanya hampir persis alarm, hanya lebih sederhana jika anda merangkum script-nya. Jika sudah sampai waktunya program ini akan mengatakan "selesai".*

@echo off

setlocal enabledelayedexpansion

:start

set from=%time%

set /p until=Sampai(hh:mm:ss):  

:loop

echo %from:~0,2% | find "" && if ERRORLEVEL 0 set b=%from:~0,2% & set fh=%b:~1,1% & if not ERRORLEVEL 0 set fh=%from:~0,2%

echo %from:~3,2% | find "0" && if ERRORLEVEL 0 set b=%from:~3,2% & set fm=%b:~1,1% & if not ERRORLEVEL 0 set fm=%from:~3,2%

echo %from:~6,2% | find "0" && if ERRORLEVEL 0 set b=%from:~6,2% & set fs=%b:~1,1% & if not ERRORLEVEL 0 set fs=%from:~6,2%

echo %until:~0,2% | find "" && if ERRORLEVEL 0 set b=%until:~0,2% & set uh=%b:~1,1% & if not ERRORLEVEL 0 set uh=%until:~0,2%

echo %until:~3,2% | find "0" && if ERRORLEVEL 0 set b=%until:~3,2% & set um=%b:~1,1% & if not ERRORLEVEL 0 set um=%until:~3,2%

echo %until:~6,2% | find "0" && if ERRORLEVEL 0 set b=%until:~6,2% & set us=%b:~1,1% & if not ERRORLEVEL 0 set us=%until:~6,2%

set /a fhs=%fh% * 3600

set /a fms=%fm% * 60

set /a fss=%fs%

set /a ft=%fhs% + %fms% + %fss%

set /a uhs=%uh% * 3600

set /a ums=%um% * 60

set /a uss=%us%

set /a ut=%uhs% + %ums% + %uss%

set /a total=%ut% - %ft%

echo %total% detik tersisa

if %total% leq 0 goto finish

if not %total% leq 0 goto loop

:finish

echo selesai

pause

exit

*telah dicoba pada komputer saya, jika program ini tidak bekerja, ada 3 kemungkinan:
-komputer saya rusak
-beda pengaturan waktu
-komputer anda yang rusak(bercanda)

Countdowner 2
(Tingkat: sulit)
Beda dengan versi 1, inputnya adalah berapa lama program akan melakkukan perintah, bukan jam berapa.

@echo off

title Countdowner ver.4

setlocal enabledelayedexpansion

:start

echo Jangan masukkan angka 08 tapi angka 8

echo Hitung mundur

set /p uh=mulai jam(minimal 0):  

set /p um=mulai menit(minimal 0):  

set /p us=mulai detik(minmal 0):  

set /p pp=perintah setelah waktu habis(cmd command):  

set tnow=%time:~0,8%

if %tnow:~6,2%==%lsec:~6,2% goto count

for /f "tokens=1,2,3 delims=:" %%A in ("%tnow%") do set sh=%%A & set sm=%%B & set ss=%%C

if %sm%==08 set sm=8

if %ss%==08 set ss=8

set /a csh=%sh% * 3600

set /a csm=%sm% * 60

set /a css=%ss%

set /a cst=%csh% + %csm% + %css%

set /a cuh=%uh% * 3600 + %csh%

set /a cum=%um% * 60 + %csm%

set /a cus=%us% + %css%

set /a cut=%cuh% + %cum% + %cus%

set /a total=%cut% - %cst%

set /a targ=%total% + %cst%

:count

cls

set tnow=%time:~0,8%

if %tnow:~6,2%==%lsec:~6,2% goto count

for /f "tokens=1,2,3 delims=:" %%A in ("%tnow%") do set sh=%%A & set sm=%%B & set ss=%%C

if %sm%==08 set sm=8

if %ss%==08 set ss=8

set /a csh=%sh% * 3600

set /a csm=%sm% * 60

set /a css=%ss%

set /a cst=%csh% + %csm% + %css%

set /a hr=%total%/3600

set /a b=%total%%%3600

set /a mr=%b%/60

set /a sr=%b%%%60

set /a total=%cut% - %cst%

set /a targ=%total% + %cst%

set /a h=%targ%/3600

set /a b=%targ%%%3600

set /a m=%b%/60

set /a s=%b%%%60

echo %hr% jam, %mr% menit, dan %sr% detik tersisa

echo Target: %h%:%m%:%s%

ping -n 1 localhost >nul

if %total% leq 0 goto finish

if not %total% leq 0 goto count

set lsec=%tnow%

:finish

%pp%

exit

rundll32.exe user32.dll,LockWorkStation

pause

exit

FileLocker 
(Tingkat: sedang)
(update: blok akses folder)
Program ini dapat membantu mengamankan data anda. Program ini dapat:
1)Mengunci/membuka kunci file.
2)Mengunci/membuka kunci folder
3)Menyembunyikan/memunculkan file/folder
4)Memblok/membuka akses file/folder

@echo off
title FileLocker
echo Persyaratan:
echo OS Windows XP / Vista / 7
echo Jika tidak sesuai dengan persyaratan diatas, program mungkin akan error, tetapi tidak merusak file lain.
echo.
echo Apakah telah memenuhi persyaratan diatas?
choice /c yn
if ERRORLEVEL 2 exit
:start
cls
echo Pilih salah satu:
echo 1. Kunci file
echo 2. Kunci folder
echo 3. Sembunyikan file/folder
echo.
echo =========
echo.
echo 4. Buka kunci file
echo 5. Buka kunci folder
echo 6. Munculkan file/folder
echo.
echo =========
echo.
echo 7. Blok akses file/folder
echo 8. Buka akses file/folder
set /p choose=pilihan:  

if %choose%==1 goto 1
if %choose%==2 goto 2
if %choose%==3 goto 3

if %choose%==4 goto 4
if %choose%==5 goto 5
if %choose%==6 goto 6
if %choose%==7 goto 7
if %choose%==8 goto 8

:1
cls
echo File yang dikunci tidak akan bisa di "Choose default program".
echo File yang dikunci tidak akan memiliki ekstensi.

echo catatan: disarankan untuk tidak mengunci dokumen atau gambar, atau tidak memberitahukan tipe file yang dikunci, karena masih dapat dibuka dengan program yang bersangkutan. Program/aplikasi adalah yang paling baik untuk dikunci.
echo.
set /p fin=Drag file kesini, lalu tekan Enter:   
echo.
set /p name=Masukkan nama file yang akan dikunci(terserah):  
ren %fin% "%name%."

if %errorlevel%==1 echo Maaf, terjadi error & pause >nul && goto start

echo Sudah...
echo.
echo Simpan log?(log akan disimpan di tempat program ini disimpan)
choice /c yn
if %errorlevel%==1 goto log

echo Selesai...
pause >nul
goto start

:2
cls
echo Folder yang dikunci akan berubah bentuk seperti Recycle Bin
echo.
set /p fin=Drag folder kesini, lalu tekan Enter:   
echo.
set /p name=Masukkan nama folder yang akan dikunci(terserah):  
ren %fin% "%name%.{645FF040-5081-101B-9F08-00AA002F954E}"

if %errorlevel%==1 echo Maaf, terjadi error & pause >nul && goto start

echo Sudah...
echo.
echo Simpan log?(log akan disimpan di tempat program ini disimpan)
choice /c yn
if %errorlevel%==1 goto log

echo Selesai...
pause >nul
goto start

:3
cls
echo File/folder akan hilang dan tidak bisa ditemukan, bahkan di-search, tetapi file/folder tidak akan terhapus/hilang dari harddisk.
echo.
set /p fin=Drag file/folder kesini, lalu tekan Enter:   
attrib %fin% +s +r +h

if %errorlevel%==1 echo Maaf, terjadi error & pause >nul && goto start

echo Sudah...
echo.
echo Simpan log?(log akan disimpan di tempat program ini disimpan)
choice /c yn
if %errorlevel%==1 goto log

echo Selesai...



pause >nul
goto start

:4
cls
set /p fin=Drag file kesini, lalu tekan Enter:   
echo.
echo Jika anda lupa ekstensi file yang terkunci, coba lihat di log.txt
set /p name=Masukkan nama file yang akan dibuka(terserah):  
echo.
set /p ex=Masukan ekstensi file:  
ren %fin% "%name%.%ex%"

if %errorlevel%==1 echo Maaf, terjadi error & pause >nul && goto start

echo Sudah...
pause >nul
goto start

:5
cls
set /p fin=Drag folder kesini, lalu tekan Enter:
echo.
echo Jika anda lupa ekstensi file yang terkunci, coba lihat di log.txt
set /p name=Masukkan nama folder yang akan dikunci(terserah):  
ren %fin% "%name%"

if %errorlevel%==1 echo Maaf, terjadi error & pause >nul && goto start

echo Sudah...
pause >nul
goto start

:6
cls
set /p fin=Masukkan alamat folder yang dihilangkan, lalu tekan Enter:   
attrib "%fin%" -s -r -h

if %errorlevel%==1 echo Maaf, terjadi error & pause >nul && goto start

echo Sudah...
pause >nul
goto start

:log
echo file dengan alamat %fin% telah dikunci dengan nama %name% >>log.txt
echo Selesai...

:7
cls
echo File/folder akan diblok aksesnya, sehingga tidak dapat dipindah, dibuka, dan di-rename
echo.
set /p fin=Drag file/folder kesini, lalu tekan Enter:  
cacls %fin% /e /c /d everyone
echo.
echo Simpan log?(log akan disimpan di tempat program ini disimpan)
choice /c yn
if %errorlevel%==1 goto log
echo Selesai...
pause >nul
goto start


:8
cls
set /p fin=Drag file/folder kesini, lalu tekan Enter:  
cacls %fin% /e /c /g everyone:f
echo Selesai...
pause >nul
goto start



pause >nul
goto start

TenseDetector
Pendeteksi tenses apa yang digunakan dalam kalimat dalam bahasa inggris(tidak terlalu akurat)(proyek batal)



Scheduler
(Tingkat: sedang-mudah)
Penjadwal untuk seperti Shutdown, Restart, Lock Workstation, dan Hibernate menggunakan program batch sederhana.

@echo off
title Scheduler
:term
echo Persyaratan:
echo OS Windows (telah dicoba di Win7)
echo.
echo Apakah telah memenuhi syarat diatas?
choice /c yn
if %errorlevel%==2 exit

:start
echo 1. Shutdown
echo 2. Hibernate
echo 3. Lock Workstation
echo 4. Restart
choice /c 1234
if %errorlevel%==1 goto shutdown
if %errorlevel%==2 goto hibernate
if %errorlevel%==3 goto lworks
if %errorlevel%==4 goto restart
else goto start

:shutdown
echo Jadwal shutdown?
choice /c yn
if %errorlevel%==2 shutdown -s -t 0 & goto start
echo Selesai pada jam: [hh(24):mm:ss]
set /p timeout=^>
set command=shutdown -s -t 0
goto loop

:loop
cls
echo Tunggu (%time%)
echo %time% | find "%timeout%"
if %errorlevel%==0 %command% & goto start
if %errorlevel%==1 goto loop

:hibernate
echo Jadwal hibernate?
choice /c yn
if %errorlevel%==2 Rundll32.exe PowrProf.dll,SetSuspendState Hibernate & goto start
echo Selesai pada jam: [hh(24):mm:ss]
set /p timeout=^>
set command=Rundll32.exe PowrProf.dll,SetSuspendState Hibernate
goto loop

:lworks
echo Jadwal Lock Workstation?
choice /c yn
if %errorlevel%==2 rundll32.exe user32.dll, LockWorkStation & goto start
echo Selesai pada jam: [hh(24):mm:ss]
set /p timeout=^>
set command=rundll32.exe user32.dll, LockWorkStation
goto loop

:restart
echo Jadwal restart?
choice /c yn
if %errorlevel%==2 shutdown.exe -r -t 0 & goto start
echo Selesai pada jam: [hh(24):mm:ss]
set /p timeout=^>
set command=shutdown.exe -r -t 0
goto loop

 
File Verifier
(Tingkat: mudah)
Cek jika file Anda masih asli / belum diubah. File ini akan mendaftarkan kode unik untuk file anda pada file "reg" untuk dicocokkan dengan file anda.
(program ini membutuhkan checksum.exe, bisa didownload disini, 100% tanpa virus. Extract file checksum.zip ke C:\windows\system32\ atau di tempat yang sama dengan program ini.)

@echo off
:start
cls
echo 1. Daftarkan file
echo 2. Cek file terdaftar
set /p c=^>
if %c%==1 goto reg
if %c%==2 goto check
if not %c%==2 goto start

:reg
set /p "file=Drag file kesini:   "

checksum -a md5 -q %file% > temp.txt
set /p reg=< temp.txt
del /f temp.txt

echo "%reg% %file%" >>reg.cab
echo kode untuk file anda: %reg%
echo Selesai...
pause
goto start

:check
set /p "file=Drag file kesini:   "

checksum -a md5 -q %file% > temp.txt
set /p reg=< temp.txt
del /f temp.txt

set file=%file:"=%

type "%cd%\reg.cab" | find "%reg%" >nul
if %errorlevel%==1 (
goto modif
)
if %errorlevel%==0 (
goto nmodif
)
goto start

:nmodif
type "%cd%\reg.cab" | find "%file%" | find "%reg%" >nul
if %errorlevel%==0 (
echo Masih asli
pause
goto start
) else (
echo Lokasi/direktori atau nama file telah diubah
pause
goto start
)
goto start

:modif
type "%cd%\reg.cab" | find "%file%" >nul
if %errorlevel%==0 (
echo Isi file telah diubah
pause
goto start
) else (
echo File tidak terdaftar atau sama sekali telah diubah
pause
goto start
)

AdShortcut
(Tingkat: mudah-sedang)
Desktop kedua untuk desktop anda. Satu shortcut yang dapat menyimpan banyak shortcut
(Simpan dengan nama "adshort.bat", jangan diganti)

@echo off
setlocal enabledelayedexpansion
set req=true

:menu
cls
echo daftar:
call :shorts
echo.
echo.
set /p c=pilihan (ketik "new" untuk tambah daftar):  
if %c%==new goto add
if not defined %c% echo Judul tidak ketemu... & pause >nul & goto menu

start "" !%c%! & goto menu


:add
set /p t=Judul shortcut:
set /p f=File/folder yang dibuka(drag kesini):

echo set %t%=%f% ^& echo %t% >>adshort.bat
echo Selesai
pause
goto menu


:shorts
::hapus teks ini, jangan hapus baris ini, sebelum penggunaan


Snote
(Tingkat: sedang-sulit)
Update:
1. Penyimpanan password lebih aman
2. Penyimpanan catatan lebih aman, bisa dibuka jika login
3. Tidak harus di save as snote.bat
Snote, program yang dapat menyimpan catatan anda dengan aman (kecuali jika dibobol programmer lain).


@echo off
if not exist pastore.ini echo. >pastore.ini & cacls pastore.ini /e /c /d everyone >nul
title Snote
:start
cls
echo 1. buat akun baru
echo 2. log in
set /p in=   
if %in%==1 goto nuser
if %in%==2 goto login

:nuser
echo Anda tidak dapat menghapus, mengganti nama akun setelah didaftarkan

set /p usn=Masukkan username(tanpa spasi): 
set /p psw=Masukkan password(tanpa spasi): 
cacls pastore.ini /e /c /g everyone:f >nul
ren pastore.ini pastore.bat
type "%cd%\pastore.bat" | find "%usn%." >nul
if %errorlevel%==0 goto userused
set login=%login%
echo if %%login%%==%usn%.%psw% set good=1 >> pastore.bat
ren pastore.bat pastore.ini
cacls pastore.ini /e /c /d everyone >nul
echo akun jadi...
pause
goto start

:userused
ren pastore.bat pastore.ini
cacls pastore.ini /e /c /d everyone >nul
echo username sudah digunakan
pause
goto start

:login
set good=0
set /p u=username: 
set /p p=password: 
set login=%u%.%p%
cacls pastore.ini /e /c /g everyone:f >nul
ren pastore.ini pastore.bat
call pastore.bat if %errorlevel%==1 goto login

if %good%==1 (
ren pastore.bat pastore.ini
cacls pastore.ini /e /c /d everyone >nul
goto dowhat
)
ren pastore.bat pastore.ini
cacls pastore.ini /e /c /d everyone >nul
echo username/password salah.
echo 1. buat akun baru
echo 2. coba lagi
set /p win=
if %win%==1 goto nuser
if %win%==2 goto login
if not %win%==2 goto start
goto login

:dowhat
cls
title Snote: %u%
echo 1. tulis catatan baru
echo 2. lihat catatan
echo 3. log out
echo 4. hapus semua catatan
echo 5. kirim catatan ke akun lain
echo 6. lihat catatan dari catatan umum
echo 7. tambah password alternatif
echo 8. ubah catatan menjadi pribadi
echo 9. ubah catatan menjadi umum
set /p inl=number:
if %inl%==9 cacls %u%data.format /e /c /g everyone:f >nul & goto cpub
if %inl%==8 cacls %u%data.format /e /c /g everyone:f >nul & goto cprivate
if %inl%==1 cacls %u%data.format /e /c /g everyone:f >nul & goto nnote
if %inl%==2 cacls %u%data.format /e /c /g everyone:f >nul  & goto lnote
if %inl%==3 cacls %u%data.format /e /c /d everyone >nul  & echo Logged out & pause & goto start
if %inl%==4 cacls %u%data.format /e /c /g everyone:f >nul  & goto dnote
if %inl%==5 goto adon
if %inl%==6 goto rpub
if %inl%==7 goto alpass
if not %inl%==6 goto dowhat

:cpub
if not exist %u%data.format echo anda belum punya catatan apapun & pause & goto dowhat
attrib %u%data.format -s -h
echo Selesai
cacls %u%data.format /e /c /d everyone >nul
pause
goto dowhat

:cprivate
if not exist %u%data.format echo anda belum punya catatan apapun & pause & goto dowhat
attrib %u%data.format +s +h
echo Selesai
cacls %u%data.format /e /c /d everyone >nul
pause
goto dowhat


:nnote
cls
title Snote: Catatan Baru
if exist %u%data.format attrib %u%data.format -r
echo Ketik catatan(tekan enter jika selesai):
set /p nnote= 
(
echo %u%:
echo pada %time%, %date%:
echo.
echo %nnote%
echo.=====================
)>> %u%data.format
attrib %u%data.format +r
cacls %u%data.format /e /c /d everyone >nul
goto dowhat

:lnote
cls
title Snote: Catatan %u%
type %u%data.format
pause
cacls %u%data.format /e /c /d everyone >nul
goto dowhat


:dnote
del /f "%cd%\%u%data.format"
goto dowhat

:adon
title Snote: Kirim catatan
set /p userto=nama akun penerima("public" untuk mengirim pesan ke pesan umum): 
set /p ncont=catatan untuk dikirim: 
if not "%userto%"=="public" goto nopublic

(
echo Dari %u%:
echo pada %time%, %date%
echo.
echo %ncont%
echo.=====================
)>> %userto%data.format
goto dowhat


:nopublic

cacls %userto%data.format /e /c /g everyone:f >nul
if exist %u%data.format attrib %userto%data.format -r
(
echo Dari %u%:
echo pada %time%, %date%
echo.
echo %ncont%
echo.=====================
)>> %userto%data.format
attrib %u%data.format +r
cacls %userto%data.format /e /c /d everyone >nul
pause
goto dowhat

:rpub
title Snote: Catatan Umum
type "%cd%\publicdata.format"
pause
goto dowhat

:alpass
title Snote: Password Alternatif
echo Masukkan password alternatif:
set /p alp=
echo if %%login%%==%u%.%alp% set good=1 >> snote.bat
goto dowhat

Algebra Solver
(Tingkat: sedang)
Program yang dapat menyelesaikan persoalan aljabar. Sementara ini program ini hanya dapat menyelesaikan aljabar dengan penjumlahan, pengurangan, dan variabel N saja.

@echo off
:start
set /p math=Equation(n as variable):
set /p eq=Equal to:

:count
set m=%math%
set m=%m:+n=-n%
set m=%m:-n=-n%




:count2
echo %m% | find "n*" >nul
if %errorlevel%==0 goto count3
set n=%eq%
set /a re=%m%
echo %re:-=%
pause
exit

WordCounter
(Tingkat: sulit)
Program yang terlihat mudah, tapi untuk membuat terlihat mudah sangan sulit. Program ini dapat menghitung jumlah karakter dan kata.

@echo off
title Word Counter
setlocal enabledelayedexpansion
setlocal enableextensions
set good=0
echo Hasil yang paling akurat adalah jumlah karakter.
:start
set /p w=Masukkan kalimat:  
if %good%==1 goto cletter
set l=0
set r=1
:cletter


set a=w:~%l%,1
set b=w:~%l%,8
set /a ll=%l% + 1
set c=w:~%ll%,1
if "!%b%!"=="(ndownn)" (
set /a l=%l% + 2
set /a r=%r% + 1
set good=1
goto start
)
if "!%a%!"=="" (
goto finish
)
if "!%a%!"==" " (
if "!%c%!"==" " set /a l=%l% + 1
if not "!%c%!"==" " set /a l=%l% + 1 & set /a r=%r% + 1
goto cletter
) else (
set /a l=%l% + 1
goto cletter
)


pause

:finish
echo Total %l% karakter dan %r% kata
pause


USB Tracker
Program ini akan memberi notifikasi jika flashdisk Anda dipasang/dicabut orang lain.

@echo off
set def=%cd%
:start
cls
title USBTrack
echo. USB Track
echo.
echo 1. Daftarkan flashdisk anda
echo 2. Mulai lacak (jika flashdisk sudah didaftarkan)

set /p c=^>
if %c%==1 goto reg
if %c%==2 goto track
if %c%==3 goto log
if not %c%==3 goto start

:reg
set /p name=Nama flashdisk/usb (terserah):
set /p drive=Huruf drive (C:\ atau D:\ atau E:\ dll):
echo Memasang...
echo set now=%name% >%drive%trackid.bat
echo Selesai...
pause
goto start

:track
set /p drive=Huruf drive  yang akan dilacak (C:\ atau D:\ atau E:\ dll):
echo Pasang alarm jika flashdisk dicabut?
choice /c yn
if %errorlevel%==1 (
set walarm=true
) else (
set walarm=false
)

cd /d %drive%
if %errorlevel%==1 (
echo Maaf, flashdisk/usb tidak tersedia.
pause
goto start
)
if not exist %drive%trackid.bat (
echo Maaf, flashdisk tidak terdaftar
pause
goto start
)
set counter=false
echo Memulai pelacakan...
:tracking
ping -n 1 1.1.1.1 -w 1000 >nul
if not exist %drive%trackid.bat (
cd /d %def%
ping -n 1 1.1.1.1 -w 1000 >nul
goto notfound
) else (
cd /d %drive%
goto found
)

:notfound

title Tutup untuk berhenti melacak. Status: tercabut. Nama: %now%

if %counter%==true (
echo flashdisk %now% tercabut
echo %time% %date% flashdisk %now% dicabut >>%def%\log.txt
set counter=false
)
if %walarm%==true echo Flashdisk Dicabut! & goto beeping
ping -n 1 1.1.1.1 -w 1000 >nul
goto tracking

:found
ping -n 1 1.1.1.1 -w 1000 >nul
call trackid.bat
title Tutup untuk berhenti melacak. Status: terpasang. Nama: %now%

if %counter%==false (
echo flashdisk %now% terpasang
echo %time% %date% flashdisk %now% dipasang >>%def%\log.txt
set counter=true
)
goto tracking

:beeping
title Flashdisk Dicabut
>nul
cls
ping -n 1 1.1.1.1 -w 100 >nul
goto beeping

Subtitle Maker (dasar)
Program ini dapat sedikit lebih membantu Anda dalam membuat subtitle untuk film. Kelebihan program ini adalah ukurannya hanya 2 kb. Program ini akan membuat file "(nama).srt" yang dapat dibuka oleh video player Anda (misal VLC).

@echo off
set frame=0

:startup
echo Nama subtitle(tanpa spasi):
set /p nm=^>
if exist %nm%.srt goto reprompt
if not exist %nm%.srt echo. >%nm%.srt
echo.
goto make

:reprompt
echo File sudah ada, tekan Y untuk membuat ulang atau C untuk melanjutkan
choice /c yc
if %errorlevel%==1 goto make
if %errorlevel%==2 (
set /p frame=Lanjutkan mulai dari frame:
set /a frame=%frame%-1
goto make
)

:make
cls
set /a frame=%frame%+1
echo Tutup Program untuk berhenti
echo Frame saat ini: %frame%
echo Waktu awal/akhir ^(jam:menit:detik,subdetik^)^(misal waktu awal: 00:05:02,945 ^)^(misal waktu akhir: 00:05:15,012 ^)
set /p wa=Waktu awal:
set /p wk=Waktu akhir:
set /p txt=Teks:

(
echo %frame%
echo %wa% --^> %wk%
echo %txt%
echo.
) >>%nm%.srt
goto make2


:make2
cls
set framen=%frame%
set /a frame=%frame%+1
echo Tutup Program untuk berhenti
echo. ==
echo Sebelumnya:
echo Frame %framen%
echo Detik %wa% --^> %wk% : %txt%
echo.
echo ============
echo Frame %frame%
echo Waktu awal/akhir ^(jam:menit:detik,subdetik^)^(misal waktu awal: 00:05:02,945 ^)^(misal waktu akhir: 00:05:15,012 ^)
set /p wa=Waktu awal:
set /p wk=Waktu akhir:
set /p txt=Teks:

(
echo %frame%
echo %wa% --^> %wk%
echo %txt%
echo.
) >>%nm%.srt
goto make2

Algebra Solver 2
Sebelumnya saya telah membuat program Algebra Solver, yang hanya dapat menyelesaikan persamaan matematika penjumlahan dan pengurangan saja, dan dengan algoritma yang sederhana.

Dalam program ini, Anda sekarang dapat memasukkan hampir semua persamaan aljabar matematika (kecuali pangkat dan akar), dengan variabel N saja. Dan dalam program kali ini cara yang digunakan adalah dengan menebak angka satu per satu, atau mungkin istilahnya brute force.

@echo off
set n=0

:start
set /p in=Persamaan matematika(variabel n)(tanpa hasil):
set /p res=Hasil persamaan:

:count
set /a ans=%in%
if %ans%==%res% (
goto ans
) else (
set /a n=n+1
goto count
)

:ans
echo n adalah %n%
pause