Advertisement
Guest User

aa

a guest
Nov 15th, 2019
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.92 KB | None | 0 0
  1. Imports System
  2. Imports System.Collections.Generic
  3. Imports System.ComponentModel
  4. Imports System.Diagnostics
  5. Imports System.Drawing
  6. Imports System.IO
  7. Imports System.Runtime.CompilerServices
  8. Imports System.Threading
  9. Imports System.Windows.Forms
  10. Imports Microsoft.VisualBasic
  11. Imports Microsoft.VisualBasic.CompilerServices
  12.  
  13. Namespace Combo_SPlitter
  14. ' Token: 0x02000008 RID: 8
  15. <DesignerGenerated()>
  16. Public Class Form1
  17. Inherits Form
  18.  
  19. ' Token: 0x06000020 RID: 32 RVA: 0x0002E254 File Offset: 0x0002C654
  20. <DebuggerNonUserCode()>
  21. Private Shared Sub __ENCAddToList(value As Object)
  22. Dim _ENCList As List(Of WeakReference) = Form1.__ENCList
  23. SyncLock _ENCList
  24. Dim flag As Boolean = Form1.__ENCList.Count = Form1.__ENCList.Capacity
  25. If flag Then
  26. Dim num As Integer = 0
  27. Dim num2 As Integer = 0
  28. Dim num3 As Integer = Form1.__ENCList.Count - 1
  29. Dim num4 As Integer = num2
  30. While True
  31. Dim num5 As Integer = num4
  32. Dim num6 As Integer = num3
  33. If num5 > num6 Then
  34. Exit For
  35. End If
  36. Dim weakReference As WeakReference = Form1.__ENCList(num4)
  37. flag = weakReference.IsAlive
  38. If flag Then
  39. Dim flag2 As Boolean = num4 <> num
  40. If flag2 Then
  41. Form1.__ENCList(num) = Form1.__ENCList(num4)
  42. End If
  43. num += 1
  44. End If
  45. num4 += 1
  46. End While
  47. Form1.__ENCList.RemoveRange(num, Form1.__ENCList.Count - num)
  48. Form1.__ENCList.Capacity = Form1.__ENCList.Count
  49. End If
  50. Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
  51. End SyncLock
  52. End Sub
  53.  
  54. ' Token: 0x06000021 RID: 33 RVA: 0x0002E358 File Offset: 0x0002C758
  55. <DebuggerNonUserCode()>
  56. Protected Overrides Sub Dispose(disposing As Boolean)
  57. Try
  58. Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
  59. If flag Then
  60. Me.components.Dispose()
  61. End If
  62. Finally
  63. MyBase.Dispose(disposing)
  64. End Try
  65. End Sub
  66.  
  67. ' Token: 0x06000022 RID: 34 RVA: 0x0002E3A8 File Offset: 0x0002C7A8
  68. <DebuggerStepThrough()>
  69. Private Sub InitializeComponent()
  70. Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
  71. Me.Label1 = New Label()
  72. Me.TextBox1 = New TextBox()
  73. Me.Button3 = New Button()
  74. Me.ListBox1 = New ListBox()
  75. Me.ProgressBar1 = New ProgressBar()
  76. Me.LinkLabel1 = New LinkLabel()
  77. Me.OpenFileDialog1 = New OpenFileDialog()
  78. Me.PictureBox_0 = New Label()
  79. Me.Button1 = New Button()
  80. Me.Label2 = New Label()
  81. Me.SuspendLayout()
  82. Me.Label1.AutoSize = True
  83. Me.Label1.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
  84. Me.Label1.ForeColor = Color.DarkGoldenrod
  85. Dim label As Control = Me.Label1
  86. Dim location As Point = New Point(29, 43)
  87. label.Location = location
  88. Me.Label1.Name = "Label1"
  89. Dim label2 As Control = Me.Label1
  90. Dim size As Size = New Size(35, 15)
  91. label2.Size = size
  92. Me.Label1.TabIndex = 1
  93. Me.Label1.Text = "Each:"
  94. Me.TextBox1.BackColor = Color.Black
  95. Me.TextBox1.BorderStyle = BorderStyle.FixedSingle
  96. Me.TextBox1.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
  97. Me.TextBox1.ForeColor = Color.DarkGoldenrod
  98. Dim textBox As Control = Me.TextBox1
  99. location = New Point(5, 61)
  100. textBox.Location = location
  101. Me.TextBox1.Multiline = True
  102. Me.TextBox1.Name = "TextBox1"
  103. Dim textBox2 As Control = Me.TextBox1
  104. size = New Size(87, 17)
  105. textBox2.Size = size
  106. Me.TextBox1.TabIndex = 2
  107. Me.TextBox1.Text = "10000"
  108. Me.TextBox1.TextAlign = HorizontalAlignment.Center
  109. Me.Button3.BackColor = Color.Black
  110. Me.Button3.FlatStyle = FlatStyle.Flat
  111. Me.Button3.Font = New Font("Segoe UI", 8.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
  112. Me.Button3.ForeColor = Color.DarkGoldenrod
  113. Dim button As Control = Me.Button3
  114. location = New Point(5, 84)
  115. button.Location = location
  116. Me.Button3.Name = "Button3"
  117. Dim button2 As Control = Me.Button3
  118. size = New Size(87, 21)
  119. button2.Size = size
  120. Me.Button3.TabIndex = 3
  121. Me.Button3.Text = "Start"
  122. Me.Button3.UseVisualStyleBackColor = False
  123. Me.ListBox1.BackColor = Color.Black
  124. Me.ListBox1.BorderStyle = BorderStyle.None
  125. Me.ListBox1.Font = New Font("Segoe UI Semibold", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
  126. Me.ListBox1.ForeColor = Color.DarkGoldenrod
  127. Me.ListBox1.FormattingEnabled = True
  128. Me.ListBox1.ItemHeight = 15
  129. Dim listBox As Control = Me.ListBox1
  130. location = New Point(5, 111)
  131. listBox.Location = location
  132. Me.ListBox1.Name = "ListBox1"
  133. Dim listBox2 As Control = Me.ListBox1
  134. size = New Size(87, 135)
  135. listBox2.Size = size
  136. Me.ListBox1.TabIndex = 4
  137. Me.ProgressBar1.ForeColor = Color.DarkGoldenrod
  138. Dim progressBar As Control = Me.ProgressBar1
  139. location = New Point(5, 274)
  140. progressBar.Location = location
  141. Me.ProgressBar1.Name = "ProgressBar1"
  142. Dim progressBar2 As Control = Me.ProgressBar1
  143. size = New Size(87, 23)
  144. progressBar2.Size = size
  145. Me.ProgressBar1.TabIndex = 5
  146. Me.LinkLabel1.AutoSize = True
  147. Me.LinkLabel1.Font = New Font("Calibri", 11.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
  148. Dim linkLabel As Control = Me.LinkLabel1
  149. location = New Point(10, 253)
  150. linkLabel.Location = location
  151. Me.LinkLabel1.Name = "LinkLabel1"
  152. Dim linkLabel2 As Control = Me.LinkLabel1
  153. size = New Size(77, 18)
  154. linkLabel2.Size = size
  155. Me.LinkLabel1.TabIndex = 6
  156. Me.LinkLabel1.TabStop = True
  157. Me.LinkLabel1.Text = "Donate Me"
  158. Me.OpenFileDialog1.FileName = "OpenFileDialog1"
  159. Me.OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
  160. Me.PictureBox_0.AutoSize = True
  161. Me.PictureBox_0.BackColor = Color.Transparent
  162. Me.PictureBox_0.Font = New Font("Cambria", 9F, FontStyle.Bold Or FontStyle.Italic, GraphicsUnit.Point, 0)
  163. Me.PictureBox_0.ForeColor = Color.DarkGoldenrod
  164. Dim pictureBox_ As Control = Me.PictureBox_0
  165. location = New Point(2, 2)
  166. pictureBox_.Location = location
  167. Me.PictureBox_0.Name = "PictureBox_0"
  168. Dim pictureBox_2 As Control = Me.PictureBox_0
  169. size = New Size(82, 14)
  170. pictureBox_2.Size = size
  171. Me.PictureBox_0.TabIndex = 83
  172. Me.PictureBox_0.Text = "@8.zs Spittler"
  173. Me.Button1.BackColor = Color.Black
  174. Me.Button1.FlatStyle = FlatStyle.Flat
  175. Me.Button1.Font = New Font("Segoe UI", 8.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
  176. Me.Button1.ForeColor = Color.DarkGoldenrod
  177. Dim button3 As Control = Me.Button1
  178. location = New Point(5, 19)
  179. button3.Location = location
  180. Me.Button1.Name = "Button1"
  181. Dim button4 As Control = Me.Button1
  182. size = New Size(87, 21)
  183. button4.Size = size
  184. Me.Button1.TabIndex = 0
  185. Me.Button1.Text = "Load"
  186. Me.Button1.UseVisualStyleBackColor = False
  187. Me.Label2.AutoSize = True
  188. Me.Label2.ForeColor = Color.DarkGoldenrod
  189. Dim label3 As Control = Me.Label2
  190. location = New Point(85, 1)
  191. label3.Location = location
  192. Me.Label2.Name = "Label2"
  193. Dim label4 As Control = Me.Label2
  194. size = New Size(13, 13)
  195. label4.Size = size
  196. Me.Label2.TabIndex = 84
  197. Me.Label2.Text = "X"
  198. Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
  199. Me.AutoScaleDimensions = autoScaleDimensions
  200. Me.AutoScaleMode = AutoScaleMode.Font
  201. Me.BackColor = Color.Black
  202. size = New Size(96, 310)
  203. Me.ClientSize = size
  204. Me.Controls.Add(Me.Label2)
  205. Me.Controls.Add(Me.PictureBox_0)
  206. Me.Controls.Add(Me.LinkLabel1)
  207. Me.Controls.Add(Me.ProgressBar1)
  208. Me.Controls.Add(Me.ListBox1)
  209. Me.Controls.Add(Me.Button3)
  210. Me.Controls.Add(Me.TextBox1)
  211. Me.Controls.Add(Me.Label1)
  212. Me.Controls.Add(Me.Button1)
  213. Me.FormBorderStyle = FormBorderStyle.None
  214. Me.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon)
  215. Me.Name = "Form1"
  216. Me.StartPosition = FormStartPosition.CenterScreen
  217. Me.Text = "@D.a_7m Combo Splitter"
  218. Me.ResumeLayout(False)
  219. Me.PerformLayout()
  220. End Sub
  221.  
  222. ' Token: 0x17000008 RID: 8
  223. ' (get) Token: 0x06000023 RID: 35 RVA: 0x0002EB68 File Offset: 0x0002CF68
  224. ' (set) Token: 0x06000024 RID: 36 RVA: 0x0002EB80 File Offset: 0x0002CF80
  225. Friend Overridable Property Label1 As Label
  226. <DebuggerNonUserCode()>
  227. Get
  228. Return Me._Label1
  229. End Get
  230. <DebuggerNonUserCode()>
  231. <MethodImpl(MethodImplOptions.Synchronized)>
  232. Set(value As Label)
  233. Me._Label1 = value
  234. End Set
  235. End Property
  236.  
  237. ' Token: 0x17000009 RID: 9
  238. ' (get) Token: 0x06000025 RID: 37 RVA: 0x0002EB8C File Offset: 0x0002CF8C
  239. ' (set) Token: 0x06000026 RID: 38 RVA: 0x0002EBA4 File Offset: 0x0002CFA4
  240. Friend Overridable Property TextBox1 As TextBox
  241. <DebuggerNonUserCode()>
  242. Get
  243. Return Me._TextBox1
  244. End Get
  245. <DebuggerNonUserCode()>
  246. <MethodImpl(MethodImplOptions.Synchronized)>
  247. Set(value As TextBox)
  248. Me._TextBox1 = value
  249. End Set
  250. End Property
  251.  
  252. ' Token: 0x1700000A RID: 10
  253. ' (get) Token: 0x06000027 RID: 39 RVA: 0x0002EBB0 File Offset: 0x0002CFB0
  254. ' (set) Token: 0x06000028 RID: 40 RVA: 0x0002EBC8 File Offset: 0x0002CFC8
  255. Friend Overridable Property Button3 As Button
  256. <DebuggerNonUserCode()>
  257. Get
  258. Return Me._Button3
  259. End Get
  260. <DebuggerNonUserCode()>
  261. <MethodImpl(MethodImplOptions.Synchronized)>
  262. Set(value As Button)
  263. Dim value2 As EventHandler = AddressOf Me.Button3_Click
  264. Dim flag As Boolean = Me._Button3 IsNot Nothing
  265. If flag Then
  266. RemoveHandler Me._Button3.Click, value2
  267. End If
  268. Me._Button3 = value
  269. flag = (Me._Button3 IsNot Nothing)
  270. If flag Then
  271. AddHandler Me._Button3.Click, value2
  272. End If
  273. End Set
  274. End Property
  275.  
  276. ' Token: 0x1700000B RID: 11
  277. ' (get) Token: 0x06000029 RID: 41 RVA: 0x0002EC28 File Offset: 0x0002D028
  278. ' (set) Token: 0x0600002A RID: 42 RVA: 0x0002EC40 File Offset: 0x0002D040
  279. Friend Overridable Property ListBox1 As ListBox
  280. <DebuggerNonUserCode()>
  281. Get
  282. Return Me._ListBox1
  283. End Get
  284. <DebuggerNonUserCode()>
  285. <MethodImpl(MethodImplOptions.Synchronized)>
  286. Set(value As ListBox)
  287. Dim value2 As EventHandler = AddressOf Me.ListBox1_SelectedIndexChanged
  288. Dim flag As Boolean = Me._ListBox1 IsNot Nothing
  289. If flag Then
  290. RemoveHandler Me._ListBox1.SelectedIndexChanged, value2
  291. End If
  292. Me._ListBox1 = value
  293. flag = (Me._ListBox1 IsNot Nothing)
  294. If flag Then
  295. AddHandler Me._ListBox1.SelectedIndexChanged, value2
  296. End If
  297. End Set
  298. End Property
  299.  
  300. ' Token: 0x1700000C RID: 12
  301. ' (get) Token: 0x0600002B RID: 43 RVA: 0x0002ECA0 File Offset: 0x0002D0A0
  302. ' (set) Token: 0x0600002C RID: 44 RVA: 0x0002ECB8 File Offset: 0x0002D0B8
  303. Friend Overridable Property ProgressBar1 As ProgressBar
  304. <DebuggerNonUserCode()>
  305. Get
  306. Return Me._ProgressBar1
  307. End Get
  308. <DebuggerNonUserCode()>
  309. <MethodImpl(MethodImplOptions.Synchronized)>
  310. Set(value As ProgressBar)
  311. Dim value2 As EventHandler = AddressOf Me.ProgressBar1_Click
  312. Dim flag As Boolean = Me._ProgressBar1 IsNot Nothing
  313. If flag Then
  314. RemoveHandler Me._ProgressBar1.Click, value2
  315. End If
  316. Me._ProgressBar1 = value
  317. flag = (Me._ProgressBar1 IsNot Nothing)
  318. If flag Then
  319. AddHandler Me._ProgressBar1.Click, value2
  320. End If
  321. End Set
  322. End Property
  323.  
  324. ' Token: 0x1700000D RID: 13
  325. ' (get) Token: 0x0600002D RID: 45 RVA: 0x0002ED18 File Offset: 0x0002D118
  326. ' (set) Token: 0x0600002E RID: 46 RVA: 0x0002ED30 File Offset: 0x0002D130
  327. Friend Overridable Property LinkLabel1 As LinkLabel
  328. <DebuggerNonUserCode()>
  329. Get
  330. Return Me._LinkLabel1
  331. End Get
  332. <DebuggerNonUserCode()>
  333. <MethodImpl(MethodImplOptions.Synchronized)>
  334. Set(value As LinkLabel)
  335. Dim value2 As LinkLabelLinkClickedEventHandler = AddressOf Me.LinkLabel1_LinkClicked
  336. Dim flag As Boolean = Me._LinkLabel1 IsNot Nothing
  337. If flag Then
  338. RemoveHandler Me._LinkLabel1.LinkClicked, value2
  339. End If
  340. Me._LinkLabel1 = value
  341. flag = (Me._LinkLabel1 IsNot Nothing)
  342. If flag Then
  343. AddHandler Me._LinkLabel1.LinkClicked, value2
  344. End If
  345. End Set
  346. End Property
  347.  
  348. ' Token: 0x1700000E RID: 14
  349. ' (get) Token: 0x0600002F RID: 47 RVA: 0x0002ED90 File Offset: 0x0002D190
  350. ' (set) Token: 0x06000030 RID: 48 RVA: 0x0002EDA8 File Offset: 0x0002D1A8
  351. Friend Overridable Property OpenFileDialog1 As OpenFileDialog
  352. <DebuggerNonUserCode()>
  353. Get
  354. Return Me._OpenFileDialog1
  355. End Get
  356. <DebuggerNonUserCode()>
  357. <MethodImpl(MethodImplOptions.Synchronized)>
  358. Set(value As OpenFileDialog)
  359. Me._OpenFileDialog1 = value
  360. End Set
  361. End Property
  362.  
  363. ' Token: 0x1700000F RID: 15
  364. ' (get) Token: 0x06000031 RID: 49 RVA: 0x0002EDB4 File Offset: 0x0002D1B4
  365. ' (set) Token: 0x06000032 RID: 50 RVA: 0x0002EDCC File Offset: 0x0002D1CC
  366. Friend Overridable Property PictureBox_0 As Label
  367. <DebuggerNonUserCode()>
  368. Get
  369. Return Me._PictureBox_0
  370. End Get
  371. <DebuggerNonUserCode()>
  372. <MethodImpl(MethodImplOptions.Synchronized)>
  373. Set(value As Label)
  374. Dim value2 As MouseEventHandler = AddressOf Me.PictureBox_0_MouseDown
  375. Dim value3 As EventHandler = AddressOf Me.PictureBox_0_MouseLeave
  376. Dim value4 As MouseEventHandler = AddressOf Me.PictureBox_0_MouseMove
  377. Dim value5 As EventHandler = AddressOf Me.PictureBox_0_Click
  378. Dim flag As Boolean = Me._PictureBox_0 IsNot Nothing
  379. If flag Then
  380. RemoveHandler Me._PictureBox_0.MouseDown, value2
  381. RemoveHandler Me._PictureBox_0.MouseLeave, value3
  382. RemoveHandler Me._PictureBox_0.MouseMove, value4
  383. RemoveHandler Me._PictureBox_0.Click, value5
  384. End If
  385. Me._PictureBox_0 = value
  386. flag = (Me._PictureBox_0 IsNot Nothing)
  387. If flag Then
  388. AddHandler Me._PictureBox_0.MouseDown, value2
  389. AddHandler Me._PictureBox_0.MouseLeave, value3
  390. AddHandler Me._PictureBox_0.MouseMove, value4
  391. AddHandler Me._PictureBox_0.Click, value5
  392. End If
  393. End Set
  394. End Property
  395.  
  396. ' Token: 0x17000010 RID: 16
  397. ' (get) Token: 0x06000033 RID: 51 RVA: 0x0002EEA8 File Offset: 0x0002D2A8
  398. ' (set) Token: 0x06000034 RID: 52 RVA: 0x0002EEC0 File Offset: 0x0002D2C0
  399. Friend Overridable Property Button1 As Button
  400. <DebuggerNonUserCode()>
  401. Get
  402. Return Me._Button1
  403. End Get
  404. <DebuggerNonUserCode()>
  405. <MethodImpl(MethodImplOptions.Synchronized)>
  406. Set(value As Button)
  407. Dim value2 As EventHandler = AddressOf Me.Button1_Click
  408. Dim flag As Boolean = Me._Button1 IsNot Nothing
  409. If flag Then
  410. RemoveHandler Me._Button1.Click, value2
  411. End If
  412. Me._Button1 = value
  413. flag = (Me._Button1 IsNot Nothing)
  414. If flag Then
  415. AddHandler Me._Button1.Click, value2
  416. End If
  417. End Set
  418. End Property
  419.  
  420. ' Token: 0x17000011 RID: 17
  421. ' (get) Token: 0x06000035 RID: 53 RVA: 0x0002EF20 File Offset: 0x0002D320
  422. ' (set) Token: 0x06000036 RID: 54 RVA: 0x0002EF38 File Offset: 0x0002D338
  423. Friend Overridable Property Label2 As Label
  424. <DebuggerNonUserCode()>
  425. Get
  426. Return Me._Label2
  427. End Get
  428. <DebuggerNonUserCode()>
  429. <MethodImpl(MethodImplOptions.Synchronized)>
  430. Set(value As Label)
  431. Dim value2 As EventHandler = AddressOf Me.Label2_Click
  432. Dim flag As Boolean = Me._Label2 IsNot Nothing
  433. If flag Then
  434. RemoveHandler Me._Label2.Click, value2
  435. End If
  436. Me._Label2 = value
  437. flag = (Me._Label2 IsNot Nothing)
  438. If flag Then
  439. AddHandler Me._Label2.Click, value2
  440. End If
  441. End Set
  442. End Property
  443.  
  444. ' Token: 0x06000037 RID: 55 RVA: 0x0002EF98 File Offset: 0x0002D398
  445. Public Sub New()
  446. AddHandler MyBase.Load, AddressOf Me.Form1_Load
  447. Form1.__ENCAddToList(Me)
  448. Me.InitializeComponent()
  449. Me.list = New List(Of String)()
  450. End Sub
  451.  
  452. ' Token: 0x06000038 RID: 56 RVA: 0x0002EFD0 File Offset: 0x0002D3D0
  453. Private Sub Button1_Click(sender As Object, e As EventArgs)
  454. Me.OpenFileDialog1.ShowDialog()
  455. End Sub
  456.  
  457. ' Token: 0x06000039 RID: 57 RVA: 0x0002EFE0 File Offset: 0x0002D3E0
  458. Private Sub Button3_Click(sender As Object, e As EventArgs)
  459. Dim random As Random = New Random()
  460. Me.savepath = Application.StartupPath + "\Parted" + random.[Next](0, 1000000).ToString()
  461. FileSystem.MkDir(Me.savepath)
  462. Me.ProgressBar1.Minimum = 0
  463. Me.ProgressBar1.Maximum = Conversions.ToInteger(Me.TextBox1.Text)
  464. Dim thread As Thread = AddressOf Me.start
  465. thread.Start()
  466. End Sub
  467.  
  468. ' Token: 0x0600003A RID: 58 RVA: 0x0002F070 File Offset: 0x0002D470
  469. Private Sub Form1_Load(sender As Object, e As EventArgs)
  470. Dim size As Size = New Size(96, 310)
  471. Me.Size = size
  472. Me.int = 0
  473. Control.CheckForIllegalCrossThreadCalls = False
  474. End Sub
  475.  
  476. ' Token: 0x0600003B RID: 59 RVA: 0x0002F0A4 File Offset: 0x0002D4A4
  477. Private Sub start()
  478. ' The following expression was wrapped in a checked-statement
  479. Try
  480. Dim streamReader As StreamReader = File.OpenText(Me.OpenFileDialog1.FileName)
  481. Dim text As String = streamReader.ReadLine()
  482. While text <> Nothing
  483. Console.WriteLine(text)
  484. text = streamReader.ReadLine()
  485. Me.list.Add(text)
  486. Me.ProgressBar1.Increment(1)
  487. Dim flag As Boolean = CDbl(Me.list.Count) = Conversions.ToDouble(Me.TextBox1.Text)
  488. If flag Then
  489. Me.int += 1
  490. Me.ProgressBar1.Value = 0
  491. Me.ListBox1.Items.Add("Part" + Me.int.ToString() + " has been created.")
  492. Dim streamWriter As StreamWriter = New StreamWriter(Me.savepath + "/Part" + Me.int.ToString() + ".txt", True)
  493. Dim num As Integer = Me.list.Count - 1
  494. For i As Integer = 0 To num
  495. streamWriter.WriteLine(Me.list(i))
  496. Next
  497. streamWriter.Close()
  498. Me.list.Clear()
  499. End If
  500. End While
  501. Catch ex As Exception
  502. Me.int += 1
  503. Dim streamWriter2 As StreamWriter = New StreamWriter(Me.savepath + "/Part" + Me.int.ToString() + ".txt", True)
  504. Dim num2 As Integer = Me.list.Count - 1
  505. For j As Integer = 0 To num2
  506. streamWriter2.WriteLine(Me.list(j))
  507. Next
  508. streamWriter2.Close()
  509. End Try
  510. Interaction.MsgBox("Finished To " + Me.savepath + " Enjoy!", MsgBoxStyle.OkOnly, Nothing)
  511. End Sub
  512.  
  513. ' Token: 0x0600003C RID: 60 RVA: 0x0002F2CC File Offset: 0x0002D6CC
  514. Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
  515. Process.Start("http://PayPal.Me/istarsa")
  516. End Sub
  517.  
  518. ' Token: 0x0600003D RID: 61 RVA: 0x0002F2DC File Offset: 0x0002D6DC
  519. Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
  520. End Sub
  521.  
  522. ' Token: 0x0600003E RID: 62 RVA: 0x0002F2E0 File Offset: 0x0002D6E0
  523. Private Sub PictureBox_0_MouseMove(sender As Object, e As MouseEventArgs)
  524. Dim flag As Boolean = e.Button = MouseButtons.Left
  525. If flag Then
  526. Me.Location += CType((e.Location - CType(Me.point_0, Size)), Size)
  527. End If
  528. End Sub
  529.  
  530. ' Token: 0x0600003F RID: 63 RVA: 0x0002F330 File Offset: 0x0002D730
  531. Private Sub PictureBox_0_MouseLeave(sender As Object, e As EventArgs)
  532. End Sub
  533.  
  534. ' Token: 0x06000040 RID: 64 RVA: 0x0002F334 File Offset: 0x0002D734
  535. Private Sub PictureBox_0_MouseDown(sender As Object, e As MouseEventArgs)
  536. Dim flag As Boolean = e.Button = MouseButtons.Left
  537. If flag Then
  538. Me.point_0 = e.Location
  539. End If
  540. End Sub
  541.  
  542. ' Token: 0x06000041 RID: 65 RVA: 0x0002F364 File Offset: 0x0002D764
  543. Private Sub PictureBox_0_Click(sender As Object, e As EventArgs)
  544. End Sub
  545.  
  546. ' Token: 0x06000042 RID: 66 RVA: 0x0002F368 File Offset: 0x0002D768
  547. Private Sub ProgressBar1_Click(sender As Object, e As EventArgs)
  548. End Sub
  549.  
  550. ' Token: 0x06000043 RID: 67 RVA: 0x0002F36C File Offset: 0x0002D76C
  551. Private Sub Label2_Click(sender As Object, e As EventArgs)
  552. Me.Close()
  553. End Sub
  554.  
  555. ' Token: 0x0400000A RID: 10
  556. Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()
  557.  
  558. ' Token: 0x0400000B RID: 11
  559. Private components As IContainer
  560.  
  561. ' Token: 0x0400000C RID: 12
  562. <AccessedThroughProperty("Label1")>
  563. Private _Label1 As Label
  564.  
  565. ' Token: 0x0400000D RID: 13
  566. <AccessedThroughProperty("TextBox1")>
  567. Private _TextBox1 As TextBox
  568.  
  569. ' Token: 0x0400000E RID: 14
  570. <AccessedThroughProperty("Button3")>
  571. Private _Button3 As Button
  572.  
  573. ' Token: 0x0400000F RID: 15
  574. <AccessedThroughProperty("ListBox1")>
  575. Private _ListBox1 As ListBox
  576.  
  577. ' Token: 0x04000010 RID: 16
  578. <AccessedThroughProperty("ProgressBar1")>
  579. Private _ProgressBar1 As ProgressBar
  580.  
  581. ' Token: 0x04000011 RID: 17
  582. <AccessedThroughProperty("LinkLabel1")>
  583. Private _LinkLabel1 As LinkLabel
  584.  
  585. ' Token: 0x04000012 RID: 18
  586. <AccessedThroughProperty("OpenFileDialog1")>
  587. Private _OpenFileDialog1 As OpenFileDialog
  588.  
  589. ' Token: 0x04000013 RID: 19
  590. <AccessedThroughProperty("PictureBox_0")>
  591. Private _PictureBox_0 As Label
  592.  
  593. ' Token: 0x04000014 RID: 20
  594. <AccessedThroughProperty("Button1")>
  595. Private _Button1 As Button
  596.  
  597. ' Token: 0x04000015 RID: 21
  598. <AccessedThroughProperty("Label2")>
  599. Private _Label2 As Label
  600.  
  601. ' Token: 0x04000016 RID: 22
  602. Private int As Integer
  603.  
  604. ' Token: 0x04000017 RID: 23
  605. Private list As List(Of String)
  606.  
  607. ' Token: 0x04000018 RID: 24
  608. Private savepath As String
  609.  
  610. ' Token: 0x04000019 RID: 25
  611. Public point_0 As Point
  612. End Class
  613. End Namespace
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement