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