VB.NET Example

Submitted by admin on Tue, 07/31/2007 - 12:35

elcastelli quickly hacked up a VB.NET example!
Download the VB.NET project here.

    Public Function postCaptcha(ByVal strApiKey As String, ByVal strCaptchaFile As String) As String
        Dim objEncoding As New System.Text.UTF8Encoding
        Dim objStreamWriter As System.IO.StreamWriter
        Dim objStream As System.IO.Stream
        Dim objHTTPRequest As HttpWebRequest
        Dim sbPostData As New System.Text.StringBuilder
        Dim intUploadBit As Integer
        Dim intUploadSoFar As Integer
        Dim inttoUpload As Integer
        Dim i As Integer
        Dim objStreamReader As System.IO.Stream
        Dim strResult As String

        'set request properties
        objHTTPRequest = System.Net.WebRequest.Create("http://www.captchakiller.com/api.php")
        objHTTPRequest.AllowAutoRedirect = True
        objHTTPRequest.Accept = "*/*"
        objHTTPRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)"
        objHTTPRequest.KeepAlive = False
        objHTTPRequest.Timeout = 30000
        objHTTPRequest.Method = "POST"
        objHTTPRequest.ContentType = "multipart/form-data; boundary=7cf2a327f01ae"


        sbPostData.Append("--" + "7cf2a327f01ae" + vbCrLf)
        sbPostData.Append("Content-Disposition: form-data; name=""api_key""" + vbCrLf)
        sbPostData.Append(vbCrLf)
        sbPostData.Append(strApiKey + vbCrLf)

        sbPostData.Append("--" + "7cf2a327f01ae" + vbCrLf)
        sbPostData.Append("Content-Disposition: form-data; name=""expire""" + vbCrLf)
        sbPostData.Append(vbCrLf)
        sbPostData.Append("1000" + vbCrLf)   'defaulted to 1000 but you can change this
        sbPostData.Append("--" + "7cf2a327f01ae" + vbCrLf)
        sbPostData.Append("Content-Disposition: form-data; name=""method""" + vbCrLf)
        sbPostData.Append(vbCrLf)
        sbPostData.Append("upload_captcha" + vbCrLf)

        sbPostData.Append("--" + "7cf2a327f01ae" + vbCrLf)
        sbPostData.Append("Content-Disposition: form-data; name=""rights""" + vbCrLf)
        sbPostData.Append(vbCrLf)
        sbPostData.Append("false" + vbCrLf) 'defaulted to false but you can change this

        'this is the header for our captcha file upload
        sbPostData.Append("--" + "7cf2a327f01ae" + vbCrLf)
        sbPostData.Append("Content-Disposition: form-data; name=""file""; filename=""" & strCaptchaFile & "" + vbCrLf)
        sbPostData.Append("Content-Type: image/pjpeg" + vbCrLf)
        sbPostData.Append(vbCrLf)

        'read our captch into a byte array
        Dim objBinReader As New BinaryReader(File.OpenRead(strCaptchaFile))
        Dim bytPhotoContents As Byte() = objBinReader.ReadBytes(objBinReader.BaseStream.Length)
        objBinReader.Close()

        'convert our other post data into a byte array
        Dim bytPostContents As Byte() = objEncoding.GetBytes(sbPostData.ToString)

        'create a footer for insertation after the file bytes are uploaded
        Dim bytPostFooter As Byte() = objEncoding.GetBytes(vbCrLf + "--" + "7cf2a327f01ae" + vbCrLf)

        'create a new data buffer to hold all of our byte arrays
        Dim bytDataBuffer As Byte() = New Byte(bytPostContents.Length + bytPhotoContents.Length + bytPostFooter.Length) {}

        'copy the contents of our three byte arrays into our single byte array
        System.Buffer.BlockCopy(bytPostContents, 0, bytDataBuffer, 0, bytPostContents.Length)
        System.Buffer.BlockCopy(bytPhotoContents, 0, bytDataBuffer, bytPostContents.Length, bytPhotoContents.Length)
        System.Buffer.BlockCopy(bytPostFooter, 0, bytDataBuffer, bytPostContents.Length + bytPhotoContents.Length, bytPostFooter.Length)

        'set the content length based on our new byte array length
        objHTTPRequest.ContentLength = bytDataBuffer.Length

        'get our stream and post our data
        objStream = objHTTPRequest.GetRequestStream()


        'chunk up our data and upload it to our stream
        'will generally only need to send in one chunk unless file is large
        intUploadBit = Math.Max(bytDataBuffer.Length / 100, 50 * 1024)
        intUploadSoFar = 0

        While i < bytDataBuffer.Length
            inttoUpload = Math.Min(intUploadBit, bytDataBuffer.Length - i)
            intUploadSoFar += inttoUpload
            objStream.Write(bytDataBuffer, i, inttoUpload)
            i = i + intUploadBit
        End While

        'close our stream
        objStream.Close()

        'get the response from the server
        Dim objHTTPResponse As HttpWebResponse = CType(objHTTPRequest.GetResponse(), HttpWebResponse)
        objStreamReader = objHTTPResponse.GetResponseStream()

        'final result from server is returned to strResult
        Dim objStreamResult As New System.IO.StreamReader(objStreamReader)
        strResult = objStreamResult.ReadToEnd

        
        'close our objects
        objStreamReader.Close()
        objStreamResult.Close()

        Return strResult


    End Function

