Help with thx check system

06/26/2012 16:51 Andrew™#1
#deleted Thanks for all
06/27/2012 11:53 MissUnderstoodOne#2
You could do a login System which logs the user in e*pvp & than checks if he gave you a thx or not.
But over HWID i don't know how it should work :S
06/27/2012 12:06 boxxiebabee#3
Quote:
Originally Posted by MissUnderstoodOne View Post
You could do a login System which logs the user in e*pvp & than checks if he gave you a thx or not.
But over HWID i don't know how it should work :S
e*pvp has a hwid system. which that he could simply gather the username and then he can check if the user thanked his post.
06/27/2012 13:44 Andrew™#4
#deleted
06/27/2012 14:47 boxxiebabee#5
[Only registered and activated users can see links. Click Here To Register...]
Here. But you have to convert it, if you use vb.net.
06/27/2012 15:53 Coding Lounge#6
You can read the thanks it here:

[Only registered and activated users can see links. Click Here To Register...]

It's build like this:

Code:
ID(3305517) Name(Coding Lounge) idk(1298997735) posts(695) thanks(123) rank(Level One)

simply this way:

Code:
"http://www.elitepvpers.com/api/hwid.php?hash=" + HWID
06/27/2012 22:04 Andrew™#7
#deleted
06/28/2012 00:18 Whoknowsit#8
[Only registered and activated users can see links. Click Here To Register...]

It's working, but i've upgraded it over the time.
06/28/2012 07:46 Andrew™#9
#deleted
06/28/2012 13:21 Coding Lounge#10
Maybe this could help you:

[Only registered and activated users can see links. Click Here To Register...]

There is the Source in the thread given. Or u can use this direct Link:

[Only registered and activated users can see links. Click Here To Register...]
06/28/2012 14:21 Andrew™#11
#deleted
06/28/2012 17:48 Whoknowsit#12
Remember, that it's not case insensitive. In order to prevent any faults, i would convert everything to lowercase. I would try something like this:

Code:
    Function StringBetween(ByVal s_String As String, ByVal s_Start As String, ByVal s_End As String) As String
        If s_String.Contains(s_Start) AndAlso s_String.Contains(s_End) Then
            StringBetween = Split(Split(s_String, s_Start)(1), s_End)(0)
        Else
            StringBetween = ""
        End If
    End Function

    ' .....

    Dim res As String = StringBetween(source, "For This Useful Post:", "</table>")
    If String.IsNullOrEmpty(InStr(res.ToLower, Uname.ToLower))) Then
        MsgBox("You must press thanks")
    End If
It might be very basic, but logically, it should work.
06/28/2012 18:34 Andrew™#13
Quote:
Originally Posted by Whoknowsit View Post
Remember, that it's not case insensitive. In order to prevent any faults, i would convert everything to lowercase. I would try something like this:

...

It might be very basic, but logically, it should work.
Thank you, but already I have it finished :) I find a simply way how to check thanks :) But :handsdown:

#closerequest
06/28/2012 23:04 Whoknowsit#14
And how did you solve this? I guess, there are some people, who're interested in a solution.