59 lines
2.2 KiB
VB.net
59 lines
2.2 KiB
VB.net
|
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
|