Printer-friendly version
Login or register to post comments

online generic viagra

Submitted by bodymax47 on Tue, 03/09/2010 - 11:34.

online generic viagra

Convert PAL to NTSC DVD, CDG

Submitted by mumu2010 on Mon, 03/08/2010 - 22:25.

Convert PAL to NTSC DVD,
CDG Converter,
PAL to NTSC Converter,
Convert NTSC to PAL DVD,
NTSC to PAL Converter,
Convert SECAM to PAL,
DVD to DVD Copy,
PAL to NTSC DVD Mac,
NTSC to PAL DVD Mac
CDG Ripper,
Convert CDG to WMV,
Convert CDG to FLV,
Convert CDG to MP4,
Convert CDG to MPEG,
CDG to iPod,
Convert CDG to DVD,
CDG to MP3,
Convert CDG to WAV,
Convert CDG to Video

Thanks mate. This is such

Submitted by KarenG on Mon, 03/08/2010 - 14:25.

Thanks mate. This is such good info for my research. I will bookmark your post here on Digg.
Drug Rehab Programs

ch

Submitted by chan on Thu, 03/04/2010 - 04:10.

Auto Insurance Health Insurance Life Insurance

discount ugg

Submitted by Ugg Boots on Tue, 03/02/2010 - 03:16.

UGG Boots is the world's premier brand of authentic UGG sheepskin footwear and remains the leader in quality, innovation and style, we offer you the most popular and fashion Uggs such as
Ugg Bailey Button，
Ugg Classic Tall,
Ugg Classic Cardy and so on .
Ugg Boots on Sale with Fast delivery!And free shipping!

discount ugg

Submitted by Ugg Boots on Tue, 03/02/2010 - 03:13.

online generic cialis

Submitted by bodymax47 on Mon, 03/01/2010 - 10:28.

online generic cialis

paslanmaz metal

Submitted by Maskem on Fri, 02/26/2010 - 13:58.

Thank you very much for comments. I stainless steel industry

Paslanmaz

Krom Korkuluk

Merdiven Korkuluk Modelleri

Paslanmaz Celik

Camlı Korkuluk

Pleksi Korkuluk

Paslanmaz Çelik Küpeşte

Pirinç Yatak Başlıkları

online generic cialis

Submitted by bodymax47 on Fri, 02/26/2010 - 09:36.

online generic cialis

Helpful .Net Captcha

Submitted by kalayan on Thu, 02/25/2010 - 06:42.

Helpful .Net Captcha function.I will try this comment while providing my next Captcha sequence in my website.
If you're looking for a Houston Limousine Service.. .houston limousine rentalshave the Stylish Limousine Service.

Cheap replica handbags

Submitted by chencui on Thu, 02/25/2010 - 02:41.

Cheap replica handbags Christian Louboutin Sale UGG Boots Outlet Cheap UGG Boots Tiffany & Co Jewelry UGG Bailey Button UGG Classic Argyle Knit UGG Classic Short Camo UGG Ultra Tall UGG Women's Sandals UGG Classic Cardy Jimmy Choo Shoes Alexander McQueen Shoes cheap Wholesale handbags cheap handbags Wholesale handbags Cheap handbags

order propecia online

Submitted by bodymax47 on Mon, 02/22/2010 - 06:31.

order propecia online

Submitted by bodymax47 on Sun, 02/21/2010 - 09:49.

order propecia online

Thanks for sharing the

Submitted by berncamus on Fri, 02/19/2010 - 03:31.

Thanks for sharing the codes.
If you like to read about charcoal grill, visit my sites at
how to grill with charcoal ,
heavy duty charcoal grill and
charcoal grill with smoker

online generic cialis

