Ad:

VB.NET Discussion Thread
Unsolved
Views: 4588

Dec 29th, 2009

Uploading Image With Decaptcher.com Using API

Expand Post »

I have always used the API for Vb.net from Decaptcher.com and have always sent the Captcha by sending an actual url to them as you see in the code below. Or maybe it uploaded the image anyway to them (I use the Webbrowser Control) I'll use for example this:

Code:

VB.NET Syntax (Toggle Plain Text)
Dim dr As DecaptcherResult = DecaptAPI.GetCaptchaSolved(Me.WebBrowser1.Document.GetElementById("captcha_image").GetAttribute("src"))
Dim dr As DecaptcherResult = DecaptAPI.GetCaptchaSolved(Me.WebBrowser1.Document.GetElementById("captcha_image").GetAttribute("src"))

But with the current project that I am working on right now I am having to take a screen shot of the captcha image, then save it to my harddrive.

I know that through your API Decaptcher allows us to upload the image from our harddrive but I just can't figure out how to use the code to do this. I have tried this but it doesn't work:

Code:

VB.NET Syntax (Toggle Plain Text)
Dim dr As DecaptcherResult = DecaptAPI.GetCaptchaSolved("c:\1\Untitled.jpg")
Dim dr As DecaptcherResult = DecaptAPI.GetCaptchaSolved("c:\1\Untitled.jpg")

Can anyone please tell me the proper code to send the image and get the response.

Thank you so much

BELOW THIS IS THE CLASS AS WELL WITH THIS.
THANK YOU SO SO MUCH TO WHO EVER WILL HELP ME WITH THIS, IT MEANS SO MUCH TO ME.

VB.NET Syntax (Toggle Plain Text)
Imports System.Net
Imports System.Text
Imports System.IO
 
