Teman

Home » »

Program Search Engine Pada Batch File


@echo off
:google
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