Submitted by bodymax47 on Thu, 02/18/2010 - 06:18.

online generic cialis

Nice information..looks like

Submitted by charlie1 on Wed, 02/17/2010 - 07:37.

Nice information..looks like a great site.It is easy to see that you are passionate about your writing. If only I had your writing ability I look forward to more updates and will be returning.Shopping

online generic viagra

Submitted by bodymax47 on Wed, 02/17/2010 - 07:33.

online generic viagra

I agree with this data.And I

Submitted by charlie1 on Wed, 02/17/2010 - 01:45.

I agree with this data.And I am very happy with this data.I am very much interested in .net.bookmarkme

Sildenafil citrate, sold as

Submitted by mokany91 on Tue, 02/16/2010 - 10:00.

Sildenafil citrate, sold as Viagra, Revatio and under various other trade names, is a drug used to treat erectile dysfunction and buy viagra (PAH).Arimidex (INN, trade name Arimidex, AstraZeneca) is a drug used to treat and buy arimidex after surgery and for metastases in post-menopausal women.Aspirin (Buy Aspirin), also known as acetylsalicylic acid (pronounced /??s?t?ls?l??s?l?k ??s?d/, abbreviated buy ASpirin),Atenolol is a selective ?1 receptor antagonist, a drug belonging to the group of beta blockers (sometimes written Buy Atenolol), a class of drugs used primarily in cardiovascular diseases.Augmentin is the British Approved Name for the combination antibiotic containing amoxicillin trihydrate, a ?-lactam antibiotic, with potassium clavulanate, a buy augmentin inhibitor. Avandia is an anti-diabetic drug in the thiazolidinedione class of drugs. It is marketed by the pharmaceutical company GlaxoSmithKline as a stand-alone drug (buy Avandia).1.buy azithromycin2.buy baclofen3.buy celexaCardizem is in a group of drugs called calcium channel blockers. It
works buy cardizem slowing the electrical conduction in the heart, slowing heart
rate, and/or normalizing heart rhythm.Celebrex is in a group of drugs called nonsteroidal anti-inflammatory
drugs (buy celebrex). It works by reducing hormones that cause inflammation
and pain.Levitra (buy levitra) is a PDE5 inhibitor used for treating impotence (erectile dysfunction) that is sold under the trade name Levitra (Bayer AG, GSK, and SP).Cialis is a PDE5 inhibitor, currently marketed in pill form for treating erectile dysfunction (ED) under the name buy Cialis.Other Products: 1.Buy propecia 2.buy cipro3.buy zanaflex 4.buy kamagra 5.buy lasix 6.buy Zithromax 7.buy clomid
Buy Abilify
Buy arava
Buy arcoxia
Buy aricept

online generic cialis

Submitted by bodymax47 on Tue, 02/16/2010 - 07:15.

online generic cialis

buy levitra online

Submitted by bodymax47 on Mon, 02/15/2010 - 10:42.

buy levitra online

What I need

Submitted by Donn on Mon, 02/15/2010 - 10:05.

Thanks for the information and the provided link to download the VB.NET project. I'm glad to find this site with VB.NET Example. This project will help me when I write my essay.

Welcome the presence, the

Submitted by samenzhen on Fri, 02/12/2010 - 11:09.

Welcome the presence, the head store main management Replica handbags , the tidal current Replica bags, the pretty women's designer handbags, the replica watches in the quality, are Replica Breitling watches because of the service, lets reassurance which you buy, buys happiness! Is also trying on each kind of beautiful swiss replica watchesyou, whether also what appearance to choose a section of the Replica Hermes handbags to worry? Cheap replica handbags .Cheap handbags.replicas handbags handbags purses.brand handbags all cheapsSwiss replica watches
detal stayle as follows Gucci replica handbags|Gucci Hobo Bag
|coach wallets|Dolce&Gabbana replica handbags|Givenchy replica handbags|Juicy Couture replica handbags|Juicy Couture handbags|Kooba replica handbags|Lancel replica handbags|Loewe replica handbags|Marni replica handbags|Thomas wylde replica handbags|Valentino replica handbags|Versace replica handbags|Yves Saint Laurent replica handbags|Alexander Wang replica handbags
Replica watches Replica watch Cheap replica watches Fake watches Luxury watches best swiss watches high quality replica watches replica swiss watches fake watches wholesale Panerai replica watches Panerai Luminor Panerai radiomir replica Omega watches omega speedmaster watches omega seamaster watches omega railmaster watch omega Constellation watch Omega deville watches

how do i get the result of

