Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias
"InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long,
ByVal dwReserved As Long) As Long
Private Sub Form_Load()
If InternetCheckConnection("http://www.microsoft.com";,
FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Tidak ada koneksi Internet...", vbInformation
Else
MsgBox "Saat ini ada koneksi Internet !!", vbInformation
End If
End Sub
2007/8/31, Hendra Gunawan <[EMAIL PROTECTED]>:
>
> dear all,
>
> gimana caranya ngecek internet connection dan push connection baik dial-up
> maopun via LAN di vb?
>
>
> thx in advance,
> Oppie
>
>
> ------------------------------
> <http://answers.yahoo.com.sg>
> *Real people. Real questions. Real answers. Share what you
> know<http://answers.yahoo.com.sg>
> *.
>
