vb6下内存不断增长的问题，看看怎么改

[橘子皮...]

dim yzm() as byte
a:
        Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
        sUrl = "http://www.picatown.com/captcha.php"
        xmlhttp.Option(6) = True
        xmlhttp.SetTimeouts 0, 0, 0, 0
        xmlhttp.Open "GET", sUrl, True
        xmlhttp.SetRequestHeader "Host", "www.picatown.com"
        xmlhttp.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:52.0) Gecko/20100101 Firefox/52.0"
        xmlhttp.SetRequestHeader "Accept", "*/*"
        xmlhttp.SetRequestHeader "Accept-Language", "zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3"
        xmlhttp.SetRequestHeader "Referer", "http://www.picatown.com/"
        xmlhttp.SetRequestHeader "Connection", "keep-alive"
        xmlhttp.SetRequestHeader "Cache-Control", "max-age=0"
        'xmlHttp.setRequestHeader "Accept-Encoding","gzip, deflate"
        xmlhttp.SetRequestHeader "If-Modified-Since", "0"
        xmlhttp.Send
        xmlhttp.WaitForResponse
        yzm = xmlhttp.ResponseBody
        s = xmlhttp.GetAllResponseHeaders
        xmlhttp.Abort: Set xmlhttp = Nothing
    GoTo a

反复让他循环很多次后，就会发现这期间内存是一直在涨的，可能这个是涨的不多，但是如果多线程的情况下，基本100线程1秒就能涨个1M左右，一会就几百M内存占用了，是哪写错了么？

[华芸智森]

xmlhttp.SetRequestHeader "Connection", "keep-alive" 试把这行去了改为 xmlhttp.SetRequestHeader "Connection", "close" 并且,看有没有 xmlhttp .close 这个方法.