Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System
- Imports System.Collections.Generic
- Imports System.ComponentModel
- Imports System.Diagnostics
- Imports System.Drawing
- Imports System.IO
- Imports System.Runtime.CompilerServices
- Imports System.Threading
- Imports System.Windows.Forms
- Imports Microsoft.VisualBasic
- Imports Microsoft.VisualBasic.CompilerServices
- Namespace Combo_SPlitter
- ' Token: 0x02000008 RID: 8
- <DesignerGenerated()>
- Public Class Form1
- Inherits Form
- ' Token: 0x06000020 RID: 32 RVA: 0x0002E254 File Offset: 0x0002C654
- <DebuggerNonUserCode()>
- Private Shared Sub __ENCAddToList(value As Object)
- Dim _ENCList As List(Of WeakReference) = Form1.__ENCList
- SyncLock _ENCList
- Dim flag As Boolean = Form1.__ENCList.Count = Form1.__ENCList.Capacity
- If flag Then
- Dim num As Integer = 0
- Dim num2 As Integer = 0
- Dim num3 As Integer = Form1.__ENCList.Count - 1
- Dim num4 As Integer = num2
- While True
- Dim num5 As Integer = num4
- Dim num6 As Integer = num3
- If num5 > num6 Then
- Exit For
- End If
- Dim weakReference As WeakReference = Form1.__ENCList(num4)
- flag = weakReference.IsAlive
- If flag Then
- Dim flag2 As Boolean = num4 <> num
- If flag2 Then
- Form1.__ENCList(num) = Form1.__ENCList(num4)
- End If
- num += 1
- End If
- num4 += 1
- End While
- Form1.__ENCList.RemoveRange(num, Form1.__ENCList.Count - num)
- Form1.__ENCList.Capacity = Form1.__ENCList.Count
- End If
- Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
- End SyncLock
- End Sub
- ' Token: 0x06000021 RID: 33 RVA: 0x0002E358 File Offset: 0x0002C758
- <DebuggerNonUserCode()>
- Protected Overrides Sub Dispose(disposing As Boolean)
- Try
- Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
- If flag Then
- Me.components.Dispose()
- End If
- Finally
- MyBase.Dispose(disposing)
- End Try
- End Sub
- ' Token: 0x06000022 RID: 34 RVA: 0x0002E3A8 File Offset: 0x0002C7A8
- <DebuggerStepThrough()>
- Private Sub InitializeComponent()
- Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
- Me.Label1 = New Label()
- Me.TextBox1 = New TextBox()
- Me.Button3 = New Button()
- Me.ListBox1 = New ListBox()
- Me.ProgressBar1 = New ProgressBar()
- Me.LinkLabel1 = New LinkLabel()
- Me.OpenFileDialog1 = New OpenFileDialog()
- Me.PictureBox_0 = New Label()
- Me.Button1 = New Button()
- Me.Label2 = New Label()
- Me.SuspendLayout()
- Me.Label1.AutoSize = True
- Me.Label1.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
- Me.Label1.ForeColor = Color.DarkGoldenrod
- Dim label As Control = Me.Label1
- Dim location As Point = New Point(29, 43)
- label.Location = location
- Me.Label1.Name = "Label1"
- Dim label2 As Control = Me.Label1
- Dim size As Size = New Size(35, 15)
- label2.Size = size
- Me.Label1.TabIndex = 1
- Me.Label1.Text = "Each:"
- Me.TextBox1.BackColor = Color.Black
- Me.TextBox1.BorderStyle = BorderStyle.FixedSingle
- Me.TextBox1.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
- Me.TextBox1.ForeColor = Color.DarkGoldenrod
- Dim textBox As Control = Me.TextBox1
- location = New Point(5, 61)
- textBox.Location = location
- Me.TextBox1.Multiline = True
- Me.TextBox1.Name = "TextBox1"
- Dim textBox2 As Control = Me.TextBox1
- size = New Size(87, 17)
- textBox2.Size = size
- Me.TextBox1.TabIndex = 2
- Me.TextBox1.Text = "10000"
- Me.TextBox1.TextAlign = HorizontalAlignment.Center
- Me.Button3.BackColor = Color.Black
- Me.Button3.FlatStyle = FlatStyle.Flat
- Me.Button3.Font = New Font("Segoe UI", 8.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
- Me.Button3.ForeColor = Color.DarkGoldenrod
- Dim button As Control = Me.Button3
- location = New Point(5, 84)
- button.Location = location
- Me.Button3.Name = "Button3"
- Dim button2 As Control = Me.Button3
- size = New Size(87, 21)
- button2.Size = size
- Me.Button3.TabIndex = 3
- Me.Button3.Text = "Start"
- Me.Button3.UseVisualStyleBackColor = False
- Me.ListBox1.BackColor = Color.Black
- Me.ListBox1.BorderStyle = BorderStyle.None
- Me.ListBox1.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
- Me.ListBox1.ForeColor = Color.DarkGoldenrod
- Me.ListBox1.FormattingEnabled = True
- Me.ListBox1.ItemHeight = 15
- Dim listBox As Control = Me.ListBox1
- location = New Point(5, 111)
- listBox.Location = location
- Me.ListBox1.Name = "ListBox1"
- Dim listBox2 As Control = Me.ListBox1
- size = New Size(87, 135)
- listBox2.Size = size
- Me.ListBox1.TabIndex = 4
- Me.ProgressBar1.ForeColor = Color.DarkGoldenrod
- Dim progressBar As Control = Me.ProgressBar1
- location = New Point(5, 274)
- progressBar.Location = location
- Me.ProgressBar1.Name = "ProgressBar1"
- Dim progressBar2 As Control = Me.ProgressBar1
- size = New Size(87, 23)
- progressBar2.Size = size
- Me.ProgressBar1.TabIndex = 5
- Me.LinkLabel1.AutoSize = True
- Me.LinkLabel1.Font = New Font("Calibri", 11.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
- Dim linkLabel As Control = Me.LinkLabel1
- location = New Point(10, 253)
- linkLabel.Location = location
- Me.LinkLabel1.Name = "LinkLabel1"
- Dim linkLabel2 As Control = Me.LinkLabel1
- size = New Size(77, 18)
- linkLabel2.Size = size
- Me.LinkLabel1.TabIndex = 6
- Me.LinkLabel1.TabStop = True
- Me.LinkLabel1.Text = "Donate Me"
- Me.OpenFileDialog1.FileName = "OpenFileDialog1"
- Me.OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
- Me.PictureBox_0.AutoSize = True
- Me.PictureBox_0.BackColor = Color.Transparent
- Me.PictureBox_0.Font = New Font("Cambria", 9F, FontStyle.Bold Or FontStyle.Italic, GraphicsUnit.Point, 0)
- Me.PictureBox_0.ForeColor = Color.DarkGoldenrod
- Dim pictureBox_ As Control = Me.PictureBox_0
- location = New Point(2, 2)
- pictureBox_.Location = location
- Me.PictureBox_0.Name = "PictureBox_0"
- Dim pictureBox_2 As Control = Me.PictureBox_0
- size = New Size(82, 14)
- pictureBox_2.Size = size
- Me.PictureBox_0.TabIndex = 83
- Me.PictureBox_0.Text = "@8.zs Spittler"
- Me.Button1.BackColor = Color.Black
- Me.Button1.FlatStyle = FlatStyle.Flat
- Me.Button1.Font = New Font("Segoe UI", 8.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
- Me.Button1.ForeColor = Color.DarkGoldenrod
- Dim button3 As Control = Me.Button1
- location = New Point(5, 19)
- button3.Location = location
- Me.Button1.Name = "Button1"
- Dim button4 As Control = Me.Button1
- size = New Size(87, 21)
- button4.Size = size
- Me.Button1.TabIndex = 0
- Me.Button1.Text = "Load"
- Me.Button1.UseVisualStyleBackColor = False
- Me.Label2.AutoSize = True
- Me.Label2.ForeColor = Color.DarkGoldenrod
- Dim label3 As Control = Me.Label2
- location = New Point(85, 1)
- label3.Location = location
- Me.Label2.Name = "Label2"
- Dim label4 As Control = Me.Label2
- size = New Size(13, 13)
- label4.Size = size
- Me.Label2.TabIndex = 84
- Me.Label2.Text = "X"
- Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
- Me.AutoScaleDimensions = autoScaleDimensions
- Me.AutoScaleMode = AutoScaleMode.Font
- Me.BackColor = Color.Black
- size = New Size(96, 310)
- Me.ClientSize = size
- Me.Controls.Add(Me.Label2)
- Me.Controls.Add(Me.PictureBox_0)
- Me.Controls.Add(Me.LinkLabel1)
- Me.Controls.Add(Me.ProgressBar1)
- Me.Controls.Add(Me.ListBox1)
- Me.Controls.Add(Me.Button3)
- Me.Controls.Add(Me.TextBox1)
- Me.Controls.Add(Me.Label1)
- Me.Controls.Add(Me.Button1)
- Me.FormBorderStyle = FormBorderStyle.None
- Me.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon)
- Me.Name = "Form1"
- Me.StartPosition = FormStartPosition.CenterScreen
- Me.Text = "@D.a_7m Combo Splitter"
- Me.ResumeLayout(False)
- Me.PerformLayout()
- End Sub
- ' Token: 0x17000008 RID: 8
- ' (get) Token: 0x06000023 RID: 35 RVA: 0x0002EB68 File Offset: 0x0002CF68
- ' (set) Token: 0x06000024 RID: 36 RVA: 0x0002EB80 File Offset: 0x0002CF80
- Friend Overridable Property Label1 As Label
- <DebuggerNonUserCode()>
- Get
- Return Me._Label1
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As Label)
- Me._Label1 = value
- End Set
- End Property
- ' Token: 0x17000009 RID: 9
- ' (get) Token: 0x06000025 RID: 37 RVA: 0x0002EB8C File Offset: 0x0002CF8C
- ' (set) Token: 0x06000026 RID: 38 RVA: 0x0002EBA4 File Offset: 0x0002CFA4
- Friend Overridable Property TextBox1 As TextBox
- <DebuggerNonUserCode()>
- Get
- Return Me._TextBox1
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As TextBox)
- Me._TextBox1 = value
- End Set
- End Property
- ' Token: 0x1700000A RID: 10
- ' (get) Token: 0x06000027 RID: 39 RVA: 0x0002EBB0 File Offset: 0x0002CFB0
- ' (set) Token: 0x06000028 RID: 40 RVA: 0x0002EBC8 File Offset: 0x0002CFC8
- Friend Overridable Property Button3 As Button
- <DebuggerNonUserCode()>
- Get
- Return Me._Button3
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As Button)
- Dim value2 As EventHandler = AddressOf Me.Button3_Click
- Dim flag As Boolean = Me._Button3 IsNot Nothing
- If flag Then
- RemoveHandler Me._Button3.Click, value2
- End If
- Me._Button3 = value
- flag = (Me._Button3 IsNot Nothing)
- If flag Then
- AddHandler Me._Button3.Click, value2
- End If
- End Set
- End Property
- ' Token: 0x1700000B RID: 11
- ' (get) Token: 0x06000029 RID: 41 RVA: 0x0002EC28 File Offset: 0x0002D028
- ' (set) Token: 0x0600002A RID: 42 RVA: 0x0002EC40 File Offset: 0x0002D040
- Friend Overridable Property ListBox1 As ListBox
- <DebuggerNonUserCode()>
- Get
- Return Me._ListBox1
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As ListBox)
- Dim value2 As EventHandler = AddressOf Me.ListBox1_SelectedIndexChanged
- Dim flag As Boolean = Me._ListBox1 IsNot Nothing
- If flag Then
- RemoveHandler Me._ListBox1.SelectedIndexChanged, value2
- End If
- Me._ListBox1 = value
- flag = (Me._ListBox1 IsNot Nothing)
- If flag Then
- AddHandler Me._ListBox1.SelectedIndexChanged, value2
- End If
- End Set
- End Property
- ' Token: 0x1700000C RID: 12
- ' (get) Token: 0x0600002B RID: 43 RVA: 0x0002ECA0 File Offset: 0x0002D0A0
- ' (set) Token: 0x0600002C RID: 44 RVA: 0x0002ECB8 File Offset: 0x0002D0B8
- Friend Overridable Property ProgressBar1 As ProgressBar
- <DebuggerNonUserCode()>
- Get
- Return Me._ProgressBar1
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As ProgressBar)
- Dim value2 As EventHandler = AddressOf Me.ProgressBar1_Click
- Dim flag As Boolean = Me._ProgressBar1 IsNot Nothing
- If flag Then
- RemoveHandler Me._ProgressBar1.Click, value2
- End If
- Me._ProgressBar1 = value
- flag = (Me._ProgressBar1 IsNot Nothing)
- If flag Then
- AddHandler Me._ProgressBar1.Click, value2
- End If
- End Set
- End Property
- ' Token: 0x1700000D RID: 13
- ' (get) Token: 0x0600002D RID: 45 RVA: 0x0002ED18 File Offset: 0x0002D118
- ' (set) Token: 0x0600002E RID: 46 RVA: 0x0002ED30 File Offset: 0x0002D130
- Friend Overridable Property LinkLabel1 As LinkLabel
- <DebuggerNonUserCode()>
- Get
- Return Me._LinkLabel1
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As LinkLabel)
- Dim value2 As LinkLabelLinkClickedEventHandler = AddressOf Me.LinkLabel1_LinkClicked
- Dim flag As Boolean = Me._LinkLabel1 IsNot Nothing
- If flag Then
- RemoveHandler Me._LinkLabel1.LinkClicked, value2
- End If
- Me._LinkLabel1 = value
- flag = (Me._LinkLabel1 IsNot Nothing)
- If flag Then
- AddHandler Me._LinkLabel1.LinkClicked, value2
- End If
- End Set
- End Property
- ' Token: 0x1700000E RID: 14
- ' (get) Token: 0x0600002F RID: 47 RVA: 0x0002ED90 File Offset: 0x0002D190
- ' (set) Token: 0x06000030 RID: 48 RVA: 0x0002EDA8 File Offset: 0x0002D1A8
- Friend Overridable Property OpenFileDialog1 As OpenFileDialog
- <DebuggerNonUserCode()>
- Get
- Return Me._OpenFileDialog1
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As OpenFileDialog)
- Me._OpenFileDialog1 = value
- End Set
- End Property
- ' Token: 0x1700000F RID: 15
- ' (get) Token: 0x06000031 RID: 49 RVA: 0x0002EDB4 File Offset: 0x0002D1B4
- ' (set) Token: 0x06000032 RID: 50 RVA: 0x0002EDCC File Offset: 0x0002D1CC
- Friend Overridable Property PictureBox_0 As Label
- <DebuggerNonUserCode()>
- Get
- Return Me._PictureBox_0
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As Label)
- Dim value2 As MouseEventHandler = AddressOf Me.PictureBox_0_MouseDown
- Dim value3 As EventHandler = AddressOf Me.PictureBox_0_MouseLeave
- Dim value4 As MouseEventHandler = AddressOf Me.PictureBox_0_MouseMove
- Dim value5 As EventHandler = AddressOf Me.PictureBox_0_Click
- Dim flag As Boolean = Me._PictureBox_0 IsNot Nothing
- If flag Then
- RemoveHandler Me._PictureBox_0.MouseDown, value2
- RemoveHandler Me._PictureBox_0.MouseLeave, value3
- RemoveHandler Me._PictureBox_0.MouseMove, value4
- RemoveHandler Me._PictureBox_0.Click, value5
- End If
- Me._PictureBox_0 = value
- flag = (Me._PictureBox_0 IsNot Nothing)
- If flag Then
- AddHandler Me._PictureBox_0.MouseDown, value2
- AddHandler Me._PictureBox_0.MouseLeave, value3
- AddHandler Me._PictureBox_0.MouseMove, value4
- AddHandler Me._PictureBox_0.Click, value5
- End If
- End Set
- End Property
- ' Token: 0x17000010 RID: 16
- ' (get) Token: 0x06000033 RID: 51 RVA: 0x0002EEA8 File Offset: 0x0002D2A8
- ' (set) Token: 0x06000034 RID: 52 RVA: 0x0002EEC0 File Offset: 0x0002D2C0
- Friend Overridable Property Button1 As Button
- <DebuggerNonUserCode()>
- Get
- Return Me._Button1
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As Button)
- Dim value2 As EventHandler = AddressOf Me.Button1_Click
- Dim flag As Boolean = Me._Button1 IsNot Nothing
- If flag Then
- RemoveHandler Me._Button1.Click, value2
- End If
- Me._Button1 = value
- flag = (Me._Button1 IsNot Nothing)
- If flag Then
- AddHandler Me._Button1.Click, value2
- End If
- End Set
- End Property
- ' Token: 0x17000011 RID: 17
- ' (get) Token: 0x06000035 RID: 53 RVA: 0x0002EF20 File Offset: 0x0002D320
- ' (set) Token: 0x06000036 RID: 54 RVA: 0x0002EF38 File Offset: 0x0002D338
- Friend Overridable Property Label2 As Label
- <DebuggerNonUserCode()>
- Get
- Return Me._Label2
- End Get
- <DebuggerNonUserCode()>
- <MethodImpl(MethodImplOptions.Synchronized)>
- Set(value As Label)
- Dim value2 As EventHandler = AddressOf Me.Label2_Click
- Dim flag As Boolean = Me._Label2 IsNot Nothing
- If flag Then
- RemoveHandler Me._Label2.Click, value2
- End If
- Me._Label2 = value
- flag = (Me._Label2 IsNot Nothing)
- If flag Then
- AddHandler Me._Label2.Click, value2
- End If
- End Set
- End Property
- ' Token: 0x06000037 RID: 55 RVA: 0x0002EF98 File Offset: 0x0002D398
- Public Sub New()
- AddHandler MyBase.Load, AddressOf Me.Form1_Load
- Form1.__ENCAddToList(Me)
- Me.InitializeComponent()
- Me.list = New List(Of String)()
- End Sub
- ' Token: 0x06000038 RID: 56 RVA: 0x0002EFD0 File Offset: 0x0002D3D0
- Private Sub Button1_Click(sender As Object, e As EventArgs)
- Me.OpenFileDialog1.ShowDialog()
- End Sub
- ' Token: 0x06000039 RID: 57 RVA: 0x0002EFE0 File Offset: 0x0002D3E0
- Private Sub Button3_Click(sender As Object, e As EventArgs)
- Dim random As Random = New Random()
- Me.savepath = Application.StartupPath + "\Parted" + random.[Next](0, 1000000).ToString()
- FileSystem.MkDir(Me.savepath)
- Me.ProgressBar1.Minimum = 0
- Me.ProgressBar1.Maximum = Conversions.ToInteger(Me.TextBox1.Text)
- Dim thread As Thread = AddressOf Me.start
- thread.Start()
- End Sub
- ' Token: 0x0600003A RID: 58 RVA: 0x0002F070 File Offset: 0x0002D470
- Private Sub Form1_Load(sender As Object, e As EventArgs)
- Dim size As Size = New Size(96, 310)
- Me.Size = size
- Me.int = 0
- Control.CheckForIllegalCrossThreadCalls = False
- End Sub
- ' Token: 0x0600003B RID: 59 RVA: 0x0002F0A4 File Offset: 0x0002D4A4
- Private Sub start()
- ' The following expression was wrapped in a checked-statement
- Try
- Dim streamReader As StreamReader = File.OpenText(Me.OpenFileDialog1.FileName)
- Dim text As String = streamReader.ReadLine()
- While text <> Nothing
- Console.WriteLine(text)
- text = streamReader.ReadLine()
- Me.list.Add(text)
- Me.ProgressBar1.Increment(1)
- Dim flag As Boolean = CDbl(Me.list.Count) = Conversions.ToDouble(Me.TextBox1.Text)
- If flag Then
- Me.int += 1
- Me.ProgressBar1.Value = 0
- Me.ListBox1.Items.Add("Part" + Me.int.ToString() + " has been created.")
- Dim streamWriter As StreamWriter = New StreamWriter(Me.savepath + "/Part" + Me.int.ToString() + ".txt", True)
- Dim num As Integer = Me.list.Count - 1
- For i As Integer = 0 To num
- streamWriter.WriteLine(Me.list(i))
- Next
- streamWriter.Close()
- Me.list.Clear()
- End If
- End While
- Catch ex As Exception
- Me.int += 1
- Dim streamWriter2 As StreamWriter = New StreamWriter(Me.savepath + "/Part" + Me.int.ToString() + ".txt", True)
- Dim num2 As Integer = Me.list.Count - 1
- For j As Integer = 0 To num2
- streamWriter2.WriteLine(Me.list(j))
- Next
- streamWriter2.Close()
- End Try
- Interaction.MsgBox("Finished To " + Me.savepath + " Enjoy!", MsgBoxStyle.OkOnly, Nothing)
- End Sub
- ' Token: 0x0600003C RID: 60 RVA: 0x0002F2CC File Offset: 0x0002D6CC
- Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
- Process.Start("http://PayPal.Me/istarsa")
- End Sub
- ' Token: 0x0600003D RID: 61 RVA: 0x0002F2DC File Offset: 0x0002D6DC
- Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
- End Sub
- ' Token: 0x0600003E RID: 62 RVA: 0x0002F2E0 File Offset: 0x0002D6E0
- Private Sub PictureBox_0_MouseMove(sender As Object, e As MouseEventArgs)
- Dim flag As Boolean = e.Button = MouseButtons.Left
- If flag Then
- Me.Location += CType((e.Location - CType(Me.point_0, Size)), Size)
- End If
- End Sub
- ' Token: 0x0600003F RID: 63 RVA: 0x0002F330 File Offset: 0x0002D730
- Private Sub PictureBox_0_MouseLeave(sender As Object, e As EventArgs)
- End Sub
- ' Token: 0x06000040 RID: 64 RVA: 0x0002F334 File Offset: 0x0002D734
- Private Sub PictureBox_0_MouseDown(sender As Object, e As MouseEventArgs)
- Dim flag As Boolean = e.Button = MouseButtons.Left
- If flag Then
- Me.point_0 = e.Location
- End If
- End Sub
- ' Token: 0x06000041 RID: 65 RVA: 0x0002F364 File Offset: 0x0002D764
- Private Sub PictureBox_0_Click(sender As Object, e As EventArgs)
- End Sub
- ' Token: 0x06000042 RID: 66 RVA: 0x0002F368 File Offset: 0x0002D768
- Private Sub ProgressBar1_Click(sender As Object, e As EventArgs)
- End Sub
- ' Token: 0x06000043 RID: 67 RVA: 0x0002F36C File Offset: 0x0002D76C
- Private Sub Label2_Click(sender As Object, e As EventArgs)
- Me.Close()
- End Sub
- ' Token: 0x0400000A RID: 10
- Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()
- ' Token: 0x0400000B RID: 11
- Private components As IContainer
- ' Token: 0x0400000C RID: 12
- <AccessedThroughProperty("Label1")>
- Private _Label1 As Label
- ' Token: 0x0400000D RID: 13
- <AccessedThroughProperty("TextBox1")>
- Private _TextBox1 As TextBox
- ' Token: 0x0400000E RID: 14
- <AccessedThroughProperty("Button3")>
- Private _Button3 As Button
- ' Token: 0x0400000F RID: 15
- <AccessedThroughProperty("ListBox1")>
- Private _ListBox1 As ListBox
- ' Token: 0x04000010 RID: 16
- <AccessedThroughProperty("ProgressBar1")>
- Private _ProgressBar1 As ProgressBar
- ' Token: 0x04000011 RID: 17
- <AccessedThroughProperty("LinkLabel1")>
- Private _LinkLabel1 As LinkLabel
- ' Token: 0x04000012 RID: 18
- <AccessedThroughProperty("OpenFileDialog1")>
- Private _OpenFileDialog1 As OpenFileDialog
- ' Token: 0x04000013 RID: 19
- <AccessedThroughProperty("PictureBox_0")>
- Private _PictureBox_0 As Label
- ' Token: 0x04000014 RID: 20
- <AccessedThroughProperty("Button1")>
- Private _Button1 As Button
- ' Token: 0x04000015 RID: 21
- <AccessedThroughProperty("Label2")>
- Private _Label2 As Label
- ' Token: 0x04000016 RID: 22
- Private int As Integer
- ' Token: 0x04000017 RID: 23
- Private list As List(Of String)
- ' Token: 0x04000018 RID: 24
- Private savepath As String
- ' Token: 0x04000019 RID: 25
- Public point_0 As Point
- End Class
- End Namespace
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement