Ping Ip "VB.Net"

akhirnya bisa posting kembali,dengan suatu hal yang baru tentunya hehehehe.
ok kali ini ane akan mencoba membuat aplikasi ping ip address. sempet searching2 digoogle dan berkunjung ke forum²...ternyata begitu banyak tutorial mengenai aplikasi ping ini. tapi postingan ane ini mungkin akan jauh berbeda dengan yang agan cari. ane nggak akan melakukan coding terlalu banyak,yang penting aplikasi yang ane buat bisa nge-ping dan berfungsi dg baik. hehehe,nah maka dari itu ane akan merunning file *.bat ke dalam aplikasi buatan ane ini...

persiapanya gan.....
1. buat dl file *.bat nya terus taruh di drive C:\

@echo off
title Jatim community
color a
echo proses Cek..!!
echo mohon tunggu......
ping 192.168.1.1 -n 15

rename sesuai dengan sourch code dibawah gan... "local.bat,proxy.bat,google.bat....."
"agan ganti ipnya sesuai kebutuhan agan"
2.propertisenya...

Control	Name	Text
Form	Form1	Cek koneksi network
Radiobutton 1	rbLocal	Local Area
Radiobutton 2	rbProxy	Proxy
Radiobutton 3	rbIntra	Intranet
Radiobutton 4	rbEmail	Email SG2
Radiobutton 5	rbLotus	Lotus Notes
Radiobutton 6	rbSAP	SAP
Radiobutton 7	rbGoogle	Google
Button 1	cmdOk	OK
Button 2	cmdExit	Exit

3. klik pada button OK isi dengan code berikut

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click

        If rbLocal.Checked Then

            Process.Start("C:\cekserver\local.bat")

        ElseIf rbProxy.Checked Then

            Process.Start("C:\cekserver\proxy.bat")

        ElseIf rbEmail.Checked Then

            Process.Start("C:\cekserver\email.bat")

        ElseIf rbGoogle.Checked Then

            Process.Start("C:\cekserver\google.bat")

        ElseIf rbIntra.Checked Then

            Process.Start("C:\cekserver\intra.bat")

        ElseIf rbSAP.Checked Then

            Process.Start("C:\cekserver\sap.bat")

        ElseIf rbLotus.Checked Then

            Process.Start("C:\cekserver\lotus.bat")

        End If

dh gan...segitu aja codenya...hehehehehe....selamat mencoba. happy coding...