Link checken?

[ghosty]

sry erstmal weil ich wieder so ne Anfänger Frage stelle^^

Also...
Ich hab mir auf scenecoderz das Tutorial für einen Rapidshare Account Checker angeschaut.
Nun wollte ich aber einen uploadet Acc Checker machen und wollte mal fragen wie ich es mache, das ein Text ausgegeben wird wenn der Checker auf ner bestimmten Seite ist.

Also beim RS Checker ist das ja so...

If str.Contains("RapidPoints") Then
Label3.Text = "Login erfolgreich!"
Else
Label3.Text = "Login fehlgeschlagen!"
End If

Das bekomme ich bei uploadet aber nicht hin... (verschiedenes ausprobiert)

Nun dachte ich mir das kann man vlt auch mit der URL machen.
Also so iwie (weiß den Befehl halt net^^)

If (Was kommt hier hin^^) = ("www.uploadet.to") Then
Label3.Text = "Login erfolgreich!"
Else
Label3.Text = "Login fehlgeschlagen!"
End If

Geht das überhaupt iwie und wenn ja wie^^?

[krusty]

vlt solldeste mal den ganzen code posten =$
glaube kaum, dass alle hier das tut von scene coders kennen =)

[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

[ghosty]

Ha ich ja... hab soo lange gesucht aber iwie nix gefunden^^

[krusty]

ups, war wohl wer schneller =)

[ghosty]

Ja nach dem Link hab ich ja gefragt...
Und andere sachen hab ich auch schon getestet....
(in,red,green,div_mp)
oder was noch alles

[PAN]

Such nach : "img2/vorhangschloss_auf.jpg" oder "img2/vorhangschloss_zu.jpg"
und das innem If dann kannse in deinen Account Checker direkt reinschreiben, das wenn:
img2/vorhangschloss_auf.jpg
Besteht das der Account Unsecured iss!
und wenn :
img2/vorhangschloss_zu.jpg
Besteht, das der Account Secured iss!

Hoffe ich konte Helfen

Mfg PAN

\/Edit:

If str.Contains("img2/vorhangschloss_auf.jpg") Then
            Label3.Text = "Login erfolgreich, der Account ist Ungeschützt!"
        Exit Sub
Else
If str.Contains("img2/vorhangschloss_zu.jpg") Then
            Label3.Text = "Login erfolgreich, der Account ist geschützt!"
Else
Label3.Text = "Login Fehlgeschlagen!"
        End If

[ghosty]

LoL wollte ich zwar nich hören aber danke für den Tipp. (suche das für uploadet.to)
Werd das beim RS Checker aber rein machen^^