用VB寫(xiě)一個(gè)定時(shí)PING某IP的程序

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