Windows basic progam Ver.Batch

Baiklah, kita akan sedikit bereksperimen lagi dengan BATCH Programming. Disini saya akan membuat suatu BATCH program, yang fungsinya untuk mempercepat kita membuka Program2 bawaan windows.
Seperti misalanya, Microsoft Paint, Notepad, Remote Desktop Protocol, Telnet, dll..
Tak usah berlama – lama ria deh, ini saya sudah membuat softwarenya. Dan formatnya tidak lagi dalam Bat, tapi sudah di konversi ke Exe. Lansung sedot gan…. Tidak akan lama koq, karena ukuran filenya yang sangat kecil.

Download aplikasinya berikut :

Windows Basic Program via Ziddu (langsung sedot gan

Berikut Source Codenya di bawah ini, silahkan anda Copy saja, siapa tahu bisa di kembangkan lagi.

@echo off
color 0a
title www.jokamIT.co.cc
mode 70,40

:menu
date /t
time /t
echo.
echo =====================================================================
echo ======================= Daftar Windows Program ======================
echo =====================================================================
echo.
echo [1]. Microsoft Paint (mspaint)
echo [2]. Notepad (notepad)
echo [3]. Wordpad (wordpad)
echo [4]. Internet Explorer (iexplore)
echo [5]. Windows Media Player (wmplayer)
echo [6]. Command Prompt (cmd)
echo [7]. Task Manager (taskmgr)
echo [8]. Hyper Terminal (hypertrm)
echo [9]. Telnet Connection (telnet)
echo [10]. File Transfer Protocol (ftp)
echo [11]. NetMeeting (conf)
echo [12]. DirectX Diagnostic Tool (dxdiag)
echo [13]. Calculator (calc)
echo [14]. Remote Desktop Connection (mstsc)
echo [15]. Modifikasi Registri (regedit)
echo [16]. Control User (control userpasswords2)
echo [17]. Modifikasi User (net user)
echo [18]. Shutdown, Restart, LOg Off (shutdown)
echo [19]. Merubah IP Address (netsh)
echo [20]. Chat dengan Mesin
echo [21]. Membuat Folder di Desktop
echo [22]. About The Creator
echo [00]. Exit This Fucking Program
echo.
echo Masukan salah satu pilihan nomor diatas..!!
echo.
set /p input= Pilihan :
cls
if not defined input goto menu
if %input%==1 start mspaint
if %input%==2 start notepad
if %input%==3 start wordpad
if %input%==4 start iexplore
if %input%==5 start wmplayer
if %input%==6 start cmd
if %input%==7 start taskmgr
if %input%==8 start hypertrm
if %input%==9 start telnet
if %input%==10 start ftp
if %input%==11 start conf
if %input%==12 start dxdiag
if %input%==13 start calc
if %input%==14 goto remote
if %input%==15 start regedit
if %input%==16 start control userpasswords2
if %input%==17 goto user
if %input%==18 goto mati
if %input%==19 goto ip
if %input%==20 goto chat
if %input%==21 goto folder
if %input%==22 goto creator
if %input%==00 exit
goto menu

:remote
echo.============
echo [b]. Kembali
echo ============
echo.
echo Wellcome To Remote Desktop Connection
echo.
set /p comp= IP Target :
cls
if not defined comp goto remote
if %comp%==b goto menu
mstsc /v:%comp%
goto remote

:user
echo Wellcome To Windows User Configuration
echo.
echo [1]. Melihat User
echo [2]. Menambah User
echo [3]. Menghapus User
echo [4]. Menghilangkan Pass. Admin
echo [5]. Melihat PC di Jaringan
echo [b]. Kembali
echo.
set /p input2= Pilihan Anda :
cls
if not defined input2 goto user
if %input2%==1 goto view
if %input2%==2 goto add
if %input2%==3 goto del
if %input2%==4 goto admin
if %input2%==5 goto net
if %input2%==b goto menu
goto user

:view
echo.============
echo [b]. Kembali
echo ============
echo.
echo Melihat User
echo.
net user
echo.
set /p input2a= Pilihan :
cls
if not defined input2a goto view
if %input2a%==b goto user
goto view

:add
echo.============
echo [b]. Kembali
echo ============
echo.
echo Menambah User
echo.
set /p name= Nama User   :
if not defined name cls
if not defined name goto add
if %name%==b cls
if %name%==b goto user
echo.
set /p pass= Password User   :
if not defined pass cls
if not defined pass goto add
if %pass%==b cls
if %pass%==b goto user
echo.
net user %name% %pass% /add
net user
echo.
echo Tekan ENTER
pause>nul
cls
goto add

:del
echo.============
echo [b]. Kembali
echo ============
echo.
echo Menghapus User
echo.
net user
echo.
set /p name2= Nama User  :
if not defined name2 cls
if not defined name2 goto del
if %name2%==b cls
if %name2%==b goto user
echo.
net user %name2% /del
echo.
net user
echo.
echo Tekan ENTER
pause>nul
cls
goto del

:admin
echo.============
echo [b]. Kembali
echo ============
echo.
echo Tekan ENTER 2x untuk menghilangkan PASSWORD ADMINSTRATOR
net user administrator *
echo.
echo SELAMAT PASSWORD SUDAH HILANG
echo.
set /p input9= Pilihan :
cls
if not defined input9 goto admin
if %input9%==b goto user
goto admin

:net
echo.============
echo [b]. Kembali
echo ============
echo.
echo Melihat PC di Jaringan
echo.
net view
echo.
set /p input8= Pilihan :
cls
if not defined input8 goto net
if %input8%==b goto menu
goto net

:mati
echo [1]. Shutdown
echo [2]. Log Off
echo [3]. Restart
echo [4]. BATAL..!!!
echo [b]. Kembali
echo.
set /p inputm= Pilihan Anda :
cls
if not defined inputm goto mati
if %inputm%==1 shutdown -s -t 20 -c "KOMPUTER AKAN SEGERA MATI, SILAHKAN SAVE SEMUA DATA"
if %inputm%==2 shutdown -l
if %inputm%==3 shutdown -r -t 20 -c "KOMPUTER AKAN SEGERA REBOOT, SILAHKAN SAVE SEMUA DATA"
if %inputm%==4 shutdown -a
if %inputm%==b goto menu
goto mati

:ip
echo.============
echo [b]. Kembali
echo ============
echo.
echo Ip Address Configuration
echo.
ipconfig
echo.
set /p ip2= IP ADDRESS :
if not defined ip2 cls
if not defined ip2 goto ip
if %ip2%==b cls
if %ip2%==b goto menu
echo.
set /p sm= SUBNET MASK :
if not defined sm cls
if not defined sm goto ip
if %sm%==b cls
if %sm%==b goto menu
echo.
set /p ga= GATEWAY :
if not defined ga cls
if not defined ga goto ip
if %ga%==b cls
if %ga%==b goto menu
echo.
netsh interface ip set address name="Local Area Connection" static %ip2% %sm% %ga% 1
echo.
echo Tekan ENTER
pause>nul
cls
goto ip

:chat
echo.============
echo [m]. Mulai
echo [b]. Kembali
echo ============
echo.
echo Chatting dengan Machine
echo.
set /p inputz= Pilihan Anda :
cls
if not defined inputz goto chat
if %inputz%==m goto mulaix
if %inputz%==b goto menu
goto chat

:mulaix
echo Hai. . . Bolek kenalan gak. . ??
echo.
pause>nul
echo Nama Kamu Siapa Ya. . ??
echo.
set /p name5= :
echo.
echo Ouwh. .. nama kamu %name5% toh . . .
echo.
pause>nul
echo Nama saya Pudja Mansyurin . . .
echo.
pause>nul
echo Kalau boleh tau ,, %name5% tinggal dimana ?
echo.
set /p tinggal= :
if %tinggal%==pungging goto tinggalsaya
if %tinggal%==mojokerto goto tinggalsaya
if %tinggal%==mojosari goto tinggalsaya
if %tinggal%==jatim goto tinggalsaya
echo.
echo Waduh . . . jauh ya di %tinggal% . . .
echo.
pause>nul
echo Saya Lebih jauh lagi lho . . hahahah . . .
echo.
pause>nul

:next2
echo Owh iya ,, umur %name5% berapa . . . ?
echo.
set /p umur= :
if %umur%==17 goto:umursaya
set /a A=%umur%-17
echo.

:next1
echo.
echo Umur saya 17 . . . berarti kita beda %A% tahun ya %name5%
echo.
pause>nul
echo Pertanyaan terakhir ya sobat %name5%
echo.
pause>nul
echo Alamat Blog %name5% apa . . . ?
echo.
set /p blog= :
echo.
echo Oke . . . saya akan ingat kalau alamat blog sobat %name5% itu %blog%
echo.
pause>nul
echo Ingat blog saya juga ya %name5%
echo.
Pause>nul
echo Sekian Dulu Chatingannya Ea . .
echo.
pause>nul
echo Selamat Beristirahat . . .
pause>nul
cls
goto chat

:umursaya
echo.
echo wah. . .sama donk. . .
pause>nul
goto next1
goto umursaya

:tinggalsaya
echo.
echo saya juga tinggal di %tinggal%
echo.
echo saya di Pungging. . di desa LebakSono. . .
echo.
pause>nul
goto next2
goto tinggalsaya

:folder
echo.============
echo [b]. Kembali
echo ============
echo.
echo Folder akan berada di tampilan deskop awal..
echo.
set /p inputj= Nama Folder (jika kembali "b") :
cls
if not defined inputj goto folder
if %inputj%==b goto menu
cd %userprofile%\desktop
md "%inputj%"
goto folder

:creator
echo C
ping localhost -n .10 >nul
cls
echo CR
ping localhost -n .10 >nul
cls
echo CRE
ping localhost -n .10 >nul
cls
echo CREA
ping localhost -n .10 >nul
cls
echo CREAT
ping localhost -n .10 >nul
cls
echo CREATE
ping localhost -n .10 >nul
cls
echo CREATED
ping localhost -n .10 >nul
cls
echo CREATED BY
ping localhost -n .10 >nul
cls
echo CREATED BY P
ping localhost -n .10 >nul
cls
echo CREATED BY PU
ping localhost -n .10 >nul
cls
echo CREATED BY PUD
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJ
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA M
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MA
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MAN
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANS
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSY
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSYU
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSYUR
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSYURI
ping localhost -n .10 >nul
cls
echo CREATED BY PUDJA MANSYURIN
ping localhost -n .10 >nul
echo.
echo.
echo TERIMA KASIH dan SALAM SATU JIWA
echo PERSATUAN HACKER TEKAJE
echo.
echo FB  : Pudja Mansyurin
echo.
echo E-mail : pudja.mozar@yahoo.com
echo.
echo YM : pudja.mozar
echo.
echo Blog : www.lebaksono.wordpress.com
echo    www.jokamIT.co.cc
echo.
echo Website : www.pudja-web.co.cc
echo.
echo Phone : (sensored)
echo.
echo.
echo Please report to me, if there's some bugs in this program.
echo And I'll repair that as I can as possible. Wassalam..
echo.
echo.
echo      Copyrigths @ 2010-2012
echo         Www.JokamIT.Co.Cc
echo.
set /p printe= Cetak data iki? y/n :
cls
if not defined printe goto menu
if %printe%==n goto menu
if %printe%==y goto printec
goto menu

:printec
echo CREATED BY PUDJA MANSYURIN > Pencipta.txt
echo. >> Pencipta.txt
echo TERIMA KASIH dan SALAM SATU JIWA >> Pencipta.txt
echo PERSATUAN HACKER TEKAJE >> Pencipta.txt
echo. >> Pencipta.txt
echo FB  : Pudja Mansyurin >> Pencipta.txt
echo. >> Pencipta.txt
echo E-mail : pudja.mozar@yahoo.com >> Pencipta.txt
echo. >> Pencipta.txt
echo YM : pudja.mozar >> Pencipta.txt
echo. >> Pencipta.txt
echo Blog : www.lebaksono.wordpress.com >> Pencipta.txt
echo    www.jokamIT.co.cc >> Pencipta.txt
echo. >> Pencipta.txt
echo Website : www.pudja-web.co.cc >> Pencipta.txt
echo. >> Pencipta.txt
echo Phone : (sensored) >> Pencipta.txt
echo. >> Pencipta.txt
echo. >> Pencipta.txt
echo Please report to me, if there's some bugs in this program. >> Pencipta.txt
echo And I'll repair that as I can as possible. Wassalam.. >> Pencipta.txt
echo. >> Pencipta.txt
echo.
echo      Copyrigths @ 2010-2012 >> Pencipta.txt
echo         Www.JokamIT.Co.Cc >> Pencipta.txt
echo.
cls
goto menu

Share :

Tweet

More

Related Post