VB/SQL Problem

[Crystal-Craft]

Heyho Epvp ich habe ein Frage und zwar

habe ich in VB.NET ein Prog mit Register und Login über MySql geschrieben und es soll wenn man sich eingeloggt hat jz das "User Panel kommen" Wo man Pw ändern kann nur die Frage ist wie stell ich dass mit Pw ändern an und ich wollt auch die Users Online anzeigen lassen z.b. Users Online : 5. Also wie geht so etwas?

Programm Code kommt jz:

LOGIN CODE:

 Spoiler

PHP Code:

'MD5 Verschlüsslung
Module md5

    Public Function MD5StringHash(ByVal strString As String) As String
        Dim MD5 As New MD5CryptoServiceProvider
        Dim Data As Byte()
        Dim Result As Byte()
        Dim Res As String = ""
        Dim Tmp As String = ""

        Data = Encoding.ASCII.GetBytes(strString)
        Result = MD5.ComputeHash(Data)
        For i As Integer = 0 To Result.Length - 1
            Tmp = Hex(Result(i))
            If Len(Tmp) = 1 Then Tmp = "0" & Tmp
            Res += Tmp
        Next
        Return Res
    End Function

End Module
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Login Funktion
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = "server=db4free.net;" & "user id=hwidlock;" & "password=marc1996;" & "database=hwidlock"

        Try
            conn.Open() ' Verbindung öffnen
        Catch myerror As MySqlException
            MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
        End Try

        Dim benutzer As String = MD5StringHash(txt_benutzer.Text)
        Dim passwort As String = MD5StringHash(txt_passwort.Text)

        Dim myAdapter As New MySqlDataAdapter
        Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'" ' Das ist die Abfrage welche Prüft ob der Account existiert.Die txt_benutzer ist die Textbox in der der Benutzername eingeben wird und txt_passwort bekommt das Passwort
        Dim myCommand As New MySqlCommand
        myCommand.Connection = conn
        myCommand.CommandText = SQLAbfrage

        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader() ' Hier startet man die SQL Abfrage
        If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
            MsgBox("Einloggen erfolgreich !")
            MsgBox("Bitte warte einen Moment")
            If Not System.IO.Directory.Exists("data") Then
                System.IO.Directory.CreateDirectory("data")

                conn.Close()
                conn.Open()
                Form3.Show [COLOR="Red"]<---- Das ist die Form fürs  User CP[/COLOR]
            Else
                conn.Close()
                conn.Open()
                Main()
            End If
        Else 'Sonst wird angezeigt das die Daten falsch sind
            MsgBox("Falsche Daten! Bitte überprüfe deine Eingaben", MsgBoxStyle.Critical)
        End If
    End Sub 


Register Code:

 Spoiler

PHP Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txt_passwort.Text = txt_passwort_w.Text Then ' Prüft ob die Passwörter übereinstimmen
            If txt_email.Text.Contains("@") And txt_email_w.Text.Contains("@") Then ' Prüft ob die E-Mails ein @ enthalten.Damit wird geschaut ob die Email gültig ist
                If txt_email.Text = txt_email_w.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
                    Dim conn As MySqlConnection
                    conn = New MySqlConnection
                    conn.ConnectionString = "server=db4free.net;" & "user id=hwidlock;" & "password=marc1996;" & "database=hwidlock"



                    Try
                        conn.Open() ' Verbindung öffnen

                    Catch myerror As MySqlException
                        MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
                    End Try

                    Dim myAdapter As New MySqlDataAdapter
                    Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + txt_benutzer.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
                    Dim myCommand As New MySqlCommand
                    myCommand.Connection = conn
                    myCommand.CommandText = SQLAbfrage

                    myAdapter.SelectCommand = myCommand
                    Dim myData As MySqlDataReader
                    myData = myCommand.ExecuteReader() ' Abfrage starten

                    If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
                        conn.Close()
                        conn.Open()
                        Dim registerfinal As New MySqlDataAdapter
                        Dim benutzer As String = MD5StringHash(txt_benutzer.Text)
                        Dim passwort As String = MD5StringHash(txt_passwort.Text)
                        myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort, Email)" _
                                             & "VALUES('" & benutzer & "','" & passwort & "','" & txt_email.Text & "')"
                        myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
                        MsgBox("Der Account mit dem Namen : " & txt_benutzer.Text & " wurde erfolgreich erstellt")
                        conn.Close()
                    Else
                        MsgBox("Dieser Benutzername existiert bereits")
                    End If
                Else
                    MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
                End If
            Else
                MsgBox("Die eingegebenen E-Mails sind ungültig !")
            End If
        Else
            MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
        End If
    End Sub 


SQL Code sprich DB (falls benötigt)

 Spoiler

PHP Code:

DROP TABLE IF EXISTS `benutzer`;
CREATE TABLE `benutzer` (
  `ID` int(5) NOT NULL auto_increment,
  `Benutzername` varchar(255) default NULL,
  `Passwort` varchar(255) default NULL,
  `Email` varchar(255) default NULL,
  PRIMARY KEY  (`ID`)
) ENGINE=MyISAM AUTO_INCREMENT=9 DEFAULT CHARSET=latin1; 


Hoffe ihr könnt mir helfen


mfg

[°Showii]

Hallo lieber Crystal-Craft,

die User-Online würde ich so anzeigen lassen, indem du eine php oder txt in eine Webbrowser lädst und dann den Document.Text in ein Label abspeicherst. Dies sollte er alle 2-5minuten tun, damit es so genau wie möglich ist...

Aber jetzt erstmal zu deinem Hauptproblem, wie schreibe ich eigendlich in eine txt oder php Datei!

Das ist eigendlich auch ganz einfach du suchst dir einen temporären Speicherordner und und schreibst da wie folgt rein.

alte User-Online laden von Label -> Anzahl der aktuellen User nehmen und +1 rechnen -> Diese in eine txt oder php Datei abspeichern und -> erstellte Datei per ftp hochladen.


Beim Logout oder beim Form Closing machst du das selbe eben nur mit -1 anstatt +1


Das mit dem Password ändern geht, indem du die registrieren Funktion nimmst und dann die entsprechenden Daten einfach überschreibst. Am Anfang solltest du das Login Scipt umschreiben, dass das aktuelle PW geprüft wird und dann erst das neue angegeben werden kann.

Ich hoffe ich konnte dir etwas helfen.

mfg. °Showii

[Crystal-Craft]

Nur das Problem ist beim Pw ändern , dass ich fast NULL ahnung im bereich mysql habe und das script aus dem i-net ist und dann mit dem users online versteh ich irgendwie net also ich soll ne php datei die immer checkt wv connections mysql bekommt hochladen und in nem webbrowser ausgeben nur die farge ist da ich php auf fast null kann wie erstell ich in php so ein abfrage?

bzw könntest mir mal nen bsp code zeigen

[°Showii]

Nein so habe ich das nicht gemeint...

Du erstellst eine php Datei, wo du 0 reinschreibst un dann arebietets du mit diesem Text um es in eine Form zu laden

Code:

PHP Code:

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebbRowser1.Navigate("http://******.de/useronline.php")
    End Sub

    Sub online () Handles WebBrowser1.DocumentCompleted

     lbOnline.Text = WebBrowser1.DocumentText

    End Sub 


und den rest kann man per ftp machen ist aber nicht sicher