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

[Mimahaks]

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

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

[xafon]

вот тут (http://www.dreamincode.net/forums/topic/30913-captcha-in-vbnet/) глянь, должно помочь, правда на английском, но к статье прилагается сорец.

[A_n_d_r_e_i]

вот тут (http://www.dreamincode.net/forums/topic/30913-captcha-in-vbnet/) глянь, должно помочь, правда на английском, но к статье прилагается сорец.
*** там .NET :(
нужно [Visual Basic 6]

[Byte_]

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

[A_n_d_r_e_i]

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

[xafon]

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

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

[Sunstrider]

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

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
...
Next i
End Sub
А где тут URL для парси капчи ?

[Tigger]

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