Public Class DecaptcherAPI
    Private Uri As String = "http://decaptcher.com/poster/"
 
    Private username As String = "SNIP"
    Private password As String = "SNIP"
 
    Public Sub New()
    End Sub
 
    Public Sub New(ByVal _username As String, ByVal _password As String)
        username = _username
        password = _password
    End Sub
 
    Public Function GetCaptchaSolved(ByVal FileUrl As String) As DecaptcherResult
        Dim request As HttpWebRequest = CType(WebRequest.Create(FileUrl), HttpWebRequest)
 
        request.Method = "GET"
 
        Dim response As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
        Dim requestStream As Stream = response.GetResponseStream
 
        Dim streamLength As Integer = Convert.ToInt32(response.ContentLength)
        Dim fileData As Byte() = New Byte(Convert.ToInt32(streamLength)) {}
        requestStream.Read(fileData, 0, streamLength)
        requestStream.Close()
        Return GetCaptchaSolved(fileData)
 
        Return GetCaptchaSolved(fileData)
    End Function
 
 
    Public Function GetCaptchaSolved(ByVal File As Byte()) As DecaptcherResult
        Dim request As HttpWebRequest = CType(WebRequest.Create(Uri), HttpWebRequest)
 
        request.Method = "POST"
        request.KeepAlive = True
 
        Dim boundary As String = "-------------------------" + DateTime.Now.Ticks.ToString("x")
        Dim header As String = vbCrLf & "--" + boundary + vbCrLf
        Dim footer As String = vbCrLf & "--" + boundary + vbCrLf
 
        request.ContentType = String.Format("multipart/form-data; boundary={0}", boundary)
 
        Dim contents As StringBuilder = New StringBuilder()
        contents.Append(vbCrLf)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""function""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("picture2")
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""username""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(username)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""password""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(password)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""pict_to""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("0")
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""pict_type""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("0")
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""pict""; filename=""Untitled.jpg""" + vbCrLf)
        contents.Append("Content-Type: image/jpeg" + vbCrLf)
        contents.Append(vbCrLf)
 
        Dim BodyBytes As Byte() = Encoding.UTF8.GetBytes(contents.ToString())
        Dim footerBytes As Byte() = Encoding.UTF8.GetBytes(footer)
 
        request.ContentLength = BodyBytes.Length + File.Length + footerBytes.Length
 
        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(BodyBytes, 0, BodyBytes.Length)
        requestStream.Write(File, 0, File.Length)
        requestStream.Write(footerBytes, 0, footerBytes.Length)
        requestStream.Flush()
        requestStream.Close()
 
 
        Dim ret As String = New StreamReader(request.GetResponse.GetResponseStream).ReadToEnd
 
        Try
 
            Return New DecaptcherResult(ret.Split("|")(0), ret.Split("|")(1), ret.Split("|")(2), ret.Split("|")(3), _
                                        ret.Split("|")(4), ret.Split("|")(5))
        Catch ex As Exception
        End Try
 
    End Function
 
    Public Function ClaimBad(ByVal dr As DecaptcherResult) As DecaptcherResult
        Dim request As HttpWebRequest = CType(WebRequest.Create(Uri), HttpWebRequest)
 
        request.Method = "POST"
        request.KeepAlive = True
 
        Dim boundary As String = "-------------------------" + DateTime.Now.Ticks.ToString("x")
        Dim header As String = vbCrLf & "--" + boundary + vbCrLf
        Dim footer As String = vbCrLf & "--" + boundary + vbCrLf
 
        request.ContentType = String.Format("multipart/form-data; boundary={0}", boundary)
 
        Dim contents As StringBuilder = New StringBuilder()
        contents.Append(vbCrLf)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""function""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("picture_bad2")
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""username""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(username)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""password""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(password)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""major_id""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(dr.MajorID)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""minor_id""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(dr.MinorID)
 
        Dim BodyBytes As Byte() = Encoding.UTF8.GetBytes(contents.ToString())
        Dim footerBytes As Byte() = Encoding.UTF8.GetBytes(footer)
 
        request.ContentLength = BodyBytes.Length + footerBytes.Length
 
        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(BodyBytes, 0, BodyBytes.Length)
        requestStream.Write(footerBytes, 0, footerBytes.Length)
        requestStream.Flush()
        requestStream.Close()
 
        Dim ret As String = New StreamReader(request.GetResponse.GetResponseStream).ReadToEnd
 
        Return New DecaptcherResult(ret.Split("|")(0), ret.Split("|")(1), ret.Split("|")(2), ret.Split("|")(3), _
                                    ret.Split("|")(4), ret.Split("|")(5))
 
    End Function
 
    Public Function GetBalance() As String
        Dim request As HttpWebRequest = CType(WebRequest.Create(Uri), HttpWebRequest)
 
        request.Method = "POST"
        request.KeepAlive = True
 
        Dim boundary As String = "-------------------------" + DateTime.Now.Ticks.ToString("x")
        Dim header As String = vbCrLf & "--" + boundary + vbCrLf
        Dim footer As String = vbCrLf & "--" + boundary + vbCrLf
 
        request.ContentType = String.Format("multipart/form-data; boundary={0}", boundary)
 
        Dim contents As StringBuilder = New StringBuilder()
        contents.Append(vbCrLf)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""function""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("balance")
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""username""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(username)
 
        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""password""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(password)
 
        Dim BodyBytes As Byte() = Encoding.UTF8.GetBytes(contents.ToString())
        Dim footerBytes As Byte() = Encoding.UTF8.GetBytes(footer)
 
        request.ContentLength = BodyBytes.Length + footerBytes.Length
 
        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(BodyBytes, 0, BodyBytes.Length)
        requestStream.Write(footerBytes, 0, footerBytes.Length)
        requestStream.Flush()
        requestStream.Close()
 
        Dim ret As String = New StreamReader(request.GetResponse.GetResponseStream).ReadToEnd
 
        Return ret
    End Function
 
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class
 
Public Class DecaptcherResult
 
    Public Sub New()
    End Sub
 
    Public Sub New(ByVal resultCode As String, ByVal majorID As String, ByVal minorID As String, ByVal type As String, _
                   ByVal timeout As String, ByVal text As String)
        Me._ResultCode = resultCode
        Me._MajorID = majorID
        Me._MinorID = minorID
        Me._Type = type
        Me._Timeout = timeout
        Me._Text = text
    End Sub
 
    Public Property ResultCode() As String
        Get
            Return _ResultCode
        End Get
        Set(ByVal value As String)
            _ResultCode = value
        End Set
    End Property
 
    Public Property MajorID() As String
        Get
            Return _MajorID
        End Get
        Set(ByVal value As String)
            _MajorID = value
        End Set
    End Property
 
    Public Property MinorID() As String
        Get
            Return _MinorID
        End Get
        Set(ByVal value As String)
            _MinorID = value
        End Set
    End Property
 
    Public Property Type() As String
        Get
            Return _Type
        End Get
        Set(ByVal value As String)
            _Type = value
        End Set
    End Property
 
    Public Property Timeout() As String
        Get
            Return _Timeout
        End Get
        Set(ByVal value As String)
            _Timeout = value
        End Set
    End Property
 
    Public Property Text() As String
        Get
            Return _Text
        End Get
        Set(ByVal value As String)
            _Text = value
        End Set
    End Property
 
 
    Private _ResultCode As String
    Private _MajorID As String
    Private _MinorID As String
    Private _Type As String
    Private _Timeout As String
    Private _Text As String
End Class
Imports System.Net
Imports System.Text
Imports System.IO

Public Class DecaptcherAPI
    Private Uri As String = "http://decaptcher.com/poster/"

    Private username As String = "SNIP"
    Private password As String = "SNIP"

    Public Sub New()
    End Sub

    Public Sub New(ByVal _username As String, ByVal _password As String)
        username = _username
        password = _password
    End Sub

    Public Function GetCaptchaSolved(ByVal FileUrl As String) As DecaptcherResult
        Dim request As HttpWebRequest = CType(WebRequest.Create(FileUrl), HttpWebRequest)

        request.Method = "GET"

        Dim response As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
        Dim requestStream As Stream = response.GetResponseStream

        Dim streamLength As Integer = Convert.ToInt32(response.ContentLength)
        Dim fileData As Byte() = New Byte(Convert.ToInt32(streamLength)) {}
        requestStream.Read(fileData, 0, streamLength)
        requestStream.Close()
        Return GetCaptchaSolved(fileData)

        Return GetCaptchaSolved(fileData)
    End Function


    Public Function GetCaptchaSolved(ByVal File As Byte()) As DecaptcherResult
        Dim request As HttpWebRequest = CType(WebRequest.Create(Uri), HttpWebRequest)

        request.Method = "POST"
        request.KeepAlive = True

        Dim boundary As String = "-------------------------" + DateTime.Now.Ticks.ToString("x")
        Dim header As String = vbCrLf & "--" + boundary + vbCrLf
        Dim footer As String = vbCrLf & "--" + boundary + vbCrLf

        request.ContentType = String.Format("multipart/form-data; boundary={0}", boundary)

        Dim contents As StringBuilder = New StringBuilder()
        contents.Append(vbCrLf)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""function""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("picture2")

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""username""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(username)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""password""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(password)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""pict_to""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("0")

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""pict_type""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("0")

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""pict""; filename=""Untitled.jpg""" + vbCrLf)
        contents.Append("Content-Type: image/jpeg" + vbCrLf)
        contents.Append(vbCrLf)

        Dim BodyBytes As Byte() = Encoding.UTF8.GetBytes(contents.ToString())
        Dim footerBytes As Byte() = Encoding.UTF8.GetBytes(footer)

        request.ContentLength = BodyBytes.Length + File.Length + footerBytes.Length

        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(BodyBytes, 0, BodyBytes.Length)
        requestStream.Write(File, 0, File.Length)
        requestStream.Write(footerBytes, 0, footerBytes.Length)
        requestStream.Flush()
        requestStream.Close()


        Dim ret As String = New StreamReader(request.GetResponse.GetResponseStream).ReadToEnd

        Try

            Return New DecaptcherResult(ret.Split("|")(0), ret.Split("|")(1), ret.Split("|")(2), ret.Split("|")(3), _
                                        ret.Split("|")(4), ret.Split("|")(5))
        Catch ex As Exception
        End Try

    End Function

    Public Function ClaimBad(ByVal dr As DecaptcherResult) As DecaptcherResult
        Dim request As HttpWebRequest = CType(WebRequest.Create(Uri), HttpWebRequest)

        request.Method = "POST"
        request.KeepAlive = True

        Dim boundary As String = "-------------------------" + DateTime.Now.Ticks.ToString("x")
        Dim header As String = vbCrLf & "--" + boundary + vbCrLf
        Dim footer As String = vbCrLf & "--" + boundary + vbCrLf

        request.ContentType = String.Format("multipart/form-data; boundary={0}", boundary)

        Dim contents As StringBuilder = New StringBuilder()
        contents.Append(vbCrLf)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""function""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("picture_bad2")

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""username""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(username)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""password""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(password)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""major_id""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(dr.MajorID)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""minor_id""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(dr.MinorID)

        Dim BodyBytes As Byte() = Encoding.UTF8.GetBytes(contents.ToString())
        Dim footerBytes As Byte() = Encoding.UTF8.GetBytes(footer)

        request.ContentLength = BodyBytes.Length + footerBytes.Length

        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(BodyBytes, 0, BodyBytes.Length)
        requestStream.Write(footerBytes, 0, footerBytes.Length)
        requestStream.Flush()
        requestStream.Close()

        Dim ret As String = New StreamReader(request.GetResponse.GetResponseStream).ReadToEnd

        Return New DecaptcherResult(ret.Split("|")(0), ret.Split("|")(1), ret.Split("|")(2), ret.Split("|")(3), _
                                    ret.Split("|")(4), ret.Split("|")(5))

    End Function

    Public Function GetBalance() As String
        Dim request As HttpWebRequest = CType(WebRequest.Create(Uri), HttpWebRequest)

        request.Method = "POST"
        request.KeepAlive = True

        Dim boundary As String = "-------------------------" + DateTime.Now.Ticks.ToString("x")
        Dim header As String = vbCrLf & "--" + boundary + vbCrLf
        Dim footer As String = vbCrLf & "--" + boundary + vbCrLf

        request.ContentType = String.Format("multipart/form-data; boundary={0}", boundary)

        Dim contents As StringBuilder = New StringBuilder()
        contents.Append(vbCrLf)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""function""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append("balance")

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""username""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(username)

        contents.Append(header)
        contents.Append("Content-Disposition: form-data; name=""password""" & vbCrLf)
        contents.Append(vbCrLf)
        contents.Append(password)

        Dim BodyBytes As Byte() = Encoding.UTF8.GetBytes(contents.ToString())
        Dim footerBytes As Byte() = Encoding.UTF8.GetBytes(footer)

        request.ContentLength = BodyBytes.Length + footerBytes.Length

        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(BodyBytes, 0, BodyBytes.Length)
        requestStream.Write(footerBytes, 0, footerBytes.Length)
        requestStream.Flush()
        requestStream.Close()

        Dim ret As String = New StreamReader(request.GetResponse.GetResponseStream).ReadToEnd

        Return ret
    End Function

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class

