如何判断http://www.xxx.com是否可用？

Question

小弟做了一个小程序，内嵌一个浏览器，想通过这个程序访问自己的网站，但是自己的网站有时候不通。为此，我想在启动程序之前加一段小代码，用来判断要连接的网站是否可用，如果网站不存在(或者网站错误)则关闭，存在则继续。哪位做过的弟兄可以给出代码让我学习呢？多谢！

Answer 1

'窗体上加个 winsock 控件
Option Explicit
Dim bConnected As Boolean, bLoop As Boolean
Function IfConnected(www$) As Boolean
   Dim d As Date, k&, b%   'On Error Resume Next   'If Winsock1.State <> sckClosed Then Winsock1.Close
   Winsock1.Close: bLoop = False
   d = Now
   Winsock1.RemoteHost = www ' "www.sina.com.cn"
   Winsock1.RemotePort = 80
   Winsock1.Connect: b = 0
   Do
      DoEvents
      k = DateDiff("s", d, Now)
      If k < 0 Or k > 5 Then b = 1: Exit Do
   Loop While bLoop = False
   If b = 0 Then IfConnected = bConnected
   Winsock1.Close
End Function
Private Sub Winsock1_Connect()
   On Error Resume Next
   Winsock1.Close
   bConnected = True
   bLoop = True
End Sub
Private Sub Command1_Click()
MsgBox IfConnected("www.yahoo.com.cn")
End Sub

Answer 2

写了啊：Private Sub Winsock1_Connect()