p; vbCrLf
End If
If (eR And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then
sMsg = sMsg & "本机已经安装了远程访问服务功能." & vbCrLf
End If
''''显示连接名称
If bConnected Then
Text1.Text = "已连接到Internet,连接名称: " & sName & vbCrLf & vbCrLf & sMsg
Else
Text1.Text = "没有连接到Internet,连接名称: " & sName & vbCrLf & vbCrLf & sMsg
End If
End Sub
运行程序，可以看到在TextBox框内不仅显示是否连接到Internet，还显示出来使用什么方式连接以及建立
连接的名称。
上一页 [1] [2] |
