Imports System.Windows.Forms

Public Class dlgKonfig
  Public Check As String

  Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
    Me.DialogResult = System.Windows.Forms.DialogResult.OK
    My.Settings.SerwerSrc = edSerwerSrc.Text
    '    My.Settings.SerwerDst = edServerDst.Text
    My.Settings.SerwerKlucza = edHASPServer.Text
    My.Settings.BazaSrc = edBazaSrc.Text
    My.Settings.BazaDst = edBazaDst.Text
    My.Settings.Seria = EdSeria.Text
    My.Settings.FolderR_Roboczy = edWorkingDir.Text
    My.Settings.MCsrc = MainFrm.Encrypt(edUserSrc.Text)
    '    My.Settings.MCdst = MainFrm.Encrypt(edUserDst.Text)
    My.Settings.Comsrc = MainFrm.Encrypt(edPassSrc.Text)
    '    My.Settings.Comdst = MainFrm.Encrypt(edPassDst.Text)
    My.Settings.check = MainFrm.Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper)
    My.Settings.Save()
    MsgBox("Zakończ program i uruchom ponownie.")
    Me.Close()
  End Sub

  Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
    Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
    Me.Close()
  End Sub

  Private Sub dlgKonfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    edSerwerSrc.Text = My.Settings.SerwerSrc
    '    edServerDst.Text = My.Settings.SerwerDst
    edHASPServer.Text = My.Settings.SerwerKlucza
    edBazaSrc.Text = My.Settings.BazaSrc
    edBazaDst.Text = My.Settings.BazaDst
    EdSeria.Text = My.Settings.Seria
    edWorkingDir.Text = My.Settings.FolderR_Roboczy
    edUserSrc.Text = MainFrm.Decrypt(My.Settings.MCsrc)
    '    edUserDst.Text = MainFrm.Decrypt(My.Settings.MCdst)
    edPassSrc.Text = MainFrm.Decrypt(My.Settings.Comsrc)
    '    edPassDst.Text = MainFrm.Decrypt(My.Settings.Comdst)

  End Sub
End Class