Beiträge von Kevin B.

Imports MySql.Data.MySqlClient
Imports System.Net


Public Class LoginForm1


    Dim MysqlConnection As MySqlConnection
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        MysqlConnection = New MySqlConnection
        MysqlConnection.ConnectionString = "Zensiert"
        Try
            MysqlConnection.Open()
        Catch myerror As MySqlException
            MessageBox.Show("Verbinding Könnte Nicht Hergestellt werden Grund: " & myerror.Message)


        End Try
        Dim Mysqladapter As New MySqlDataAdapter
        Dim sqlquary = "SELECT * FROM User WHERE Name = '" & UsernameTextBox.Text & "' AND Passwort = '" & StringToMD5(PasswordTextBox.Text) & "';"
        Dim Command = New MySqlCommand
        Command.Connection = MysqlConnection
        Command.CommandText = sqlquary
        Mysqladapter.SelectCommand = Command
        Dim Mydata As MySqlDataReader
        Mydata = Command.ExecuteReader
        If Mydata.HasRows = 0 Then
            MessageBox.Show("Username: " & UsernameTextBox.Text & " Nicht Gefunden")
        Else
            MessageBox.Show("Willkommen " & UsernameTextBox.Text)
            Form1.Show()
            Me.Hide()
        End If
    End Sub


    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
    Private Function StringToMD5(ByVal Content As String) As String
        Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
        ByteString = M5.ComputeHash(ByteString)


        Dim FinalString As String = Nothing
        For Each bt As Byte In ByteString
            FinalString &= bt.ToString("x2")


        Next
        Return FinalString
    End Function
End Class

Imports System.Net


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Updats Werden Gesucht...")
        If My.Computer.FileSystem.FileExists("C:\Nordtrans-Logistik Map Updater\map-version.txt") Then
            My.Computer.FileSystem.DeleteFile("C:\Nordtrans-Logistik Map Updater\map-version.txt")
        End If
        If My.Computer.FileSystem.FileExists("C:\Nordtrans-Logistik Map Updater\Redme.txt") Then
            My.Computer.FileSystem.DeleteFile("C:\Nordtrans-Logistik Map Updater\Redme.txt")
        End If
        Timer1.Start()
        My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/pAktuelle version.txt", "C:\Nordtrans-Logistik Map Updater\pAktuelle version.txt", Nothing, Nothing, False, 10000, True)
        My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/mAktuelle version.txt", "C:\Nordtrans-Logistik Map Updater\mAktuelle version.txt", Nothing, Nothing, False, 10000, True)
        My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/map-version.txt", "C:\Nordtrans-Logistik Map Updater\map-version.txt", Nothing, Nothing, False, 10000, True)
        My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/Redme.txt", "C:\Nordtrans-Logistik Map Updater\Redme.txt", Nothing, Nothing, False, 10000, True)
        If mapv.Text < My.Computer.FileSystem.ReadAllText("C:\Nordtrans-Logistik Map Updater\map-version.txt") Then
            If MsgBox("Wollen Sie ein Update Duchführen", MsgBoxStyle.YesNo, "Updaten?") = MsgBoxResult.Yes Then
                My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/mAktuelle version.txt", "C:\Nordtrans-Logistik Map Updater\mAktuelle version.txt", Nothing, Nothing, False, 10000, True)
            Else : Exit Sub
            End If
        Else
            MsgBox("Du hast bereits die neuste Version." & vbCrLf & mapv.Text)
            Timer1.Stop()


        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Updats Werden Gesucht...")
        If My.Computer.FileSystem.FileExists("C:\Nordtrans-Logistik Map Updater\version.txt") Then
            My.Computer.FileSystem.DeleteFile("C:\Nordtrans-Logistik Map Updater\version.txt")
        End If
        My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/version.txt", "C:\Nordtrans-Logistik Map Updater\version.txt", Nothing, Nothing, False, 10000, True)


        If pr.Text < My.Computer.FileSystem.ReadAllText("C:\Nordtrans-Logistik Map Updater\version.txt") Then
            If MsgBox("Wollen Sie ein Update Duchführen", MsgBoxStyle.YesNo, "Updaten?") = MsgBoxResult.Yes Then
                My.Computer.Network.DownloadFile("http://www.nordtrans-logistik.de/ucp/update/pAktuelle version.txt", "C:\Nordtrans-Logistik Map Updater\pAktuelle version.txt", Nothing, Nothing, False, 10000, True)
            Else : Exit Sub
            End If
        Else
            MsgBox("Du hast bereits die neuste Version." & vbCrLf & "Version:" & mapv.Text)
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mapv.Text = IO.File.ReadAllText("Map Version:" & mapv.Text = IO.File.ReadAllText("C:\Nordtrans-Logistik Map Updater\pAktuelle version.txt"))
        pr.Text = IO.File.ReadAllText("Programm Version:") & mapv.Text & ("C:\Nordtrans-Logistik Map Updater\mAktuelle version.txt")
    End Sub
End Class