0

is there anyway i can make this go faster?

Private Function strCoordinates(ImageURL As String, Referer As String) As String
    Dim img() As Byte
    Dim Pet As StdPicture
    Dim ct As Integer
    Dim ctx As Long
    Dim cty As Long
    Dim x As Long
    Dim y As Long
    Dim Value As Single

    GetSource "GET", "captcha_show.phtml?" & ImageURL, "www.neopets.com", "http://www.neopets.com/haggle.phtml?" & Referer, strSession, ""

    img = StrConv(strSource, vbFromUnicode)
    Set Pet = ToJpg(img)
    Set picPet.Picture = Pet

    Value = 4900000
    Do Until ct <> 0
        For y = 0 To picPet.ScaleHeight - 1
        For x = 0 To picPet.ScaleWidth - 1
        If GetPixel(picPet.hdc, x, y) < Value Then
            ct = ct + 1
            ctx = ctx + x
            cty = cty + y
        End If
        Next x
        Next y
        Value = Value + 500000
        DoEvents
    Loop

    strCoordinates = "&x=" & Int(ctx / ct) & "&y=" & Int(cty / ct)
    Set Pet = Nothing
End Function

thanks for any help

2
Contributors
1
Reply
2
Views
11 Years
Discussion Span
Last Post by noebody
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.