Local $http = 'http://www.timedate.cn/worldclock/ti.asp'
Local $sData = InetRead($http, 1)
Local $Source = BinaryToString($sData, 1)
Local $aSR = StringRegExp($Source, 'n\w+\=(\d+)', 3)
If @error Or UBound($aSR) < 7 Then msgbox(0,"","网络未连接")
MsgBox(0,"","已连接网络")