怎么用xmlhttp获取验证码图片

Question

如题，本人搜了很多相关资料，但还是不怎么成功，只有结合WEBBROWSER控件才可以得，
请问谁有只用xmlhttp来取图的相关代码吗？献来借鉴一下。在此谢过啦。

Answer 1

On Error Resume Next
Dim f As String
f = Environ("temp") & "\pic.jpg" 
If Dir(f) <> "" Then Kill f
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
With XMLHTTP
    .open "GET", url, True
    .send
End With
Do While XMLHTTP.ReadyState <> 4
DoEvents
sleep 10
If XMLHTTP.ReadyState = 0 Then Exit Sub
Loop
    Dim tp() As Byte
    tp = XMLHTTP.responseBody
Set XMLHTTP = Nothing
Open f For Binary As #1
Put #1, 1, tp
Close #1
Picture1.Picture = LoadPicture("")'PNG格式需做解析
Picture1.Picture = LoadPicture(f): Exit Sub

Answer 2

'还是不太行，是得到了图片，但刷新不了On Error Resume Next
Dim f As String
f = Environ("temp") & "\pic.jpg" 
If Dir(f) <> "" Then Kill f
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
With XMLHTTP
    .open "GET", "http://captcha.qq.com/getimage", True
    .send
End With
Do While XMLHTTP.ReadyState <> 4
DoEvents
sleep 10
If XMLHTTP.ReadyState = 0 Then Exit Sub
Loop
    Dim tp() As Byte
    tp = XMLHTTP.responseBody
Set XMLHTTP = Nothing
Open f For Binary As #1
Put #1, 1, tp
Close #1
Picture1.Picture = LoadPicture("")'PNG格式需做解析
Picture1.Picture = LoadPicture(f): Exit Sub

Answer 3

randomize
.open "GET", "http://captcha.qq.com/getimage?" & rnd(), True