52 lines
2.2 KiB
VB.net
52 lines
2.2 KiB
VB.net
|
Public Class Ftp
|
||
|
|
|
||
|
|
Public Sub New()
|
||
|
|
InitializeComponent()
|
||
|
|
Opacity = 0
|
||
|
|
FadeIn(Me, 20)
|
||
|
|
Guna2TextBox1.Select()
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub Ftp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
|
|
Try
|
||
|
|
|
||
|
|
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftphost", Nothing) = Nothing Then
|
||
|
|
Guna2TextBox1.Text = "ftp.exmple.com"
|
||
|
|
Else
|
||
|
|
Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftphost", Nothing)
|
||
|
|
End If
|
||
|
|
|
||
|
|
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpuser", Nothing) = Nothing Then
|
||
|
|
Guna2TextBox2.Text = "ftp-username"
|
||
|
|
Else
|
||
|
|
Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpuser", Nothing)
|
||
|
|
End If
|
||
|
|
|
||
|
|
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftppass", Nothing) = Nothing Then
|
||
|
|
Guna2TextBox3.Text = "ftp-password"
|
||
|
|
Else
|
||
|
|
Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftppass", Nothing)
|
||
|
|
End If
|
||
|
|
|
||
|
|
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpport", Nothing) = Nothing Then
|
||
|
|
Guna2NumericUpDown1.Value = 21
|
||
|
|
Else
|
||
|
|
Guna2NumericUpDown1.Value = Convert.ToInt32(My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpport", Nothing))
|
||
|
|
End If
|
||
|
|
|
||
|
|
Catch ex As Exception
|
||
|
|
Debug.WriteLine(ex.Message)
|
||
|
|
End Try
|
||
|
|
End Sub
|
||
|
|
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||
|
|
Try
|
||
|
|
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftphost", Guna2TextBox1.Text)
|
||
|
|
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftpuser", Guna2TextBox2.Text)
|
||
|
|
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftppass", Guna2TextBox3.Text)
|
||
|
|
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftpport", Guna2NumericUpDown1.Value.ToString)
|
||
|
|
Close()
|
||
|
|
Catch ex As Exception
|
||
|
|
Debug.WriteLine(ex.Message)
|
||
|
|
End Try
|
||
|
|
End Sub
|
||
|
|
End Class
|