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