Public Class DecaptcherResult

    Public Sub New()
    End Sub

    Public Sub New(ByVal resultCode As String, ByVal majorID As String, ByVal minorID As String, ByVal type As String, _
                   ByVal timeout As String, ByVal text As String)
        Me._ResultCode = resultCode
        Me._MajorID = majorID
        Me._MinorID = minorID
        Me._Type = type
        Me._Timeout = timeout
        Me._Text = text
    End Sub

    Public Property ResultCode() As String
        Get
            Return _ResultCode
        End Get
        Set(ByVal value As String)
            _ResultCode = value
        End Set
    End Property

    Public Property MajorID() As String
        Get
            Return _MajorID
        End Get
        Set(ByVal value As String)
            _MajorID = value
        End Set
    End Property

    Public Property MinorID() As String
        Get
            Return _MinorID
        End Get
        Set(ByVal value As String)
            _MinorID = value
        End Set
    End Property

    Public Property Type() As String
        Get
            Return _Type
        End Get
        Set(ByVal value As String)
            _Type = value
        End Set
    End Property

    Public Property Timeout() As String
        Get
            Return _Timeout
        End Get
        Set(ByVal value As String)
            _Timeout = value
        End Set
    End Property

    Public Property Text() As String
        Get
            Return _Text
        End Get
        Set(ByVal value As String)
            _Text = value
        End Set
    End Property


    Private _ResultCode As String
    Private _MajorID As String
    Private _MinorID As String
    Private _Type As String
    Private _Timeout As String
    Private _Text As String
