vb判断是否联网,判断网络状态调用gethostbyname API函数

侠客软件开发

已于 2023-09-27 22:29:37 修改

阅读量358

点赞数

文章标签： VB

于 2023-09-27 22:27:30 首次发布

本文链接：https://blog.csdn.net/i735740559/article/details/133364828

版权

Private Type WSADATA
wversion As Integer
wHighVersion As Integer
szDescription(0 To 256) As Byte
szSystemStatus(0 To 128) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpszVendorInfo As Long
End Type

Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Integer, lpWSAData As WSADATA) As Long
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal szHostname As String) As Long
Private Const WS_VERSION_REQD = &H101

Public Function IsConnectedState() As Boolean
Dim udtWSAD As WSADATA
Call WSAStartup(WS_VERSION_REQD, udtWSAD)
IsConnectedState = CBool(gethostbyname("www.baidu.com"))
Call WSACleanup
End Function

Private Sub Command1_Click() '调用方法
If IsConnectedState = True Then
Me.Caption = "已联网"
Else
Me.Caption = "未联网"
End If
End Sub
vb判断是否联网调用gethostbyname API函数q1016058890