Здравствуйте!
Проблема вот в чём
Я отправляю GET запрос с помощью в этого кода
Dim b() As Byte
strURL = "http://filgab.ex6.ru/engine/modules/antibot.php"
b() = Inet1.OpenURL(strURL, icByteArray)

Open "C:\Capcha.jpeg" For Binary Access _
Write As #1
Put #1, , b()
Close #1

Файл Capcha.jpeg сохраняется, но вот проблема картинки самой нету вернее файл есть а картинки нету если картинку открыть с помощью блокнота то увидим вот это
Hacking attempt!
Ну эта ладно я знаю в чём проблема надо отсылать запрос то есть вот такой пакет(Header)

Host: www.filgab.ex6.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 MRA 5.4 (build 02620) Firefox/3.0.10
Accept: image/png,image/*;q=0.8,*/*;q=0.5
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://www.filgab.ex6.ru/

Как на vb организовать я тоже знаю

strHeader = "Host: www.filgab.ex6.ru" & vbNewLine & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 MRA 5.4 (build 02620) Firefox/3.0.10" & vbNewLine & _
"Accept: image/png,image/*;q=0.8,*/*;q=0.5" & vbNewLine & _
"Accept-Language: ru,en-us;q=0.7,en;q=0.3" & vbNewLine & _
"Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" & vbNewLine & _
"Keep-Alive: 300" & vbNewLine & _
"Referer: http://filgab.ex6.ru/" & vbNewLine & _
"Connection: keep-alive" & vbNewLine

Ну а теперь сам вопрос

Ка соединить вот этот код

Dim b() As Byte
strURL = "http://filgab.ex6.ru/engine/modules/antibot.php"
b() = Inet1.OpenURL(strURL, icByteArray)

Open "C:\Capcha.jpeg" For Binary Access _
Write As #1
Put #1, , b()
Close #1

Вот с этим

strHeader = "Host: www.filgab.ex6.ru" & vbNewLine & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 MRA 5.4 (build 02620) Firefox/3.0.10" & vbNewLine & _
"Accept: image/png,image/*;q=0.8,*/*;q=0.5" & vbNewLine & _
"Accept-Language: ru,en-us;q=0.7,en;q=0.3" & vbNewLine & _
"Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" & vbNewLine & _
"Keep-Alive: 300" & vbNewLine & _
"Referer: http://filgab.ex6.ru/" & vbNewLine & _
"Connection: keep-alive" & vbNewLine

P.S:

Простите за многочисленные повторение.