Kiểm tra máy tính của bạn có kết nối Internet hay không
Xuất xứ : www.allapi.com
Binh khí sử dụng :
- Không
Đoạn mã :
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll"
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal
dwNameLen As Integer, ByVal dwReserved As Long) As Long
Dim sConnType As String * 255
Private Sub Form_Load()
Dim Ret As Long
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If Ret = 1 Then
MsgBox "Ban da ket noi Internet " & sConnType, vbInformation
Else
MsgBox "Ban chua ket noi internet", vbInformation
End If
End Sub