Cek Koneksi Ke Internet Dengan Visual Basic 6

 Set WshShell = CreateObject("WScript.Shell")
PINGFlag = Not CBool(WshShell.Run("ping -n 1 8.8.8.8", 0, True))
 If PINGFlag = True Then
  ' [Perintah saat komputer terkoneksi ke internet]
 Else
  ' [Perintah saat komputer tidak terkoneksi ke internet]
 End If