1 Attachment(s)
LogicalHTTP Wrappers - with picture download
Alex wrote a function for downloading pictures and loading them into a picture box. He edited his http wrappers he made so heres an upload of them.
Heres an example:
Code:
Option Explicit
Dim StrHTML As String
Dim StrChall As String
Private Sub Command1_Click()
StrHTML = Wrapper.GetWrapper("http://api.recaptcha.net/challenge?k=6Lc96AAAAAAAANG1YKnED8OpogYLWtLStAMGVvv-", "http://www.gaiaonline.com/")
StrChall = Wrapper.Between(StrHTML, " challenge : '", "'")
Call Wrapper.DownloadFile("http://api.recaptcha.net/image?c=" & StrChall, "c:/captcha.jpg")
ImgCaptcha.Picture = LoadPicture("c:/captcha.jpg")
End Sub