导入系统
进口System.Environment
进口System.Net
进口System.Net.NetworkInformation
进口System.Text
公共类Form1
私营SubcmdConnection_Click(ByVal发送者ByVale作为System.EventArgs作为System.Object)句柄cmdConnection.Click
'获取的连接状态。
暗淡了作为长
变暗连接作为布尔值=CBool(InternetGetConnectedState(了,0&))
lstbox1。Items.Add("**************