VB10 - VBForums Reputations Saver 2

[Edgemeal]

If you haven't noticed, the forum only holds your last 48 received reputations and last 50 given, after that they are lost forever.
This utility saves your reps and their URLs for future reference.

VBForums Reputation Saver v3.00
===============================
 - BETA 01 - June 10, 2013
* Replace browser control in v2.x with HttpWebRequest code. 
 (Much faster - Special Thanks to ident).

VBForums Reputation Saver 2
===========================
Updated for vBulletin 4.2.0,  VBForums update on May 09, 2013.

' History:
' ========
' v2.03 - June 05, 2013
'  * Now show recvd & given rep results (after import) in a single msgbox.
'  * Auto close/Cancel "message from webpage" dialogs (i.e. "you have a new private message").
' v2.02 - May 31, 2013 - Fix: If no web connection or site was down the app was stuck waiting to connect, Now aborts login after 30 sec.
' v2.01 - May 12, 2013 - Fix: Launching URLs from Given Reps was broken.
' v2.00 - May 11, 2013 - Combined my Reps saver and Reps Given saver into one app.

' About: 
'=======
' VBForums only shows your last 48 received and last 50 given reputations,
' after that they are lost forever. This app saves your reputations!
'
' The code isn't pretty (parts from VB6,etc), but it works! :)
'
' Usage:
' ======
' On first usage enter your name and password for VBforums in SetUp.
' To update click "Import New", this uses a VB Webbrowser control to,
' auto login, get & parse your latest reputations and auto logout.
'
' If you have data saved from the older versions (v1.04 +) just copy the,
' text files ("VBforumReps.txt" & "VBforums_Given_Reps.txt") to this apps folder.

'Testing:
'========
' Windows 7 (US English), w/IE 10
' VB10 w/.Net 4.0.

NOTE: This is nothing like the original VBForums Reputations Saver by Pradeep1210, which hasn't worked for some time.

[4x2y]

Thank you very much for sharing this nice tool.

[4x2y]

Did you changed the format of the file VBforumReps.txt?

I have added VBforumReps.txt (created by version 1) in the same folder of the version 2 in hope to merge new rep to previous but i got this error

---------------------------
File Load Error
---------------------------
Index was outside the bounds of the array.
---------------------------
OK
---------------------------

When i press OK, only the first rep is loaded!

[Edgemeal]

Did you changed the format of the file VBforumReps.txt?

I have added VBforumReps.txt (created by version 1) in the same folder of the version 2 in hope to merge new rep to previous but i got this error

When i press OK, only the first rep is loaded!

Yeah, It is really only compatible with reps saved from v1.04 & 1.05, which include an extra entry in the reps file for the comment smiley.
I removed the built-in upgrade fix .
To fix it so it will work with older saved reps look in, Private Sub LoadReps()
Note the code that gets the smiley index,...

    ' add comment smiley image index to LV Tag prop and set LV subitem image.
    lvi.Tag = entry(6)
    ' set comment column(3) smiley image.
    ListView_SetSubItemImageIndex(ListView1.Handle, ListView1.Items.Count - 1, ListView1.Columns(3).Index, CInt(entry(6)))
Next ' - next line

Replace that with this code from the old rep saver...

    'v1.04 - add comment smiley image index to LV Tag prop and set LV subitem image.
    ' Note: Since versions before v1.04 didn't support this,
    ' we need to do a length check or will error!
    ' Once data is saved we would no longer need to do this check!
    If entry.Length = 7 Then 
        lvi.Tag = entry(6)
        ' set comment column(3) smiley image.
        ListView_SetSubItemImageIndex(ListView1.Handle, ListView1.Items.Count - 1, ListView1.Columns(3).Index, CInt(entry(6)))
    Else ' data has NOT been saved with v1.04 (or later).
        lvi.Tag = -1 ' -1 = no image.
    End If
Next ' - next line

Once your rep file gets updated (got some new reps) it will be saved and include the newer comment smiley indexes, you could then go back to using the newer code.
Hope that makes sense.

[4x2y]

Thank you, i have updated my old VBforumReps.txt successfully

[Edgemeal]

Thank you, i have updated my old VBforumReps.txt successfully

Great, thanks for the feedback!
BTW, I just updated the app to v2.01, seems the Given Reps URLs wouldn't work with the older vbforums base URL I was using, I hope thats fixed now!

EDIT: The comment images need some work (resizing?), I just got your rep with the wave and its crunched up.

[4x2y]

BTW, I just updated the app to v2.01, seems the Given Reps URLs wouldn't work with the older vbforums base URL I was using, I hope thats fixed now!

Yes it has been fixed

EDIT: The comment images need some work (resizing?), I just got your rep with the wave and its crunched up

Only the following images > 16x16
alienfrog.gif
completeclear.gif
confused.gif
duck.gif
wave.gif

There are some images of siz 15x15 but i don't think they are need resizing.

[ident]

Great little tool.