API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 2nd, 2018
106
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 55.02 KB | None | 0 0
raw download clone embed print report
  1. Imports System
  2. Imports System.ComponentModel
  3. Imports System.Diagnostics
  4. Imports System.Drawing
  5. Imports System.IO
  6. Imports System.Net
  7. Imports System.Runtime.CompilerServices
  8. Imports System.Runtime.InteropServices
  9. Imports System.Text
  10. Imports System.Threading
  11. Imports System.Windows.Forms
  12. Imports Microsoft.VisualBasic
  13. Imports Microsoft.VisualBasic.CompilerServices
  14. Imports Microsoft.Win32
  15. Imports ns0
  16.  
  17. <DesignerGenerated()>
  18. Public Class Login_Form
  19. Inherits Form
  20.  
  21. ' Token: 0x0200000A RID: 10
  22. Public Sub New()
  23. AddHandler MyBase.Load, AddressOf Me.Login_Form_Load
  24. Me.webClient_0 = New WebClient()
  25. Me.int_0 = 5
  26. Me.webClient_1 = New WebClient()
  27. Me.string_0 = Conversions.ToString(Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "SystemRoot", String.Empty))
  28. Me.string_1 = Me.string_0 + "\Prefetch\"
  29. Me.string_2 = Path.GetTempPath()
  30. Me.string_3 = ""
  31. Me.InitializeComponent()
  32. End Sub
  33.  
  34. <STAThread()>
  35. Public Shared Sub Main()
  36. Application.Run(Class2.Class3_0.Login_Form_0)
  37. End Sub
  38.  
  39. <DebuggerNonUserCode()>
  40. Protected Overrides Sub Dispose(disposing As Boolean)
  41. Try
  42. If disposing AndAlso Me.icontainer_0 IsNot Nothing Then
  43. Me.icontainer_0.Dispose()
  44. End If
  45. Finally
  46. MyBase.Dispose(disposing)
  47. End Try
  48. End Sub
  49.  
  50. <DebuggerStepThrough()>
  51. Private Sub InitializeComponent()
  52. Me.icontainer_0 = New Container()
  53. Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Login_Form))
  54. Me.Timer_0 = New System.Windows.Forms.Timer(Me.icontainer_0)
  55. Me.Timer_1 = New System.Windows.Forms.Timer(Me.icontainer_0)
  56. Me.Timer_2 = New System.Windows.Forms.Timer(Me.icontainer_0)
  57. Me.Timer_3 = New System.Windows.Forms.Timer(Me.icontainer_0)
  58. Me.Timer_4 = New System.Windows.Forms.Timer(Me.icontainer_0)
  59. Me.Timer_5 = New System.Windows.Forms.Timer(Me.icontainer_0)
  60. Me.Timer_6 = New System.Windows.Forms.Timer(Me.icontainer_0)
  61. Me.Timer_7 = New System.Windows.Forms.Timer(Me.icontainer_0)
  62. Me.Timer_8 = New System.Windows.Forms.Timer(Me.icontainer_0)
  63. Me.Timer_9 = New System.Windows.Forms.Timer(Me.icontainer_0)
  64. Me.Timer_10 = New System.Windows.Forms.Timer(Me.icontainer_0)
  65. Me.Timer_11 = New System.Windows.Forms.Timer(Me.icontainer_0)
  66. Me.Timer_12 = New System.Windows.Forms.Timer(Me.icontainer_0)
  67. Me.Timer_13 = New System.Windows.Forms.Timer(Me.icontainer_0)
  68. Me.ProGame = New TextBox()
  69. Me.ProVersion = New TextBox()
  70. Me.Timer_14 = New System.Windows.Forms.Timer(Me.icontainer_0)
  71. Me.HwidTextBox = New TextBox()
  72. Me.Timer_15 = New System.Windows.Forms.Timer(Me.icontainer_0)
  73. Me.TextBox1 = New TextBox()
  74. Me.Timer_16 = New System.Windows.Forms.Timer(Me.icontainer_0)
  75. Me.FormSkin1 = New Control0()
  76. Me.FlatGroupBox1 = New Control5()
  77. Me.FlatLabel2 = New Class13()
  78. Me.FlatLabel1 = New Class13()
  79. Me.FlatButton1 = New Control6()
  80. Me.CheckBox2 = New CheckBox()
  81. Me.Login_ok = New Control6()
  82. Me.PasswordFlatTextBox = New Control10()
  83. Me.UsernameFlatTextBox = New Control10()
  84. Me.FlatClose1 = New Control1()
  85. Me.FormSkin1.SuspendLayout()
  86. Me.FlatGroupBox1.SuspendLayout()
  87. Me.SuspendLayout()
  88. Me.Timer_0.Interval = 200
  89. Me.Timer_1.Interval = 200
  90. Me.Timer_2.Interval = 200
  91. Me.Timer_3.Interval = 180
  92. Me.Timer_4.Interval = 180
  93. Me.Timer_5.Interval = 180
  94. Me.Timer_6.Interval = 200
  95. Me.Timer_7.Interval = 30
  96. Me.Timer_8.Interval = 1000
  97. Me.Timer_11.Interval = 200
  98. Me.Timer_12.Interval = 200
  99. Me.Timer_13.Interval = 200
  100. Me.ProGame.Enabled = False
  101. Dim arg_2D3_0 As Control = Me.ProGame
  102. Dim location As Point = New Point(161, 296)
  103. arg_2D3_0.Location = location
  104. Me.ProGame.Name = "ProGame"
  105. Dim arg_2FA_0 As Control = Me.ProGame
  106. Dim size As Size = New Size(50, 20)
  107. arg_2FA_0.Size = size
  108. Me.ProGame.TabIndex = 67
  109. Me.ProGame.TextAlign = HorizontalAlignment.Center
  110. Me.ProVersion.Enabled = False
  111. Dim arg_33C_0 As Control = Me.ProVersion
  112. location = New Point(215, 296)
  113. arg_33C_0.Location = location
  114. Me.ProVersion.Name = "ProVersion"
  115. Dim arg_363_0 As Control = Me.ProVersion
  116. size = New Size(30, 20)
  117. arg_363_0.Size = size
  118. Me.ProVersion.TabIndex = 70
  119. Me.ProVersion.TextAlign = HorizontalAlignment.Center
  120. Me.Timer_14.Interval = 180
  121. Me.HwidTextBox.Enabled = False
  122. Dim arg_3B2_0 As Control = Me.HwidTextBox
  123. location = New Point(22, 318)
  124. arg_3B2_0.Location = location
  125. Me.HwidTextBox.Name = "HwidTextBox"
  126. Dim arg_3DC_0 As Control = Me.HwidTextBox
  127. size = New Size(223, 20)
  128. arg_3DC_0.Size = size
  129. Me.HwidTextBox.TabIndex = 68
  130. Me.HwidTextBox.Text = ChrW(3648) & ChrW(3621) & ChrW(3586) & ChrW(3648) & ChrW(3588) & ChrW(3619) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3591)
  131. Me.HwidTextBox.TextAlign = HorizontalAlignment.Center
  132. Dim arg_41F_0 As Control = Me.TextBox1
  133. location = New Point(22, 296)
  134. arg_41F_0.Location = location
  135. Dim arg_433_0 As Control = Me.TextBox1
  136. Dim margin As Padding = New Padding(2)
  137. arg_433_0.Margin = margin
  138. Me.TextBox1.Name = "TextBox1"
  139. Dim arg_45D_0 As Control = Me.TextBox1
  140. size = New Size(136, 20)
  141. arg_45D_0.Size = size
  142. Me.TextBox1.TabIndex = 56
  143. Me.FormSkin1.BackColor = Color.White
  144. Me.FormSkin1.Color_1 = Color.FromArgb(60, 70, 73)
  145. Me.FormSkin1.Color_2 = Color.FromArgb(53, 58, 60)
  146. Me.FormSkin1.Controls.Add(Me.FlatGroupBox1)
  147. Me.FormSkin1.Controls.Add(Me.FlatClose1)
  148. Me.FormSkin1.Dock = DockStyle.Fill
  149. Me.FormSkin1.Color_3 = Color.FromArgb(35, 168, 109)
  150. Me.FormSkin1.Font = New Font("Segoe UI", 12F)
  151. Me.FormSkin1.Color_0 = Color.FromArgb(45, 47, 49)
  152. Me.FormSkin1.Boolean_0 = False
  153. Dim arg_548_0 As Control = Me.FormSkin1
  154. location = New Point(0, 0)
  155. arg_548_0.Location = location
  156. Me.FormSkin1.Name = "FormSkin1"
  157. Dim arg_575_0 As Control = Me.FormSkin1
  158. size = New Size(459, 266)
  159. arg_575_0.Size = size
  160. Me.FormSkin1.TabIndex = 71
  161. Me.FlatGroupBox1.BackColor = Color.Transparent
  162. Me.FlatGroupBox1.Color_0 = Color.WhiteSmoke
  163. Me.FlatGroupBox1.Controls.Add(Me.FlatLabel2)
  164. Me.FlatGroupBox1.Controls.Add(Me.FlatLabel1)
  165. Me.FlatGroupBox1.Controls.Add(Me.FlatButton1)
  166. Me.FlatGroupBox1.Controls.Add(Me.CheckBox2)
  167. Me.FlatGroupBox1.Controls.Add(Me.Login_ok)
  168. Me.FlatGroupBox1.Controls.Add(Me.PasswordFlatTextBox)
  169. Me.FlatGroupBox1.Controls.Add(Me.UsernameFlatTextBox)
  170. Me.FlatGroupBox1.Font = New Font("Segoe UI", 10F)
  171. Dim arg_66D_0 As Control = Me.FlatGroupBox1
  172. location = New Point(10, 50)
  173. arg_66D_0.Location = location
  174. Me.FlatGroupBox1.Name = "FlatGroupBox1"
  175. Me.FlatGroupBox1.Boolean_0 = True
  176. Dim arg_6A6_0 As Control = Me.FlatGroupBox1
  177. size = New Size(437, 205)
  178. arg_6A6_0.Size = size
  179. Me.FlatGroupBox1.TabIndex = 93
  180. Me.FlatGroupBox1.Text = ChrW(3585) & ChrW(3619) & ChrW(3640) & ChrW(3603) & ChrW(3634) & ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  181. Me.FlatLabel2.AutoSize = True
  182. Me.FlatLabel2.BackColor = Color.Transparent
  183. Me.FlatLabel2.Font = New Font("Segoe UI", 11.25F, FontStyle.Regular, GraphicsUnit.Point, 0)
  184. Me.FlatLabel2.ForeColor = Color.Black
  185. Dim arg_723_0 As Control = Me.FlatLabel2
  186. location = New Point(27, 93)
  187. arg_723_0.Location = location
  188. Me.FlatLabel2.Name = "FlatLabel2"
  189. Dim arg_74A_0 As Control = Me.FlatLabel2
  190. size = New Size(56, 20)
  191. arg_74A_0.Size = size
  192. Me.FlatLabel2.TabIndex = 59
  193. Me.FlatLabel2.Text = ChrW(3619) & ChrW(3627) & ChrW(3633) & ChrW(3626) & ChrW(3612) & ChrW(3656) & ChrW(3634) & ChrW(3609)
  194. Me.FlatLabel1.AutoSize = True
  195. Me.FlatLabel1.BackColor = Color.Transparent
  196. Me.FlatLabel1.Font = New Font("Segoe UI", 11.25F, FontStyle.Regular, GraphicsUnit.Point, 0)
  197. Me.FlatLabel1.ForeColor = Color.Black
  198. Dim arg_7C7_0 As Control = Me.FlatLabel1
  199. location = New Point(27, 53)
  200. arg_7C7_0.Location = location
  201. Me.FlatLabel1.Name = "FlatLabel1"
  202. Dim arg_7EE_0 As Control = Me.FlatLabel1
  203. size = New Size(47, 20)
  204. arg_7EE_0.Size = size
  205. Me.FlatLabel1.TabIndex = 58
  206. Me.FlatLabel1.Text = ChrW(3594) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3612) & ChrW(3641) & ChrW(3657) & ChrW(3651) & ChrW(3594) & ChrW(3657)
  207. Me.FlatButton1.BackColor = Color.Transparent
  208. Me.FlatButton1.Color_0 = Color.Red
  209. Me.FlatButton1.Cursor = Cursors.Hand
  210. Me.FlatButton1.Font = New Font("Segoe UI", 12F)
  211. Dim arg_872_0 As Control = Me.FlatButton1
  212. location = New Point(237, 150)
  213. arg_872_0.Location = location
  214. Me.FlatButton1.Name = "FlatButton1"
  215. Me.FlatButton1.Boolean_0 = False
  216. Dim arg_8A8_0 As Control = Me.FlatButton1
  217. size = New Size(137, 36)
  218. arg_8A8_0.Size = size
  219. Me.FlatButton1.TabIndex = 57
  220. Me.FlatButton1.Text = ChrW(3629) & ChrW(3629) & ChrW(3585) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3650) & ChrW(3611) & ChrW(3619) & ChrW(3649) & ChrW(3585) & ChrW(3619) & ChrW(3617)
  221. Me.FlatButton1.Color_1 = Color.FromArgb(243, 243, 243)
  222. Me.CheckBox2.AutoSize = True
  223. Me.CheckBox2.Font = New Font("Segoe UI", 11.25F, FontStyle.Regular, GraphicsUnit.Point, 0)
  224. Dim arg_924_0 As Control = Me.CheckBox2
  225. location = New Point(94, 123)
  226. arg_924_0.Location = location
  227. Me.CheckBox2.Name = "CheckBox2"
  228. Dim arg_94E_0 As Control = Me.CheckBox2
  229. size = New Size(164, 24)
  230. arg_94E_0.Size = size
  231. Me.CheckBox2.TabIndex = 56
  232. Me.CheckBox2.Text = ChrW(3592) & ChrW(3604) & ChrW(3592) & ChrW(3635) & ChrW(3594) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3612) & ChrW(3641) & ChrW(3657) & ChrW(3651) & ChrW(3594) & ChrW(3657) & ChrW(3649) & ChrW(3621) & ChrW(3632) & ChrW(3619) & ChrW(3627) & ChrW(3633) & ChrW(3626) & ChrW(3612) & ChrW(3656) & ChrW(3634) & ChrW(3609)
  233. Me.CheckBox2.UseVisualStyleBackColor = True
  234. Me.Login_ok.BackColor = Color.Transparent
  235. Me.Login_ok.Color_0 = Color.FromArgb(192, 64, 0)
  236. Me.Login_ok.Cursor = Cursors.Hand
  237. Me.Login_ok.Font = New Font("Segoe UI", 12F)
  238. Dim arg_9E3_0 As Control = Me.Login_ok
  239. location = New Point(75, 150)
  240. arg_9E3_0.Location = location
  241. Me.Login_ok.Name = "Login_ok"
  242. Me.Login_ok.Boolean_0 = False
  243. Dim arg_A19_0 As Control = Me.Login_ok
  244. size = New Size(141, 36)
  245. arg_A19_0.Size = size
  246. Me.Login_ok.TabIndex = 2
  247. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  248. Me.Login_ok.Color_1 = Color.FromArgb(243, 243, 243)
  249. Me.PasswordFlatTextBox.BackColor = Color.Transparent
  250. Dim arg_A7B_0 As Control = Me.PasswordFlatTextBox
  251. location = New Point(94, 88)
  252. arg_A7B_0.Location = location
  253. Me.PasswordFlatTextBox.Int32_0 = 32767
  254. Me.PasswordFlatTextBox.Boolean_2 = False
  255. Me.PasswordFlatTextBox.Name = "PasswordFlatTextBox"
  256. Me.PasswordFlatTextBox.Boolean_0 = False
  257. Dim arg_ACD_0 As Control = Me.PasswordFlatTextBox
  258. size = New Size(282, 29)
  259. arg_ACD_0.Size = size
  260. Me.PasswordFlatTextBox.TabIndex = 1
  261. Me.PasswordFlatTextBox.HorizontalAlignment_0 = HorizontalAlignment.Center
  262. Me.PasswordFlatTextBox.Color_0 = Color.FromArgb(192, 192, 192)
  263. Me.PasswordFlatTextBox.Boolean_1 = True
  264. Me.UsernameFlatTextBox.BackColor = Color.Transparent
  265. Dim arg_B37_0 As Control = Me.UsernameFlatTextBox
  266. location = New Point(94, 48)
  267. arg_B37_0.Location = location
  268. Me.UsernameFlatTextBox.Int32_0 = 32767
  269. Me.UsernameFlatTextBox.Boolean_2 = False
  270. Me.UsernameFlatTextBox.Name = "UsernameFlatTextBox"
  271. Me.UsernameFlatTextBox.Boolean_0 = False
  272. Dim arg_B89_0 As Control = Me.UsernameFlatTextBox
  273. size = New Size(282, 29)
  274. arg_B89_0.Size = size
  275. Me.UsernameFlatTextBox.TabIndex = 0
  276. Me.UsernameFlatTextBox.HorizontalAlignment_0 = HorizontalAlignment.Center
  277. Me.UsernameFlatTextBox.Color_0 = Color.FromArgb(192, 192, 192)
  278. Me.UsernameFlatTextBox.Boolean_1 = False
  279. Me.FlatClose1.Anchor = (AnchorStyles.Top Or AnchorStyles.Right)
  280. Me.FlatClose1.BackColor = Color.White
  281. Me.FlatClose1.Color_0 = Color.FromArgb(168, 35, 35)
  282. Me.FlatClose1.Font = New Font("Marlett", 10F)
  283. Dim arg_C36_0 As Control = Me.FlatClose1
  284. location = New Point(429, 12)
  285. arg_C36_0.Location = location
  286. Me.FlatClose1.Name = "FlatClose1"
  287. Dim arg_C5D_0 As Control = Me.FlatClose1
  288. size = New Size(18, 18)
  289. arg_C5D_0.Size = size
  290. Me.FlatClose1.TabIndex = 92
  291. Me.FlatClose1.Text = "FlatClose1"
  292. Me.FlatClose1.Color_1 = Color.FromArgb(243, 243, 243)
  293. Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
  294. Me.AutoScaleDimensions = autoScaleDimensions
  295. Me.AutoScaleMode = AutoScaleMode.Font
  296. size = New Size(459, 266)
  297. Me.ClientSize = size
  298. Me.Controls.Add(Me.FormSkin1)
  299. Me.Controls.Add(Me.TextBox1)
  300. Me.Controls.Add(Me.ProGame)
  301. Me.Controls.Add(Me.ProVersion)
  302. Me.Controls.Add(Me.HwidTextBox)
  303. Me.FormBorderStyle = FormBorderStyle.None
  304. Me.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon)
  305. margin = New Padding(2)
  306. Me.Margin = margin
  307. Me.MaximizeBox = False
  308. Me.MinimizeBox = False
  309. Me.Name = "Login_Form"
  310. Me.StartPosition = FormStartPosition.CenterScreen
  311. Me.TransparencyKey = Color.Fuchsia
  312. Me.FormSkin1.ResumeLayout(False)
  313. Me.FlatGroupBox1.ResumeLayout(False)
  314. Me.FlatGroupBox1.PerformLayout()
  315. Me.ResumeLayout(False)
  316. Me.PerformLayout()
  317. End Sub
  318.  
  319. Friend Overridable Property Timer_0() As System.Windows.Forms.Timer
  320. Get
  321. Return Me.timer_0
  322. End Get
  323. <MethodImpl(MethodImplOptions.Synchronized)>
  324. Set(value As System.Windows.Forms.Timer)
  325. Dim value2 As EventHandler = AddressOf Me.Timer_0_Tick
  326. If Me.timer_0 IsNot Nothing Then
  327. RemoveHandler Me.timer_0.Tick, value2
  328. End If
  329. Me.timer_0 = value
  330. If Me.timer_0 IsNot Nothing Then
  331. AddHandler Me.timer_0.Tick, value2
  332. End If
  333. End Set
  334. End Property
  335.  
  336. Friend Overridable Property Timer_1() As System.Windows.Forms.Timer
  337. Get
  338. Return Me.timer_1
  339. End Get
  340. <MethodImpl(MethodImplOptions.Synchronized)>
  341. Set(value As System.Windows.Forms.Timer)
  342. Dim value2 As EventHandler = AddressOf Me.Timer_1_Tick
  343. If Me.timer_1 IsNot Nothing Then
  344. RemoveHandler Me.timer_1.Tick, value2
  345. End If
  346. Me.timer_1 = value
  347. If Me.timer_1 IsNot Nothing Then
  348. AddHandler Me.timer_1.Tick, value2
  349. End If
  350. End Set
  351. End Property
  352.  
  353. Friend Overridable Property Timer_2() As System.Windows.Forms.Timer
  354. Get
  355. Return Me.timer_2
  356. End Get
  357. <MethodImpl(MethodImplOptions.Synchronized)>
  358. Set(value As System.Windows.Forms.Timer)
  359. Dim value2 As EventHandler = AddressOf Me.Timer_2_Tick
  360. If Me.timer_2 IsNot Nothing Then
  361. RemoveHandler Me.timer_2.Tick, value2
  362. End If
  363. Me.timer_2 = value
  364. If Me.timer_2 IsNot Nothing Then
  365. AddHandler Me.timer_2.Tick, value2
  366. End If
  367. End Set
  368. End Property
  369.  
  370. Friend Overridable Property Timer_3() As System.Windows.Forms.Timer
  371. Get
  372. Return Me.timer_3
  373. End Get
  374. <MethodImpl(MethodImplOptions.Synchronized)>
  375. Set(value As System.Windows.Forms.Timer)
  376. Dim value2 As EventHandler = AddressOf Me.Timer_3_Tick
  377. If Me.timer_3 IsNot Nothing Then
  378. RemoveHandler Me.timer_3.Tick, value2
  379. End If
  380. Me.timer_3 = value
  381. If Me.timer_3 IsNot Nothing Then
  382. AddHandler Me.timer_3.Tick, value2
  383. End If
  384. End Set
  385. End Property
  386.  
  387. Friend Overridable Property Timer_4() As System.Windows.Forms.Timer
  388. Get
  389. Return Me.timer_4
  390. End Get
  391. <MethodImpl(MethodImplOptions.Synchronized)>
  392. Set(value As System.Windows.Forms.Timer)
  393. Dim value2 As EventHandler = AddressOf Me.Timer_4_Tick
  394. If Me.timer_4 IsNot Nothing Then
  395. RemoveHandler Me.timer_4.Tick, value2
  396. End If
  397. Me.timer_4 = value
  398. If Me.timer_4 IsNot Nothing Then
  399. AddHandler Me.timer_4.Tick, value2
  400. End If
  401. End Set
  402. End Property
  403.  
  404. Friend Overridable Property Timer_5() As System.Windows.Forms.Timer
  405. Get
  406. Return Me.timer_5
  407. End Get
  408. <MethodImpl(MethodImplOptions.Synchronized)>
  409. Set(value As System.Windows.Forms.Timer)
  410. Dim value2 As EventHandler = AddressOf Me.Timer_5_Tick
  411. If Me.timer_5 IsNot Nothing Then
  412. RemoveHandler Me.timer_5.Tick, value2
  413. End If
  414. Me.timer_5 = value
  415. If Me.timer_5 IsNot Nothing Then
  416. AddHandler Me.timer_5.Tick, value2
  417. End If
  418. End Set
  419. End Property
  420.  
  421. Friend Overridable Property Timer_6() As System.Windows.Forms.Timer
  422. Get
  423. Return Me.timer_6
  424. End Get
  425. <MethodImpl(MethodImplOptions.Synchronized)>
  426. Set(value As System.Windows.Forms.Timer)
  427. Dim value2 As EventHandler = AddressOf Me.Timer_6_Tick
  428. If Me.timer_6 IsNot Nothing Then
  429. RemoveHandler Me.timer_6.Tick, value2
  430. End If
  431. Me.timer_6 = value
  432. If Me.timer_6 IsNot Nothing Then
  433. AddHandler Me.timer_6.Tick, value2
  434. End If
  435. End Set
  436. End Property
  437.  
  438. Friend Overridable Property Timer_7() As System.Windows.Forms.Timer
  439. Get
  440. Return Me.timer_7
  441. End Get
  442. <MethodImpl(MethodImplOptions.Synchronized)>
  443. Set(value As System.Windows.Forms.Timer)
  444. Dim value2 As EventHandler = AddressOf Me.Timer_7_Tick
  445. If Me.timer_7 IsNot Nothing Then
  446. RemoveHandler Me.timer_7.Tick, value2
  447. End If
  448. Me.timer_7 = value
  449. If Me.timer_7 IsNot Nothing Then
  450. AddHandler Me.timer_7.Tick, value2
  451. End If
  452. End Set
  453. End Property
  454.  
  455. Friend Overridable Property Timer_8() As System.Windows.Forms.Timer
  456. Get
  457. Return Me.timer_8
  458. End Get
  459. <MethodImpl(MethodImplOptions.Synchronized)>
  460. Set(value As System.Windows.Forms.Timer)
  461. Me.timer_8 = value
  462. End Set
  463. End Property
  464.  
  465. Friend Overridable Property Timer_9() As System.Windows.Forms.Timer
  466. Get
  467. Return Me.timer_9
  468. End Get
  469. <MethodImpl(MethodImplOptions.Synchronized)>
  470. Set(value As System.Windows.Forms.Timer)
  471. Me.timer_9 = value
  472. End Set
  473. End Property
  474.  
  475. Friend Overridable Property Timer_10() As System.Windows.Forms.Timer
  476. Get
  477. Return Me.timer_10
  478. End Get
  479. <MethodImpl(MethodImplOptions.Synchronized)>
  480. Set(value As System.Windows.Forms.Timer)
  481. Me.timer_10 = value
  482. End Set
  483. End Property
  484.  
  485. Friend Overridable Property Timer_11() As System.Windows.Forms.Timer
  486. Get
  487. Return Me.timer_11
  488. End Get
  489. <MethodImpl(MethodImplOptions.Synchronized)>
  490. Set(value As System.Windows.Forms.Timer)
  491. Dim value2 As EventHandler = AddressOf Me.Timer_11_Tick
  492. If Me.timer_11 IsNot Nothing Then
  493. RemoveHandler Me.timer_11.Tick, value2
  494. End If
  495. Me.timer_11 = value
  496. If Me.timer_11 IsNot Nothing Then
  497. AddHandler Me.timer_11.Tick, value2
  498. End If
  499. End Set
  500. End Property
  501.  
  502. Friend Overridable Property Timer_12() As System.Windows.Forms.Timer
  503. Get
  504. Return Me.timer_12
  505. End Get
  506. <MethodImpl(MethodImplOptions.Synchronized)>
  507. Set(value As System.Windows.Forms.Timer)
  508. Dim value2 As EventHandler = AddressOf Me.Timer_12_Tick
  509. If Me.timer_12 IsNot Nothing Then
  510. RemoveHandler Me.timer_12.Tick, value2
  511. End If
  512. Me.timer_12 = value
  513. If Me.timer_12 IsNot Nothing Then
  514. AddHandler Me.timer_12.Tick, value2
  515. End If
  516. End Set
  517. End Property
  518.  
  519. Friend Overridable Property Timer_13() As System.Windows.Forms.Timer
  520. Get
  521. Return Me.timer_13
  522. End Get
  523. <MethodImpl(MethodImplOptions.Synchronized)>
  524. Set(value As System.Windows.Forms.Timer)
  525. Dim value2 As EventHandler = AddressOf Me.Timer_13_Tick
  526. If Me.timer_13 IsNot Nothing Then
  527. RemoveHandler Me.timer_13.Tick, value2
  528. End If
  529. Me.timer_13 = value
  530. If Me.timer_13 IsNot Nothing Then
  531. AddHandler Me.timer_13.Tick, value2
  532. End If
  533. End Set
  534. End Property
  535.  
  536. Friend Overridable Property ProGame() As TextBox
  537. Get
  538. Return Me._ProGame
  539. End Get
  540. <MethodImpl(MethodImplOptions.Synchronized)>
  541. Set(value As TextBox)
  542. Me._ProGame = value
  543. End Set
  544. End Property
  545.  
  546. Friend Overridable Property ProVersion() As TextBox
  547. Get
  548. Return Me._ProVersion
  549. End Get
  550. <MethodImpl(MethodImplOptions.Synchronized)>
  551. Set(value As TextBox)
  552. Me._ProVersion = value
  553. End Set
  554. End Property
  555.  
  556. Friend Overridable Property Timer_14() As System.Windows.Forms.Timer
  557. Get
  558. Return Me.timer_14
  559. End Get
  560. <MethodImpl(MethodImplOptions.Synchronized)>
  561. Set(value As System.Windows.Forms.Timer)
  562. Me.timer_14 = value
  563. End Set
  564. End Property
  565.  
  566. Friend Overridable Property HwidTextBox() As TextBox
  567. Get
  568. Return Me._HwidTextBox
  569. End Get
  570. <MethodImpl(MethodImplOptions.Synchronized)>
  571. Set(value As TextBox)
  572. Me._HwidTextBox = value
  573. End Set
  574. End Property
  575.  
  576. Friend Overridable Property Timer_15() As System.Windows.Forms.Timer
  577. Get
  578. Return Me.timer_15
  579. End Get
  580. <MethodImpl(MethodImplOptions.Synchronized)>
  581. Set(value As System.Windows.Forms.Timer)
  582. Dim value2 As EventHandler = AddressOf Me.Timer_15_Tick
  583. If Me.timer_15 IsNot Nothing Then
  584. RemoveHandler Me.timer_15.Tick, value2
  585. End If
  586. Me.timer_15 = value
  587. If Me.timer_15 IsNot Nothing Then
  588. AddHandler Me.timer_15.Tick, value2
  589. End If
  590. End Set
  591. End Property
  592.  
  593. Friend Overridable Property TextBox1() As TextBox
  594. Get
  595. Return Me._TextBox1
  596. End Get
  597. <MethodImpl(MethodImplOptions.Synchronized)>
  598. Set(value As TextBox)
  599. Me._TextBox1 = value
  600. End Set
  601. End Property
  602.  
  603. Friend Overridable Property Timer_16() As System.Windows.Forms.Timer
  604. Get
  605. Return Me.timer_16
  606. End Get
  607. <MethodImpl(MethodImplOptions.Synchronized)>
  608. Set(value As System.Windows.Forms.Timer)
  609. Dim value2 As EventHandler = AddressOf Me.Timer_16_Tick
  610. If Me.timer_16 IsNot Nothing Then
  611. RemoveHandler Me.timer_16.Tick, value2
  612. End If
  613. Me.timer_16 = value
  614. If Me.timer_16 IsNot Nothing Then
  615. AddHandler Me.timer_16.Tick, value2
  616. End If
  617. End Set
  618. End Property
  619.  
  620. Friend Overridable Property Label_0() As Label
  621. Get
  622. Return Me.label_0
  623. End Get
  624. <MethodImpl(MethodImplOptions.Synchronized)>
  625. Set(value As Label)
  626. Me.label_0 = value
  627. End Set
  628. End Property
  629.  
  630. Friend Overridable Property Label_1() As Label
  631. Get
  632. Return Me.label_1
  633. End Get
  634. <MethodImpl(MethodImplOptions.Synchronized)>
  635. Set(value As Label)
  636. Me.label_1 = value
  637. End Set
  638. End Property
  639.  
  640. Friend Overridable Property FlatClose1() As Control1
  641. Get
  642. Return Me._FlatClose1
  643. End Get
  644. <MethodImpl(MethodImplOptions.Synchronized)>
  645. Set(value As Control1)
  646. Me._FlatClose1 = value
  647. End Set
  648. End Property
  649.  
  650. Friend Overridable Property FlatGroupBox1() As Control5
  651. Get
  652. Return Me._FlatGroupBox1
  653. End Get
  654. <MethodImpl(MethodImplOptions.Synchronized)>
  655. Set(value As Control5)
  656. Me._FlatGroupBox1 = value
  657. End Set
  658. End Property
  659.  
  660. Friend Overridable Property FlatLabel2() As Class13
  661. Get
  662. Return Me._FlatLabel2
  663. End Get
  664. <MethodImpl(MethodImplOptions.Synchronized)>
  665. Set(value As Class13)
  666. Me._FlatLabel2 = value
  667. End Set
  668. End Property
  669.  
  670. Friend Overridable Property FlatLabel1() As Class13
  671. Get
  672. Return Me._FlatLabel1
  673. End Get
  674. <MethodImpl(MethodImplOptions.Synchronized)>
  675. Set(value As Class13)
  676. Me._FlatLabel1 = value
  677. End Set
  678. End Property
  679.  
  680. Friend Overridable Property FlatButton1() As Control6
  681. Get
  682. Return Me._FlatButton1
  683. End Get
  684. <MethodImpl(MethodImplOptions.Synchronized)>
  685. Set(value As Control6)
  686. Dim value2 As EventHandler = AddressOf Me.FlatButton1_Click
  687. If Me._FlatButton1 IsNot Nothing Then
  688. RemoveHandler Me._FlatButton1.Click, value2
  689. End If
  690. Me._FlatButton1 = value
  691. If Me._FlatButton1 IsNot Nothing Then
  692. AddHandler Me._FlatButton1.Click, value2
  693. End If
  694. End Set
  695. End Property
  696.  
  697. Friend Overridable Property CheckBox2() As CheckBox
  698. Get
  699. Return Me._CheckBox2
  700. End Get
  701. <MethodImpl(MethodImplOptions.Synchronized)>
  702. Set(value As CheckBox)
  703. Dim value2 As EventHandler = AddressOf Me.CheckBox2_CheckedChanged
  704. If Me._CheckBox2 IsNot Nothing Then
  705. RemoveHandler Me._CheckBox2.CheckedChanged, value2
  706. End If
  707. Me._CheckBox2 = value
  708. If Me._CheckBox2 IsNot Nothing Then
  709. AddHandler Me._CheckBox2.CheckedChanged, value2
  710. End If
  711. End Set
  712. End Property
  713.  
  714. Friend Overridable Property Login_ok() As Control6
  715. Get
  716. Return Me._Login_ok
  717. End Get
  718. <MethodImpl(MethodImplOptions.Synchronized)>
  719. Set(value As Control6)
  720. Dim value2 As EventHandler = AddressOf Me.Login_ok_Click
  721. If Me._Login_ok IsNot Nothing Then
  722. RemoveHandler Me._Login_ok.Click, value2
  723. End If
  724. Me._Login_ok = value
  725. If Me._Login_ok IsNot Nothing Then
  726. AddHandler Me._Login_ok.Click, value2
  727. End If
  728. End Set
  729. End Property
  730.  
  731. Friend Overridable Property PasswordFlatTextBox() As Control10
  732. Get
  733. Return Me._PasswordFlatTextBox
  734. End Get
  735. <MethodImpl(MethodImplOptions.Synchronized)>
  736. Set(value As Control10)
  737. Me._PasswordFlatTextBox = value
  738. End Set
  739. End Property
  740.  
  741. Friend Overridable Property UsernameFlatTextBox() As Control10
  742. Get
  743. Return Me._UsernameFlatTextBox
  744. End Get
  745. <MethodImpl(MethodImplOptions.Synchronized)>
  746. Set(value As Control10)
  747. Me._UsernameFlatTextBox = value
  748. End Set
  749. End Property
  750.  
  751. Friend Overridable Property FormSkin1() As Control0
  752. Get
  753. Return Me._FormSkin1
  754. End Get
  755. <MethodImpl(MethodImplOptions.Synchronized)>
  756. Set(value As Control0)
  757. Me._FormSkin1 = value
  758. End Set
  759. End Property
  760.  
  761. Private Declare Ansi Function OpenProcess Lib "kernel32" (int_1 As Integer, int_2 As Integer, int_3 As Integer) As Integer
  762.  
  763. Private Declare Ansi Function VirtualAllocEx Lib "kernel32" (int_1 As Integer, int_2 As Integer, int_3 As Integer, int_4 As Integer, int_5 As Integer) As Integer
  764.  
  765. Private Declare Ansi Function WriteProcessMemory Lib "kernel32" (int_1 As Integer, int_2 As Integer, byte_0 As Byte(), int_3 As Integer, uint_0 As UInteger) As Boolean
  766.  
  767. Private Declare Ansi Function GetProcAddress Lib "kernel32" (int_1 As Integer, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef string_4 As String) As Integer
  768.  
  769. Private Declare Ansi Function GetModuleHandleA Lib "kernel32" (<MarshalAs(UnmanagedType.VBByRefStr)> ByRef string_4 As String) As Integer
  770.  
  771. Private Declare Ansi Function CreateRemoteThread Lib "kernel32" (int_1 As Integer, int_2 As Integer, int_3 As Integer, int_4 As Integer, int_5 As Integer, int_6 As Integer, int_7 As Integer) As Integer
  772.  
  773. Private Declare Ansi Function WaitForSingleObject Lib "kernel32" (int_1 As Integer, int_2 As Integer) As Integer
  774.  
  775. Private Declare Ansi Function CloseHandle Lib "kernel32" (int_1 As Integer) As Integer
  776.  
  777. Private Function method_0(int_1 As Integer, string_4 As String) As Boolean
  778. If IntPtr.Size = 8 Then
  779. Throw New ArgumentException("Please make sure this program is compiled as x86, not x64. Memory functions don't work so well otherwise.")
  780. End If
  781. If Not File.Exists(string_4) Then
  782. Throw New FileNotFoundException("Please make sure your dll actually exists!")
  783. End If
  784. Dim num As Integer = Login_Form.OpenProcess(2035711, 1, int_1)
  785. If num = 0 Then
  786. Return False
  787. End If
  788. Dim bytes As Byte() = Encoding.ASCII.GetBytes(string_4)
  789. Dim num2 As Integer = Login_Form.VirtualAllocEx(num, 0, bytes.Length, 4096, 4)
  790. If num2 = 0 Then
  791. Return False
  792. End If
  793. Dim text As String = "kernel32.dll"
  794. Dim moduleHandleA As Integer = Login_Form.GetModuleHandleA(text)
  795. Dim arg_75_0 As Integer = moduleHandleA
  796. text = "LoadLibraryA"
  797. Dim procAddress As Integer = Login_Form.GetProcAddress(arg_75_0, text)
  798. If moduleHandleA <> 0 Then
  799. If procAddress <> 0 Then
  800. Login_Form.WriteProcessMemory(num, num2, bytes, bytes.Length, 0UI)
  801. Dim num3 As Integer = Login_Form.CreateRemoteThread(num, 0, 0, procAddress, num2, 0, 0)
  802. If num3 = 0 Then
  803. Return False
  804. End If
  805. Login_Form.WaitForSingleObject(num3, 6000)
  806. Login_Form.CloseHandle(num3)
  807. Login_Form.CloseHandle(num)
  808. Return True
  809. End If
  810. End If
  811. Return False
  812. End Function
  813.  
  814. Public Function EncryptConnectionString(stringValue As String) As String
  815. Dim bytes As Byte() = Encoding.ASCII.GetBytes(stringValue)
  816. Return Convert.ToBase64String(bytes)
  817. End Function
  818.  
  819. Public Function DecryptConnectionString(stringValue As String) As String
  820. Dim bytes As Byte() = Convert.FromBase64String(stringValue)
  821. Return Encoding.ASCII.GetString(bytes)
  822. End Function
  823.  
  824. Private Sub Timer_3_Tick(sender As Object, e As EventArgs)
  825. Me.Timer_3.[Stop]()
  826. Me.Login_ok.Text = ChrW(3585) & ChrW(3635) & ChrW(3621) & ChrW(3633) & ChrW(3591) & ChrW(3648) & ChrW(3594) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3605) & ChrW(3656) & ChrW(3629) & "."
  827. Me.Timer_4.Start()
  828. End Sub
  829.  
  830. Private Sub Timer_4_Tick(sender As Object, e As EventArgs)
  831. Me.Timer_4.[Stop]()
  832. Me.Login_ok.Text = ChrW(3585) & ChrW(3635) & ChrW(3621) & ChrW(3633) & ChrW(3591) & ChrW(3648) & ChrW(3594) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3605) & ChrW(3656) & ChrW(3629) & ".."
  833. Me.Timer_5.Start()
  834. End Sub
  835.  
  836. Private Sub Timer_5_Tick(sender As Object, e As EventArgs)
  837. Me.Timer_5.[Stop]()
  838. Me.Login_ok.Text = ChrW(3585) & ChrW(3635) & ChrW(3621) & ChrW(3633) & ChrW(3591) & ChrW(3648) & ChrW(3594) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3605) & ChrW(3656) & ChrW(3629) & "..."
  839. Me.Timer_0.Start()
  840. End Sub
  841.  
  842. Private Sub Timer_6_Tick(sender As Object, e As EventArgs)
  843. Me.Timer_6.[Stop]()
  844. Dim right As String = "LOGIN2" + Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text + Me.PasswordFlatTextBox.Text + "LOGIN1")
  845. If Operators.CompareString(Strings.Trim(Me.UsernameFlatTextBox.Text), "", False) = 0 Or Strings.Len(Strings.Trim(Me.UsernameFlatTextBox.Text)) = 0 Then
  846. Interaction.MsgBox("Please enter your username.", MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  847. Me.Login_ok.Enabled = True
  848. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  849. Me.UsernameFlatTextBox.Enabled = True
  850. Me.PasswordFlatTextBox.Enabled = True
  851. Return
  852. End If
  853. If Operators.CompareString(Strings.Trim(Me.PasswordFlatTextBox.Text), "", False) = 0 Or Strings.Len(Strings.Trim(Me.PasswordFlatTextBox.Text)) = 0 Then
  854. Interaction.MsgBox("Please enter your password.", MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  855. Me.Login_ok.Enabled = True
  856. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  857. Me.UsernameFlatTextBox.Enabled = True
  858. Me.PasswordFlatTextBox.Enabled = True
  859. Return
  860. End If
  861. Try
  862. Dim text As String = "http://api.movie-th.net/forums/api/Checkvb.php?"
  863. Dim requestUriString As String = String.Concat(New String() { text, "username=", Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text), "&password=", Me.EncryptConnectionString(Me.PasswordFlatTextBox.Text) })
  864. Me.Login_ok.Enabled = False
  865. Me.Cursor = Cursors.WaitCursor
  866. Application.DoEvents()
  867. Dim webRequest As WebRequest = WebRequest.Create(requestUriString)
  868. Dim response As WebResponse = webRequest.GetResponse()
  869. Dim responseStream As Stream = response.GetResponseStream()
  870. Dim streamReader As StreamReader = New StreamReader(responseStream)
  871. Dim left As String = streamReader.ReadToEnd()
  872. streamReader.Close()
  873. responseStream.Close()
  874. If Operators.CompareString(left, right, False) = 0 Then
  875. Me.Timer_12.Start()
  876. Else
  877. Interaction.MsgBox(ChrW(3594) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3612) & ChrW(3641) & ChrW(3657) & ChrW(3651) & ChrW(3594) & ChrW(3657) & ChrW(3591) & ChrW(3634) & ChrW(3609) & ChrW(3627) & ChrW(3619) & ChrW(3639) & ChrW(3629) & ChrW(3619) & ChrW(3627) & ChrW(3633) & ChrW(3626) & ChrW(3612) & ChrW(3636) & ChrW(3604) & "!!", MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  878. Me.Login_ok.Enabled = True
  879. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  880. Me.UsernameFlatTextBox.Enabled = True
  881. Me.PasswordFlatTextBox.Enabled = True
  882. Me.Login_ok.Enabled = True
  883. End If
  884. Catch expr_253 As Exception
  885. ProjectData.SetProjectError(expr_253)
  886. Dim ex As Exception = expr_253
  887. Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  888. ProjectData.ClearProjectError()
  889. End Try
  890. Me.Cursor = Cursors.Arrow
  891. End Sub
  892.  
  893. Public Sub clean1()
  894. Dim files As String() = Directory.GetFiles(Me.string_1)
  895. ' The following expression was wrapped in a checked-statement
  896. For i As Integer = 0 To files.Length - 1
  897. Dim path As String = files(i)
  898. Try
  899. File.Delete(path)
  900. Catch arg_20_0 As Exception
  901. ProjectData.SetProjectError(arg_20_0)
  902. ProjectData.ClearProjectError()
  903. End Try
  904. Next
  905. End Sub
  906.  
  907. Public Sub clean()
  908. Dim files As String() = Directory.GetFiles(Me.string_2)
  909. ' The following expression was wrapped in a checked-statement
  910. For i As Integer = 0 To files.Length - 1
  911. Dim path As String = files(i)
  912. Try
  913. File.Delete(path)
  914. Catch arg_20_0 As Exception
  915. ProjectData.SetProjectError(arg_20_0)
  916. ProjectData.ClearProjectError()
  917. End Try
  918. Next
  919. End Sub
  920.  
  921. Private Sub Login_Form_Load(sender As Object, e As EventArgs)
  922. Me.string_3 += "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  923. Dim i As Integer = 0
  924. Dim random As Random = New Random()
  925. ' The following expression was wrapped in a checked-statement
  926. While i <= 25
  927. Dim value As String = Conversions.ToString(random.[Next](0, Me.string_3.Length))
  928. Me.FormSkin1.Text = Me.FormSkin1.Text + Conversions.ToString(Me.string_3(Conversions.ToInteger(value)))
  929. i += 1
  930. End While
  931. Try
  932. Dim path As String = Me.string_0 + "\System32\FlatHwid.dll"
  933. File.Delete(path)
  934. Catch expr_92 As Exception
  935. ProjectData.SetProjectError(expr_92)
  936. ProjectData.ClearProjectError()
  937. End Try
  938. Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 8")
  939. Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 2")
  940. Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 1")
  941. Me.thread_1 = AddressOf Me.clean
  942. Me.thread_1.Start()
  943. Me.thread_0 = AddressOf Me.clean1
  944. Me.thread_0.Start()
  945. Try
  946. Dim processName As String = Process.GetCurrentProcess().ProcessName
  947. Me.TextBox1.Text = processName
  948. Dim num As Integer = Process.GetProcessesByName(processName).Length
  949. If num > 1 Then
  950. MessageBox.Show(ChrW(3627) & ChrW(3657) & ChrW(3634) & ChrW(3617) & ChrW(3648) & ChrW(3611) & ChrW(3636) & ChrW(3604) & ChrW(3650) & ChrW(3611) & ChrW(3619) & ChrW(3649) & ChrW(3585) & ChrW(3619) & ChrW(3617) & ChrW(3595) & ChrW(3657) & ChrW(3635) & ChrW(3585) & ChrW(3633) & ChrW(3609) & ChrW(3588) & ChrW(3619) & ChrW(3633) & ChrW(3610), "Error ", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  951. Application.[Exit]()
  952. End If
  953. Catch expr_159 As Exception
  954. ProjectData.SetProjectError(expr_159)
  955. ProjectData.ClearProjectError()
  956. End Try
  957. Me.Opacity = 0.9
  958. Me.UsernameFlatTextBox.Text = Class7.Settings.Username
  959. Me.PasswordFlatTextBox.Text = Class7.Settings.Password
  960. Class7.Settings.Check = Conversions.ToString(True)
  961. Me.ProGame.Text = "EbuaZ"
  962. Me.ProVersion.Text = "4"
  963. Me.Timer_8.Start()
  964. Me.Timer_16.Start()
  965. End Sub
  966.  
  967. Private Sub Timer_7_Tick(sender As Object, e As EventArgs)
  968. Me.Timer_7.[Stop]()
  969. Try
  970. Dim text As String = Me.webClient_0.DownloadString("http://api.movie-th.net/forums/testvb.php?id=" + Me.UsernameFlatTextBox.Text + " &Game=" + Me.ProGame.Text)
  971. If Operators.CompareString(text, "0", False) = 0 Then
  972. Application.[Exit]()
  973. Else
  974. Class2.Class3_0.Inject_Form_0.FlatTextBox2.Text = text
  975. Me.Hide()
  976. Class2.Class3_0.Inject_Form_0.Show()
  977. End If
  978. Catch expr_7E As Exception
  979. ProjectData.SetProjectError(expr_7E)
  980. Interaction.MsgBox(ChrW(3585) & ChrW(3634) & ChrW(3619) & ChrW(3626) & ChrW(3639) & ChrW(3629) & ChrW(3626) & ChrW(3634) & ChrW(3619) & ChrW(3585) & ChrW(3633) & ChrW(3610) & ChrW(3648) & ChrW(3595) & ChrW(3636) & ChrW(3615) & ChrW(3648) & ChrW(3623) & ChrW(3629) & ChrW(3619) & ChrW(3660) & ChrW(3648) & ChrW(3585) & ChrW(3636) & ChrW(3604) & ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3612) & ChrW(3636) & ChrW(3604) & ChrW(3614) & ChrW(3621) & ChrW(3634) & ChrW(3604), MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  981. Application.[Exit]()
  982. ProjectData.ClearProjectError()
  983. End Try
  984. End Sub
  985.  
  986. Private Sub Timer_11_Tick(sender As Object, e As EventArgs)
  987. Me.Timer_11.[Stop]()
  988. Dim text As String = "Hwid2" + Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text + Me.HwidTextBox.Text + "Hwid1")
  989. Try
  990. Dim text2 As String = "http://api.movie-th.net/forums/api/Savehwid.php?"
  991. Dim requestUriString As String = String.Concat(New String() { text2, "username=", Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text), "&hwid=", Me.EncryptConnectionString(Me.HwidTextBox.Text) })
  992. Me.Login_ok.Enabled = False
  993. Me.Cursor = Cursors.WaitCursor
  994. Application.DoEvents()
  995. Dim webRequest As WebRequest = WebRequest.Create(requestUriString)
  996. Dim response As WebResponse = webRequest.GetResponse()
  997. Dim responseStream As Stream = response.GetResponseStream()
  998. Dim streamReader As StreamReader = New StreamReader(responseStream)
  999. Dim text3 As String = streamReader.ReadToEnd()
  1000. streamReader.Close()
  1001. responseStream.Close()
  1002. If Operators.CompareString(text3, text, False) = 0 Then
  1003. Me.Timer_2.Start()
  1004. Else
  1005. Interaction.MsgBox(ChrW(3585) & ChrW(3634) & ChrW(3619) & ChrW(3626) & ChrW(3639) & ChrW(3629) & ChrW(3626) & ChrW(3634) & ChrW(3619) & ChrW(3612) & ChrW(3636) & ChrW(3604) & ChrW(3614) & ChrW(3621) & ChrW(3634) & ChrW(3604) & " Hx10" & vbCrLf + text3 + vbCrLf & " Hex " & vbCrLf + text, MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  1006. Me.Login_ok.Enabled = True
  1007. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  1008. Me.UsernameFlatTextBox.Enabled = True
  1009. Me.PasswordFlatTextBox.Enabled = True
  1010. Me.Login_ok.Enabled = True
  1011. End If
  1012. Catch expr_162 As Exception
  1013. ProjectData.SetProjectError(expr_162)
  1014. Dim ex As Exception = expr_162
  1015. Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  1016. ProjectData.ClearProjectError()
  1017. End Try
  1018. Me.Cursor = Cursors.Arrow
  1019. End Sub
  1020.  
  1021. Private Sub Timer_12_Tick(sender As Object, e As EventArgs)
  1022. Me.Timer_12.[Stop]()
  1023. Dim right As String = "LOGIN2" + Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text + Me.ProGame.Text + "LOGIN1")
  1024. Try
  1025. Dim text As String = "http://api.movie-th.net/forums/api/StatusPro.php?"
  1026. Dim requestUriString As String = String.Concat(New String() { text, "username=", Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text), "&StatusBuyPro=", Me.EncryptConnectionString(Me.ProGame.Text) })
  1027. Me.Login_ok.Enabled = False
  1028. Application.DoEvents()
  1029. Dim webRequest As WebRequest = WebRequest.Create(requestUriString)
  1030. Dim response As WebResponse = webRequest.GetResponse()
  1031. Dim responseStream As Stream = response.GetResponseStream()
  1032. Dim streamReader As StreamReader = New StreamReader(responseStream)
  1033. Dim left As String = streamReader.ReadToEnd()
  1034. streamReader.Close()
  1035. responseStream.Close()
  1036. If Operators.CompareString(left, right, False) = 0 Then
  1037. Interaction.MsgBox(ChrW(3588) & ChrW(3640) & ChrW(3603) & ChrW(3652) & ChrW(3617) & ChrW(3656) & ChrW(3617) & ChrW(3637) & ChrW(3626) & ChrW(3636) & ChrW(3607) & ChrW(3608) & ChrW(3636) & ChrW(3660) & ChrW(3651) & ChrW(3594) & ChrW(3657) & ChrW(3591) & ChrW(3634) & ChrW(3609) & ChrW(3650) & ChrW(3611) & ChrW(3619) & ChrW(3649) & ChrW(3585) & ChrW(3619) & ChrW(3617) & ChrW(3609) & ChrW(3637) & ChrW(3657) & "!!", MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  1038. Me.Close()
  1039. Me.Login_ok.Enabled = True
  1040. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  1041. Me.UsernameFlatTextBox.Enabled = True
  1042. Me.PasswordFlatTextBox.Enabled = True
  1043. Me.Login_ok.Enabled = True
  1044. Else
  1045. Me.Timer_13.Start()
  1046. End If
  1047. Catch expr_14E As Exception
  1048. ProjectData.SetProjectError(expr_14E)
  1049. Dim ex As Exception = expr_14E
  1050. Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  1051. ProjectData.ClearProjectError()
  1052. End Try
  1053. Me.Cursor = Cursors.Arrow
  1054. End Sub
  1055.  
  1056. Private Sub Timer_13_Tick(sender As Object, e As EventArgs)
  1057. Me.Timer_13.[Stop]()
  1058. Dim right As String = "Hwid2" + Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text + "0Hwid1")
  1059. Try
  1060. Dim text As String = "http://api.movie-th.net/forums/api/Scanhwid.php?"
  1061. Dim requestUriString As String = String.Concat(New String() { text, "username=", Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text), "&hwid=", Me.EncryptConnectionString("0") })
  1062. Me.Login_ok.Enabled = False
  1063. Me.Cursor = Cursors.WaitCursor
  1064. Application.DoEvents()
  1065. Dim webRequest As WebRequest = WebRequest.Create(requestUriString)
  1066. Dim response As WebResponse = webRequest.GetResponse()
  1067. Dim responseStream As Stream = response.GetResponseStream()
  1068. Dim streamReader As StreamReader = New StreamReader(responseStream)
  1069. Dim left As String = streamReader.ReadToEnd()
  1070. streamReader.Close()
  1071. responseStream.Close()
  1072. If Operators.CompareString(left, right, False) = 0 Then
  1073. Me.Timer_11.Start()
  1074. Else
  1075. Me.Timer_2.Start()
  1076. Me.Login_ok.Enabled = True
  1077. Me.UsernameFlatTextBox.Enabled = True
  1078. Me.PasswordFlatTextBox.Enabled = True
  1079. Me.Login_ok.Enabled = True
  1080. End If
  1081. Catch expr_12B As Exception
  1082. ProjectData.SetProjectError(expr_12B)
  1083. Dim ex As Exception = expr_12B
  1084. Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  1085. ProjectData.ClearProjectError()
  1086. End Try
  1087. Me.Cursor = Cursors.Arrow
  1088. End Sub
  1089.  
  1090. Private Sub Timer_2_Tick(sender As Object, e As EventArgs)
  1091. Me.Timer_2.[Stop]()
  1092. Dim right As String = "Hwid2" + Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text + Me.HwidTextBox.Text + "Hwid1")
  1093. If Operators.CompareString(Strings.Trim(Me.UsernameFlatTextBox.Text), "", False) = 0 Or Strings.Len(Strings.Trim(Me.UsernameFlatTextBox.Text)) = 0 Then
  1094. Interaction.MsgBox(ChrW(3652) & ChrW(3617) & ChrW(3656) & ChrW(3614) & ChrW(3610) & ChrW(3648) & ChrW(3621) & ChrW(3586) & ChrW(3648) & ChrW(3588) & ChrW(3619) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3591) & " !", MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  1095. Me.Login_ok.Enabled = True
  1096. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  1097. Me.UsernameFlatTextBox.Enabled = True
  1098. Me.PasswordFlatTextBox.Enabled = True
  1099. Return
  1100. End If
  1101. If Operators.CompareString(Strings.Trim(Me.HwidTextBox.Text), "", False) = 0 Or Strings.Len(Strings.Trim(Me.HwidTextBox.Text)) = 0 Then
  1102. Interaction.MsgBox(ChrW(3652) & ChrW(3617) & ChrW(3656) & ChrW(3614) & ChrW(3610) & ChrW(3648) & ChrW(3621) & ChrW(3586) & ChrW(3648) & ChrW(3588) & ChrW(3619) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3591) & " !", MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  1103. Me.Login_ok.Enabled = True
  1104. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  1105. Me.UsernameFlatTextBox.Enabled = True
  1106. Me.PasswordFlatTextBox.Enabled = True
  1107. Return
  1108. End If
  1109. Try
  1110. Dim text As String = "http://api.movie-th.net/forums/api/hwid.php?"
  1111. Dim requestUriString As String = String.Concat(New String() { text, "username=", Me.EncryptConnectionString(Me.UsernameFlatTextBox.Text), "&hwid=", Me.EncryptConnectionString(Me.HwidTextBox.Text) })
  1112. Me.Login_ok.Enabled = False
  1113. Me.Cursor = Cursors.WaitCursor
  1114. Application.DoEvents()
  1115. Dim webRequest As WebRequest = WebRequest.Create(requestUriString)
  1116. Dim response As WebResponse = webRequest.GetResponse()
  1117. Dim responseStream As Stream = response.GetResponseStream()
  1118. Dim streamReader As StreamReader = New StreamReader(responseStream)
  1119. Dim left As String = streamReader.ReadToEnd()
  1120. streamReader.Close()
  1121. responseStream.Close()
  1122. If Operators.CompareString(left, right, False) = 0 Then
  1123. Me.Timer_7.Start()
  1124. Else
  1125. Interaction.MsgBox(ChrW(3585) & ChrW(3619) & ChrW(3640) & ChrW(3603) & ChrW(3634) & ChrW(3611) & ChrW(3621) & ChrW(3604) & ChrW(3621) & ChrW(3655) & ChrW(3629) & ChrW(3588) & ChrW(3648) & ChrW(3588) & ChrW(3619) & ChrW(3639) & ChrW(3656) & ChrW(3629) & ChrW(3591) & " [" & ChrW(3605) & ChrW(3657) & ChrW(3629) & ChrW(3591) & ChrW(3648) & ChrW(3626) & ChrW(3637) & ChrW(3618) & " 10 Point]", MsgBoxStyle.Critical, "[" & ChrW(3614) & ChrW(3610) & ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3612) & ChrW(3636) & ChrW(3604) & ChrW(3614) & ChrW(3621) & ChrW(3634) & ChrW(3604) & " 1002]")
  1126. Process.Start("http://only-th.net/")
  1127. Me.Close()
  1128. Me.Login_ok.Enabled = True
  1129. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  1130. Me.UsernameFlatTextBox.Enabled = True
  1131. Me.PasswordFlatTextBox.Enabled = True
  1132. Me.Login_ok.Enabled = True
  1133. End If
  1134. Catch expr_267 As Exception
  1135. ProjectData.SetProjectError(expr_267)
  1136. Dim ex As Exception = expr_267
  1137. Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  1138. ProjectData.ClearProjectError()
  1139. End Try
  1140. Me.Cursor = Cursors.Arrow
  1141. End Sub
  1142.  
  1143. Private Sub Timer_1_Tick(sender As Object, e As EventArgs)
  1144. Me.Timer_1.[Stop]()
  1145. Dim right As String = "StatusPro2" + Me.EncryptConnectionString(Me.ProGame.Text + "OnlineStatusPro1")
  1146. Try
  1147. Dim text As String = "http://api.movie-th.net/forums/api/Status.php?"
  1148. Dim requestUriString As String = String.Concat(New String() { text, "Pro=", Me.EncryptConnectionString(Me.ProGame.Text), "&Status=", Me.EncryptConnectionString("Online") })
  1149. Me.Login_ok.Enabled = False
  1150. Application.DoEvents()
  1151. Dim webRequest As WebRequest = WebRequest.Create(requestUriString)
  1152. Dim response As WebResponse = webRequest.GetResponse()
  1153. Dim responseStream As Stream = response.GetResponseStream()
  1154. Dim streamReader As StreamReader = New StreamReader(responseStream)
  1155. Dim left As String = streamReader.ReadToEnd()
  1156. streamReader.Close()
  1157. responseStream.Close()
  1158. If Operators.CompareString(left, right, False) = 0 Then
  1159. Me.Timer_6.Start()
  1160. Else
  1161. Interaction.MsgBox(ChrW(3611) & ChrW(3636) & ChrW(3604) & ChrW(3651) & ChrW(3627) & ChrW(3657) & ChrW(3621) & ChrW(3655) & ChrW(3629) & ChrW(3585) & ChrW(3629) & ChrW(3636) & ChrW(3609) & ChrW(3650) & ChrW(3611) & ChrW(3619) & ChrW(3649) & ChrW(3585) & ChrW(3619) & ChrW(3617) & ChrW(3594) & ChrW(3633) & ChrW(3656) & ChrW(3623) & ChrW(3588) & ChrW(3619) & ChrW(3634) & ChrW(3623) & "!!", MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  1162. Process.Start("http://only-th.net/")
  1163. Me.Close()
  1164. Me.Login_ok.Enabled = True
  1165. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  1166. Me.UsernameFlatTextBox.Enabled = True
  1167. Me.PasswordFlatTextBox.Enabled = True
  1168. Me.Login_ok.Enabled = True
  1169. End If
  1170. Catch expr_14B As Exception
  1171. ProjectData.SetProjectError(expr_14B)
  1172. Dim ex As Exception = expr_14B
  1173. Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  1174. ProjectData.ClearProjectError()
  1175. End Try
  1176. Me.Cursor = Cursors.Arrow
  1177. End Sub
  1178.  
  1179. Private Sub Timer_0_Tick(sender As Object, e As EventArgs)
  1180. Me.Timer_0.[Stop]()
  1181. Dim right As String = "Version2" + Me.EncryptConnectionString(Me.ProGame.Text + Me.ProVersion.Text + "Version1")
  1182. Try
  1183. Dim text As String = "http://api.movie-th.net/forums/api/Version.php?"
  1184. Dim requestUriString As String = String.Concat(New String() { text, "Pro=", Me.EncryptConnectionString(Me.ProGame.Text), "&Version=", Me.EncryptConnectionString(Me.ProVersion.Text) })
  1185. Me.Login_ok.Enabled = False
  1186. Application.DoEvents()
  1187. Dim webRequest As WebRequest = WebRequest.Create(requestUriString)
  1188. Dim response As WebResponse = webRequest.GetResponse()
  1189. Dim responseStream As Stream = response.GetResponseStream()
  1190. Dim streamReader As StreamReader = New StreamReader(responseStream)
  1191. Dim left As String = streamReader.ReadToEnd()
  1192. streamReader.Close()
  1193. responseStream.Close()
  1194. If Operators.CompareString(left, right, False) = 0 Then
  1195. Me.Timer_1.Start()
  1196. Else
  1197. Interaction.MsgBox(ChrW(3617) & ChrW(3637) & ChrW(3585) & ChrW(3634) & ChrW(3619) & ChrW(3629) & ChrW(3633) & ChrW(3614) & ChrW(3648) & ChrW(3604) & ChrW(3605) & ChrW(3650) & ChrW(3611) & ChrW(3619) & ChrW(3649) & ChrW(3585) & ChrW(3619) & ChrW(3617) & ChrW(3648) & ChrW(3623) & ChrW(3629) & ChrW(3619) & ChrW(3660) & ChrW(3594) & ChrW(3633) & ChrW(3656) & ChrW(3609) & ChrW(3651) & ChrW(3627) & ChrW(3617) & ChrW(3656) & "!!", MsgBoxStyle.Critical, ChrW(3586) & ChrW(3657) & ChrW(3629) & ChrW(3588) & ChrW(3623) & ChrW(3634) & ChrW(3617) & ChrW(3592) & ChrW(3634) & ChrW(3585) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610))
  1198. Process.Start("http://only-th.net/")
  1199. Me.Close()
  1200. Me.Login_ok.Enabled = True
  1201. Me.Login_ok.Text = ChrW(3648) & ChrW(3586) & ChrW(3657) & ChrW(3634) & ChrW(3626) & ChrW(3641) & ChrW(3656) & ChrW(3619) & ChrW(3632) & ChrW(3610) & ChrW(3610)
  1202. Me.UsernameFlatTextBox.Enabled = True
  1203. Me.PasswordFlatTextBox.Enabled = True
  1204. Me.Login_ok.Enabled = True
  1205. End If
  1206. Catch expr_15C As Exception
  1207. ProjectData.SetProjectError(expr_15C)
  1208. Dim ex As Exception = expr_15C
  1209. Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  1210. ProjectData.ClearProjectError()
  1211. End Try
  1212. Me.Cursor = Cursors.Arrow
  1213. End Sub
  1214.  
  1215. Private Sub Timer_15_Tick(sender As Object, e As EventArgs)
  1216. Try
  1217. Dim id As Integer = Process.GetProcessesByName(Me.TextBox1.Text)(0).Id
  1218. Me.method_0(id, Me.string_0 + "\System32\FlatHwid.dll")
  1219. Dim text As String = Me.webClient_1.DownloadString("Hardware.ini")
  1220. Me.HwidTextBox.Text = text
  1221. Dim path As String = "Hardware.ini"
  1222. File.Delete(path)
  1223. Me.Timer_15.[Stop]()
  1224. Catch expr_66 As Exception
  1225. ProjectData.SetProjectError(expr_66)
  1226. ProjectData.ClearProjectError()
  1227. End Try
  1228. End Sub
  1229.  
  1230. Private Sub Timer_16_Tick(sender As Object, e As EventArgs)
  1231. Try
  1232. Dim arg_17_0 As Integer = Process.GetProcessesByName(Me.TextBox1.Text)(0).Id
  1233. Dim path As String = Me.string_0 + "\System32\FlatHwid.dll"
  1234. File.WriteAllBytes(path, Class6.FlatHwid)
  1235. Me.Timer_16.[Stop]()
  1236. Me.Timer_15.Start()
  1237. Catch expr_4C As Exception
  1238. ProjectData.SetProjectError(expr_4C)
  1239. ProjectData.ClearProjectError()
  1240. End Try
  1241. End Sub
  1242.  
  1243. Private Sub method_1(sender As Object, e As EventArgs)
  1244. Me.Timer_3.Start()
  1245. Me.Login_ok.Enabled = False
  1246. Me.UsernameFlatTextBox.Enabled = False
  1247. Me.PasswordFlatTextBox.Enabled = False
  1248. End Sub
  1249.  
  1250. Private Sub Login_ok_Click(sender As Object, e As EventArgs)
  1251. Me.Timer_3.Start()
  1252. Me.Login_ok.Enabled = False
  1253. Me.UsernameFlatTextBox.Enabled = False
  1254. Me.PasswordFlatTextBox.Enabled = False
  1255. End Sub
  1256.  
  1257. Private Sub FlatButton1_Click(sender As Object, e As EventArgs)
  1258. Me.Close()
  1259. End Sub
  1260.  
  1261. Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs)
  1262. If Me.CheckBox2.Checked Then
  1263. Class7.Settings.Username = Me.UsernameFlatTextBox.Text
  1264. Class7.Settings.Password = Me.UsernameFlatTextBox.Text
  1265. Class7.Settings.Save()
  1266. Me.CheckBox2.Checked = True
  1267. Else
  1268. Me.UsernameFlatTextBox.Text = ""
  1269. Me.UsernameFlatTextBox.Text = ""
  1270. Me.UsernameFlatTextBox.Focus()
  1271. Me.CheckBox2.Checked = False
  1272. End If
  1273. End Sub
  1274.  
  1275. Private icontainer_0 As IContainer
  1276.  
  1277. <AccessedThroughProperty("Timer14")>
  1278. Private timer_0 As System.Windows.Forms.Timer
  1279.  
  1280. <AccessedThroughProperty("Timer13")>
  1281. Private timer_1 As System.Windows.Forms.Timer
  1282.  
  1283. <AccessedThroughProperty("Timer12")>
  1284. Private timer_2 As System.Windows.Forms.Timer
  1285.  
  1286. <AccessedThroughProperty("Timer1")>
  1287. Private timer_3 As System.Windows.Forms.Timer
  1288.  
  1289. <AccessedThroughProperty("Timer2")>
  1290. Private timer_4 As System.Windows.Forms.Timer
  1291.  
  1292. <AccessedThroughProperty("Timer3")>
  1293. Private timer_5 As System.Windows.Forms.Timer
  1294.  
  1295. <AccessedThroughProperty("Timer4")>
  1296. Private timer_6 As System.Windows.Forms.Timer
  1297.  
  1298. <AccessedThroughProperty("Timer5")>
  1299. Private timer_7 As System.Windows.Forms.Timer
  1300.  
  1301. <AccessedThroughProperty("Timer6")>
  1302. Private timer_8 As System.Windows.Forms.Timer
  1303.  
  1304. <AccessedThroughProperty("Timer7")>
  1305. Private timer_9 As System.Windows.Forms.Timer
  1306.  
  1307. <AccessedThroughProperty("Timer8")>
  1308. Private timer_10 As System.Windows.Forms.Timer
  1309.  
  1310. <AccessedThroughProperty("Timer9")>
  1311. Private timer_11 As System.Windows.Forms.Timer
  1312.  
  1313. <AccessedThroughProperty("Timer10")>
  1314. Private timer_12 As System.Windows.Forms.Timer
  1315.  
  1316. <AccessedThroughProperty("Timer11")>
  1317. Private timer_13 As System.Windows.Forms.Timer
  1318.  
  1319. <AccessedThroughProperty("ProGame")>
  1320. Private _ProGame As TextBox
  1321.  
  1322. <AccessedThroughProperty("ProVersion")>
  1323. Private _ProVersion As TextBox
  1324.  
  1325. <AccessedThroughProperty("Timer26")>
  1326. Private timer_14 As System.Windows.Forms.Timer
  1327.  
  1328. <AccessedThroughProperty("HwidTextBox")>
  1329. Private _HwidTextBox As TextBox
  1330.  
  1331. <AccessedThroughProperty("Timer29")>
  1332. Private timer_15 As System.Windows.Forms.Timer
  1333.  
  1334. <AccessedThroughProperty("TextBox1")>
  1335. Private _TextBox1 As TextBox
  1336.  
  1337. <AccessedThroughProperty("Timer30")>
  1338. Private timer_16 As System.Windows.Forms.Timer
  1339.  
  1340. <AccessedThroughProperty("Label1")>
  1341. Private label_0 As Label
  1342.  
  1343. <AccessedThroughProperty("Label2")>
  1344. Private label_1 As Label
  1345.  
  1346. <AccessedThroughProperty("FlatClose1")>
  1347. Private _FlatClose1 As Control1
  1348.  
  1349. <AccessedThroughProperty("FlatGroupBox1")>
  1350. Private _FlatGroupBox1 As Control5
  1351.  
  1352. <AccessedThroughProperty("FlatLabel2")>
  1353. Private _FlatLabel2 As Class13
  1354.  
  1355. <AccessedThroughProperty("FlatLabel1")>
  1356. Private _FlatLabel1 As Class13
  1357.  
  1358. <AccessedThroughProperty("FlatButton1")>
  1359. Private _FlatButton1 As Control6
  1360.  
  1361. <AccessedThroughProperty("CheckBox2")>
  1362. Private _CheckBox2 As CheckBox
  1363.  
  1364. <AccessedThroughProperty("Login_ok")>
  1365. Private _Login_ok As Control6
  1366.  
  1367. <AccessedThroughProperty("PasswordFlatTextBox")>
  1368. Private _PasswordFlatTextBox As Control10
  1369.  
  1370. <AccessedThroughProperty("UsernameFlatTextBox")>
  1371. Private _UsernameFlatTextBox As Control10
  1372.  
  1373. <AccessedThroughProperty("FormSkin1")>
  1374. Private _FormSkin1 As Control0
  1375.  
  1376. Private webClient_0 As WebClient
  1377.  
  1378. Private int_0 As Integer
  1379.  
  1380. Private webClient_1 As WebClient
  1381.  
  1382. Private string_0 As String
  1383.  
  1384. Private thread_0 As Thread
  1385.  
  1386. Private string_1 As String
  1387.  
  1388. Private thread_1 As Thread
  1389.  
  1390. Private string_2 As String
  1391.  
  1392. Private string_3 As String
  1393. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!