[Visual Basic 6] Получение капчи

Собственно сабж, как можно получить капчу с сайта в форму или скажем в элемент Picture (Image)...Например с сайта heroeswm.ru - при реге там простая капча...хочу сделать авторегер, как мне получить ту капчу в форму? Буду благодарен за любые советы, а за особо полезные буду раздавать Плюсы))))

Заранее всем Спасибо!

 

вот тут глянь, должно помочь, правда на английском, но к статье прилагается сорец.

 

*** там .NET
нужно [Visual Basic 6]

 

A_n_d_r_e_i, пойми правильно, мало у кого vb6 поставлен...
переходи на .net ИМХО...

 

мне на вб привычней..
памагите люди

 

мб это поможет:

Code:

Private Sub MakeCaptchaImage(ByVal pic As PictureBox, ByVal _
    txt As String, ByVal min_size As Integer, ByVal _
    max_size As Integer)
Dim wid As Single
Dim hgt As Single
Dim ch_wid As Single
Dim i As Integer
Dim font_size As Single
Dim ch As String
Dim X As Single
Dim Y As Single
Dim prev_angle As Single
Dim angle As Single
Dim x1 As Single
Dim y1 As Single
Dim x2 As Single
Dim y2 As Single

    ' See how much room is available for each character.
    wid = pic.ScaleWidth
    hgt = pic.ScaleHeight
    ch_wid = wid / Len(txt)

    ' Draw each character.
    prev_angle = 0
    pic.Cls
    Randomize
    For i = 1 To Len(txt)
        ' Get the character and font size.
        ch = Mid$(txt, i, 1)
        font_size = min_size + Rnd * (max_size - min_size)

        ' Get the position.
        X = (i - 0.75 + Rnd * 0.5) * ch_wid
        Y = hgt / 2 + Rnd * (hgt - pic.ScaleY(font_size, _
            vbPoints, vbTwips))

        ' Get the angle.
        angle = prev_angle
        Do While Abs(angle - prev_angle) < 10
            angle = -20 + Rnd * (20 - -20)
        Loop
        prev_angle = angle

        ' Draw the next character.
        DrawCenteredRotatedText picCaptcha, ch, X, Y, _
            angle, font_size
    Next i

    ' Mess things up a bit.
    For i = 1 To 10
        x1 = Rnd * wid
        y1 = Rnd * hgt
        x2 = Rnd * wid
        y2 = Rnd * hgt
        pic.Line (x1, y1)-(x2, y2)
    Next i
    For i = 1 To 10
        x1 = Rnd * wid
        y1 = Rnd * hgt
        x2 = Rnd * wid
        y2 = Rnd * hgt
        pic.Line (x1, y1)-(x2, y2), vbWhite
    Next i
End Sub

 

А где тут URL для парси капчи ?

 

о_0
перекодишь на саму каптчу, весь исходник кладешь в файл gif\png\jpg\etc, загружаем на форму.