End Class

Last edited by happygeek; Dec 29th, 2009 at 5:42 pm. Reason: user/pass deleted

Similar Threads

How can we add a control on our .jsp webpage for uploading several image files in JSP
Image uploading in C#
Image Uploading error?? in PHP
about uploading the image or the folder in vb.net in VB.NET
uploading image folder in Graphics and Multimedia

ludamizleeto

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Dec 2009

Permalink

Dec 29th, 2009

Re: Uploading Image With Decaptcher.com Using API

You do realize you posted your username and password in the code, right?

sknake

Featured Poster

Reputation Points: 1749

Solved Threads: 735

Senior Poster

Offline

3,948 posts
since Feb 2009

Permalink

Dec 29th, 2009

no

Click to Expand / Collapse Quote originally posted by sknake ...

You do realize you posted your username and password in the code, right?

Its just a made up one.

ludamizleeto

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Dec 2009

Permalink

Dec 30th, 2009

re: decaptcha

i am also having a problem,,

the decapture.dll seems to be written in vb 2003 and im using the vb 2008,,

did you get it to compile in visual studio 2008? and if so ,, i cant seem to reference the decapture.dll in mine,, do you have a copy of one? and or are you using the dll at all?

mike
<<mail removed>>

Last edited by Nick Evan; Dec 30th, 2009 at 3:30 pm. Reason: snipped mail

