VB.NET2010判断网络状态执行相关内容

浏览次数：次

作者： 路由器窝

信息来源：

更新日期： 2017-02-21 12:35

文章简介

Imports System.Net.NetworkInformation 引用顶部Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e A

正文开始
相关文章

发表评论

Imports System.Net.NetworkInformation ‘引用顶部

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If (My.Computer.Network.Ping(TextBox1.Text)) Then
                MsgBox("远程地址可访问")
            Else
                MsgBox("远程地址不可访问")
            End If
        Catch exPing As PingException
            MsgBox("远程地址无效")
        Catch exInvalidate As InvalidOperationException
            MsgBox("没有有效的网络连接")
        End Try
    End Sub
End Class

转载请注明：vs2010» VB.NET2010判断网络状态执行相关内容

标签：

vs2010VB.net复制RichTextBox1内容源码

2016-12-06 138阅读

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.Clipboard.Clear() If Me.RichTextBox1.Tex...
vs2010VB.NET用正则表达提取数字

2019-09-21 289阅读

Dim bbb As Stringbbb = TextBox1.Text Dim My_str As String = Regex.Replace(bbb, [^0-9], ) 这里把替换所有非数字为空字符串,改为替换所有非数字为空格MsgBox(My_str)
vs2010获取路径下的文件名字

2016-12-08 216阅读

Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i = Len(FilePathFileNa...
vs2010vb.net获取网页内容实例

2016-12-06 264阅读

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Doc As New System.Net.WebClient Dim TempText As ...
vs2010vb.net标签切换源码

2016-12-06 240阅读

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TabControl2.Show() TabControl1.Hide() End Sub Privat...
vs2010字符串替换函数

2017-01-05 126阅读

replace (字符串,被替换的字符,替换后的字符)
vs2010Visual Studio发布应用未能创建默认证书的问题解决方法

2016-12-06 279阅读

我用Visual Studio自带的生成-发布,提示未能创建默认证书.正在中止发布。这个问题当时出现后，特意在网上找了一下，发现不少人也遇到同样的问题。解决方法：点击你创建的项目右键》属性》签名》从存储区选择》选择证书当我这么做的时候，显示无可用证书 q
vs2010逐行读取richtextBox1内容并赋值

2016-12-08 173阅读

Public i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim counter As Integer Dim tempA...
vs2010判断读取RichTextBox是不是到最后

2016-12-08 104阅读

Dim currentline As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (RichTextBox1.Line...
vs2010Advanced 程序升级官方配置文档（翻译）

2016-12-13 205阅读

以下文章使用从专业版和项目类型开始可用的选项。本教程将逐步指导您创建和维护使用高级更新程序的安装包。我们将为story.txt文件创建一个安装包，我们在简单安装教程中使用它。如果你有一个EXE文件，你可以轻松地更改版本，你可以使用它而不是story.txt文

上一页：vb.net2010读取网页内容

下一页：WebBrowser1 自动写上名字和密码，然后提交，自动进入系统