Link checken?

[ghosty]

Code:

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

Edit:
Das "If str.Contains(">>>RapidPoints"<<<) Then" ist doch im SeitenQuellText -> class=RapidPoints <- oder?

Weil wenn ich bei uploadet.to nach class=iwas suche und das da rein setze kommt da zwa Login erfolgreich, aber auch wenn di Daten gar nicht stimmen -.-