Witam podczas rejestracji sprawdzane jest czy login już istnieje w bazie jeśli tak to nie można się zarejestrować i trzeba wybrać inny login.
Chcę też dodać wykrywanie ip aby uniknąć multikont.
Jeśli login jest wolny i wszystkie dane są poprawne to w tym momencie następuje rejestracja ale jeśli w bazie istnieje już to samo ip z którego próbuje się zarejestrować osoba to powinien pojawić się msgbox że konto o takim ip istnieje i rejestracja nie powinna nastąpić.
W bazie znajduje się kolumna "ip" i gdy użytkownik się zarejestruje zapisuje się ono tam.
w TextBox1.Text wyświetla się aktualne ip
Kod wygląda nastepująco.
Chcę też dodać wykrywanie ip aby uniknąć multikont.
Jeśli login jest wolny i wszystkie dane są poprawne to w tym momencie następuje rejestracja ale jeśli w bazie istnieje już to samo ip z którego próbuje się zarejestrować osoba to powinien pojawić się msgbox że konto o takim ip istnieje i rejestracja nie powinna nastąpić.
W bazie znajduje się kolumna "ip" i gdy użytkownik się zarejestruje zapisuje się ono tam.
w TextBox1.Text wyświetla się aktualne ip
Kod wygląda nastepująco.
Public Sub create(ByVal sql As String)
Try
con.Open()
Dim sqlStr As String = "SELECT COUNT(*) FROM `users` WHERE `login` = @uname"
Dim cmd As New MySqlCommand(sqlStr, con)
cmd.Parameters.AddWithValue("@uname", txtuser.Text)
Dim rowCount As Int16 = Convert.ToInt32(cmd.ExecuteScalar())
If rowCount <> 0 Then
MsgBox("Sorry, this user already exists!")
Return
End If
If rowCount = 0 Then
End If
With cmd
.Connection = con
.CommandText = sql
result = cmd.ExecuteNonQuery
If result = 0 Then
MsgBox("Registration failed!")
Else
MsgBox("You are now registered.")
Me.Close()
End If
End With
Catch ex As Exception
End Try
con.Close()
End Sub
