initial commit

2026-08-27 11:22:34 -06:00
commit 5983c713b1
2676 changed files with 529190 additions and 0 deletions
@@ -0,0 +1,52 @@
+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