Program Search Engine Pada Batch File
@echo off
cls
echo Nama : Kgs. A. Rahman
echo Kelas : 4 TCA
echo NIM : 0611 3070 1277
echo ____________________________________________________________________________
echo.
echo ###### Program Batch File Search Engine Pada Internet #######
echo.
echo [1] Test Koneksi Jaringan Internet
echo [2] Program Pemanggil URL Website
echo [3] Program Searching / Browsing Google
echo [4] Program Searching Image Google
echo [5] Exit
echo.
echo #############################################################
echo ____________________________________________________________________________
echo.
set /p "pil=Masukkan Nomor Pilihan Anda : "
If %pil%== 1 Goto Ping
If %pil%== 2 Goto URL
If %pil%== 3 Goto Search
IF %pil%== 4 Goto Image
If %pil%== 5 Exit
If %pil%== else Goto salah
cls
:salah
cls
echo Pilihan yang anda masukkan Salah, Tekan Apa Saja Untuk Mencoba Lagi !!
pause>nul
Goto google
:ping
cd\
cls
c:
cd Windows
cd System32
Ping www.google.com
echo.
echo.
echo Proses Test Koneksi Selesai, Tekan Apa Saja Untuk Kembali Ke Menu Utama !!
pause>nul
Goto google
:URL
cls
echo ##############################
echo.
echo PROGRAM PEMANGGIL URL WEBSITE
eChO.
echo ##############################
echo.
echo.
echo Silahkan Masukkan Web Address Yang Ingin Anda Kunjungi :
set /p "url=http://"
start http://%url%
echo.
echo.
cls
Set /p "opsi= Masukkan 1 untuk Kembali Ke Menu Utama dan 2 untuk Kembali Ke Program URL: "
If %opsi%== 1 Goto Google
If %opsi%== 2 Goto URL
If %opsi%== else Exit
:Search
cls
echo ____________________________________________________
echo.
echo ####################################################
echo Search Engine The BlackMAn 4 TCA with Google.com
echo ####################################################
echo.
echo ____________________________________________________
echo.
set /p "key= Silahkan Searching / Browsing Apa Saja Disini :> "
start "title" "http://www.google.co.id/#hl=id&source=hp&q=%key%&btnG=Penelusuran+Google&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=89afce78654b8ad0"
cls
Set /p "opsi= Masukkan 1 untuk Kembali Ke Menu Utama dan 2 untuk Kembali Ke Search Engine: "
If %opsi%== 1 Goto Google
If %opsi%== 2 Goto Search
If %opsi%== else Exit
:Image
cls
echo _________________________________________________________
echo.
echo #########################################################
echo Search Engine Image The BlackMAn 4 TCA with Google.com
echo #########################################################
echo.
echo _________________________________________________________
echo.
set /p "key= Silahkan Searching / Browsing Apa Saja Disini :> "
start "title" "http://image.google.com/images?q=%key%
cls
Set /p "opsi= Masukkan 1 untuk Kembali Ke Menu Utama dan 2 untuk Kembali Ke Search Image: "
If %opsi%== 1 Goto Google
If %opsi%== 2 Goto Image
If %opsi%== else Exit
Pause
0 komentar:
Posting Komentar