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 -.-

[SysShark]

Code:

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 -.-

Du musst ganz einfach nach einem Merkmal im Quelltext suchen, dass nur vorhanden ist, wenn du dich erfolgreich einloggst. Bei Rapidshare steht eben auf dieser Seite "Rapidpoints". Bei uploadet.to musst du eben nachschauen, was charakteristisch ist.

MfG
SysShark