.net My.Computer.Network 几个秒用

检测网络连接：

        Dim isa As Boolean = My.Computer.Network.IsAvailable
        If isa = True Then
            LabelX2.Text = "目前网路连线正常!!"
        Else
            LabelX2.Text = "目前网路无法连线！！"
        End If

Ping网络连接：

If My.Computer.Network.Ping("198.01.01.01") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If

上传文件：

My.Computer.Network.UploadFile("d:\abc.txt", "http://192.168.1.13/www/", "", "")

参数说明：

     第一位：本机文件物理地址

     第二位：服务端物理地址

     第三位：用户名

     第四位：密码

此方法只限TCP139、TCP445、UDP137、UDP138 也就是说这个功能一般是局域网内使用

下载文件：

My.Computer.Network.DownloadFile( "http://192.168.1.13/www/", "d:\abc.txt","", "")

参数说明：

     第一位：服务端物理地址

     第二位：本机文件物理地址

     第三位：用户名

     第四位：密码

此方法同样只限TCP139、TCP445、UDP137、UDP138 也就是说这个功能一般是局域网内使用