vbscript/vb6 中实现异步请求

'測試的需要，查了不少資料，有兩种方法，綜合如下

'
Dim strUrl: strUrl="http://localhost:7001/in/issueQry.do"
Dim strDat: strDat="uniQueryCode=1670790000005&action=status"
Dim xmlhttp

Call ajaxme(strUrl)


function ajaxme(url)
    Set xmlhttp=Nothing
    On Error Resume Next
    Set xmlhttp = new XMLHttpRequest  'FF
    if (xmlhttp.overrideMimeType)  then
        'xmlhttp.overrideMimeType("text/xml")
    end if
    Err.clear
    On Error Goto 0
    
    if(xmlhttp Is Nothing) then '// IE
        Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
        if err.number<>0 then
            Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
        end if
    end if
    if (xmlhttp Is Nothing) then
        call msgbox("Giving up, Cann