[已解决]请教关于 XMLHttp 对象问题

kxing

每当open打开的url错误时程序就崩溃了。
请问有什么办法可以知道是否open成功呢？
有没有类似于@error检测状态的呢？
多谢了！！！

$url="http://xxx.xxx.xxx.com"
$oHTTP=ObjCreate("microsoft.xmlhttp")
$oHTTP.Open("get",$url,false)
$oHTTP.Send()
msgbox(0,'ok','ok')
$data=$oHTTP.responseText

kxing

有哪位高人能解答下吗？
或者使用winhttp函数是不是能解决该问题呢。
不大会用。。。。

kxing

自己顶起来，希望高手看到。。。

cxlater

$url="http://xxx.xxx.xxx.com"
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
$oHTTP=ObjCreate("microsoft.xmlhttp")
$oHTTP.Open("get",$url,false)
$oHTTP.Send()
msgbox(0,'ok','ok')
$data=$oHTTP.responseText

Func MyErrFunc()
  Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !"      & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext _
            )            
    Local $err = $oMyError.number
    If $err = 0 Then $err = -1    
    $g_eventerror = $err
Endfunc

zysanjing1

学习了!!!谢谢

kxing

多谢多谢！！！！

liyi-softs

厉害，且强大!

hollandmfq

雷锋精神传天下！谢谢分享！

ilvjyw

十分需要这个 谢谢楼上的朋友们分享

dogno

非常感谢.已复制应用 !

林苑书屋

回复 1# kxing


    顶一下