frmsettings.vb.svn-base

MirUnleashed vb.net Module modMainServer Public WithEvents Socket As New WinsockServer Pub

        '
        'lblSQLPassword
        '
        Me.lblSQLPassword.BackColor = System.Drawing.Color.Transparent
        Me.lblSQLPassword.Location = New System.Drawing.Point(272, 236)
        Me.lblSQLPassword.Name = "lblSQLPassword"
        Me.lblSQLPassword.Size = New System.Drawing.Size(88, 20)
        Me.lblSQLPassword.TabIndex = 24
        Me.lblSQLPassword.Text = "SQL Password:"
        '
        'txtSQLPassword
        '
        Me.txtSQLPassword.Location = New System.Drawing.Point(368, 233)
        Me.txtSQLPassword.Name = "txtSQLPassword"
        Me.txtSQLPassword.Size = New System.Drawing.Size(104, 23)
        Me.txtSQLPassword.TabIndex = 23
        '
        'lblGameServer
        '
        Me.lblGameServer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblGameServer.Location = New System.Drawing.Point(272, 9)
        Me.lblGameServer.Name = "lblGameServer"
        Me.lblGameServer.Size = New System.Drawing.Size(200, 29)
        Me.lblGameServer.TabIndex = 27
        Me.lblGameServer.Text = "Game Server"
        Me.lblGameServer.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblSQL
        '
        Me.lblSQL.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblSQL.Location = New System.Drawing.Point(272, 125)
        Me.lblSQL.Name = "lblSQL"
        Me.lblSQL.Size = New System.Drawing.Size(200, 30)
        Me.lblSQL.TabIndex = 28
        Me.lblSQL.Text = "SQL"
        Me.lblSQL.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnOK
        '
        Me.btnOK.Location = New System.Drawing.Point(170, 296)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(72, 39)
        Me.btnOK.TabIndex = 29
        Me.btnOK.Text = "&OK"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(274, 296)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(72, 39)
        Me.btnCancel.TabIndex = 30
        Me.btnCancel.Text = "&Cancel"
        '
        'lblClientVersion
        '
        Me.lblClientVersion.BackColor = System.Drawing.Color.Transparent
        Me.lblClientVersion.Location = New System.Drawing.Point(24, 89)
        Me.lblClientVersion.Name = "lblClientVersion"
        Me.lblClientVersion.Size = New System.Drawing.Size(80, 20)
        Me.lblClientVersion.TabIndex = 32
        Me.lblClientVersion.Text = "Client Version:"
        '
        'txtClientVersion
        '
        Me.txtClientVersion.Location = New System.Drawing.Point(120, 86)
        Me.txtClientVersion.Name = "txtClientVersion"
        Me.txtClientVersion.Size = New System.Drawing.Size(104, 23)
        Me.txtClientVersion.TabIndex = 31
        '
        'lblServer
        '
        Me.lblServer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblServer.Location = New System.Drawing.Point(27, 9)
        Me.lblServer.Name = "lblServer"
        Me.lblServer.Size = New System.Drawing.Size(200, 29)
        Me.lblServer.TabIndex = 33
        Me.lblServer.Text = "Server"
        Me.lblServer.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblLogging
        '
        Me.lblLogging.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblLogging.Location = New System.Drawing.Point(24, 125)
        Me.lblLogging.Name = "lblLogging"
        Me.lblLogging.Size = New System.Drawing.Size(200, 30)
        Me.lblLogging.TabIndex = 34
        Me.lblLogging.Text = "Logging"
        Me.lblLogging.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'frmSettings
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 16)
        Me.ClientSize = New System.Drawing.Size(512, 369)
        Me.Controls.Add(Me.lblLogging)
        Me.Controls.Add(Me.lblServer)
        Me.Controls.Add(Me.lblClientVersion)
        Me.Controls.Add(Me.txtClientVersion)
        Me.Controls.Add(Me.btnCancel)
        Me.Controls.Add(Me.btnOK)
        Me.Controls.Add(Me.lblSQL)
        Me.Controls.Add(Me.lblGameServer)
        Me.Controls.Add(Me.lblSQLPassword)
        Me.Controls.Add(Me.txtSQLPassword)
        Me.Controls.Add(Me.lblSQLLogin)
        Me.Controls.Add(Me.lblSQLIP)
        Me.Controls.Add(Me.txtSQLLogin)
        Me.Controls.Add(Me.txtSQLIP)
        Me.Controls.Add(Me.lblGameServerPort)
        Me.Controls.Add(Me.lblGameServerIP)
        Me.Controls.Add(Me.txtGameServerPort)
        Me.Controls.Add(Me.txtGameServerIP)
        Me.Controls.Add(Me.chkEnableLogging)
        Me.Controls.Add(Me.lblLogDir)
        Me.Controls.Add(Me.lblServerName)
        Me.Controls.Add(Me.txtLogDir)
        Me.Controls.Add(Me.txtServerName)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmSettings"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "Settings"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub frmSettings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtServerName.Text = Config.ServerName
        txtLogDir.Text = Config.LogDir
        txtClientVersion.Text = Config.ClientVersion

        txtGameServerIP.Text = Config.GameIP
        txtGameServerPort.Text = Config.GamePort

        txtSQLIP.Text = Config.SQLIP
        txtSQLLogin.Text = Config.SQLLogin
        txtSQLPassword.Text = Config.SQLPass

        chkEnableLogging.Checked = Config.EnableLogging
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Config.ServerName = txtServerName.Text
        Config.LogDir = txtLogDir.Text
        Config.ClientVersion = txtClientVersion.Text

        Config.GameIP = txtGameServerIP.Text
        Config.GamePort = txtGameServerPort.Text

        Config.SQLIP = txtSQLIP.Text
        Config.SQLLogin = txtSQLLogin.Text
        Config.SQLPass = txtSQLPassword.Text

        Config.EnableLogging = chkEnableLogging.Checked
        SaveConfig()
        Me.Close()

        AddLog("Settings", "Settings Updated")
        Log("Settings", "The servers settings were updated and saved.")
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    Public Sub SaveConfig()
        Dim Data As String

        'Data = "[Server]" & vbCrLf & "ServerName=" & Config.ServerName & vbCrLf & "LoginIP=" & Config.LoginIP & vbCrLf & "LoginPort=" & Config.LoginPort & vbCrLf & "EnableMakingID=" & Config.EnableMakingID & vbCrLf & "EnableLogging=" & Config.EnableLogging & vbCrLf & "ForceUpdateAccount=" & Config.ForceUpdateAccount & vbCrLf & "LogDir=" & Config.LogDir & vbCrLf & vbCrLf & "[SelChar]" & vbCrLf & "SelcharIp=" & Config.SelChrIP & vbCrLf & "SelcharPort=" & Config.SelChrPort & vbCrLf & vbCrLf & "[GameServer]" & vbCrLf & "GameServerIP=" & Config.GameIP & vbCrLf & "GameServerPort=" & Config.GamePort & vbCrLf & vbCrLf & "[SQL]" & vbCrLf & "SqlLogin=" & Config.SQLLogin & vbCrLf & "SqlPass=" & Config.SQLPass & vbCrLf & "SqlIp=" & Config.SQLIP

        Dim DataStream As System.IO.TextWriter
        Kill(Config.ConfigFile)
        DataStream = System.IO.File.CreateText(Config.ConfigFile)

        DataStream.Write(Data)
        DataStream.Close()
    End Sub
End Class