用VB寫一個定時PING某IP的程序

1.你先要在 Form 上放一個 Timer 控制項
    2.在 Timer 屬性佇設(shè)定 interval 的數(shù)值，一秒是 1000，十分之一秒就是 100，這樣
    會算吧。再確定 Timer.enabled=true
    3.在 Timer 惟一事件佇這樣寫
    Private Sub Timer1_Timer()
    ’開始你的 Ping
    if ’你的 Ping 程式連通’ then
    ’顯示綠燈圖
    else
    ’顯示紅燈圖
    end if
    End Sub
    4.這樣 Timer 就會依你在 interval 屬性佇的時間設(shè)定，固定去執(zhí)行 Ping 程式。