marketingmaniac

Reputation Points: 10

Solved Threads: 5

Light Poster

Offline

38 posts
since Dec 2009

Permalink

Dec 30th, 2009

Decaptcher

this is the code to send it do them but you need a valid decaptcha dll in your refrence,, which i am looking for ,, and they are not helping with email,, lol

VB.NET Syntax (Toggle Plain Text)
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Object
 
        Dim ret As Short
        Dim id As Short
        Dim host As String
        Dim name As String
        Dim password As String
        Dim pic() As Byte
        Dim pic_name As String
        Dim fnum As Short
        Dim str_out(255) As Byte
        Dim file_length As Integer
        Dim captcha As String
        Dim balance As Single
 
 
        Dim p_pict_to(1) As Integer
        Dim p_pict_type(1) As Integer
        Dim major_id(1) As Integer
        Dim minor_id(1) As Integer
        Dim size_str_out As Integer
 
        ' Connection information Specify YOUR HOST PORT LOGIN PASSWORD
        host = CStr("THE IP THEY GAVE YOU")
        name = CStr("YOUR USERNAME")
        password = CStr("YOUR PASSWORD")
        pic_name = "C:\pic.jpg"
 
 
 
        size_str_out = 255
 
        file_length = FileLen(pic_name)
 
        fnum = FreeFile()
        'UPGRADE_WARNING: Lower bound of array pic was changed from 1 to 0. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="0F1C9BE1-AF9D-476E-83B1-17D43BECFF20"'
        ReDim pic(file_length)
 
        FileOpen(fnum, pic_name, OpenMode.Binary)
        'UPGRADE_WARNING: Get was upgraded to FileGet and has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
        'FileGet(fnum, pic, 1)
        FileClose(fnum)
 
 
 
        ret = DecaptcherInit()
 
        If ret <> 0 Then
            Exit Sub
        End If
 
        id = CCprotoInit()
 
        If id < 0 Then
            Exit Sub
        End If
        'Dim yourport As Long
        ret = CCprotoLogin(id, host, THE PORT THEY GAVE YOU, name, Len(name), password, Len(password))
        'UPGRADE_ISSUE: The preceding line couldn't be parsed. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="82EBB1AE-1FCB-4FEF-9E6C-8736A316F8A7"'
 
        If ret <> 0 Then
            Exit Sub
        End If
 
        ret = CCprotoBalance(id, balance)
 
        'ret = CCprotoPicture(id, pic(1), file_length, str_out(1))
        ret = CCprotoPicture2(id, pic(1), file_length, p_pict_to(1), p_pict_type(1), str_out(1), size_str_out, major_id(1), minor_id(1))
 
 
        If ret <> 0 Then
            Exit Sub
        End If
 
        For i = 1 To 255
            'UPGRADE_WARNING: Couldn't resolve default property of object i. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            If (str_out(i) = 0) Then
                Exit For
            End If
            'UPGRADE_WARNING: Couldn't resolve default property of object i. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            captcha = captcha & Chr(str_out(i))
        Next
 
        ' if the captcha was recognize incorrectly
        ' then call
        ' ret = CCprotoPictureBad(id)
 
        MsgBox(captcha)
 
        ret = CCprotoClose(id)
        ret = CCprotoDestroy(id)
        ret = DecaptcherDestroy()
 
    End Sub
