求大神指點vb點虐 怎么判斷 網(wǎng)絡(luò)是否連接 和取本機局域網(wǎng)IP和互聯(lián)網(wǎng)IP

你這段代碼可以獲得該主機名下的所有ip，每個ip地址都是有類型簇的，可以區(qū)別本地地址和網(wǎng)絡(luò)地址、ip6地址。

創(chuàng)新互聯(lián)是專業(yè)的肇慶網(wǎng)站建設(shè)公司，肇慶接單;提供網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè),網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行肇慶網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!

你獲取索引為0的ip，不一定是正確的網(wǎng)絡(luò)地址，它有時順序在中間，在后面。

應(yīng)該獲取所有ip，再通過ip地址簇類型區(qū)分

判斷連接本身有一個函數(shù)，不過有時沒聯(lián)網(wǎng)也是真。

可以用ping，ping百度、ping訪問速度快、不經(jīng)常維護斷線的網(wǎng)絡(luò)主機。

VB代碼怎么快速判斷局域網(wǎng)共享文件可否連接并打開

最簡單的方法是用 on error resume next 忽略錯誤，簡單快捷。先判斷反而效率不高，因為檢測共享是否存在是需要等待目標電腦反饋的，這個需要時間。實在想判斷，可以用cmd命令中的net view，或者只檢測是否開機用ping

vb點虐 中如何判斷網(wǎng)絡(luò)連接？

新建模塊

Function IsHearOK(ByVal URL As String) As Boolean '判斷網(wǎng)頁是否存在函數(shù)

Dim XMLObject As Object, ReturnType As String

XMLObject = CreateObject("Microsoft.XMLHTTP")

XMLObject.Open("GET", URL, False)

XMLObject.setRequestHeader("CONTENT-TYPE", "application/x-www-form-urlencoded")

XMLObject.setRequestHeader("Range", "bytes=1-255")

Try

XMLObject.Send()

If XMLObject.Status = 200 Or XMLObject.Status = 206 Then

ReturnType = XMLObject.getResponseHeader("CONTENT-TYPE")

If UCase(ReturnType) "TEXT/HTML" Then

IsHearOK = True

Else

IsHearOK = False

End If

Else

IsHearOK = False

End If

Catch

MsgBox("連接異常，請檢查網(wǎng)絡(luò)！", , "提醒")

XMLObject = Nothing

End Try

End Function

調(diào)用 ishearok（url）=true 正常