VB6代码判断网络是否连接

Private Const FLAG_ICC_FORCE_CONNECTION = &H1  2Private Declare  Function InternetCheckConnection Lib "wininet.dll" Alias  "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As  Long, ByVal dwReserved As Long) As Long  3'本代码使用Basic语言,转载请注明出处  4Private Sub Command1_Click()  5If InternetCheckConnection("http://www.hkfx.net", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then  6MsgBox "未连接", vbInformation  7Else  8MsgBox "已连接", vbInformation  9End If 10End Sub

打赏

支付宝微信扫一扫，打赏作者吧～

本文链接：https://www.kinber.cn/post/4939.html 转载需授权！

推荐本站淘宝优惠价购买喜欢的宝贝:

 您阅读本篇文章共花了：