initial commit

2026-08-27 11:22:34 -06:00
commit 5983c713b1
2676 changed files with 529190 additions and 0 deletions
@@ -0,0 +1,77 @@
+Imports System.Threading
+Public Class MBox
+
+    Public C As Client
+    Private Sub MBox_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Guna2ComboBox1.SelectedIndex = 0
+        Guna2ComboBox2.SelectedIndex = 2
+        Guna2ComboBox3.SelectedIndex = 0
+    End Sub
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Try
+            If Not C.IsConnected Then
+                Close()
+            End If
+        Catch ex As Exception
+            Debug.WriteLine(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub MBox_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Dim B As Byte() = SB("CloseMessageBox")
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+
+    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
+        Dim B As Byte() = SB("MessageBox" & SettingsHelper.SPL & Guna2ComboBox2.Text & SettingsHelper.SPL & Guna2ComboBox1.Text & SettingsHelper.SPL & Guna2TextBox1.Text & SettingsHelper.SPL & Guna2TextBox2.Text)
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+
+    Private Sub Guna2ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Guna2ComboBox1.SelectedIndexChanged
+        If Guna2ComboBox1.Text = "None" Then
+            PictureBox1.Image = Nothing
+            PictureBox1.Visible = False
+        End If
+        If Guna2ComboBox1.Text = "Information" Then
+            PictureBox1.Visible = True
+            PictureBox1.Image = My.Resources.Information
+        End If
+        If Guna2ComboBox1.Text = "Question" Then
+            PictureBox1.Visible = True
+            PictureBox1.Image = My.Resources.Question
+        End If
+        If Guna2ComboBox1.Text = "Warning" Then
+            PictureBox1.Visible = True
+            PictureBox1.Image = My.Resources.Warning
+        End If
+        If Guna2ComboBox1.Text = "Error" Then
+            PictureBox1.Visible = True
+            PictureBox1.Image = My.Resources._Error
+        End If
+    End Sub
+
+    Private Sub Guna2ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Guna2ComboBox3.SelectedIndexChanged
+        If Guna2ComboBox3.Text = "None" Then
+            PictureBox2.Image = Nothing
+            PictureBox2.Visible = False
+        End If
+        If Guna2ComboBox3.Text = "Info" Then
+            PictureBox2.Visible = True
+            PictureBox2.Image = My.Resources.Information
+        End If
+        If Guna2ComboBox3.Text = "Warning" Then
+            PictureBox2.Visible = True
+            PictureBox2.Image = My.Resources.Warning
+        End If
+        If Guna2ComboBox3.Text = "Error" Then
+            PictureBox2.Visible = True
+            PictureBox2.Image = My.Resources._Error
+        End If
+    End Sub
+
+    Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
+        Dim B As Byte() = SB("NotifyIcon" & SettingsHelper.SPL & Guna2ComboBox3.Text & SettingsHelper.SPL & Guna2TextBox3.Text & SettingsHelper.SPL & Guna2TextBox4.Text)
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+End Class