[Request]Applications

Hello,
can someone make me a "MySQL Login" ?

Program Idea: MySQL Login
Additional Information: The Form should login,it should connect to a database.
Features:Login to a mysql database
GUI Ideas: /

PS:If you make me these application.Please give it me in the project folder.So can edit them.I wond remove your Credits.

--
Thank you much

I need more infos:

How does the structure of your user table look like?

ID | Password | Email ...??

Only login, no registration?

Well I could also make do the registration, login and table structure for you. Just tell me if you already have a table for it and if so, how's the database structure?

VS08 or VS10?

thats the structure:
ID,Username,Password.


only login.


Add me on Skype:comanderniklas or IcQ:398862074

Here it is.

Registration / Login / Table structure

[php]'Coded by Blubb1337 from MPGH

Imports MySql.Data.MySqlClient
Imports System.Text
Imports System.Security.Cryptography

Public Class frmLogin

'make sure your database allows external access, else it will not work
'free databases mostly do not allow external access, there are a few which do though
'the only thing you need to fill in is obviously the server, database username/password/table and the name of the database itself

Private table As String = "User" 'name of the table
Private conn As New MySqlConnection("server=;" & "user id=;" & "password=;" & "database=")
Private reader As MySqlDataReader

'current database structure:
'create table `DBName`.`TableName`(
'`Index` int NOT NULL AUTO_INCREMENT ,
'`Username` mediumtext ,
'`Password` mediumtext ,
'`Email` mediumtext ,
' PRIMARY KEY (`Index`)
')

#Region "Functions"

'the md5 function crypts the password
'therefore it cannot be uncrypted again

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 Region

#Region "Database"

Private Sub Login()
cmdLogin.Enabled = False
cmdRegister.Enabled = False

Try
conn.Open()

Dim strSQL As String = "SELECT * FROM " & table & " WHERE Username='" & txtID.Text & "' AND Password='" & MD5StringHash(txtPW.Text) & "'"

Dim cmd As New MySqlCommand(strSQL, conn)
reader = cmd.ExecuteReader

If CInt(reader.HasRows) <> 0 Then
Me.Close()
frmMain.ShowDialog()
Else
MsgBox("Access denied.", MsgBoxStyle.Information)
End If

reader.Close()

conn.Close()
Catch ex As MySqlException
conn.Close()
End Try

cmdRegister.Enabled = True
cmdLogin.Enabled = True
End Sub

Private Sub Register()
cmdRegister.Enabled = False

Try
conn.Open()

Dim strSQL As String = "INSERT INTO " & table & "(Username,Password,Email) VALUES ('" & txtRegID.Text & "','" & MD5StringHash(txtRegPW.Text) & "','" & txtRegEmail.Text & "')"
Dim strSQL2 As String = "SELECT * FROM " & table & " WHERE Username='" & txtRegID.Text & "' OR Email='" & txtRegEmail.Text & "'"

Dim cmd As New MySqlCommand(strSQL, conn)
Dim cmd2 As New MySqlCommand(strSQL2, conn)

reader = cmd2.ExecuteReader

If CInt(reader.HasRows) = 0 Then
reader.Close()
cmd.ExecuteNonQuery()

MsgBox("Successfully created the account " & txtRegID.Text & ".", MsgBoxStyle.Information)
Else
reader.Close()
MsgBox("The username or email already exists.", MsgBoxStyle.Information)
End If

conn.Close()
Catch ex As MySqlException
conn.Close()
End Try

cmdRegister.Enabled = True
End Sub

#End Region

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
End Sub

Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click
Dim t As New Threading.Thread(AddressOf Login)
t.Start()
End Sub

Private Sub txtID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtID.TextChanged
My.Setting***** = txtID.Text
My.Settings.Save()
My.Settings.Reload()
End Sub

Private Sub txtPW_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPW.TextChanged
My.Settings.pw = txtPW.Text
My.Settings.Save()
My.Settings.Reload()
End Sub

Private Sub cmdRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRegister.Click
Dim t As New Threading.Thread(AddressOf Register)
t.Start()
End Sub
End Class
[/php]

Project folder below.

VirusTotal - Free Online Virus, Malware and URL Scanner

MySQL Login.rar - Jotti&#039;s malware scan

Thanks for your help

OMG thank you hawky.
I wanna see how you guys would make something similar to my auto updater but better.


Program Idea: auto updater
Additional Information: has to auto update from a ftp site
Features: same as above, progress bar for download &checking if download is needed
GUI Ideas: nothing special

[php]'This code is fully self-written.
'(c) Blubb1337
'Enjoy

Imports System.IO
Imports System.Text
Imports System.Net

'Since a lot of people seem to need a proper downloader, I decided 2 release a PROPER updater
'Most updater use my.network.downloadfile, however this does not show progress and it generally sucks!
'This updater uses a webclient. Using a webclient, you can display the current progress, the received bytes
'and the total bytes to receive.

'You also have a download completed event.

