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

1 528 0
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

Đang tải... (xem toàn văn)

Thông tin tài liệu

Kiểm tra máy tính của bạn 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,

Ngày đăng: 24/10/2013, 14:20

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan