API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 31st, 2018
320
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 57.52 KB | None | 0 0
raw download clone embed print report
  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.Net
  8. Imports System.Net.Security
  9. Imports System.Runtime.CompilerServices
  10. Imports System.Security.Cryptography
  11. Imports System.Security.Cryptography.X509Certificates
  12. Imports System.Text
  13. Imports System.Threading
  14. Imports System.Windows.Forms
  15. Imports Microsoft.VisualBasic
  16. Imports Microsoft.VisualBasic.CompilerServices
  17.  
  18. Namespace dmarhhh
  19. ' Token: 0x0200000C RID: 12
  20. <DesignerGenerated()>
  21. Public Class Form1
  22. Inherits Form
  23.  
  24. ' Token: 0x06000035 RID: 53 RVA: 0x000032F4 File Offset: 0x000014F4
  25. Public Sub New()
  26. Me.HWID = ""
  27. Me.i = False
  28. Me.mpp = 0
  29. Me.stopp = False
  30. Me.once = 0
  31. Me.uuID = Guid.NewGuid().ToString().ToUpper()
  32. Me.lThreads = New List(Of Thread)()
  33. Me.IfLoggedIn = False
  34. Me.SwitchLoginBool = False
  35. Me.GetSettingsBool = False
  36. Me.IsChanged = False
  37. Me.numis = Nothing
  38. Me.numToDone = 0
  39. Me.InitializeComponent()
  40. End Sub
  41.  
  42. ' Token: 0x06000036 RID: 54 RVA: 0x000021DA File Offset: 0x000003DA
  43. Private Sub _Lambda__10(a0 As Object)
  44. Me.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0))))))))))
  45. End Sub
  46.  
  47. ' Token: 0x06000037 RID: 55 RVA: 0x00002212 File Offset: 0x00000412
  48. Private Sub _Lambda__3(a0 As Object)
  49. Me.checkerr(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0))))))))))
  50. End Sub
  51.  
  52. ' Token: 0x06000038 RID: 56 RVA: 0x000021DA File Offset: 0x000003DA
  53. Private Sub _Lambda__4(a0 As Object)
  54. Me.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0))))))))))
  55. End Sub
  56.  
  57. ' Token: 0x06000039 RID: 57 RVA: 0x0000224A File Offset: 0x0000044A
  58. Public Sub _Lambda__1()
  59. Me.Lst.Items.Add(Me.inputt)
  60. End Sub
  61.  
  62. ' Token: 0x0600003A RID: 58 RVA: 0x00003388 File Offset: 0x00001588
  63. Public Sub _Lambda__2()
  64. Dim label As Label = Me.llbl
  65. Dim label2 As Label = label
  66. label.Text = Conversions.ToString(Conversions.ToDouble(label2.Text) + 1.0)
  67. End Sub
  68.  
  69. ' Token: 0x0600003B RID: 59 RVA: 0x00002264 File Offset: 0x00000464
  70. Private Sub AddCheckForList(Lst As ListBox, input As String)
  71. Me.inputt = input
  72. Lst = Lst
  73. Lst.Invoke(AddressOf Me._Lambda__1)
  74. End Sub
  75.  
  76. ' Token: 0x0600003C RID: 60 RVA: 0x00002284 File Offset: 0x00000484
  77. Private Sub AddChecks(lbl As Label)
  78. Me.llbl = lbl
  79. Me.llbl.Invoke(AddressOf Me._Lambda__2)
  80. End Sub
  81.  
  82. ' Token: 0x0600003D RID: 61 RVA: 0x000033C0 File Offset: 0x000015C0
  83. Public Sub begin(c As Integer)
  84. Dim flag As Boolean = Operators.ConditionalCompareObjectGreater(c, RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.TextBox4.Text))), Nothing, "Length", New Object(-1) {}, Nothing, Nothing, Nothing))))), 1))))), False)
  85. Dim flag2 As Boolean = flag
  86. If flag2 Then
  87. c = Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.TextBox4.Text))), Nothing, "Length", New Object(-1) {}, Nothing, Nothing, Nothing))))), 1))))))
  88. Me.TurboThreads.Text = Conversions.ToString(Conversions.ToDecimal(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.TextBox4.Text))), Nothing, "length", New Object(-1) {}, Nothing, Nothing, Nothing)))))))
  89. End If
  90. Form1.usernum = New String(c + 1 - 1 + 1 - 1 + 1 - 1 + 1 - 1) {}
  91. Dim num As Integer = Form1.usernum.Length - 1
  92. Dim num2 As Integer = num
  93. For i As Integer = 0 To num2
  94. Form1.usernum(i) = ""
  95. Dim thread As Thread = AddressOf Me._Lambda__3
  96. thread.Start(i)
  97. Next
  98. While True
  99. Try
  100. flag = Not Me.stopp
  101. Dim flag3 As Boolean = flag
  102. If flag3 Then
  103. Dim num3 As Integer = Form1.usernum.Length - 1
  104. Dim num4 As Integer = num3
  105. For j As Integer = 0 To num4
  106. flag = (Form1.usernum(j).Length <= 0)
  107. Dim flag4 As Boolean = flag
  108. If flag4 Then
  109. Dim flag5 As Boolean = Operators.ConditionalCompareObjectGreater(Me.intt, RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.TextBox4.Text))), Nothing, "Length", New Object(-1) {}, Nothing, Nothing, Nothing))))), 1))))), False)
  110. Dim flag6 As Boolean = flag5
  111. If flag6 Then
  112. Me.intt = 0
  113. Me.checkerTaken.Clear()
  114. End If
  115. Form1.usernum(j) = Conversions.ToString(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateIndexGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.TextBox4.Text))), New Object() { Me.intt }, Nothing))))))
  116. Dim ptr As Integer = Me.intt
  117. Me.intt = ptr + 1
  118. End If
  119. Next
  120. End If
  121. Catch ex As Exception
  122. End Try
  123. Thread.Sleep(1)
  124. End While
  125. End Sub
  126.  
  127. ' Token: 0x0600003E RID: 62 RVA: 0x00003704 File Offset: 0x00001904
  128. Public Function changeusername(Username As String) As Object
  129. Dim result As Object = False
  130. Application.DoEvents()
  131. Try
  132. Dim text As String = Guid.NewGuid().ToString().ToUpper()
  133. Dim array As String() = Me.accSettings.Split(New Char() { "|"c })
  134. Dim str As String = Guid.NewGuid().ToString().ToUpper()
  135. Dim stringBuilder As StringBuilder = New StringBuilder()
  136. Dim stringBuilder2 As StringBuilder = stringBuilder
  137. Dim text2 As String = String.Concat(New String() { "{""_uid"":""", array(0), """,""_csrftoken"":""missing"",""first_name"":""", """,""is_private"":""", array(2), """,""phone_number"":""", array(3), """,""biography"":""", array(4), """,""username"":""", Me.TextBox3.Text, """,""gender"":""", array(5), """,""email"":""", array(6), """,""_uuid"":""", text, """,""external_url"":""", array(7), """}" })
  138. text2 = String.Format("{0}.{1}", Form1.Sha256_hash(text2, "b03e0daaf2ab17cda2a569cace938d639d1288a1197f9ecf97efd0a4ec0874d7"), text2)
  139. stringBuilder2.AppendLine("--" + str)
  140. stringBuilder2.AppendLine("Content-Disposition: form-data; name=""signed_body""")
  141. stringBuilder2.AppendLine()
  142. stringBuilder2.AppendLine(text2)
  143. stringBuilder2.AppendLine("--" + str)
  144. stringBuilder2.AppendLine("Content-Disposition: form-data; name=""ig_sig_key_version""")
  145. stringBuilder2.AppendLine()
  146. stringBuilder2.AppendLine("4")
  147. stringBuilder2.Append("--" + str + "--")
  148. Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringBuilder.ToString())
  149. Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/edit_profile/"), HttpWebRequest)
  150. httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
  151. httpWebRequest.Method = "POST"
  152. httpWebRequest.Host = "i.instagram.com"
  153. httpWebRequest.UserAgent = "Instagram 10.15.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
  154. httpWebRequest.Headers.Add("Accept-Language", "ar;q=1, en;q=0.9")
  155. httpWebRequest.KeepAlive = True
  156. httpWebRequest.Proxy = Nothing
  157. httpWebRequest.ContentType = "multipart/form-data; boundary=" + str
  158. httpWebRequest.ContentLength = CLng(bytes.Length)
  159. httpWebRequest.CookieContainer = Me.Sessionz
  160. Dim requestStream As Stream = httpWebRequest.GetRequestStream()
  161. requestStream.Write(bytes, 0, bytes.Length)
  162. requestStream.Close()
  163. Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
  164. Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
  165. Try
  166. Dim flag As Boolean = streamReader.ReadToEnd().Contains("""status"": ""ok""")
  167. Dim flag2 As Boolean = flag
  168. Dim flag3 As Boolean = flag2
  169. If flag3 Then
  170. result = True
  171. End If
  172. streamReader.Close()
  173. Finally
  174. Dim flag4 As Boolean = streamReader IsNot Nothing
  175. Dim flag5 As Boolean = flag4
  176. Dim flag6 As Boolean = flag5
  177. If flag6 Then
  178. CType(streamReader, IDisposable).Dispose()
  179. End If
  180. End Try
  181. httpWebResponse.Close()
  182. Catch ex As Exception
  183. result = False
  184. End Try
  185. Return result
  186. End Function
  187.  
  188. ' Token: 0x0600003F RID: 63 RVA: 0x00003A58 File Offset: 0x00001C58
  189. <MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
  190. Private Sub Form1_Load(sender As Object, e As EventArgs)
  191. MyBase.Width = 159
  192. MyBase.Height = 265
  193. Control.CheckForIllegalCrossThreadCalls = False
  194. ThreadPool.SetMinThreads(Integer.MaxValue, Integer.MaxValue)
  195. ServicePointManager.DefaultConnectionLimit = Integer.MaxValue
  196. Me.checkerStatusLabel.Text = ""
  197. Me.checkerStatusLabel.Text = ""
  198. Try
  199. Dim webClient As WebClient = New WebClient()
  200. Dim text As String = webClient.DownloadString("https://pastebin.com/raw/BMrx6zbH")
  201. Dim flag As Boolean = Operators.CompareString(text, "alpe-x", False) = 0
  202. If Not flag Then
  203. Interaction.MsgBox(text, MsgBoxStyle.OkOnly, Nothing)
  204. ProjectData.EndApp()
  205. End If
  206. Catch ex As Exception
  207. Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
  208. End Try
  209. End Sub
  210.  
  211. ' Token: 0x06000040 RID: 64 RVA: 0x00003B2C File Offset: 0x00001D2C
  212. Private Sub checkerButton_Click(sender As Object, e As EventArgs)
  213. Dim flag As Boolean = Not Me.IfLoggedIn
  214. Dim flag2 As Boolean = flag
  215. If flag2 Then
  216. Me.StatusLabel(Me.checkerStatusLabel, "Login First !")
  217. Else
  218. flag = (Operators.CompareString(Me.checkerButton.Text, "..", False) = 0)
  219. Dim flag3 As Boolean = flag
  220. If flag3 Then
  221. Me.once = 0
  222. Me.stopp = False
  223. Me.StatusLabel(Me.checkerStatusLabel, "..")
  224. Dim thread As Thread = New Thread(Sub(a0 As Object)
  225. Me.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0))))
  226. End Sub, 100)
  227. thread.Start(Conversions.ToDouble(Me.TurboThreads.Text) - 1.0)
  228. Me.StatusButton(Me.checkerButton, "Stop")
  229. Me.StatusLabel(Me.checkerStatusLabel, "..")
  230. Else
  231. Me.stopp = True
  232. Me.StatusLabel(Me.checkerStatusLabel, "Stopped")
  233. Me.StatusButton(Me.checkerButton, "..")
  234. End If
  235. End If
  236. End Sub
  237.  
  238. ' Token: 0x06000041 RID: 65 RVA: 0x00003C34 File Offset: 0x00001E34
  239. Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors__1 As SslPolicyErrors) As Boolean
  240. Return sslPolicyErrors__1 = SslPolicyErrors.None
  241. End Function
  242.  
  243. ' Token: 0x06000042 RID: 66 RVA: 0x00003C4C File Offset: 0x00001E4C
  244. Public Sub checkerr(i As Integer)
  245. Try
  246. While Not Me.stopp
  247. Dim flag As Boolean = Form1.usernum(i).Length > 0
  248. Dim flag2 As Boolean = flag
  249. If flag2 Then
  250. Dim text As String = Form1.usernum(i)
  251. Form1.usernum(i) = ""
  252. flag = Operators.ConditionalCompareObjectEqual(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.CheckWeb(Me.TextBox3.Text))))))))), True, False)
  253. Dim flag3 As Boolean = flag
  254. If flag3 Then
  255. Dim flag4 As Boolean = Me.once = 0
  256. Dim flag5 As Boolean = flag4
  257. If flag5 Then
  258. Dim flag6 As Boolean = Operators.ConditionalCompareObjectEqual(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.changeusername(Me.TextBox3.Text))))))))), True, False)
  259. Dim flag7 As Boolean = flag6
  260. If flag7 Then
  261. Dim ptr As Integer = Me.once
  262. Me.once = ptr + 1
  263. flag6 = Not Me.stopp
  264. Dim flag8 As Boolean = flag6
  265. If flag8 Then
  266. Me.stopp = True
  267. Me.numis = text
  268. Me.TextBox1.Text = "كفو تم النيك"
  269. Me.StatusButton(Me.checkerButton, "hunting")
  270. Me.checkerAvailable.AppendText(Me.TextBox3.Text + vbCrLf)
  271. Thread.CurrentThread.Abort()
  272. End If
  273. Else
  274. Me.checkerAvailable.AppendText(Me.TextBox3.Text + vbCrLf)
  275. End If
  276. End If
  277. Else
  278. Me.checkerTaken.AppendText(Me.TextBox3.Text + vbCrLf)
  279. End If
  280. End If
  281. Thread.Sleep(0)
  282. End While
  283. Catch ex As Exception
  284. End Try
  285. End Sub
  286.  
  287. ' Token: 0x06000043 RID: 67 RVA: 0x00003E5C File Offset: 0x0000205C
  288. Public Function CheckWeb(e As String) As Object
  289. Dim result As Object = False
  290. Application.DoEvents()
  291. Try
  292. Dim text As String = Guid.NewGuid().ToString().ToUpper()
  293. Dim array As String() = Me.accSettings.Split(New Char() { "|"c })
  294. Dim str As String = Guid.NewGuid().ToString().ToUpper()
  295. Dim stringBuilder As StringBuilder = New StringBuilder()
  296. Dim stringBuilder2 As StringBuilder = stringBuilder
  297. Dim text2 As String = String.Concat(New String() { "" })
  298. text2 = String.Format("{0}.{1}", Form1.Sha256_hash(text2, "b03e0daaf2ab17cda2a569cace938d639d1288a1197f9ecf97efd0a4ec0874d7"), text2)
  299. stringBuilder2.AppendLine("--" + str)
  300. stringBuilder2.AppendLine("Content-Disposition: form-data; name=""signed_body""")
  301. stringBuilder2.AppendLine()
  302. stringBuilder2.AppendLine(text2)
  303. stringBuilder2.AppendLine("--" + str)
  304. stringBuilder2.AppendLine("Content-Disposition: form-data; name=""ig_sig_key_version""")
  305. stringBuilder2.AppendLine()
  306. stringBuilder2.AppendLine("4")
  307. stringBuilder2.Append("--" + str + "--")
  308. Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringBuilder.ToString())
  309. Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/feed/user/" + e + "/username/"), HttpWebRequest)
  310. httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
  311. httpWebRequest.Method = "POST"
  312. httpWebRequest.Host = "i.instagram.com"
  313. httpWebRequest.UserAgent = "Instagram 10.15.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
  314. httpWebRequest.Headers.Add("Accept-Language", "ar;q=1, en;q=0.9")
  315. httpWebRequest.KeepAlive = True
  316. httpWebRequest.Proxy = Nothing
  317. httpWebRequest.ContentType = "multipart/form-data; boundary=" + str
  318. httpWebRequest.ContentLength = CLng(bytes.Length)
  319. httpWebRequest.CookieContainer = Me.Sessionz
  320. Dim requestStream As Stream = httpWebRequest.GetRequestStream()
  321. requestStream.Write(bytes, 0, bytes.Length)
  322. requestStream.Close()
  323. Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
  324. Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
  325. Try
  326. Dim flag As Boolean = streamReader.ReadToEnd().Contains("auto_load_more_enabled")
  327. Dim flag2 As Boolean = flag
  328. Dim flag3 As Boolean = flag2
  329. If flag3 Then
  330. result = False
  331. Else
  332. result = True
  333. End If
  334. Dim flag4 As Boolean = streamReader.ReadToEnd().Contains("wait")
  335. flag2 = flag4
  336. Dim flag5 As Boolean = flag2
  337. If flag5 Then
  338. result = True
  339. End If
  340. streamReader.Close()
  341. Finally
  342. Dim flag6 As Boolean = streamReader IsNot Nothing
  343. Dim flag7 As Boolean = flag6
  344. Dim flag8 As Boolean = flag7
  345. If flag8 Then
  346. CType(streamReader, IDisposable).Dispose()
  347. End If
  348. End Try
  349. httpWebResponse.Close()
  350. Catch ex As Exception
  351. result = False
  352. End Try
  353. Return result
  354. End Function
  355.  
  356. ' Token: 0x06000044 RID: 68 RVA: 0x00002212 File Offset: 0x00000412
  357. Private Sub Lambda__380(a0 As Object)
  358. Me.checkerr(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0))))))))))
  359. End Sub
  360.  
  361. ' Token: 0x06000045 RID: 69 RVA: 0x000022A6 File Offset: 0x000004A6
  362. Private Sub Lambda__440(a0 As Object)
  363. Me.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0))))))
  364. End Sub
  365.  
  366. ' Token: 0x06000046 RID: 70 RVA: 0x00004154 File Offset: 0x00002354
  367. Private Sub loginButton_Click(sender As Object, e As EventArgs)
  368. Dim flag As Boolean = Operators.CompareString(Me.loginUsername.Text, Nothing, False) = 0
  369. Dim flag2 As Boolean = flag
  370. If flag2 Then
  371. Me.checkerStatusLabel.Text = "enter username"
  372. Else
  373. flag = (Operators.CompareString(Me.loginPassword.Text, Nothing, False) = 0)
  374. Dim flag3 As Boolean = flag
  375. If flag3 Then
  376. Me.checkerStatusLabel.Text = "enter password"
  377. Else
  378. flag = Me.SwitchLoginBool
  379. Dim flag4 As Boolean = flag
  380. If flag4 Then
  381. Dim thread As Thread = AddressOf Me.Logout
  382. thread.Start()
  383. Else
  384. flag = Not Me.SwitchLoginBool
  385. Dim flag5 As Boolean = flag
  386. If flag5 Then
  387. Dim thread2 As Thread = AddressOf Me.LoginCheck
  388. thread2.Start()
  389. End If
  390. End If
  391. End If
  392. End If
  393. End Sub
  394.  
  395. ' Token: 0x06000047 RID: 71 RVA: 0x00004224 File Offset: 0x00002424
  396. Public Sub LoginCheck()
  397. Me.SwitchTextz(Me.loginUsername, False)
  398. Me.SwitchTextz(Me.loginPassword, False)
  399. Me.accSettings = Nothing
  400. Me.Sessionz = Nothing
  401. Me.GetSettingsBool = False
  402. Me.StatusLabel(Me.checkerStatusLabel, "")
  403. Dim cookieContainer As CookieContainer = api.login(Me.loginUsername.Text, Me.loginPassword.Text, Me.uuID)
  404. Dim flag As Boolean = cookieContainer Is Nothing
  405. Dim flag2 As Boolean = flag
  406. If flag2 Then
  407. Me.SwitchTextz(Me.loginUsername, True)
  408. Me.SwitchTextz(Me.loginPassword, True)
  409. Me.StatusLabel(Me.checkerStatusLabel, "Failed:(")
  410. Me.SwitchLoginBool = False
  411. Thread.CurrentThread.Abort()
  412. Else
  413. flag = Not Me.GetSettingsBool
  414. Dim flag3 As Boolean = flag
  415. If flag3 Then
  416. Dim text As String = api.getaccountsettings(cookieContainer)
  417. Me.accSettings = text
  418. Me.Sessionz = cookieContainer
  419. Me.GetSettingsBool = True
  420. Me.StatusLabel(Me.checkerStatusLabel, "preparation")
  421. End If
  422. flag = (Operators.CompareString(Me.accSettings, "|||||||", False) = 0)
  423. Dim flag4 As Boolean = flag
  424. If flag4 Then
  425. Me.StatusLabel(Me.checkerStatusLabel, "error")
  426. Else
  427. Me.StatusLabel(Me.checkerStatusLabel, "Logged in")
  428. Me.SwitchLoginBool = True
  429. Me.StatusLabel(Me.checkerStatusLabel, "Ready!")
  430. flag = (Operators.CompareString(Me.checkerButton.Text, "Start", False) = 0)
  431. Dim flag5 As Boolean = flag
  432. If flag5 Then
  433. Me.once = 0
  434. Me.stopp = False
  435. Me.StatusLabel(Me.checkerStatusLabel, "..")
  436. Dim thread As Thread = New Thread(Sub(a0 As Object)
  437. Me.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0))))
  438. End Sub, 100)
  439. thread.Start(Conversions.ToDouble(Me.TurboThreads.Text) - 1.0)
  440. Me.StatusButton(Me.checkerButton, "Stop")
  441. Me.StatusLabel(Me.checkerStatusLabel, "Started")
  442. Else
  443. Me.stopp = True
  444. Me.StatusLabel(Me.checkerStatusLabel, "Stopped")
  445. Me.StatusButton(Me.checkerButton, "Start")
  446. End If
  447. Me.IfLoggedIn = True
  448. flag = (Form1.TellMe < False)
  449. Dim flag6 As Boolean = flag
  450. If flag6 Then
  451. MessageBox.Show("logged in, but your account has need activate!", "Attention!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
  452. Form1.TellMe = False
  453. End If
  454. End If
  455. End If
  456. End Sub
  457.  
  458. ' Token: 0x06000048 RID: 72 RVA: 0x00004494 File Offset: 0x00002694
  459. Public Sub Logout()
  460. Dim flag As Boolean = api.logout(Me.Sessionz) IsNot Nothing
  461. Dim flag2 As Boolean = flag
  462. If flag2 Then
  463. Me.StatusLabel(Me.checkerStatusLabel, "cannot log out")
  464. Else
  465. Me.accSettings = Nothing
  466. Me.Sessionz = Nothing
  467. Me.GetSettingsBool = False
  468. Me.StatusLabel(Me.checkerStatusLabel, "Logged out")
  469. Me.StatusButton(Me.loginButton, "Login")
  470. Me.SwitchTextz(Me.loginUsername, True)
  471. Me.SwitchTextz(Me.loginPassword, True)
  472. Me.SwitchLoginBool = False
  473. Me.IfLoggedIn = False
  474. End If
  475. End Sub
  476.  
  477. ' Token: 0x06000049 RID: 73 RVA: 0x00004530 File Offset: 0x00002730
  478. Public Function RunThreads(count As Integer, start As ThreadStart) As List(Of Thread)
  479. Dim list As List(Of Thread) = New List(Of Thread)()
  480. For i As Integer = 1 To count
  481. Dim thread As Thread = New Thread(start)
  482. thread.Start()
  483. list.Add(thread)
  484. Next
  485. Return list
  486. End Function
  487.  
  488. ' Token: 0x0600004A RID: 74 RVA: 0x00004570 File Offset: 0x00002770
  489. Public Shared Function Sha256_hash(value As String, salt As String) As String
  490. Dim stringBuilder As StringBuilder = New StringBuilder()
  491. Dim hmacsha As HMACSHA256 = New HMACSHA256(Encoding.UTF8.GetBytes(salt))
  492. hmacsha.ComputeHash(Encoding.UTF8.GetBytes(value))
  493. Dim hash As Byte() = hmacsha.Hash
  494. Dim num As Integer = hash.Length - 1
  495. Dim i As Integer = 0
  496. Dim num2 As Integer
  497. While i <= num2
  498. stringBuilder.Append(hash(i).ToString("x2"))
  499. i += 1
  500. num2 = num
  501. End While
  502. Return stringBuilder.ToString()
  503. End Function
  504.  
  505. ' Token: 0x0600004B RID: 75 RVA: 0x000045F8 File Offset: 0x000027F8
  506. Private Sub StatusButton(btn As Button, input As String)
  507. btn.Invoke(New Form1.VBAnonymousDelegate_0(Sub()
  508. btn.Text = String.Format(input, New Object(-1) {})
  509. End Sub))
  510. End Sub
  511.  
  512. ' Token: 0x0600004C RID: 76 RVA: 0x00004634 File Offset: 0x00002834
  513. Private Sub StatusLabel(lbl As Label, input As String)
  514. lbl.Invoke(New Form1.VBAnonymousDelegate_0(Sub()
  515. lbl.Text = String.Format(input, New Object(-1) {})
  516. End Sub))
  517. End Sub
  518.  
  519. ' Token: 0x0600004D RID: 77 RVA: 0x00004670 File Offset: 0x00002870
  520. Private Sub SwitchButton(Btn As Button, input As Boolean)
  521. Btn.Invoke(New Form1.VBAnonymousDelegate_0(Sub()
  522. Btn.Enabled = input
  523. End Sub))
  524. End Sub
  525.  
  526. ' Token: 0x0600004E RID: 78 RVA: 0x000046AC File Offset: 0x000028AC
  527. Private Sub SwitchCheckBox(Chk As CheckBox, input As Boolean)
  528. Chk.Invoke(New Form1.VBAnonymousDelegate_0(Sub()
  529. Chk.Enabled = input
  530. End Sub))
  531. End Sub
  532.  
  533. ' Token: 0x0600004F RID: 79 RVA: 0x000046E8 File Offset: 0x000028E8
  534. Private Sub SwitchTextz(txt As TextBox, input As Boolean)
  535. txt.Invoke(New Form1.VBAnonymousDelegate_0(Sub()
  536. txt.Enabled = input
  537. End Sub))
  538. End Sub
  539.  
  540. ' Token: 0x06000050 RID: 80 RVA: 0x000022CA File Offset: 0x000004CA
  541. Private Sub checkerTaken_TextChanged(sender As Object, e As EventArgs)
  542. Me.TextBox1.Text = Conversions.ToString(Conversions.ToDouble(Me.TextBox1.Text) + 1.0)
  543. End Sub
  544.  
  545. ' Token: 0x06000051 RID: 81 RVA: 0x000022F8 File Offset: 0x000004F8
  546. Private Sub Label17_Click(sender As Object, e As EventArgs)
  547. MyBase.Close()
  548. End Sub
  549.  
  550. ' Token: 0x06000052 RID: 82 RVA: 0x00004724 File Offset: 0x00002924
  551. Private Sub Label8_MouseDown(sender As Object, e As MouseEventArgs)
  552. Dim flag As Boolean = e.Button = MouseButtons.Left
  553. Dim flag2 As Boolean = flag
  554. If flag2 Then
  555. Me.i = True
  556. Me.x = Control.MousePosition.X - MyBase.Location.X
  557. Me.y = Control.MousePosition.Y - MyBase.Location.Y
  558. End If
  559. End Sub
  560.  
  561. ' Token: 0x06000053 RID: 83 RVA: 0x00004794 File Offset: 0x00002994
  562. Private Sub Label8_MouseMove(sender As Object, e As MouseEventArgs)
  563. Dim flag As Boolean = Me.i
  564. Dim flag2 As Boolean = flag
  565. If flag2 Then
  566. ' The following expression was wrapped in a checked-expression
  567. Dim location As Point = New Point(Control.MousePosition.X - Me.x, Control.MousePosition.Y - Me.y)
  568. MyBase.Location = location
  569. End If
  570. End Sub
  571.  
  572. ' Token: 0x06000054 RID: 84 RVA: 0x00002302 File Offset: 0x00000502
  573. Private Sub Label8_MouseUp(sender As Object, e As MouseEventArgs)
  574. Me.i = False
  575. End Sub
  576.  
  577. ' Token: 0x06000055 RID: 85 RVA: 0x00004724 File Offset: 0x00002924
  578. Private Sub Label14_MouseDown(sender As Object, e As MouseEventArgs)
  579. Dim flag As Boolean = e.Button = MouseButtons.Left
  580. Dim flag2 As Boolean = flag
  581. If flag2 Then
  582. Me.i = True
  583. Me.x = Control.MousePosition.X - MyBase.Location.X
  584. Me.y = Control.MousePosition.Y - MyBase.Location.Y
  585. End If
  586. End Sub
  587.  
  588. ' Token: 0x06000056 RID: 86 RVA: 0x00004794 File Offset: 0x00002994
  589. Private Sub Label14_MouseMove(sender As Object, e As MouseEventArgs)
  590. Dim flag As Boolean = Me.i
  591. Dim flag2 As Boolean = flag
  592. If flag2 Then
  593. ' The following expression was wrapped in a checked-expression
  594. Dim location As Point = New Point(Control.MousePosition.X - Me.x, Control.MousePosition.Y - Me.y)
  595. MyBase.Location = location
  596. End If
  597. End Sub
  598.  
  599. ' Token: 0x06000057 RID: 87 RVA: 0x00002302 File Offset: 0x00000502
  600. Private Sub Label14_MouseUp(sender As Object, e As MouseEventArgs)
  601. Me.i = False
  602. End Sub
  603.  
  604. ' Token: 0x06000058 RID: 88 RVA: 0x00004724 File Offset: 0x00002924
  605. Private Sub Label15_MouseDown(sender As Object, e As MouseEventArgs)
  606. Dim flag As Boolean = e.Button = MouseButtons.Left
  607. Dim flag2 As Boolean = flag
  608. If flag2 Then
  609. Me.i = True
  610. Me.x = Control.MousePosition.X - MyBase.Location.X
  611. Me.y = Control.MousePosition.Y - MyBase.Location.Y
  612. End If
  613. End Sub
  614.  
  615. ' Token: 0x06000059 RID: 89 RVA: 0x00004794 File Offset: 0x00002994
  616. Private Sub Label15_MouseMove(sender As Object, e As MouseEventArgs)
  617. Dim flag As Boolean = Me.i
  618. Dim flag2 As Boolean = flag
  619. If flag2 Then
  620. ' The following expression was wrapped in a checked-expression
  621. Dim location As Point = New Point(Control.MousePosition.X - Me.x, Control.MousePosition.Y - Me.y)
  622. MyBase.Location = location
  623. End If
  624. End Sub
  625.  
  626. ' Token: 0x0600005A RID: 90 RVA: 0x00002302 File Offset: 0x00000502
  627. Private Sub Label15_MouseUp(sender As Object, e As MouseEventArgs)
  628. Me.i = False
  629. End Sub
  630.  
  631. ' Token: 0x0600005B RID: 91 RVA: 0x0000230C File Offset: 0x0000050C
  632. Private Sub Label16_Click(sender As Object, e As EventArgs)
  633. MyBase.WindowState = FormWindowState.Minimized
  634. End Sub
  635.  
  636. ' Token: 0x0600005C RID: 92 RVA: 0x00002317 File Offset: 0x00000517
  637. <MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
  638. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs)
  639. ProjectData.EndApp()
  640. End Sub
  641.  
  642. ' Token: 0x0600005D RID: 93 RVA: 0x000047E8 File Offset: 0x000029E8
  643. Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs)
  644. Dim checked As Boolean = Me.RadioButton1.Checked
  645. Dim flag As Boolean = checked
  646. If flag Then
  647. Interaction.MsgBox("", MsgBoxStyle.OkOnly, Nothing)
  648. Me.TurboThreads.Text = "2"
  649. End If
  650. End Sub
  651.  
  652. ' Token: 0x0600005E RID: 94 RVA: 0x00002320 File Offset: 0x00000520
  653. Private Sub checkerStatusLabel_Click(sender As Object, e As EventArgs)
  654. End Sub
  655.  
  656. ' Token: 0x0600005F RID: 95 RVA: 0x00002320 File Offset: 0x00000520
  657. Private Sub loginUsername_TextChanged(sender As Object, e As EventArgs)
  658. End Sub
  659.  
  660. ' Token: 0x06000060 RID: 96 RVA: 0x00002320 File Offset: 0x00000520
  661. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
  662. End Sub
  663.  
  664. ' Token: 0x06000061 RID: 97 RVA: 0x00002320 File Offset: 0x00000520
  665. Private Sub Label14_Click(sender As Object, e As EventArgs)
  666. End Sub
  667.  
  668. ' Token: 0x06000062 RID: 98 RVA: 0x00002320 File Offset: 0x00000520
  669. Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
  670. End Sub
  671.  
  672. ' Token: 0x06000063 RID: 99 RVA: 0x00004828 File Offset: 0x00002A28
  673. <DebuggerNonUserCode()>
  674. Protected Overrides Sub Dispose(disposing As Boolean)
  675. Try
  676. Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
  677. If flag Then
  678. Me.components.Dispose()
  679. End If
  680. Finally
  681. MyBase.Dispose(disposing)
  682. End Try
  683. End Sub
  684.  
  685. ' Token: 0x06000064 RID: 100 RVA: 0x00004878 File Offset: 0x00002A78
  686. <DebuggerStepThrough()>
  687. Private Sub InitializeComponent()
  688. Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
  689. Me.checkerTaken = New TextBox()
  690. Me.loginButton = New Button()
  691. Me.LoginStatusLabel = New Label()
  692. Me.checkerStatusLabel = New Label()
  693. Me.loginPassword = New TextBox()
  694. Me.loginUsername = New TextBox()
  695. Me.checkerAvailable = New TextBox()
  696. Me.checkerButton = New Button()
  697. Me.TurboThreads = New TextBox()
  698. Me.TextBox1 = New TextBox()
  699. Me.Label8 = New Label()
  700. Me.Label14 = New Label()
  701. Me.Label17 = New Label()
  702. Me.Label16 = New Label()
  703. Me.Label15 = New Label()
  704. Me.TextBox2 = New TextBox()
  705. Me.TextBox3 = New TextBox()
  706. Me.TextBox4 = New TextBox()
  707. Me.RadioButton1 = New RadioButton()
  708. Me.RadioButton2 = New RadioButton()
  709. Me.TextBox5 = New TextBox()
  710. Me.Label1 = New Label()
  711. Me.Label2 = New Label()
  712. Me.PictureBox1 = New PictureBox()
  713. Me.TextBox6 = New TextBox()
  714. Me.TextBox7 = New TextBox()
  715. CType(Me.PictureBox1, ISupportInitialize).BeginInit()
  716. MyBase.SuspendLayout()
  717. Me.checkerTaken.ForeColor = Color.DarkRed
  718. Me.checkerTaken.Location = New Point(510, 116)
  719. Me.checkerTaken.Multiline = True
  720. Me.checkerTaken.Name = "checkerTaken"
  721. Me.checkerTaken.Size = New Size(70, 80)
  722. Me.checkerTaken.TabIndex = 0
  723. Me.checkerTaken.TextAlign = HorizontalAlignment.Center
  724. Me.loginButton.BackColor = Color.Black
  725. Me.loginButton.FlatStyle = FlatStyle.Flat
  726. Me.loginButton.ForeColor = Color.White
  727. Me.loginButton.Location = New Point(2, 199)
  728. Me.loginButton.MinimumSize = New Size(77, 17)
  729. Me.loginButton.Name = "loginButton"
  730. Me.loginButton.Size = New Size(154, 24)
  731. Me.loginButton.TabIndex = 1
  732. Me.loginButton.Text = "Start"
  733. Me.loginButton.TextAlign = ContentAlignment.TopCenter
  734. Me.loginButton.UseVisualStyleBackColor = False
  735. Me.LoginStatusLabel.AutoSize = True
  736. Me.LoginStatusLabel.Location = New Point(27, 249)
  737. Me.LoginStatusLabel.Name = "LoginStatusLabel"
  738. Me.LoginStatusLabel.Size = New Size(60, 13)
  739. Me.LoginStatusLabel.TabIndex = 2
  740. Me.LoginStatusLabel.Text = "login status"
  741. Me.checkerStatusLabel.AutoSize = True
  742. Me.checkerStatusLabel.BackColor = Color.Black
  743. Me.checkerStatusLabel.BorderStyle = BorderStyle.FixedSingle
  744. Me.checkerStatusLabel.FlatStyle = FlatStyle.System
  745. Me.checkerStatusLabel.ForeColor = Color.ForestGreen
  746. Me.checkerStatusLabel.Location = New Point(445, 113)
  747. Me.checkerStatusLabel.Name = "checkerStatusLabel"
  748. Me.checkerStatusLabel.Size = New Size(18, 15)
  749. Me.checkerStatusLabel.TabIndex = 3
  750. Me.checkerStatusLabel.Text = "..."
  751. Me.loginPassword.BackColor = Color.Black
  752. Me.loginPassword.BorderStyle = BorderStyle.FixedSingle
  753. Me.loginPassword.Font = New Font("Microsoft Sans Serif", 8.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
  754. Me.loginPassword.ForeColor = Color.White
  755. Me.loginPassword.Location = New Point(2, 126)
  756. Me.loginPassword.Name = "loginPassword"
  757. Me.loginPassword.Size = New Size(154, 20)
  758. Me.loginPassword.TabIndex = 4
  759. Me.loginPassword.Text = "Password"
  760. Me.loginPassword.TextAlign = HorizontalAlignment.Center
  761. Me.loginUsername.BackColor = Color.Black
  762. Me.loginUsername.BorderStyle = BorderStyle.FixedSingle
  763. Me.loginUsername.ForeColor = Color.White
  764. Me.loginUsername.Location = New Point(2, 101)
  765. Me.loginUsername.Name = "loginUsername"
  766. Me.loginUsername.Size = New Size(154, 20)
  767. Me.loginUsername.TabIndex = 5
  768. Me.loginUsername.Text = "Username"
  769. Me.loginUsername.TextAlign = HorizontalAlignment.Center
  770. Me.checkerAvailable.BackColor = Color.FromArgb(15, 15, 15)
  771. Me.checkerAvailable.BorderStyle = BorderStyle.FixedSingle
  772. Me.checkerAvailable.Font = New Font("Tahoma", 8.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
  773. Me.checkerAvailable.ForeColor = Color.Gainsboro
  774. Me.checkerAvailable.Location = New Point(526, 62)
  775. Me.checkerAvailable.Name = "checkerAvailable"
  776. Me.checkerAvailable.[ReadOnly] = True
  777. Me.checkerAvailable.Size = New Size(67, 21)
  778. Me.checkerAvailable.TabIndex = 6
  779. Me.checkerAvailable.TextAlign = HorizontalAlignment.Center
  780. Me.checkerButton.FlatStyle = FlatStyle.Flat
  781. Me.checkerButton.ForeColor = Color.Silver
  782. Me.checkerButton.Location = New Point(485, 22)
  783. Me.checkerButton.Name = "checkerButton"
  784. Me.checkerButton.Size = New Size(143, 23)
  785. Me.checkerButton.TabIndex = 7
  786. Me.checkerButton.Text = "Start"
  787. Me.checkerButton.UseVisualStyleBackColor = True
  788. Me.TurboThreads.BackColor = Color.FromArgb(15, 15, 15)
  789. Me.TurboThreads.BorderStyle = BorderStyle.FixedSingle
  790. Me.TurboThreads.ForeColor = Color.White
  791. Me.TurboThreads.Location = New Point(496, 228)
  792. Me.TurboThreads.Name = "TurboThreads"
  793. Me.TurboThreads.Size = New Size(72, 20)
  794. Me.TurboThreads.TabIndex = 8
  795. Me.TurboThreads.Text = "1"
  796. Me.TurboThreads.TextAlign = HorizontalAlignment.Center
  797. Me.TextBox1.BackColor = Color.Black
  798. Me.TextBox1.BorderStyle = BorderStyle.FixedSingle
  799. Me.TextBox1.ForeColor = Color.White
  800. Me.TextBox1.Location = New Point(2, 228)
  801. Me.TextBox1.Name = "TextBox1"
  802. Me.TextBox1.ShortcutsEnabled = False
  803. Me.TextBox1.Size = New Size(154, 20)
  804. Me.TextBox1.TabIndex = 9
  805. Me.TextBox1.Text = "0"
  806. Me.TextBox1.TextAlign = HorizontalAlignment.Center
  807. Me.Label8.AutoSize = True
  808. Me.Label8.BackColor = Color.Black
  809. Me.Label8.Location = New Point(-1, 0)
  810. Me.Label8.Name = "Label8"
  811. Me.Label8.Size = New Size(184, 13)
  812. Me.Label8.TabIndex = 10
  813. Me.Label8.Text = " "
  814. Me.Label14.AutoSize = True
  815. Me.Label14.BackColor = Color.White
  816. Me.Label14.Location = New Point(-4, 14)
  817. Me.Label14.Name = "Label14"
  818. Me.Label14.Size = New Size(184, 13)
  819. Me.Label14.TabIndex = 11
  820. Me.Label14.Text = " "
  821. Me.Label17.AutoSize = True
  822. Me.Label17.BackColor = Color.Black
  823. Me.Label17.Cursor = Cursors.Hand
  824. Me.Label17.Font = New Font("Tahoma", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
  825. Me.Label17.ForeColor = Color.FromArgb(224, 224, 224)
  826. Me.Label17.Location = New Point(146, -1)
  827. Me.Label17.Name = "Label17"
  828. Me.Label17.Size = New Size(15, 14)
  829. Me.Label17.TabIndex = 12
  830. Me.Label17.Text = "X"
  831. Me.Label16.AutoSize = True
  832. Me.Label16.BackColor = Color.DarkRed
  833. Me.Label16.Cursor = Cursors.Hand
  834. Me.Label16.Font = New Font("Tahoma", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
  835. Me.Label16.ForeColor = Color.White
  836. Me.Label16.Location = New Point(292, 62)
  837. Me.Label16.Name = "Label16"
  838. Me.Label16.Size = New Size(15, 14)
  839. Me.Label16.TabIndex = 13
  840. Me.Label16.Text = "_"
  841. Me.Label15.AutoSize = True
  842. Me.Label15.BackColor = Color.Black
  843. Me.Label15.Cursor = Cursors.[Default]
  844. Me.Label15.Font = New Font("Tahoma", 8.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
  845. Me.Label15.ForeColor = Color.White
  846. Me.Label15.Location = New Point(-1, 0)
  847. Me.Label15.Name = "Label15"
  848. Me.Label15.Size = New Size(61, 13)
  849. Me.Label15.TabIndex = 14
  850. Me.Label15.Text = "dmar hhh"
  851. Me.TextBox2.BackColor = Color.FromArgb(15, 15, 15)
  852. Me.TextBox2.BorderStyle = BorderStyle.FixedSingle
  853. Me.TextBox2.ForeColor = Color.Gainsboro
  854. Me.TextBox2.Location = New Point(485, 202)
  855. Me.TextBox2.MaximumSize = New Size(72, 20)
  856. Me.TextBox2.MinimumSize = New Size(108, 20)
  857. Me.TextBox2.Name = "TextBox2"
  858. Me.TextBox2.Size = New Size(108, 20)
  859. Me.TextBox2.TabIndex = 15
  860. Me.TextBox2.Text = "260"
  861. Me.TextBox2.TextAlign = HorizontalAlignment.Center
  862. Me.TextBox3.BackColor = Color.Black
  863. Me.TextBox3.BorderStyle = BorderStyle.FixedSingle
  864. Me.TextBox3.ForeColor = Color.Red
  865. Me.TextBox3.Location = New Point(2, 175)
  866. Me.TextBox3.Name = "TextBox3"
  867. Me.TextBox3.Size = New Size(154, 20)
  868. Me.TextBox3.TabIndex = 16
  869. Me.TextBox3.Text = "Target"
  870. Me.TextBox3.TextAlign = HorizontalAlignment.Center
  871. Me.TextBox4.Location = New Point(340, 294)
  872. Me.TextBox4.Name = "TextBox4"
  873. Me.TextBox4.Size = New Size(425, 20)
  874. Me.TextBox4.TabIndex = 17
  875. Me.TextBox4.Text = componentResourceManager.GetString("TextBox4.Text")
  876. Me.RadioButton1.AutoSize = True
  877. Me.RadioButton1.ForeColor = Color.Gainsboro
  878. Me.RadioButton1.Location = New Point(373, 74)
  879. Me.RadioButton1.Name = "RadioButton1"
  880. Me.RadioButton1.Size = New Size(41, 17)
  881. Me.RadioButton1.TabIndex = 18
  882. Me.RadioButton1.TabStop = True
  883. Me.RadioButton1.Text = "نقل"
  884. Me.RadioButton1.UseVisualStyleBackColor = True
  885. Me.RadioButton2.AutoSize = True
  886. Me.RadioButton2.Checked = True
  887. Me.RadioButton2.ForeColor = Color.Gainsboro
  888. Me.RadioButton2.Location = New Point(340, 45)
  889. Me.RadioButton2.Name = "RadioButton2"
  890. Me.RadioButton2.Size = New Size(49, 17)
  891. Me.RadioButton2.TabIndex = 19
  892. Me.RadioButton2.TabStop = True
  893. Me.RadioButton2.Text = "تثبيت"
  894. Me.RadioButton2.UseVisualStyleBackColor = True
  895. Me.TextBox5.BackColor = SystemColors.MenuHighlight
  896. Me.TextBox5.BorderStyle = BorderStyle.None
  897. Me.TextBox5.ForeColor = Color.Maroon
  898. Me.TextBox5.Location = New Point(274, 451)
  899. Me.TextBox5.Name = "TextBox5"
  900. Me.TextBox5.Size = New Size(115, 13)
  901. Me.TextBox5.TabIndex = 21
  902. Me.Label1.AutoSize = True
  903. Me.Label1.BackColor = Color.DarkRed
  904. Me.Label1.Font = New Font("Microsoft Sans Serif", 6F, FontStyle.Regular, GraphicsUnit.Point, 0)
  905. Me.Label1.ForeColor = SystemColors.ButtonFace
  906. Me.Label1.Location = New Point(443, 407)
  907. Me.Label1.Name = "Label1"
  908. Me.Label1.Size = New Size(168, 9)
  909. Me.Label1.TabIndex = 22
  910. Me.Label1.Text = "Don,t Fuck with me Niger "
  911. Me.Label2.AutoSize = True
  912. Me.Label2.ForeColor = Color.ForestGreen
  913. Me.Label2.Location = New Point(6, 250)
  914. Me.Label2.Name = "Label2"
  915. Me.Label2.Size = New Size(146, 13)
  916. Me.Label2.TabIndex = 23
  917. Me.Label2.Text = "#NHX"
  918. Me.PictureBox1.Image = CType(componentResourceManager.GetObject("PictureBox1.Image"), Image)
  919. Me.PictureBox1.Location = New Point(-1, 16)
  920. Me.PictureBox1.Name = "PictureBox1"
  921. Me.PictureBox1.Size = New Size(165, 81)
  922. Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
  923. Me.PictureBox1.TabIndex = 20
  924. Me.PictureBox1.TabStop = False
  925. Me.TextBox6.BackColor = SystemColors.InactiveCaptionText
  926. Me.TextBox6.ForeColor = Color.White
  927. Me.TextBox6.Location = New Point(2, 149)
  928. Me.TextBox6.Name = "TextBox6"
  929. Me.TextBox6.Size = New Size(68, 20)
  930. Me.TextBox6.TabIndex = 24
  931. Me.TextBox6.Text = "100"
  932. Me.TextBox6.TextAlign = HorizontalAlignment.Center
  933. Me.TextBox7.BackColor = SystemColors.InactiveCaptionText
  934. Me.TextBox7.ForeColor = SystemColors.Info
  935. Me.TextBox7.Location = New Point(86, 149)
  936. Me.TextBox7.Name = "TextBox7"
  937. Me.TextBox7.Size = New Size(70, 20)
  938. Me.TextBox7.TabIndex = 25
  939. Me.TextBox7.Text = "100"
  940. Me.TextBox7.TextAlign = HorizontalAlignment.Center
  941. MyBase.AutoScaleDimensions = New SizeF(6F, 13F)
  942. MyBase.AutoScaleMode = AutoScaleMode.Font
  943. Me.BackColor = Color.Black
  944. MyBase.ClientSize = New Size(165, 268)
  945. MyBase.Controls.Add(Me.TextBox7)
  946. MyBase.Controls.Add(Me.TextBox6)
  947. MyBase.Controls.Add(Me.Label2)
  948. MyBase.Controls.Add(Me.Label1)
  949. MyBase.Controls.Add(Me.TextBox5)
  950. MyBase.Controls.Add(Me.PictureBox1)
  951. MyBase.Controls.Add(Me.RadioButton2)
  952. MyBase.Controls.Add(Me.RadioButton1)
  953. MyBase.Controls.Add(Me.TextBox4)
  954. MyBase.Controls.Add(Me.TextBox3)
  955. MyBase.Controls.Add(Me.TextBox2)
  956. MyBase.Controls.Add(Me.Label15)
  957. MyBase.Controls.Add(Me.Label16)
  958. MyBase.Controls.Add(Me.Label17)
  959. MyBase.Controls.Add(Me.Label14)
  960. MyBase.Controls.Add(Me.Label8)
  961. MyBase.Controls.Add(Me.TextBox1)
  962. MyBase.Controls.Add(Me.TurboThreads)
  963. MyBase.Controls.Add(Me.checkerButton)
  964. MyBase.Controls.Add(Me.checkerAvailable)
  965. MyBase.Controls.Add(Me.loginUsername)
  966. MyBase.Controls.Add(Me.loginPassword)
  967. MyBase.Controls.Add(Me.checkerStatusLabel)
  968. MyBase.Controls.Add(Me.LoginStatusLabel)
  969. MyBase.Controls.Add(Me.loginButton)
  970. MyBase.Controls.Add(Me.checkerTaken)
  971. MyBase.FormBorderStyle = FormBorderStyle.None
  972. MyBase.Name = "Form1"
  973. MyBase.StartPosition = FormStartPosition.CenterScreen
  974. Me.Text = "dmar"
  975. CType(Me.PictureBox1, ISupportInitialize).EndInit()
  976. MyBase.ResumeLayout(False)
  977. MyBase.PerformLayout()
  978. End Sub
  979.  
  980. ' Token: 0x17000013 RID: 19
  981. ' (get) Token: 0x06000065 RID: 101 RVA: 0x00002323 File Offset: 0x00000523
  982. ' (set) Token: 0x06000066 RID: 102 RVA: 0x00005AA8 File Offset: 0x00003CA8
  983. Friend Overridable Property checkerTaken As TextBox
  984. <CompilerGenerated()>
  985. Get
  986. Return Me._checkerTaken
  987. End Get
  988. <CompilerGenerated()>
  989. <MethodImpl(MethodImplOptions.Synchronized)>
  990. Set(value As TextBox)
  991. Dim value2 As EventHandler = AddressOf Me.checkerTaken_TextChanged
  992. Dim checkerTaken As TextBox = Me._checkerTaken
  993. If checkerTaken IsNot Nothing Then
  994. RemoveHandler checkerTaken.TextChanged, value2
  995. End If
  996. Me._checkerTaken = value
  997. checkerTaken = Me._checkerTaken
  998. If checkerTaken IsNot Nothing Then
  999. AddHandler checkerTaken.TextChanged, value2
  1000. End If
  1001. End Set
  1002. End Property
  1003.  
  1004. ' Token: 0x17000014 RID: 20
  1005. ' (get) Token: 0x06000067 RID: 103 RVA: 0x0000232D File Offset: 0x0000052D
  1006. ' (set) Token: 0x06000068 RID: 104 RVA: 0x00005AEC File Offset: 0x00003CEC
  1007. Friend Overridable Property loginButton As Button
  1008. <CompilerGenerated()>
  1009. Get
  1010. Return Me._loginButton
  1011. End Get
  1012. <CompilerGenerated()>
  1013. <MethodImpl(MethodImplOptions.Synchronized)>
  1014. Set(value As Button)
  1015. Dim value2 As EventHandler = AddressOf Me.loginButton_Click
  1016. Dim loginButton As Button = Me._loginButton
  1017. If loginButton IsNot Nothing Then
  1018. RemoveHandler loginButton.Click, value2
  1019. End If
  1020. Me._loginButton = value
  1021. loginButton = Me._loginButton
  1022. If loginButton IsNot Nothing Then
  1023. AddHandler loginButton.Click, value2
  1024. End If
  1025. End Set
  1026. End Property
  1027.  
  1028. ' Token: 0x17000015 RID: 21
  1029. ' (get) Token: 0x06000069 RID: 105 RVA: 0x00002337 File Offset: 0x00000537
  1030. ' (set) Token: 0x0600006A RID: 106 RVA: 0x00002341 File Offset: 0x00000541
  1031. Friend Overridable Property LoginStatusLabel As Label
  1032.  
  1033. ' Token: 0x17000016 RID: 22
  1034. ' (get) Token: 0x0600006B RID: 107 RVA: 0x0000234A File Offset: 0x0000054A
  1035. ' (set) Token: 0x0600006C RID: 108 RVA: 0x00005B30 File Offset: 0x00003D30
  1036. Friend Overridable Property checkerStatusLabel As Label
  1037. <CompilerGenerated()>
  1038. Get
  1039. Return Me._checkerStatusLabel
  1040. End Get
  1041. <CompilerGenerated()>
  1042. <MethodImpl(MethodImplOptions.Synchronized)>
  1043. Set(value As Label)
  1044. Dim value2 As EventHandler = AddressOf Me.checkerStatusLabel_Click
  1045. Dim checkerStatusLabel As Label = Me._checkerStatusLabel
  1046. If checkerStatusLabel IsNot Nothing Then
  1047. RemoveHandler checkerStatusLabel.Click, value2
  1048. End If
  1049. Me._checkerStatusLabel = value
  1050. checkerStatusLabel = Me._checkerStatusLabel
  1051. If checkerStatusLabel IsNot Nothing Then
  1052. AddHandler checkerStatusLabel.Click, value2
  1053. End If
  1054. End Set
  1055. End Property
  1056.  
  1057. ' Token: 0x17000017 RID: 23
  1058. ' (get) Token: 0x0600006D RID: 109 RVA: 0x00002354 File Offset: 0x00000554
  1059. ' (set) Token: 0x0600006E RID: 110 RVA: 0x0000235E File Offset: 0x0000055E
  1060. Friend Overridable Property loginPassword As TextBox
  1061.  
  1062. ' Token: 0x17000018 RID: 24
  1063. ' (get) Token: 0x0600006F RID: 111 RVA: 0x00002367 File Offset: 0x00000567
  1064. ' (set) Token: 0x06000070 RID: 112 RVA: 0x00005B74 File Offset: 0x00003D74
  1065. Friend Overridable Property loginUsername As TextBox
  1066. <CompilerGenerated()>
  1067. Get
  1068. Return Me._loginUsername
  1069. End Get
  1070. <CompilerGenerated()>
  1071. <MethodImpl(MethodImplOptions.Synchronized)>
  1072. Set(value As TextBox)
  1073. Dim value2 As EventHandler = AddressOf Me.loginUsername_TextChanged
  1074. Dim loginUsername As TextBox = Me._loginUsername
  1075. If loginUsername IsNot Nothing Then
  1076. RemoveHandler loginUsername.TextChanged, value2
  1077. End If
  1078. Me._loginUsername = value
  1079. loginUsername = Me._loginUsername
  1080. If loginUsername IsNot Nothing Then
  1081. AddHandler loginUsername.TextChanged, value2
  1082. End If
  1083. End Set
  1084. End Property
  1085.  
  1086. ' Token: 0x17000019 RID: 25
  1087. ' (get) Token: 0x06000071 RID: 113 RVA: 0x00002371 File Offset: 0x00000571
  1088. ' (set) Token: 0x06000072 RID: 114 RVA: 0x0000237B File Offset: 0x0000057B
  1089. Friend Overridable Property checkerAvailable As TextBox
  1090.  
  1091. ' Token: 0x1700001A RID: 26
  1092. ' (get) Token: 0x06000073 RID: 115 RVA: 0x00002384 File Offset: 0x00000584
  1093. ' (set) Token: 0x06000074 RID: 116 RVA: 0x00005BB8 File Offset: 0x00003DB8
  1094. Friend Overridable Property checkerButton As Button
  1095. <CompilerGenerated()>
  1096. Get
  1097. Return Me._checkerButton
  1098. End Get
  1099. <CompilerGenerated()>
  1100. <MethodImpl(MethodImplOptions.Synchronized)>
  1101. Set(value As Button)
  1102. Dim value2 As EventHandler = AddressOf Me.checkerButton_Click
  1103. Dim checkerButton As Button = Me._checkerButton
  1104. If checkerButton IsNot Nothing Then
  1105. RemoveHandler checkerButton.Click, value2
  1106. End If
  1107. Me._checkerButton = value
  1108. checkerButton = Me._checkerButton
  1109. If checkerButton IsNot Nothing Then
  1110. AddHandler checkerButton.Click, value2
  1111. End If
  1112. End Set
  1113. End Property
  1114.  
  1115. ' Token: 0x1700001B RID: 27
  1116. ' (get) Token: 0x06000075 RID: 117 RVA: 0x0000238E File Offset: 0x0000058E
  1117. ' (set) Token: 0x06000076 RID: 118 RVA: 0x00002398 File Offset: 0x00000598
  1118. Friend Overridable Property TurboThreads As TextBox
  1119.  
  1120. ' Token: 0x1700001C RID: 28
  1121. ' (get) Token: 0x06000077 RID: 119 RVA: 0x000023A1 File Offset: 0x000005A1
  1122. ' (set) Token: 0x06000078 RID: 120 RVA: 0x00005BFC File Offset: 0x00003DFC
  1123. Friend Overridable Property Label8 As Label
  1124. <CompilerGenerated()>
  1125. Get
  1126. Return Me._Label8
  1127. End Get
  1128. <CompilerGenerated()>
  1129. <MethodImpl(MethodImplOptions.Synchronized)>
  1130. Set(value As Label)
  1131. Dim value2 As MouseEventHandler = AddressOf Me.Label8_MouseDown
  1132. Dim value3 As MouseEventHandler = AddressOf Me.Label8_MouseMove
  1133. Dim value4 As MouseEventHandler = AddressOf Me.Label8_MouseUp
  1134. Dim label As Label = Me._Label8
  1135. If label IsNot Nothing Then
  1136. RemoveHandler label.MouseDown, value2
  1137. RemoveHandler label.MouseMove, value3
  1138. RemoveHandler label.MouseUp, value4
  1139. End If
  1140. Me._Label8 = value
  1141. label = Me._Label8
  1142. If label IsNot Nothing Then
  1143. AddHandler label.MouseDown, value2
  1144. AddHandler label.MouseMove, value3
  1145. AddHandler label.MouseUp, value4
  1146. End If
  1147. End Set
  1148. End Property
  1149.  
  1150. ' Token: 0x1700001D RID: 29
  1151. ' (get) Token: 0x06000079 RID: 121 RVA: 0x000023AB File Offset: 0x000005AB
  1152. ' (set) Token: 0x0600007A RID: 122 RVA: 0x00005C78 File Offset: 0x00003E78
  1153. Friend Overridable Property Label14 As Label
  1154. <CompilerGenerated()>
  1155. Get
  1156. Return Me._Label14
  1157. End Get
  1158. <CompilerGenerated()>
  1159. <MethodImpl(MethodImplOptions.Synchronized)>
  1160. Set(value As Label)
  1161. Dim value2 As MouseEventHandler = AddressOf Me.Label14_MouseDown
  1162. Dim value3 As MouseEventHandler = AddressOf Me.Label14_MouseMove
  1163. Dim value4 As MouseEventHandler = AddressOf Me.Label14_MouseUp
  1164. Dim value5 As EventHandler = AddressOf Me.Label14_Click
  1165. Dim label As Label = Me._Label14
  1166. If label IsNot Nothing Then
  1167. RemoveHandler label.MouseDown, value2
  1168. RemoveHandler label.MouseMove, value3
  1169. RemoveHandler label.MouseUp, value4
  1170. RemoveHandler label.Click, value5
  1171. End If
  1172. Me._Label14 = value
  1173. label = Me._Label14
  1174. If label IsNot Nothing Then
  1175. AddHandler label.MouseDown, value2
  1176. AddHandler label.MouseMove, value3
  1177. AddHandler label.MouseUp, value4
  1178. AddHandler label.Click, value5
  1179. End If
  1180. End Set
  1181. End Property
  1182.  
  1183. ' Token: 0x1700001E RID: 30
  1184. ' (get) Token: 0x0600007B RID: 123 RVA: 0x000023B5 File Offset: 0x000005B5
  1185. ' (set) Token: 0x0600007C RID: 124 RVA: 0x00005D18 File Offset: 0x00003F18
  1186. Friend Overridable Property Label17 As Label
  1187. <CompilerGenerated()>
  1188. Get
  1189. Return Me._Label17
  1190. End Get
  1191. <CompilerGenerated()>
  1192. <MethodImpl(MethodImplOptions.Synchronized)>
  1193. Set(value As Label)
  1194. Dim value2 As EventHandler = AddressOf Me.Label17_Click
  1195. Dim label As Label = Me._Label17
  1196. If label IsNot Nothing Then
  1197. RemoveHandler label.Click, value2
  1198. End If
  1199. Me._Label17 = value
  1200. label = Me._Label17
  1201. If label IsNot Nothing Then
  1202. AddHandler label.Click, value2
  1203. End If
  1204. End Set
  1205. End Property
  1206.  
  1207. ' Token: 0x1700001F RID: 31
  1208. ' (get) Token: 0x0600007D RID: 125 RVA: 0x000023BF File Offset: 0x000005BF
  1209. ' (set) Token: 0x0600007E RID: 126 RVA: 0x00005D5C File Offset: 0x00003F5C
  1210. Friend Overridable Property Label16 As Label
  1211. <CompilerGenerated()>
  1212. Get
  1213. Return Me._Label16
  1214. End Get
  1215. <CompilerGenerated()>
  1216. <MethodImpl(MethodImplOptions.Synchronized)>
  1217. Set(value As Label)
  1218. Dim value2 As EventHandler = AddressOf Me.Label16_Click
  1219. Dim label As Label = Me._Label16
  1220. If label IsNot Nothing Then
  1221. RemoveHandler label.Click, value2
  1222. End If
  1223. Me._Label16 = value
  1224. label = Me._Label16
  1225. If label IsNot Nothing Then
  1226. AddHandler label.Click, value2
  1227. End If
  1228. End Set
  1229. End Property
  1230.  
  1231. ' Token: 0x17000020 RID: 32
  1232. ' (get) Token: 0x0600007F RID: 127 RVA: 0x000023C9 File Offset: 0x000005C9
  1233. ' (set) Token: 0x06000080 RID: 128 RVA: 0x00005DA0 File Offset: 0x00003FA0
  1234. Friend Overridable Property Label15 As Label
  1235. <CompilerGenerated()>
  1236. Get
  1237. Return Me._Label15
  1238. End Get
  1239. <CompilerGenerated()>
  1240. <MethodImpl(MethodImplOptions.Synchronized)>
  1241. Set(value As Label)
  1242. Dim value2 As MouseEventHandler = AddressOf Me.Label15_MouseDown
  1243. Dim value3 As MouseEventHandler = AddressOf Me.Label15_MouseMove
  1244. Dim value4 As MouseEventHandler = AddressOf Me.Label15_MouseUp
  1245. Dim label As Label = Me._Label15
  1246. If label IsNot Nothing Then
  1247. RemoveHandler label.MouseDown, value2
  1248. RemoveHandler label.MouseMove, value3
  1249. RemoveHandler label.MouseUp, value4
  1250. End If
  1251. Me._Label15 = value
  1252. label = Me._Label15
  1253. If label IsNot Nothing Then
  1254. AddHandler label.MouseDown, value2
  1255. AddHandler label.MouseMove, value3
  1256. AddHandler label.MouseUp, value4
  1257. End If
  1258. End Set
  1259. End Property
  1260.  
  1261. ' Token: 0x17000021 RID: 33
  1262. ' (get) Token: 0x06000081 RID: 129 RVA: 0x000023D3 File Offset: 0x000005D3
  1263. ' (set) Token: 0x06000082 RID: 130 RVA: 0x00005E1C File Offset: 0x0000401C
  1264. Friend Overridable Property TextBox2 As TextBox
  1265. <CompilerGenerated()>
  1266. Get
  1267. Return Me._TextBox2
  1268. End Get
  1269. <CompilerGenerated()>
  1270. <MethodImpl(MethodImplOptions.Synchronized)>
  1271. Set(value As TextBox)
  1272. Dim value2 As EventHandler = AddressOf Me.TextBox2_TextChanged
  1273. Dim textBox As TextBox = Me._TextBox2
  1274. If textBox IsNot Nothing Then
  1275. RemoveHandler textBox.TextChanged, value2
  1276. End If
  1277. Me._TextBox2 = value
  1278. textBox = Me._TextBox2
  1279. If textBox IsNot Nothing Then
  1280. AddHandler textBox.TextChanged, value2
  1281. End If
  1282. End Set
  1283. End Property
  1284.  
  1285. ' Token: 0x17000022 RID: 34
  1286. ' (get) Token: 0x06000083 RID: 131 RVA: 0x000023DD File Offset: 0x000005DD
  1287. ' (set) Token: 0x06000084 RID: 132 RVA: 0x000023E7 File Offset: 0x000005E7
  1288. Friend Overridable Property TextBox3 As TextBox
  1289.  
  1290. ' Token: 0x17000023 RID: 35
  1291. ' (get) Token: 0x06000085 RID: 133 RVA: 0x000023F0 File Offset: 0x000005F0
  1292. ' (set) Token: 0x06000086 RID: 134 RVA: 0x000023FA File Offset: 0x000005FA
  1293. Friend Overridable Property TextBox4 As TextBox
  1294.  
  1295. ' Token: 0x17000024 RID: 36
  1296. ' (get) Token: 0x06000087 RID: 135 RVA: 0x00002403 File Offset: 0x00000603
  1297. ' (set) Token: 0x06000088 RID: 136 RVA: 0x00005E60 File Offset: 0x00004060
  1298. Friend Overridable Property RadioButton1 As RadioButton
  1299. <CompilerGenerated()>
  1300. Get
  1301. Return Me._RadioButton1
  1302. End Get
  1303. <CompilerGenerated()>
  1304. <MethodImpl(MethodImplOptions.Synchronized)>
  1305. Set(value As RadioButton)
  1306. Dim value2 As EventHandler = AddressOf Me.RadioButton1_CheckedChanged
  1307. Dim radioButton As RadioButton = Me._RadioButton1
  1308. If radioButton IsNot Nothing Then
  1309. RemoveHandler radioButton.CheckedChanged, value2
  1310. End If
  1311. Me._RadioButton1 = value
  1312. radioButton = Me._RadioButton1
  1313. If radioButton IsNot Nothing Then
  1314. AddHandler radioButton.CheckedChanged, value2
  1315. End If
  1316. End Set
  1317. End Property
  1318.  
  1319. ' Token: 0x17000025 RID: 37
  1320. ' (get) Token: 0x06000089 RID: 137 RVA: 0x0000240D File Offset: 0x0000060D
  1321. ' (set) Token: 0x0600008A RID: 138 RVA: 0x00002417 File Offset: 0x00000617
  1322. Friend Overridable Property RadioButton2 As RadioButton
  1323.  
  1324. ' Token: 0x17000026 RID: 38
  1325. ' (get) Token: 0x0600008B RID: 139 RVA: 0x00002420 File Offset: 0x00000620
  1326. ' (set) Token: 0x0600008C RID: 140 RVA: 0x0000242A File Offset: 0x0000062A
  1327. Friend Overridable Property PictureBox1 As PictureBox
  1328.  
  1329. ' Token: 0x17000027 RID: 39
  1330. ' (get) Token: 0x0600008D RID: 141 RVA: 0x00002433 File Offset: 0x00000633
  1331. ' (set) Token: 0x0600008E RID: 142 RVA: 0x0000243D File Offset: 0x0000063D
  1332. Friend Overridable Property TextBox5 As TextBox
  1333.  
  1334. ' Token: 0x17000028 RID: 40
  1335. ' (get) Token: 0x0600008F RID: 143 RVA: 0x00002446 File Offset: 0x00000646
  1336. ' (set) Token: 0x06000090 RID: 144 RVA: 0x00005EA4 File Offset: 0x000040A4
  1337. Friend Overridable Property TextBox1 As TextBox
  1338. <CompilerGenerated()>
  1339. Get
  1340. Return Me._TextBox1
  1341. End Get
  1342. <CompilerGenerated()>
  1343. <MethodImpl(MethodImplOptions.Synchronized)>
  1344. Set(value As TextBox)
  1345. Dim value2 As EventHandler = AddressOf Me.TextBox1_TextChanged
  1346. Dim textBox As TextBox = Me._TextBox1
  1347. If textBox IsNot Nothing Then
  1348. RemoveHandler textBox.TextChanged, value2
  1349. End If
  1350. Me._TextBox1 = value
  1351. textBox = Me._TextBox1
  1352. If textBox IsNot Nothing Then
  1353. AddHandler textBox.TextChanged, value2
  1354. End If
  1355. End Set
  1356. End Property
  1357.  
  1358. ' Token: 0x17000029 RID: 41
  1359. ' (get) Token: 0x06000091 RID: 145 RVA: 0x00002450 File Offset: 0x00000650
  1360. ' (set) Token: 0x06000092 RID: 146 RVA: 0x0000245A File Offset: 0x0000065A
  1361. Friend Overridable Property Label1 As Label
  1362.  
  1363. ' Token: 0x1700002A RID: 42
  1364. ' (get) Token: 0x06000093 RID: 147 RVA: 0x00002463 File Offset: 0x00000663
  1365. ' (set) Token: 0x06000094 RID: 148 RVA: 0x0000246D File Offset: 0x0000066D
  1366. Friend Overridable Property Label2 As Label
  1367.  
  1368. ' Token: 0x1700002B RID: 43
  1369. ' (get) Token: 0x06000095 RID: 149 RVA: 0x00002476 File Offset: 0x00000676
  1370. ' (set) Token: 0x06000096 RID: 150 RVA: 0x00002480 File Offset: 0x00000680
  1371. Friend Overridable Property TextBox6 As TextBox
  1372.  
  1373. ' Token: 0x1700002C RID: 44
  1374. ' (get) Token: 0x06000097 RID: 151 RVA: 0x00002489 File Offset: 0x00000689
  1375. ' (set) Token: 0x06000098 RID: 152 RVA: 0x00002493 File Offset: 0x00000693
  1376. Friend Overridable Property TextBox7 As TextBox
  1377.  
  1378. ' Token: 0x04000011 RID: 17
  1379. Private HWID As String
  1380.  
  1381. ' Token: 0x04000012 RID: 18
  1382. Public accSettings As String
  1383.  
  1384. ' Token: 0x04000013 RID: 19
  1385. Public GetSettingsBool As Boolean
  1386.  
  1387. ' Token: 0x04000014 RID: 20
  1388. Public IfLoggedIn As Boolean
  1389.  
  1390. ' Token: 0x04000015 RID: 21
  1391. Private intt As Integer
  1392.  
  1393. ' Token: 0x04000016 RID: 22
  1394. Public IsChanged As Boolean
  1395.  
  1396. ' Token: 0x04000017 RID: 23
  1397. Public list As Object
  1398.  
  1399. ' Token: 0x04000018 RID: 24
  1400. Public lThreads As Object
  1401.  
  1402. ' Token: 0x04000019 RID: 25
  1403. Public mpp As Integer
  1404.  
  1405. ' Token: 0x0400001A RID: 26
  1406. Public numis As String
  1407.  
  1408. ' Token: 0x0400001B RID: 27
  1409. Public numToDone As Integer
  1410.  
  1411. ' Token: 0x0400001C RID: 28
  1412. Public once As Integer
  1413.  
  1414. ' Token: 0x0400001D RID: 29
  1415. Public Sessionz As CookieContainer
  1416.  
  1417. ' Token: 0x0400001E RID: 30
  1418. Public stopp As Boolean
  1419.  
  1420. ' Token: 0x0400001F RID: 31
  1421. Public SwitchLoginBool As Boolean
  1422.  
  1423. ' Token: 0x04000020 RID: 32
  1424. Public Shared TellMe As Boolean = False
  1425.  
  1426. ' Token: 0x04000021 RID: 33
  1427. Private Shared usernum As String()
  1428.  
  1429. ' Token: 0x04000022 RID: 34
  1430. Public uuID As String
  1431.  
  1432. ' Token: 0x04000023 RID: 35
  1433. Public inputt As String
  1434.  
  1435. ' Token: 0x04000024 RID: 36
  1436. Public Lst As ListBox
  1437.  
  1438. ' Token: 0x04000025 RID: 37
  1439. Public llbl As Label
  1440.  
  1441. ' Token: 0x04000026 RID: 38
  1442. Private i As Boolean
  1443.  
  1444. ' Token: 0x04000027 RID: 39
  1445. Private x As Integer
  1446.  
  1447. ' Token: 0x04000028 RID: 40
  1448. Private y As Integer
  1449.  
  1450. ' Token: 0x04000029 RID: 41
  1451. Private components As IContainer
  1452.  
  1453. ' Token: 0x0200000D RID: 13
  1454. ' (Invoke) Token: 0x0600009E RID: 158
  1455. Friend Delegate Sub VBAnonymousDelegate_0()
  1456. End Class
  1457. End Namespace
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!