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

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

為肇慶等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及肇慶網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站設(shè)計、做網(wǎng)站、成都外貿(mào)網(wǎng)站建設(shè)公司、肇慶網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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 正常

VB如何判斷局域網(wǎng)內(nèi)，指定的機器是否開機。

一：路由器上的接口有對應(yīng)的指示燈和伍，對應(yīng)的燈沒棚含枯笑亮就表示對應(yīng)的機器開機。

二：用鼠標對著你要復(fù)制的文件右擊出現(xiàn)菜單。選擇：復(fù)制”，然后打開你指定的文件夾，在文件夾右擊出現(xiàn)菜單，選擇粘貼，就這樣。

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

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

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

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

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

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