Thanks Check

add 2 button,1 WebBrowser,2 label ,1 textbox

in Form_Load

Code:

Dim epvphwidurl As String = "http://www.elitepvpers.com/api/hwid.php?hash="
hwid.Text = HWIDInfo.getHWID()
epvphwidurl = epvphwidurl + hwid.Text
WebBrowser1.Navigate(epvphwidurl)

1 button

Code:

      
Clipboard.SetText(hwid.Text)
Process.Start("http://www.elitepvpers.com/forum/profile.php?do=editprofile")

2 button

Code:

       Try
Dim username As String
Dim Client As New WebClient
Dim getresult As String = Client.DownloadString("url of your thread") username = HWIDInfo.Splitbetween(WebBrowser1.Document.Body.InnerText, "<username>", "</username>")
            epvpusername.Text = username
            If (Strings.InStr(getresult, username, CompareMethod.Binary) > 0) Then
                thankedlabel.Text = "Yes"
            Else
                thankedlabel.Text = "No"
                MessageBox.Show("You didn't thank me yet", "Thanks Check", MessageBoxButtons.YesNo, MessageBoxIcon.Error)
                If DialogResult.Yes Then
                    Process.Start("url of your thread")
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

HWIDInfo

Spoiler