Các chiêu thức trong lập trình Kiểm tra máy tính của bạn có kết nối Internet hay không
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (54.46 KB, 1 trang )
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