'How to use this?
'This is really easy, the only thing you need to change -> 4 Variables
'links
'Private Const _version As String = "http:/version.txt"
'Private Const _FileToDL As String = "http:/Recorder.exe"
'Private Const _log As String = "http://changelog.txt"
'name
'Private Const _Name As String = "Recorder"

'I think this is pretty self-explanatory. You sure don't need to have a log, you can just take it out.

'Furthermore, this updater uses multithread to check the newest version/load the checklog.
'Usually the program executes one sub/function/action after another. With multithreads you can run
'different subs/functions or whatever at the same time!
'You may also change the prioritys of the multithreads

'If you want to unpack a file after it has been downloaded, you can go for the sharpziplibrary:
'http://www.mpgh.net/forum/33-visual-basics/126996-tutorial-unzipping-vb-net.html

'Sub ExtractZip(ByVal FileToUnzip As String, ByVal WhereToSave As String, Optional ByVal Password As String = "")
'Dim fz As New FastZip
' fz.Password = Password
' fz.ExtractZip(FileToUnzip, WhereToSave, "")
' End Sub

Public Class Form1

#Region "Declarations"
'new webclient to for downloading
WithEvents webC As New Net.WebClient

Private apppath As String = Application.StartupPath & "\"
Private filename As String

'avoid the same filename twice
Private i As Integer = 1

'received/total bytes
Private total, current As Integer

'links
Private Const _version As String = "http://version.txt"
Private Const _FileToDL As String = "http://Recorder.exe"
Private Const _log As String = "http://changelog.txt"

'name
Private Const _Name As String = "Recorder"

'get a pages source code
Private Function loadPage(ByVal page As String)
Dim req As WebRequest = WebRequest.Create(page)
Dim resp As WebResponse = req.GetResponse()

Dim s As Stream = resp.GetResponseStream()
Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII)
Dim doc As String = sr.ReadToEnd()
Return doc
End Function

#End Region

#Region "Download/Progress"

Private Sub cmdDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDownload.Click
If cmdDownload.Text = "Download" Then
'start backgroundworker
bgwDownload****nWorkerAsync()
Else
'start the program
Process.Start(filename)
'end this application
Application.Exit()
End If
End Sub

Private Sub webC_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles webC.DownloadFileCompleted
' MsgBox("Download complete." & vbNewLine & vbNewLine _
' & "Saved at: " & filename)

cmdDownload.Text = "Start " & _Name
cmdDownload.Enabled = True
End Sub

Private Sub webC_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles webC.DownloadProgressChanged
current = e.BytesReceived 'bytes it dled already
total = e.TotalBytesToReceive 'total bytes it has to dl

If total <> current Then 'if they are not the same
cmdDownload.Enabled = False
End If

pbProgress.Value = e.ProgressPercentage 'show the procent percentage
'pbProgress.Text = CInt(current / 1024) & "/" & CInt(total / 1024) & " KB received | " & e.ProgressPercentage & " %"
lblprogress.Text = CInt(current / 1024) & "/" & CInt(total / 1024) & " KB received | " & e.ProgressPercentage & " %"
End Sub

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgwDownload.DoWork
'start downloading the file
webC.DownloadFileAsync(New Uri(_FileToDL), filename)
End Sub

#End Region

#Region "Startup"

Private Sub UpdateApp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'to avoid threadovertaking actions -> program would just end
Control.CheckForIllegalCrossThreadCalls = False

'multithread so multiple things can be done at the same time -> load changelog
Dim cl As New Threading.Thread(AddressOf changelog)
cl.Priority = Threading.ThreadPriority.Highest
cl.Start()

'show the current version of the application
lblCurV.Text &= Application.ProductVersion

'to not replace the old version
Do While IO.File.Exists(apppath & _Name & "_Updated - " & i & ".exe")
i += 1
Loop

filename = apppath & _Name & "_Updated - " & i & ".exe"
End Sub

Private Sub changelog()
txtChangeLog.Text = loadPage(_log)
End Sub

Private Sub newversion()
lblNewV.Text &= loadPage(_version)
End Sub

Private Sub UpdateApp_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Dim checkv As New Threading.Thread(AddressOf newversion)
checkv.Priority = Threading.ThreadPriority.Highest
checkv.Start()
End Sub

#End Region
End Class [/php]

Updater for MPGH.rar - Jotti's malware scan

VirusTotal - Free Online Virus, Malware and URL Scanner

Program Idea: Auto reply: What i mean is if the vb searches a particular set of phrases it would automatically replay to that message
Additional Information: WEll since i have a chat box i wanted to know if someone could help me get a vb program working for me. for ex. when someone starts talking to me on a chat box the program would automatiicly find that phrase such as hi than it would automaticlly rely with something similer like hello or welcome. but the thing i cant get it . i cant get my program to even search the chat... Please help :P
Features: When the program finds a set of phrase it would automatically replay to him or her
GUI Ideas: nothing special

2Do this properly, you'll need AGES.

So, no1 is really going to do that 4 u.

Developing AI chatbots - CodeProject

Meh, if you wanna do this properly you will definetely need a database to handle this.

And I agree, BASIC chatbot is possible with basic string formatting.

so i cant code this in vb?

thanks anyways