Submitted by cicurug on Sun, 02/14/2010 - 22:36.

how do i get the result of this captcha and send the results of captcha to any textbox or anywhere by using vb.net.Advanced link building strategies.
nice share, great article, very usefull for us...thank you
Seo bagi Blogger Ajib adalah Lifestyle Blogger Seo Ajib | Seo bagi Blogger Ajib adalah Lifestyle | Astaga.com Lifestyle On The Net | Kontes SEO bisnis syariah online produk herbal PT.Exer Indonesia rekomendasi MUI | Festival Museum Nusantara | Indonesia Java International Destination | Nowgoogle.com Adalah Multiple Search Engine Popular | Tungsten Wedding Bands | Mens Tungsten Wedding Bands | Nowgoogle.com Adalah Multiple Search Engine Popular | Iklan Baris

Seo bagi Blogger Ajib adalah Lifestyle
Seo bagi Blogger Ajib adalah Lifestyle
Seo bagi Blogger Ajib adalah Lifestyle
Seo bagi Blogger Ajib adalah Lifestyle

Blog Kontes Seo
Blog KOntes Seo
Blog Kontes Seo
Blog Kontes Seo
Blog Kontes Seo
Blog KOntes Seo

Blog Kontes Seo
Blog KOntes Seo
Blog Kontes Seo
Blog Kontes Seo
Blog Kontes Seo
Blog KOntes Seo
Blog KOntes Seo

VB.NET project

Submitted by free games on Tue, 02/16/2010 - 02:57.

Thanks for the information and the provided link to download the VB.NET project
ben 10 games car games kids games

Saw that both has each kind

Submitted by samenzhen on Fri, 02/12/2010 - 11:01.

Saw that both has each kind of Swiss replica watches design sign to two shops to have replica handbags the trademark to shoulder the Louis Vuitton Damier Azur, the notebook Louis Vuitton Cruise handbagand commodities and so on louis vuitton epi leather handbag sells on the shelf, after the inspection, the law enforcement officials has ferreted out one batch in the cabinet replica watches the pocket, two shops total have more than 250 swiss replica watches to have this trademark commodity. The law enforcement officials have related the Replica Panerai watches wieden China area counter-counterfeit department, inspects after this company staff, these commodities to counterfeit Replica Breitling Watches completely the trademark village in a mountainous area goods. The shop side said that have presented the
louis vuitton monogram bags extremely clear outline. The very special zero chanel 2.55 bags design, is in addition quiet and tasteful for the Louis Vuitton Replica handbags addition, at the same time nous also practical convenient. The holoscopic this year's Prada Replica handbags fashion trend, the gadget embellishes
louis vuitton monogram canvas design Cheng Dare the design. For instance hangs up string tassels on the louis vuitton damier canvas, is joined to chain and so on, replica handbags designs no longer sole tasteless
Replica Bvlgari Watches Replica Cartier Watches Replica Chanel Watches Replica Chopard Watches Replica Corum Watches Franck Muller Watches Replica Gucci watches
Replica IWC watches Jimmy Choo handbags Jimmy Choo bags Yves Saint Laurent handbags YSL handbags MARC JACOBS handbags Burberry handbags Burberry bags Cartier handbags Celine handbags Givenchy handbags Lancel handbags
laminated glass

how do i get the result of

Submitted by charlie1 on Wed, 02/10/2010 - 07:49.

how do i get the result of this captcha and send the results of captcha to any textbox or anywhere by using vb.net.Advanced link building strategies

Ghd Straighteners

Submitted by Ugg Boots on Wed, 02/10/2010 - 07:39.

Over the past few years Ghd Straighteners have released a new pink iron each October, however, our Hair Straighteners insider tells us that they may not release a Dark Ghd iron this year, so if you want to get your hands on a Pink Ghd, then this could be your last chance!

Thanks

Submitted by free games on Mon, 02/15/2010 - 14:45.

thanks for sharing the project here
Soccer games BMX games Army games

buy levitra online

Submitted by bodymax47 on Tue, 02/09/2010 - 08:57.

buy levitra online

MBT Shoes

Submitted by Ugg Boots on Tue, 02/09/2010 - 08:56.

Spring has finally arrived, which makes it the perfect time to get outside and do something good for your body. Many people use MBT as a training tool in conjunction with their regular exercise regime, in order to get a more thorough work out. However, the beauty of MBT Shoes is that you can use them whilst doing your regular day-to-day activities, knowing that you are doing something good for your body at the same time. MBT Sale in our store,and you can buy MBT Lami ,which is a step towards a better body!

