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

[zhengyue]

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

哪位做过的弟兄可以给出代码让我学习呢？多谢！

[思考]

'窗体上加个 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

[pa_wei]

好像没有写Winsock1.Connect

[思考]

写了啊：Private Sub Winsock1_Connect()