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

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 . 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. Form_Load() Dim Ret As Long Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0) If Ret = 1 Then MsgBox "Ban da ket noi Internet " & sConnType,