下面是函数代码和开发版示例：

‘网络状态监测函数  蓝色参数部分可以取消，引用时也不要加参数。

Dim str As DataRow = DataTables("设置").DataRows(0)
Dim ftp1 As new ftpclient
ftp1.host= str("IP")
ftp1.Port= str("Port")
ftp1.Account = str("Account")
ftp1.password = str("Password")

Dim s As String = "Provider=SQLOLEDB.1;Password=" & str("BasePassword") & ";Persist Security Info=True;User ID=" & str("User") & ";Initial Catalog=" & str("BaseName") & ";Data Source =" & str("IP")
\'GetConfigValue("DataSource","")
Dim form As String = Args(0)   \'这个参数可以取消
Forms(Form).Text = "正在连接网络,需要1分钟左右,请稍候......"
If TryConnectHost(str("IP")) = False OrElse Network.Ping(str("IP")) = False Then  ‘只加了这一句话

    \'因为TryConnectHost只判断IP地址是否可以解析，局域网的所有IP都是可以解析的，所以加了Ping命令。
    Forms(Form).Text = "网络线路中断或服务器拒绝访问,系统将退出,请联系管理员!"
    MessageBox.Show("网络线路中断或服务器拒绝访问,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    Return "False"
\'ElseIf ftp1.Connect = False
    \'Forms(Form).Text = "FTP服务器拒绝访问,请联系管理员!"
    \'MessageBox.Show("FTP服务器拒绝访问,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    \'Return "False"
Else
    try
        Dim conn As ADODB.Connection
        conn = New ADODB.Connection
        conn.ConnectionString = s
        conn.Open
        Forms(Form).Text = Forms(Form).Name
        Return "True"
        conn.close
    Catch ex As Exception
        Forms(Form).Text = Err.Description
        MessageBox.Show("SQL数据库" & Err.Description & "请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
        Return "False"
    End try
End If

’应用示例（开发版），