Форум АНТИЧАТ - [Visual Basic 6] Получение капчи

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - [Visual Basic 6] Получение капчи (https://forum.antichat.xyz/showthread.php?t=197574)

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

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

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

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

Цитата:

Сообщение от xafon

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

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

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

Цитата:

Сообщение от Byte_

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

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

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

Код:

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

Цитата:

Сообщение от 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

...

    Next i

End Sub

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

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