[VB6 Tutorial] Downloading to a file

[Nitech]

Hello, I am going to help you to make a download to a file thing which is usually needed for autobuyer, and other noobnan3h.

First, youll have to call URLDownloadToFile.

Private Declare Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Add that before anything else.

Now add this to the place before the haggling.

            URLDownloadToFile 0, "http://www.neopets.com/login.phtml?username=" & txtUser.Text & "&password=" & txtPass.Text & "&location=/petcentral.phtml", "C:/AppleBuyer/Files/Login.phtml", 0, 0
            URLDownloadToFile 0, piclink, "C:/AppleBuyer/Files/Image.gif", 0, 0

The first download file gets the login. Because now neo added a thing that logs you out of your acc if you login anywhere else or from somewhere else.
The seconds URLDownloadToFile gets the image with the url of piclink, which is:

piclink = "http://www.neopets.com/captcha_show.phtml?_x_pwned=" & GetStringBetween(DPage, "/captcha_show.phtml?_x_pwned=", ChrW$(34) & " style=")

Then add:

strCoord = OIR.OIR

Then when posting the link, strCoord would be &x=#&y=#.

I hope to have helped.

[rcadble]

You know you can just do "piclink = "http://www.neopets.com/captcha_show.phtml"

[Nitech]

Yes, I recently found that out -.-