Private Sub check_rapid(ByVal usr As String, ByVal pwd As String)
Dim client As New Net.WebClient
Dim data As New Collections.Specialized.NameValueCollection
data.Add("login", usr)
data.Add("password", pwd)
Dim bytes As Byte() = client.UploadValues("https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi", "Post", data)
Dim str As String = System.Text.Encoding.ASCII.GetString(bytes)
If str.Contains("RapidPoints") Then
Label3.Text = "Login erfolgreich!"
Else
Label3.Text = "Login fehlgeschlagen!"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
check_rapid(User.Text, Passwort.Text)
End Sub