Ping Komputer lewat Web Browser
Dalam kehidupan sehari- hari mungkin terkadang kita merasa jenuh.Karena apa yang kita lakukan
setiap harinya selalu sama. Maka dari itu di dalam kehidupan ini perlu adanya perubahan baik dalam kehidupan sehari- hari maupun pekerjaan kantor.Demikian juga dengan pekerjaan yang
berhubungan dengan komputer.Rasa jenuh terkadang datang ketika kita mengerjakan tugas- tugas
kantor yang sering kali berhubungan dengan Command Prompt .Layar yang kita lihat hanyalah berwarna hitam dan tulisan putih,di bagian inilah perubahan sangat diperlukan.Perubahan dapat dilakukan dengan mengubah tampilan yang tadinya hitam putih menjadi berwarna dan memiliki tampilan menarik seperti yang ada di windows. Dalam melakukan perubahan tentunya dibutuhkan tools(peralatan)untuk membuatnya. Pada dasarnya windows memiliki beberapa bahasa pemrograman seperti Visual Basic Script dan Java Script yang dapat digunakan untuk membangun sebuah aplikasi sederhana.Dengan bantuan HTML untuk membuat tampilan dan dipadu dengan salah satu bahasa pemrograman tersebut maka kita dapat membuat sebuah aplikasi sederhana yang
berbasis OOP(Object Oriented Programming)namun dapat melakukan tugas- tugas yang ada di Command Prompt .Program berikut ini merupakan program yang dibuat dengan salah satu bahasa
pemrograman Visual Basic Script dan digunakan untuk Ping komputer yang berada dalam satu jaringan dengan komputer Anda.
Untuk lebih jelasnya ketikkanlah script program dibawah ini dengan menggunakan Notepad lalu simpan dengan nama ping.html dan jangan lupa ubah Save as type yang tadinya dari Text Documents(*.txt) menjadi All Files.Jangan lupa juga untuk menonaktifkan Word Wrap yang ada di Notepad pada saat pengetikan script program.
<HTML>
<HEAD><TITLE>Ping Komputer Dengan WebBrowser</TITLE>
<SCRIPT LANGUAGE="VBScript">
</SCRIPT>
</HEAD>
<BODY>
<H3>Ping Komputer Dengan WebBrowser</H3><HR>
Masukkan nama komputer yang akan di ping.</BR>
Kemudian Klik tombol <B>"Ping!"</B></BR></BR>
[Program Karya Bangsa Indonesia]
</BODY>
</HTML>
Setelah mengetikan script program diatas simpanlah file tersebut kemudian jalankan file yang bernama ping.html .Program tersebut hanya dapat dijalankan melalui Internet Explorer saja.Program diatas telah diuji coba di sistem operasi Windows 98,Windows 2000 Professional dan Windows XP Professional Service Pack 2.Selamat belajar & bereksperimen.
setiap harinya selalu sama. Maka dari itu di dalam kehidupan ini perlu adanya perubahan baik dalam kehidupan sehari- hari maupun pekerjaan kantor.Demikian juga dengan pekerjaan yang
berhubungan dengan komputer.Rasa jenuh terkadang datang ketika kita mengerjakan tugas- tugas
kantor yang sering kali berhubungan dengan Command Prompt .Layar yang kita lihat hanyalah berwarna hitam dan tulisan putih,di bagian inilah perubahan sangat diperlukan.Perubahan dapat dilakukan dengan mengubah tampilan yang tadinya hitam putih menjadi berwarna dan memiliki tampilan menarik seperti yang ada di windows. Dalam melakukan perubahan tentunya dibutuhkan tools(peralatan)untuk membuatnya. Pada dasarnya windows memiliki beberapa bahasa pemrograman seperti Visual Basic Script dan Java Script yang dapat digunakan untuk membangun sebuah aplikasi sederhana.Dengan bantuan HTML untuk membuat tampilan dan dipadu dengan salah satu bahasa pemrograman tersebut maka kita dapat membuat sebuah aplikasi sederhana yang
berbasis OOP(Object Oriented Programming)namun dapat melakukan tugas- tugas yang ada di Command Prompt .Program berikut ini merupakan program yang dibuat dengan salah satu bahasa
pemrograman Visual Basic Script dan digunakan untuk Ping komputer yang berada dalam satu jaringan dengan komputer Anda.
Untuk lebih jelasnya ketikkanlah script program dibawah ini dengan menggunakan Notepad lalu simpan dengan nama ping.html dan jangan lupa ubah Save as type yang tadinya dari Text Documents(*.txt) menjadi All Files.Jangan lupa juga untuk menonaktifkan Word Wrap yang ada di Notepad pada saat pengetikan script program.
<HTML>
<HEAD><TITLE>Ping Komputer Dengan WebBrowser</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub jalan1_OnClick
dim sistem, perintah, total
dim komando, baris, komputer
set perintah = CreateObject("Wscript.Shell")
set sistem = CreateObject("Scripting.FileSystemObject")
komputer = document.buku.teks1.value
komando = "command /c ping.exe " & komputer & " > C:\natan.dat"
perintah.run komando, 0, true
set temporer = sistem.GetFile("C:\natan.dat")
set buka_dokumen = temporer.OpenAsTextStream(1)
total = ""
do while buka_dokumen.AtEndOfStream <> true
baris = buka_dokumen.ReadLine + ""
total = total+baris
loop
document.write "<B>Hasil Ping:</B>"
document.write "<Table border=1><tr><td>"
document.write total+"</br>"
document.write "</td></tr></Table>"
document.write "<INPUT NAME=kembali TYPE=BUTTON" &_
“ VALUE=Kembali! onClick=history.back()>"
buka_dokumen.close
temporer.delete
set buka_dokumen = nothing
set temporer = nothing
set perintah = nothing
set sistem = nothing
set total = nothing
End Sub
Sub jalan2_OnClick
window.close
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>Ping Komputer Dengan WebBrowser</H3><HR>
Masukkan nama komputer yang akan di ping.</BR>
Kemudian Klik tombol <B>"Ping!"</B></BR></BR>
[Program Karya Bangsa Indonesia]
<HR>
<FORM NAME="buku">
Masukkan Nama Komputer:
<INPUT NAME="teks1" TYPE="Text">
<INPUT NAME="jalan1" TYPE="BUTTON" VALUE="Ping!">
<INPUT NAME="jalan2" TYPE="BUTTON" VALUE="Keluar!">
</FORM>
</BODY>
</HTML>
Setelah mengetikan script program diatas simpanlah file tersebut kemudian jalankan file yang bernama ping.html .Program tersebut hanya dapat dijalankan melalui Internet Explorer saja.Program diatas telah diuji coba di sistem operasi Windows 98,Windows 2000 Professional dan Windows XP Professional Service Pack 2.Selamat belajar & bereksperimen.
0 Comments:
Posting Komentar
<< Home