.net My.Computer.Network 几个秒用

最新推荐文章于 2025-11-27 14:25:23 发布

原创最新推荐文章于 2025-11-27 14:25:23 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#.net #局域网 #网络

网络专栏收录该内容

2 篇文章

订阅专栏

本文介绍了使用Visual Basic进行网络连接状态检测、Ping操作及局域网内的文件上传与下载的方法。通过内置函数实现网络状态监测，并展示了具体的参数用法。

检测网络连接：

        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 也就是说这个功能一般是局域网内使用