End Class
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Object

        Dim ret As Short
        Dim id As Short
        Dim host As String
        Dim name As String
        Dim password As String
        Dim pic() As Byte
        Dim pic_name As String
        Dim fnum As Short
        Dim str_out(255) As Byte
        Dim file_length As Integer
        Dim captcha As String
        Dim balance As Single


        Dim p_pict_to(1) As Integer
        Dim p_pict_type(1) As Integer
        Dim major_id(1) As Integer
        Dim minor_id(1) As Integer
        Dim size_str_out As Integer

        ' Connection information Specify YOUR HOST PORT LOGIN PASSWORD
        host = CStr("THE IP THEY GAVE YOU")
        name = CStr("YOUR USERNAME")
        password = CStr("YOUR PASSWORD")
        pic_name = "C:\pic.jpg"



        size_str_out = 255

        file_length = FileLen(pic_name)

        fnum = FreeFile()
        'UPGRADE_WARNING: Lower bound of array pic was changed from 1 to 0. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="0F1C9BE1-AF9D-476E-83B1-17D43BECFF20"'
        ReDim pic(file_length)

        FileOpen(fnum, pic_name, OpenMode.Binary)
        'UPGRADE_WARNING: Get was upgraded to FileGet and has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
        'FileGet(fnum, pic, 1)
        FileClose(fnum)



        ret = DecaptcherInit()

        If ret <> 0 Then
            Exit Sub
        End If

        id = CCprotoInit()

        If id < 0 Then
            Exit Sub
        End If
        'Dim yourport As Long
        ret = CCprotoLogin(id, host, THE PORT THEY GAVE YOU, name, Len(name), password, Len(password))
        'UPGRADE_ISSUE: The preceding line couldn't be parsed. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="82EBB1AE-1FCB-4FEF-9E6C-8736A316F8A7"'

        If ret <> 0 Then
            Exit Sub
        End If

        ret = CCprotoBalance(id, balance)

        'ret = CCprotoPicture(id, pic(1), file_length, str_out(1))
        ret = CCprotoPicture2(id, pic(1), file_length, p_pict_to(1), p_pict_type(1), str_out(1), size_str_out, major_id(1), minor_id(1))


        If ret <> 0 Then
            Exit Sub
        End If

        For i = 1 To 255
            'UPGRADE_WARNING: Couldn't resolve default property of object i. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            If (str_out(i) = 0) Then
                Exit For
            End If
            'UPGRADE_WARNING: Couldn't resolve default property of object i. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            captcha = captcha & Chr(str_out(i))
        Next

        ' if the captcha was recognize incorrectly
        ' then call
        ' ret = CCprotoPictureBad(id)

        MsgBox(captcha)

        ret = CCprotoClose(id)
        ret = CCprotoDestroy(id)
        ret = DecaptcherDestroy()

    End Sub
End Class

marketingmaniac

Reputation Points: 10

Solved Threads: 5

Light Poster

Offline

38 posts
since Dec 2009

Permalink

Jan 21st, 2010

Re: Uploading Image With Decaptcher.com Using API

VB.NET Syntax (Toggle Plain Text)
host = CStr("THE IP THEY GAVE YOU") (where can i find this? in decapthcer.com?)
name = CStr("YOUR USERNAME") ( in decaptcher.com?)
password = CStr("YOUR PASSWORD") (in decaptcher.com?)
pic_name = "C:\pic.jpg"
host = CStr("THE IP THEY GAVE YOU") (where can i find this? in decapthcer.com?)
name = CStr("YOUR USERNAME") ( in decaptcher.com?)
password = CStr("YOUR PASSWORD") (in decaptcher.com?)
pic_name = "C:\pic.jpg"

darcee

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

47 posts
since May 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Problem with the "Like Operator"

Next Thread in VB.NET Forum Timeline: Count how many vowels there are in a word or phrase

DaniWeb Message

Cancel Changes

User Name
Password