UGG Boots has a strong

Submitted by Ugg Boots on Sun, 02/07/2010 - 13:35.

UGG Boots has a strong comfort, but also very fashionable, which is the leading fashion and trend of UGG Cardy Boots. The new products of UGG Bailey Button models provide with 10 different colors for your choice to meet a variety of customer preferences. The Discount UGG Classic Short of the other features are: a flexible lightweight, wear-resistant anti-slip, comfortable and warm. Cheap UGG Classic Tall low price but good quality, are exported to the UK and other parts of the world. http://www.uggsbootssaleonline.com/

UGG Boots has a strong

Submitted by Ugg Boots on Sun, 02/07/2010 - 13:32.

Hi

Submitted by gitenjit on Sun, 02/07/2010 - 11:36.

Vimax and Vigrx has been the best selling Penis Enlargement Pills on the market for the past 5 years now. I have an exclusive agreement with them and am the biggest dealer of VIMAX pills on ebay and the internet.

Jump to Hello world example‎:

Submitted by norbertherrera on Sun, 02/07/2010 - 01:48.

Jump to Hello world example‎: The following is a very simple VB.NET program, a version of the classic "Hello world" example created as a console ... great simple example. i have been codling in C for a while and only now started vb.net. the example makes for a simple straight forward demo. and can be ... special Jump to VB NET Classes and Object‎: 2. Create your own Classes in VB .NET ... 3. Write your own VB .NET database code ... VB.NET Sample code. This blog contain vb.net sample code base on vs2005, sql script and another. 2009-10-29. Show and Hide Windows Form in System Tray ... technology This tutorial demonstrates how to get started with using Chilkat .NET components in VB.NET. For specific examples, please click on one of the links in the ...Installing Chilkat - FTP - Email - Encryption Pages of VB.NET sample code and VB.NET examples. VB.NET Example Program. Download and reference Chilkat's VB.NET examples for samples on mail, encryption, ... special This site provides lessons on Microsoft Visual Basic .NET including examples on applications. It also serves as a guide to various exams to the Microsoft ... VB.Net examples (example source code) Organized by topic.GUI - Data Structure - File Directory - Database ADO.net ASP.NET User control (.ASCX) Demo * Class for Automatic Rich Text Box Coloring and Formatting (VB.NET) * ... NET WEB Service using VB.NET (With Tutorial) * ... 707722889

online generic viagra

Submitted by bodymax47 on Sat, 02/06/2010 - 10:06.

online generic viagra

User friendly & Helpful .Net

Submitted by stewbiff on Fri, 02/05/2010 - 11:16.

User friendly & Helpful .Net Captcha function.I will try this comment while providing my next Captcha sequence in my website

mp3 music download

UGG Boots has a strong

Submitted by Ugg Boots on Fri, 02/05/2010 - 09:25.

ugg boots

Submitted by Ugg Boots on Fri, 02/05/2010 - 07:31.

awareness

Submitted by cChristina on Tue, 02/23/2010 - 06:04.

the result of this captcha and send the results of captcha to any textbox or anywhere by using vb.net.
Stainless Steel Cookware Sets

ugg boots

Submitted by Ugg Boots on Fri, 02/05/2010 - 07:29.

nice

Submitted by charlie1 on Tue, 02/02/2010 - 02:25.

internet capacity to prevent the network coming under strain.But still we are providing you the video without breakage.Apex Professionals LLC

buy sumycin

Submitted by pharmacy_rx4p on Mon, 02/01/2010 - 19:41.

buy sumycin

buy accutane online

Submitted by pharmacy_rx4p on Sat, 01/30/2010 - 19:30.

buy accutane online

increasing internet capacity

Submitted by monty123 on Sat, 01/30/2010 - 18:30.

increasing internet capacity to prevent the network coming under strain.But still we are providing you the video without breakage.
Regards,
Watch TV Streaming

thanks for sharing the

Submitted by jessg67 on Fri, 01/29/2010 - 10:40.

thanks for sharing the project here

mini scooters

I encounter some errors at

Submitted by jorgefeliciano on Thu, 01/28/2010 - 04:32.

I encounter some errors at first when i used this but after checking i found out where's the error. I've used it though i'm not really found of using it.

Jorge Feliciano
Research paper help

a strong comfort, but also

Submitted by cChristina on Sun, 02/14/2010 - 05:05.

a strong comfort, but also very fashionable, which is the leading fashion and trend of UGG Cardy Boots. The new products of UGG Bailey Button models provide with 10 different colors for your choice to meet a variety of customer preferences.video advertising