失效的网址：http://www.

  lcURL="http://www./"
loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
loHttp.Open("GET", lcURL, .F.)
loHttp.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)")
loHttp.Send()

IF loHttp.Status = 200
    ? "网址可以访问"
ELSE
    ? "网址无法访问"
ENDIF

会出现OLE错误，有什么办法？

怀疑控件不正常， 访问正常的网站试试呢

加个 try 不行吗？

lcURL="http://www.
loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
loHttp.Open("GET", lcURL, .F.)
Try
    loHttp.Send()
    oErr = Null
Catch to oErr
EndTry
IF IsNull(oErr) and loHttp.Status = 200
    ? "网址可以访问"
ELSE
    ? "网址无法访问"
    ? oErr.Message
ENDIF

可以
呃...原来我的处理错误语句放错位置了

try.....endtry 对OLE的0错误有可能处理不了
OLE异常处理用 ON ERROR 好点。


ON ERROR OnError()

sysError = .f.
lcURL="http://www.
loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
loHttp.Open("GET", lcURL, .F.)
loHttp.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)")
loHttp.Send()
if sysError
    ? "异常"
else
    ? "正常"
endif
return

FUNCTION OnError()
    sysError = .t.
    RETURN
ENDFUNC

各位，学习啦，谢谢！