Guest User

Infested Cleaner Source | HF White Hat Program | SKIDS

a guest
Dec 18th, 2011
560
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 46.42 KB | None | 0 0
  1. Decompiled and Re-Assembled By Exploit
  2. Contact Me If You Want The Full Project
  3. AIM - exploit@about.me
  4. Program Made In VB.NET
  5. HB Exploit
  6. Roll With Us Or Get Rolled Over!
  7. Fuck White Hats
  8.  
  9. ------------------------------------------------
  10.  
  11. Imports Microsoft.Win32
  12. Imports System
  13. Imports System.Collections
  14. Imports System.ComponentModel
  15. Imports System.Diagnostics
  16. Imports System.Drawing
  17. Imports System.IO
  18. Imports System.Management
  19. Imports System.Windows.Forms
  20.  
  21. Namespace White
  22.     Public Class Form1
  23.         Inherits Form
  24.         ' Methods
  25.         Public Sub New()
  26.             Me.InitializeComponent
  27.         End Sub
  28.  
  29.         Public Sub Clean(ByVal process As String, ByVal delete As Boolean)
  30.             process = process.Replace(".exe", "")
  31.             Try
  32.                 Dim process3 As Process
  33.                 For Each process3 In Process.GetProcesses
  34.                     If (process3.ProcessName = process) Then
  35.                         Try
  36.                             Dim process2 As Process = process3
  37.                             process2.Kill
  38.                             If delete Then
  39.                                 File.Delete(process2.Modules.Item(0).FileName)
  40.                             End If
  41.                         Catch obj1 As Object
  42.                         End Try
  43.                     End If
  44.                 Next
  45.             Catch obj2 As Object
  46.             End Try
  47.         End Sub
  48.  
  49.         Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  50.             If (disposing AndAlso (Not Me.components Is Nothing)) Then
  51.                 Me.components.Dispose
  52.             End If
  53.             MyBase.Dispose(disposing)
  54.         End Sub
  55.  
  56.         Private Sub flowButton1_Click(ByVal sender As Object, ByVal e As EventArgs)
  57.             If Me.checkBox1.Checked Then
  58.                 Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System").SetValue("DisableTaskMgr", 0)
  59.             End If
  60.             If Me.checkBox2.Checked Then
  61.                 Dim key2 As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True)
  62.                 key2.SetValue("DisableRegistryTools", 0, RegistryValueKind.DWord)
  63.                 key2.Close
  64.             End If
  65.             If Me.checkBox3.Checked Then
  66.                 Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System").SetValue("EnableLua", 1)
  67.             End If
  68.             If Me.checkBox4.Checked Then
  69.                 Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore").SetValue("DisableConfig", 0)
  70.             End If
  71.             MessageBox.Show("Selected Items Enabled")
  72.         End Sub
  73.  
  74.         Private Sub flowButton10_Click(ByVal sender As Object, ByVal e As EventArgs)
  75.             If (MessageBox.Show("Make sure the file you are deleting is not a system file. (MUST HAVE FULL DIRECTORY)", "Delete", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
  76.                 File.Delete(Me.lblPath.Text)
  77.                 MessageBox.Show("File Deleted! You may now use MSCONFIG to disable the registry key.")
  78.             End If
  79.         End Sub
  80.  
  81.         Private Sub flowButton11_Click(ByVal sender As Object, ByVal e As EventArgs)
  82.             If (MessageBox.Show("Do you want to run Botkill?", "BotKill", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
  83.                 Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
  84.                 Dim i As Integer
  85.                 For i = 0 To key.GetValueNames.Length - 1
  86.                     Try
  87.                         If (key.GetValueNames(i).ToString <> "msnmsgr") Then
  88.                             key.SetValue(key.GetValueNames(i).ToString, "")
  89.                         End If
  90.                     Catch obj1 As Object
  91.                     End Try
  92.                     MessageBox.Show("Bots Killed!")
  93.                 Next i
  94.             End If
  95.         End Sub
  96.  
  97.         Private Sub flowButton12_Click(ByVal sender As Object, ByVal e As EventArgs)
  98.             Process.Start("https://sci.libertyreserve.com/en?lr_acc=U8569673&lr_currency=LRUSD")
  99.         End Sub
  100.  
  101.         Private Sub flowButton13_Click(ByVal sender As Object, ByVal e As EventArgs)
  102.             If (MessageBox.Show("Quarantined file will have -quarantine added to file extension. (MUST HAVE FULL DIRECTORY)", "Quarantine", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
  103.                 File.Move(Me.lblPath.Text, (Me.lblPath.Text & "quarantine"))
  104.                 MessageBox.Show("File Quarantined! You may now use MSCONFIG to disable the registry key.")
  105.             End If
  106.         End Sub
  107.  
  108.         Private Sub flowButton2_Click(ByVal sender As Object, ByVal e As EventArgs)
  109.             File.Move("C:\windows\system32\drivers\etc\hosts", "C:\windows\system32\drivers\etc\hostsINFECTED")
  110.             MessageBox.Show("All Websites Unblocked! All Website Redirections Fixed!")
  111.         End Sub
  112.  
  113.         Private Sub flowButton3_Click(ByVal sender As Object, ByVal e As EventArgs)
  114.             If (Me.comboBox1.SelectedIndex = 0) Then
  115.                 Process.Start("http://www.techspot.com/downloadget.php?id=4716&file=1&evp=1122fe6321e11cac39948ab07d144765")
  116.             End If
  117.             If (Me.comboBox1.SelectedIndex = 1) Then
  118.                 Process.Start("http://www.amtsc.com/OldTimer/OTL.scr")
  119.             End If
  120.             If (Me.comboBox1.SelectedIndex = 2) Then
  121.                 Process.Start("http://www.gmer.net/download.php")
  122.             End If
  123.             If (Me.comboBox1.SelectedIndex = 3) Then
  124.                 Process.Start("http://www.amtsc.com/OldTimer/TFC.exe")
  125.             End If
  126.             If (Me.comboBox1.SelectedIndex = 4) Then
  127.                 Process.Start("http://www.superantispyware.com/downloadfile.html?productid=SUPERANTISPYWAREFREE")
  128.             End If
  129.             If (Me.comboBox1.SelectedIndex = 5) Then
  130.                 Process.Start("http://darkcomet-rat.com/downloads/FixComet.zip")
  131.             End If
  132.             If (Me.comboBox1.SelectedIndex = 6) Then
  133.                 Process.Start("http://www.emptyloop.com/unlocker/")
  134.             End If
  135.         End Sub
  136.  
  137.         Private Sub flowButton4_Click(ByVal sender As Object, ByVal e As EventArgs)
  138.             If (MessageBox.Show("Are you sure you want to kill this process? (Do not kill system processes)", "Process Kill", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
  139.                 Me.Clean(Me.textBox1.Text, False)
  140.                 MessageBox.Show("Process Killed")
  141.             End If
  142.         End Sub
  143.  
  144.         Private Sub flowButton5_Click(ByVal sender As Object, ByVal e As EventArgs)
  145.             Dim process As Process
  146.             For Each process In Process.GetProcesses
  147.                 Dim item As New ListViewItem(process.ProcessName)
  148.                 item.SubItems.Add(process.ProcessName)
  149.                 item.Tag = process
  150.                 Me.listview1.Items.Add(item)
  151.             Next
  152.         End Sub
  153.  
  154.         Private Sub flowButton6_Click(ByVal sender As Object, ByVal e As EventArgs)
  155.             Process.Start("http://www.hackforums.net/showthread.php?tid=686793")
  156.         End Sub
  157.  
  158.         Private Sub flowButton7_Click(ByVal sender As Object, ByVal e As EventArgs)
  159.             Environment.Exit(-1)
  160.         End Sub
  161.  
  162.         Private Sub flowButton8_Click(ByVal sender As Object, ByVal e As EventArgs)
  163.             Dim class2 As New ManagementClass("Win32_StartupCommand")
  164.             Dim obj2 As ManagementObject
  165.             For Each obj2 In class2.GetInstances
  166.                 Dim strArray As String() = New String() { Me.lstServices.Items.Add(obj2.GetPropertyValue("Caption").ToString).ToString, obj2.GetPropertyValue("Name").ToString }
  167.                 Me.arrServices.Add(strArray)
  168.             Next
  169.             MessageBox.Show("Click on a startup item to view its details.")
  170.         End Sub
  171.  
  172.         Private Sub flowButton9_Click(ByVal sender As Object, ByVal e As EventArgs)
  173.             MyBase.WindowState = FormWindowState.Minimized
  174.         End Sub
  175.  
  176.         Private Sub InitializeComponent()
  177.             Dim bloom As New Bloom
  178.             Dim bloom2 As New Bloom
  179.             Dim bloom3 As New Bloom
  180.             Dim bloom4 As New Bloom
  181.             Dim bloom5 As New Bloom
  182.             Dim bloom6 As New Bloom
  183.             Dim bloom7 As New Bloom
  184.             Dim bloom8 As New Bloom
  185.             Dim bloom9 As New Bloom
  186.             Dim bloom10 As New Bloom
  187.             Dim bloom11 As New Bloom
  188.             Dim bloom12 As New Bloom
  189.             Dim bloom13 As New Bloom
  190.             Dim group As New ListViewGroup("ListViewGroup", HorizontalAlignment.Left)
  191.             Dim bloom14 As New Bloom
  192.             Dim bloom15 As New Bloom
  193.             Dim bloom16 As New Bloom
  194.             Dim bloom17 As New Bloom
  195.             Dim bloom18 As New Bloom
  196.             Dim bloom19 As New Bloom
  197.             Dim bloom20 As New Bloom
  198.             Dim bloom21 As New Bloom
  199.             Dim bloom22 As New Bloom
  200.             Dim bloom23 As New Bloom
  201.             Dim bloom24 As New Bloom
  202.             Dim bloom25 As New Bloom
  203.             Dim bloom26 As New Bloom
  204.             Dim bloom27 As New Bloom
  205.             Dim bloom28 As New Bloom
  206.             Dim bloom29 As New Bloom
  207.             Dim bloom30 As New Bloom
  208.             Dim bloom31 As New Bloom
  209.             Dim bloom32 As New Bloom
  210.             Dim bloom33 As New Bloom
  211.             Dim bloom34 As New Bloom
  212.             Dim bloom35 As New Bloom
  213.             Dim bloom36 As New Bloom
  214.             Dim bloom37 As New Bloom
  215.             Dim bloom38 As New Bloom
  216.             Dim bloom39 As New Bloom
  217.             Dim bloom40 As New Bloom
  218.             Dim bloom41 As New Bloom
  219.             Dim bloom42 As New Bloom
  220.             Dim bloom43 As New Bloom
  221.             Dim bloom44 As New Bloom
  222.             Dim bloom45 As New Bloom
  223.             Dim bloom46 As New Bloom
  224.             Dim bloom47 As New Bloom
  225.             Dim bloom48 As New Bloom
  226.             Dim bloom49 As New Bloom
  227.             Dim bloom50 As New Bloom
  228.             Dim bloom51 As New Bloom
  229.             Dim bloom52 As New Bloom
  230.             Dim bloom53 As New Bloom
  231.             Dim bloom54 As New Bloom
  232.             Dim bloom55 As New Bloom
  233.             Dim bloom56 As New Bloom
  234.             Dim bloom57 As New Bloom
  235.             Dim bloom58 As New Bloom
  236.             Dim bloom59 As New Bloom
  237.             Dim bloom60 As New Bloom
  238.             Dim bloom61 As New Bloom
  239.             Dim bloom62 As New Bloom
  240.             Dim bloom63 As New Bloom
  241.             Dim bloom64 As New Bloom
  242.             Dim bloom65 As New Bloom
  243.             Dim bloom66 As New Bloom
  244.             Dim bloom67 As New Bloom
  245.             Dim bloom68 As New Bloom
  246.             Dim bloom69 As New Bloom
  247.             Dim bloom70 As New Bloom
  248.             Dim bloom71 As New Bloom
  249.             Dim bloom72 As New Bloom
  250.             Dim bloom73 As New Bloom
  251.             Dim bloom74 As New Bloom
  252.             Dim bloom75 As New Bloom
  253.             Dim bloom76 As New Bloom
  254.             Dim bloom77 As New Bloom
  255.             Dim bloom78 As New Bloom
  256.             Dim bloom79 As New Bloom
  257.             Dim bloom80 As New Bloom
  258.             Dim bloom81 As New Bloom
  259.             Dim bloom82 As New Bloom
  260.             Dim bloom83 As New Bloom
  261.             Dim bloom84 As New Bloom
  262.             Dim bloom85 As New Bloom
  263.             Dim bloom86 As New Bloom
  264.             Dim bloom87 As New Bloom
  265.             Dim bloom88 As New Bloom
  266.             Dim bloom89 As New Bloom
  267.             Dim bloom90 As New Bloom
  268.             Dim bloom91 As New Bloom
  269.             Dim bloom92 As New Bloom
  270.             Dim bloom93 As New Bloom
  271.             Dim bloom94 As New Bloom
  272.             Dim bloom95 As New Bloom
  273.             Dim bloom96 As New Bloom
  274.             Dim bloom97 As New Bloom
  275.             Dim bloom98 As New Bloom
  276.             Dim bloom99 As New Bloom
  277.             Dim bloom100 As New Bloom
  278.             Dim bloom101 As New Bloom
  279.             Dim bloom102 As New Bloom
  280.             Dim bloom103 As New Bloom
  281.             Dim bloom104 As New Bloom
  282.             Dim bloom105 As New Bloom
  283.             Dim bloom106 As New Bloom
  284.             Dim bloom107 As New Bloom
  285.             Dim bloom108 As New Bloom
  286.             Dim bloom109 As New Bloom
  287.             Dim bloom110 As New Bloom
  288.             Dim bloom111 As New Bloom
  289.             Dim bloom112 As New Bloom
  290.             Dim bloom113 As New Bloom
  291.             Dim bloom114 As New Bloom
  292.             Dim bloom115 As New Bloom
  293.             Dim bloom116 As New Bloom
  294.             Dim bloom117 As New Bloom
  295.             Dim manager As New ComponentResourceManager(GetType(Form1))
  296.             Me.flowTheme1 = New FlowTheme
  297.             Me.listview1 = New ListView
  298.             Me.columnHeader1 = New ColumnHeader
  299.             Me.flowButton13 = New FlowButton
  300.             Me.flowButton10 = New FlowButton
  301.             Me.flowButton9 = New FlowButton
  302.             Me.flowButton12 = New FlowButton
  303.             Me.flowButton11 = New FlowButton
  304.             Me.lblDesc = New TextBox
  305.             Me.lblPath = New TextBox
  306.             Me.lstServices = New ListBox
  307.             Me.flowButton8 = New FlowButton
  308.             Me.flowButton7 = New FlowButton
  309.             Me.groupBox1 = New GroupBox
  310.             Me.checkBox4 = New CheckBox
  311.             Me.checkBox3 = New CheckBox
  312.             Me.checkBox2 = New CheckBox
  313.             Me.checkBox1 = New CheckBox
  314.             Me.flowButton2 = New FlowButton
  315.             Me.flowButton3 = New FlowButton
  316.             Me.flowButton5 = New FlowButton
  317.             Me.flowButton6 = New FlowButton
  318.             Me.comboBox1 = New ComboBox
  319.             Me.textBox1 = New TextBox
  320.             Me.flowButton4 = New FlowButton
  321.             Me.flowButton1 = New FlowButton
  322.             Me.flowTheme1.SuspendLayout
  323.             Me.groupBox1.SuspendLayout
  324.             MyBase.SuspendLayout
  325.             Me.flowTheme1.BackColor = Color.FromArgb(&H23, &H23, &H23)
  326.             Me.flowTheme1.BorderStyle = FormBorderStyle.None
  327.             bloom.Name = "Sides"
  328.             bloom.Value = Color.FromArgb(40, 40, 40)
  329.             bloom2.Name = "Gradient"
  330.             bloom2.Value = Color.FromArgb(&H12, &H12, &H12)
  331.             bloom3.Name = "Text"
  332.             bloom3.Value = Color.FromArgb(0, &H84, &HFF)
  333.             bloom4.Name = "Border1"
  334.             bloom4.Value = Color.FromArgb(40, 40, 40)
  335.             bloom5.Name = "Border2"
  336.             bloom5.Value = Color.FromArgb(&H16, &H16, &H16)
  337.             bloom6.Name = "Border3"
  338.             bloom6.Value = Color.FromArgb(&H41, &H41, &H41)
  339.             bloom7.Name = "Border4"
  340.             bloom7.Value = Color.Black
  341.             bloom8.Name = "Hatch1"
  342.             bloom8.Value = Color.FromArgb(&H27, &H27, &H27)
  343.             bloom9.Name = "Hatch2"
  344.             bloom9.Value = Color.FromArgb(&H23, &H23, &H23)
  345.             bloom10.Name = "Hatch3"
  346.             bloom10.Value = Color.FromArgb(&H1D, &H1D, &H1D)
  347.             bloom11.Name = "Hatch4"
  348.             bloom11.Value = Color.FromArgb(&H1A, &H1A, &H1A)
  349.             bloom12.Name = "Shade1"
  350.             bloom12.Value = Color.FromArgb(50, 7, 7, 7)
  351.             bloom13.Name = "Shade2"
  352.             bloom13.Value = Color.Transparent
  353.             Me.flowTheme1.Colors = New Bloom() { bloom, bloom2, bloom3, bloom4, bloom5, bloom6, bloom7, bloom8, bloom9, bloom10, bloom11, bloom12, bloom13 }
  354.             Me.flowTheme1.Controls.Add(Me.listview1)
  355.             Me.flowTheme1.Controls.Add(Me.flowButton13)
  356.             Me.flowTheme1.Controls.Add(Me.flowButton10)
  357.             Me.flowTheme1.Controls.Add(Me.flowButton9)
  358.             Me.flowTheme1.Controls.Add(Me.flowButton12)
  359.             Me.flowTheme1.Controls.Add(Me.flowButton11)
  360.             Me.flowTheme1.Controls.Add(Me.lblDesc)
  361.             Me.flowTheme1.Controls.Add(Me.lblPath)
  362.             Me.flowTheme1.Controls.Add(Me.lstServices)
  363.             Me.flowTheme1.Controls.Add(Me.flowButton8)
  364.             Me.flowTheme1.Controls.Add(Me.flowButton7)
  365.             Me.flowTheme1.Controls.Add(Me.groupBox1)
  366.             Me.flowTheme1.Controls.Add(Me.flowButton2)
  367.             Me.flowTheme1.Controls.Add(Me.flowButton3)
  368.             Me.flowTheme1.Controls.Add(Me.flowButton5)
  369.             Me.flowTheme1.Controls.Add(Me.flowButton6)
  370.             Me.flowTheme1.Controls.Add(Me.comboBox1)
  371.             Me.flowTheme1.Controls.Add(Me.textBox1)
  372.             Me.flowTheme1.Controls.Add(Me.flowButton4)
  373.             Me.flowTheme1.Controls.Add(Me.flowButton1)
  374.             Me.flowTheme1.Customization = "KCgo/xISEv//hAD/KCgo/xYWFv9BQUH/AAAA/ycnJ/8jIyP/HR0d/xoaGv8HBwcy////AA=="
  375.             Me.flowTheme1.Dock = DockStyle.Fill
  376.             Me.flowTheme1.Font = New Font("Arial", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  377.             Me.flowTheme1.Image = Nothing
  378.             Me.flowTheme1.Location = New Point(0, 0)
  379.             Me.flowTheme1.Movable = True
  380.             Me.flowTheme1.Name = "flowTheme1"
  381.             Me.flowTheme1.NoRounding = False
  382.             Me.flowTheme1.Sizable = False
  383.             Me.flowTheme1.Size = New Size(&H202, &H120)
  384.             Me.flowTheme1.SmartBounds = True
  385.             Me.flowTheme1.TabIndex = 15
  386.             Me.flowTheme1.Text = "Infested Cleaner"
  387.             Me.flowTheme1.TransparencyKey = Color.Fuchsia
  388.             Me.listview1.BackColor = Color.FromArgb(&H23, &H23, &H23)
  389.             Me.listview1.BorderStyle = BorderStyle.FixedSingle
  390.             Me.listview1.Columns.AddRange(New ColumnHeader() { Me.columnHeader1 })
  391.             Me.listview1.ForeColor = SystemColors.MenuHighlight
  392.             group.Header = "ListViewGroup"
  393.             group.Name = "listViewGroup1"
  394.             Me.listview1.Groups.AddRange(New ListViewGroup() { group })
  395.             Me.listview1.Location = New Point(11, &HC5)
  396.             Me.listview1.Name = "listview1"
  397.             Me.listview1.Size = New Size(&HE9, 50)
  398.             Me.listview1.TabIndex = &H1C
  399.             Me.listview1.UseCompatibleStateImageBehavior = False
  400.             Me.listview1.View = View.List
  401.             bloom14.Name = "DownGradient1"
  402.             bloom14.Value = Color.FromArgb(&H18, &H18, &H18)
  403.             bloom15.Name = "DownGradient2"
  404.             bloom15.Value = Color.FromArgb(&H26, &H26, &H26)
  405.             bloom16.Name = "NoneGradient1"
  406.             bloom16.Value = Color.FromArgb(&H26, &H26, &H26)
  407.             bloom17.Name = "NoneGradient2"
  408.             bloom17.Value = Color.FromArgb(&H18, &H18, &H18)
  409.             bloom18.Name = "Text"
  410.             bloom18.Value = Color.FromArgb(0, &H84, &HFF)
  411.             bloom19.Name = "Border1"
  412.             bloom19.Value = Color.FromArgb(&H16, &H16, &H16)
  413.             bloom20.Name = "Border2A"
  414.             bloom20.Value = Color.FromArgb(60, 60, 60)
  415.             bloom21.Name = "Border2B"
  416.             bloom21.Value = Color.FromArgb(&H24, &H24, &H24)
  417.             Me.flowButton13.Colors = New Bloom() { bloom14, bloom15, bloom16, bloom17, bloom18, bloom19, bloom20, bloom21 }
  418.             Me.flowButton13.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  419.             Me.flowButton13.Font = New Font("Verdana", 8!)
  420.             Me.flowButton13.Image = Nothing
  421.             Me.flowButton13.Location = New Point(&H15F, &HA6)
  422.             Me.flowButton13.Name = "flowButton13"
  423.             Me.flowButton13.NoRounding = False
  424.             Me.flowButton13.Size = New Size(&H4B, &H11)
  425.             Me.flowButton13.TabIndex = &H1B
  426.             Me.flowButton13.Text = "Quarantine"
  427.             Me.flowButton13.Transparent = False
  428.             AddHandler Me.flowButton13.Click, New EventHandler(AddressOf Me.flowButton13_Click)
  429.             bloom22.Name = "DownGradient1"
  430.             bloom22.Value = Color.FromArgb(&H18, &H18, &H18)
  431.             bloom23.Name = "DownGradient2"
  432.             bloom23.Value = Color.FromArgb(&H26, &H26, &H26)
  433.             bloom24.Name = "NoneGradient1"
  434.             bloom24.Value = Color.FromArgb(&H26, &H26, &H26)
  435.             bloom25.Name = "NoneGradient2"
  436.             bloom25.Value = Color.FromArgb(&H18, &H18, &H18)
  437.             bloom26.Name = "Text"
  438.             bloom26.Value = Color.FromArgb(0, &H84, &HFF)
  439.             bloom27.Name = "Border1"
  440.             bloom27.Value = Color.FromArgb(&H16, &H16, &H16)
  441.             bloom28.Name = "Border2A"
  442.             bloom28.Value = Color.FromArgb(60, 60, 60)
  443.             bloom29.Name = "Border2B"
  444.             bloom29.Value = Color.FromArgb(&H24, &H24, &H24)
  445.             Me.flowButton10.Colors = New Bloom() { bloom22, bloom23, bloom24, bloom25, bloom26, bloom27, bloom28, bloom29 }
  446.             Me.flowButton10.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  447.             Me.flowButton10.Font = New Font("Verdana", 8!)
  448.             Me.flowButton10.Image = Nothing
  449.             Me.flowButton10.Location = New Point(&H1B1, &HA6)
  450.             Me.flowButton10.Name = "flowButton10"
  451.             Me.flowButton10.NoRounding = False
  452.             Me.flowButton10.Size = New Size(&H44, &H11)
  453.             Me.flowButton10.TabIndex = &H1A
  454.             Me.flowButton10.Text = "Delete"
  455.             Me.flowButton10.Transparent = False
  456.             AddHandler Me.flowButton10.Click, New EventHandler(AddressOf Me.flowButton10_Click)
  457.             bloom30.Name = "DownGradient1"
  458.             bloom30.Value = Color.FromArgb(&H18, &H18, &H18)
  459.             bloom31.Name = "DownGradient2"
  460.             bloom31.Value = Color.FromArgb(&H26, &H26, &H26)
  461.             bloom32.Name = "NoneGradient1"
  462.             bloom32.Value = Color.FromArgb(&H26, &H26, &H26)
  463.             bloom33.Name = "NoneGradient2"
  464.             bloom33.Value = Color.FromArgb(&H18, &H18, &H18)
  465.             bloom34.Name = "Text"
  466.             bloom34.Value = Color.FromArgb(0, &H84, &HFF)
  467.             bloom35.Name = "Border1"
  468.             bloom35.Value = Color.FromArgb(&H16, &H16, &H16)
  469.             bloom36.Name = "Border2A"
  470.             bloom36.Value = Color.FromArgb(60, 60, 60)
  471.             bloom37.Name = "Border2B"
  472.             bloom37.Value = Color.FromArgb(&H24, &H24, &H24)
  473.             Me.flowButton9.Colors = New Bloom() { bloom30, bloom31, bloom32, bloom33, bloom34, bloom35, bloom36, bloom37 }
  474.             Me.flowButton9.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  475.             Me.flowButton9.Font = New Font("Verdana", 8!)
  476.             Me.flowButton9.Image = Nothing
  477.             Me.flowButton9.Location = New Point(&H1D4, 3)
  478.             Me.flowButton9.Margin = New Padding(0)
  479.             Me.flowButton9.Name = "flowButton9"
  480.             Me.flowButton9.NoRounding = False
  481.             Me.flowButton9.Size = New Size(&H15, &H13)
  482.             Me.flowButton9.TabIndex = &H19
  483.             Me.flowButton9.Text = "-"
  484.             Me.flowButton9.Transparent = False
  485.             AddHandler Me.flowButton9.Click, New EventHandler(AddressOf Me.flowButton9_Click)
  486.             bloom38.Name = "DownGradient1"
  487.             bloom38.Value = Color.FromArgb(&H18, &H18, &H18)
  488.             bloom39.Name = "DownGradient2"
  489.             bloom39.Value = Color.FromArgb(&H26, &H26, &H26)
  490.             bloom40.Name = "NoneGradient1"
  491.             bloom40.Value = Color.FromArgb(&H26, &H26, &H26)
  492.             bloom41.Name = "NoneGradient2"
  493.             bloom41.Value = Color.FromArgb(&H18, &H18, &H18)
  494.             bloom42.Name = "Text"
  495.             bloom42.Value = Color.FromArgb(0, &H84, &HFF)
  496.             bloom43.Name = "Border1"
  497.             bloom43.Value = Color.FromArgb(&H16, &H16, &H16)
  498.             bloom44.Name = "Border2A"
  499.             bloom44.Value = Color.FromArgb(60, 60, 60)
  500.             bloom45.Name = "Border2B"
  501.             bloom45.Value = Color.FromArgb(&H24, &H24, &H24)
  502.             Me.flowButton12.Colors = New Bloom() { bloom38, bloom39, bloom40, bloom41, bloom42, bloom43, bloom44, bloom45 }
  503.             Me.flowButton12.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  504.             Me.flowButton12.Font = New Font("Verdana", 8!)
  505.             Me.flowButton12.Image = Nothing
  506.             Me.flowButton12.Location = New Point(&H19D, 3)
  507.             Me.flowButton12.Margin = New Padding(0)
  508.             Me.flowButton12.Name = "flowButton12"
  509.             Me.flowButton12.NoRounding = False
  510.             Me.flowButton12.Size = New Size(&H37, &H13)
  511.             Me.flowButton12.TabIndex = &H18
  512.             Me.flowButton12.Text = "Support"
  513.             Me.flowButton12.Transparent = False
  514.             AddHandler Me.flowButton12.Click, New EventHandler(AddressOf Me.flowButton12_Click)
  515.             bloom46.Name = "DownGradient1"
  516.             bloom46.Value = Color.FromArgb(&H18, &H18, &H18)
  517.             bloom47.Name = "DownGradient2"
  518.             bloom47.Value = Color.FromArgb(&H26, &H26, &H26)
  519.             bloom48.Name = "NoneGradient1"
  520.             bloom48.Value = Color.FromArgb(&H26, &H26, &H26)
  521.             bloom49.Name = "NoneGradient2"
  522.             bloom49.Value = Color.FromArgb(&H18, &H18, &H18)
  523.             bloom50.Name = "Text"
  524.             bloom50.Value = Color.FromArgb(0, &H84, &HFF)
  525.             bloom51.Name = "Border1"
  526.             bloom51.Value = Color.FromArgb(&H16, &H16, &H16)
  527.             bloom52.Name = "Border2A"
  528.             bloom52.Value = Color.FromArgb(60, 60, 60)
  529.             bloom53.Name = "Border2B"
  530.             bloom53.Value = Color.FromArgb(&H24, &H24, &H24)
  531.             Me.flowButton11.Colors = New Bloom() { bloom46, bloom47, bloom48, bloom49, bloom50, bloom51, bloom52, bloom53 }
  532.             Me.flowButton11.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  533.             Me.flowButton11.Font = New Font("Verdana", 8!)
  534.             Me.flowButton11.Image = Nothing
  535.             Me.flowButton11.Location = New Point(&HFD, &HC5)
  536.             Me.flowButton11.Name = "flowButton11"
  537.             Me.flowButton11.NoRounding = False
  538.             Me.flowButton11.Size = New Size(&HF8, &H16)
  539.             Me.flowButton11.TabIndex = &H17
  540.             Me.flowButton11.Text = "BotKill"
  541.             Me.flowButton11.Transparent = False
  542.             AddHandler Me.flowButton11.Click, New EventHandler(AddressOf Me.flowButton11_Click)
  543.             Me.lblDesc.BackColor = Color.FromArgb(&H23, &H23, &H23)
  544.             Me.lblDesc.BorderStyle = BorderStyle.FixedSingle
  545.             Me.lblDesc.ForeColor = SystemColors.MenuHighlight
  546.             Me.lblDesc.Location = New Point(&H184, &H87)
  547.             Me.lblDesc.Name = "lblDesc"
  548.             Me.lblDesc.Size = New Size(&H71, 20)
  549.             Me.lblDesc.TabIndex = 20
  550.             Me.lblDesc.Text = "Startup Key"
  551.             Me.lblPath.BackColor = Color.FromArgb(&H23, &H23, &H23)
  552.             Me.lblPath.BorderStyle = BorderStyle.FixedSingle
  553.             Me.lblPath.ForeColor = SystemColors.MenuHighlight
  554.             Me.lblPath.Location = New Point(&HFD, &H87)
  555.             Me.lblPath.Name = "lblPath"
  556.             Me.lblPath.Size = New Size(&H81, 20)
  557.             Me.lblPath.TabIndex = &H13
  558.             Me.lblPath.Text = "Directory"
  559.             Me.lstServices.BackColor = Color.FromArgb(&H23, &H23, &H23)
  560.             Me.lstServices.BorderStyle = BorderStyle.FixedSingle
  561.             Me.lstServices.ForeColor = SystemColors.MenuHighlight
  562.             Me.lstServices.FormattingEnabled = True
  563.             Me.lstServices.ItemHeight = 14
  564.             Me.lstServices.Location = New Point(&HFD, &H22)
  565.             Me.lstServices.Name = "lstServices"
  566.             Me.lstServices.Size = New Size(&HF8, &H56)
  567.             Me.lstServices.TabIndex = &H12
  568.             AddHandler Me.lstServices.SelectedIndexChanged, New EventHandler(AddressOf Me.lstServices_SelectedIndexChanged)
  569.             bloom54.Name = "DownGradient1"
  570.             bloom54.Value = Color.FromArgb(&H18, &H18, &H18)
  571.             bloom55.Name = "DownGradient2"
  572.             bloom55.Value = Color.FromArgb(&H26, &H26, &H26)
  573.             bloom56.Name = "NoneGradient1"
  574.             bloom56.Value = Color.FromArgb(&H26, &H26, &H26)
  575.             bloom57.Name = "NoneGradient2"
  576.             bloom57.Value = Color.FromArgb(&H18, &H18, &H18)
  577.             bloom58.Name = "Text"
  578.             bloom58.Value = Color.FromArgb(0, &H84, &HFF)
  579.             bloom59.Name = "Border1"
  580.             bloom59.Value = Color.FromArgb(&H16, &H16, &H16)
  581.             bloom60.Name = "Border2A"
  582.             bloom60.Value = Color.FromArgb(60, 60, 60)
  583.             bloom61.Name = "Border2B"
  584.             bloom61.Value = Color.FromArgb(&H24, &H24, &H24)
  585.             Me.flowButton8.Colors = New Bloom() { bloom54, bloom55, bloom56, bloom57, bloom58, bloom59, bloom60, bloom61 }
  586.             Me.flowButton8.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  587.             Me.flowButton8.Font = New Font("Verdana", 8!)
  588.             Me.flowButton8.Image = Nothing
  589.             Me.flowButton8.Location = New Point(&HFD, &HA6)
  590.             Me.flowButton8.Name = "flowButton8"
  591.             Me.flowButton8.NoRounding = False
  592.             Me.flowButton8.Size = New Size(&H5C, &H11)
  593.             Me.flowButton8.TabIndex = &H11
  594.             Me.flowButton8.Text = "Load Startup"
  595.             Me.flowButton8.Transparent = False
  596.             AddHandler Me.flowButton8.Click, New EventHandler(AddressOf Me.flowButton8_Click)
  597.             bloom62.Name = "DownGradient1"
  598.             bloom62.Value = Color.FromArgb(&H18, &H18, &H18)
  599.             bloom63.Name = "DownGradient2"
  600.             bloom63.Value = Color.FromArgb(&H26, &H26, &H26)
  601.             bloom64.Name = "NoneGradient1"
  602.             bloom64.Value = Color.FromArgb(&H26, &H26, &H26)
  603.             bloom65.Name = "NoneGradient2"
  604.             bloom65.Value = Color.FromArgb(&H18, &H18, &H18)
  605.             bloom66.Name = "Text"
  606.             bloom66.Value = Color.FromArgb(0, &H84, &HFF)
  607.             bloom67.Name = "Border1"
  608.             bloom67.Value = Color.FromArgb(&H16, &H16, &H16)
  609.             bloom68.Name = "Border2A"
  610.             bloom68.Value = Color.FromArgb(60, 60, 60)
  611.             bloom69.Name = "Border2B"
  612.             bloom69.Value = Color.FromArgb(&H24, &H24, &H24)
  613.             Me.flowButton7.Colors = New Bloom() { bloom62, bloom63, bloom64, bloom65, bloom66, bloom67, bloom68, bloom69 }
  614.             Me.flowButton7.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  615.             Me.flowButton7.Font = New Font("Verdana", 8!)
  616.             Me.flowButton7.Image = Nothing
  617.             Me.flowButton7.Location = New Point(&H1E9, 3)
  618.             Me.flowButton7.Margin = New Padding(0)
  619.             Me.flowButton7.Name = "flowButton7"
  620.             Me.flowButton7.NoRounding = False
  621.             Me.flowButton7.Size = New Size(&H15, &H13)
  622.             Me.flowButton7.TabIndex = 15
  623.             Me.flowButton7.Text = "X"
  624.             Me.flowButton7.Transparent = False
  625.             AddHandler Me.flowButton7.Click, New EventHandler(AddressOf Me.flowButton7_Click)
  626.             Me.groupBox1.Controls.Add(Me.checkBox4)
  627.             Me.groupBox1.Controls.Add(Me.checkBox3)
  628.             Me.groupBox1.Controls.Add(Me.checkBox2)
  629.             Me.groupBox1.Controls.Add(Me.checkBox1)
  630.             Me.groupBox1.ForeColor = SystemColors.MenuHighlight
  631.             Me.groupBox1.Location = New Point(&H1B, &H2A)
  632.             Me.groupBox1.Margin = New Padding(2, 3, 2, 3)
  633.             Me.groupBox1.Name = "groupBox1"
  634.             Me.groupBox1.Padding = New Padding(2, 3, 2, 3)
  635.             Me.groupBox1.Size = New Size(&H7C, &H76)
  636.             Me.groupBox1.TabIndex = 0
  637.             Me.groupBox1.TabStop = False
  638.             Me.groupBox1.Text = "Registry"
  639.             Me.checkBox4.AutoSize = True
  640.             Me.checkBox4.Location = New Point(6, &H5D)
  641.             Me.checkBox4.Name = "checkBox4"
  642.             Me.checkBox4.Size = New Size(&H67, &H12)
  643.             Me.checkBox4.TabIndex = 4
  644.             Me.checkBox4.Text = "System Restore"
  645.             Me.checkBox4.UseVisualStyleBackColor = True
  646.             Me.checkBox3.AutoSize = True
  647.             Me.checkBox3.Location = New Point(6, 70)
  648.             Me.checkBox3.Margin = New Padding(2, 3, 2, 3)
  649.             Me.checkBox3.Name = "checkBox3"
  650.             Me.checkBox3.Size = New Size(&H30, &H12)
  651.             Me.checkBox3.TabIndex = 3
  652.             Me.checkBox3.Text = "UAC"
  653.             Me.checkBox3.UseVisualStyleBackColor = True
  654.             Me.checkBox2.AutoSize = True
  655.             Me.checkBox2.Location = New Point(6, &H2D)
  656.             Me.checkBox2.Margin = New Padding(2, 3, 2, 3)
  657.             Me.checkBox2.Name = "checkBox2"
  658.             Me.checkBox2.Size = New Size(&H3E, &H12)
  659.             Me.checkBox2.TabIndex = 2
  660.             Me.checkBox2.Text = "RegEdit"
  661.             Me.checkBox2.UseVisualStyleBackColor = True
  662.             Me.checkBox1.AutoSize = True
  663.             Me.checkBox1.ForeColor = SystemColors.MenuHighlight
  664.             Me.checkBox1.Location = New Point(6, &H15)
  665.             Me.checkBox1.Margin = New Padding(2, 3, 2, 3)
  666.             Me.checkBox1.Name = "checkBox1"
  667.             Me.checkBox1.Size = New Size(&H5D, &H12)
  668.             Me.checkBox1.TabIndex = 1
  669.             Me.checkBox1.Text = "Task Manager"
  670.             Me.checkBox1.UseVisualStyleBackColor = True
  671.             bloom70.Name = "DownGradient1"
  672.             bloom70.Value = Color.FromArgb(&H18, &H18, &H18)
  673.             bloom71.Name = "DownGradient2"
  674.             bloom71.Value = Color.FromArgb(&H26, &H26, &H26)
  675.             bloom72.Name = "NoneGradient1"
  676.             bloom72.Value = Color.FromArgb(&H26, &H26, &H26)
  677.             bloom73.Name = "NoneGradient2"
  678.             bloom73.Value = Color.FromArgb(&H18, &H18, &H18)
  679.             bloom74.Name = "Text"
  680.             bloom74.Value = Color.FromArgb(0, &H84, &HFF)
  681.             bloom75.Name = "Border1"
  682.             bloom75.Value = Color.FromArgb(&H16, &H16, &H16)
  683.             bloom76.Name = "Border2A"
  684.             bloom76.Value = Color.FromArgb(60, 60, 60)
  685.             bloom77.Name = "Border2B"
  686.             bloom77.Value = Color.FromArgb(&H24, &H24, &H24)
  687.             Me.flowButton2.Colors = New Bloom() { bloom70, bloom71, bloom72, bloom73, bloom74, bloom75, bloom76, bloom77 }
  688.             Me.flowButton2.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  689.             Me.flowButton2.Font = New Font("Verdana", 8!)
  690.             Me.flowButton2.Image = Nothing
  691.             Me.flowButton2.Location = New Point(11, &HA6)
  692.             Me.flowButton2.Margin = New Padding(2, 3, 2, 3)
  693.             Me.flowButton2.Name = "flowButton2"
  694.             Me.flowButton2.NoRounding = False
  695.             Me.flowButton2.Size = New Size(&HE9, &H19)
  696.             Me.flowButton2.TabIndex = 10
  697.             Me.flowButton2.Text = "Unblock Websites"
  698.             Me.flowButton2.Transparent = False
  699.             AddHandler Me.flowButton2.Click, New EventHandler(AddressOf Me.flowButton2_Click)
  700.             bloom78.Name = "DownGradient1"
  701.             bloom78.Value = Color.FromArgb(&H18, &H18, &H18)
  702.             bloom79.Name = "DownGradient2"
  703.             bloom79.Value = Color.FromArgb(&H26, &H26, &H26)
  704.             bloom80.Name = "NoneGradient1"
  705.             bloom80.Value = Color.FromArgb(&H26, &H26, &H26)
  706.             bloom81.Name = "NoneGradient2"
  707.             bloom81.Value = Color.FromArgb(&H18, &H18, &H18)
  708.             bloom82.Name = "Text"
  709.             bloom82.Value = Color.FromArgb(0, &H84, &HFF)
  710.             bloom83.Name = "Border1"
  711.             bloom83.Value = Color.FromArgb(&H16, &H16, &H16)
  712.             bloom84.Name = "Border2A"
  713.             bloom84.Value = Color.FromArgb(60, 60, 60)
  714.             bloom85.Name = "Border2B"
  715.             bloom85.Value = Color.FromArgb(&H24, &H24, &H24)
  716.             Me.flowButton3.Colors = New Bloom() { bloom78, bloom79, bloom80, bloom81, bloom82, bloom83, bloom84, bloom85 }
  717.             Me.flowButton3.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  718.             Me.flowButton3.Font = New Font("Verdana", 8!)
  719.             Me.flowButton3.Image = Nothing
  720.             Me.flowButton3.Location = New Point(&H199, &HE1)
  721.             Me.flowButton3.Margin = New Padding(2, 3, 2, 3)
  722.             Me.flowButton3.Name = "flowButton3"
  723.             Me.flowButton3.NoRounding = False
  724.             Me.flowButton3.Size = New Size(&H5C, &H16)
  725.             Me.flowButton3.TabIndex = 11
  726.             Me.flowButton3.Text = "Download"
  727.             Me.flowButton3.Transparent = False
  728.             AddHandler Me.flowButton3.Click, New EventHandler(AddressOf Me.flowButton3_Click)
  729.             bloom86.Name = "DownGradient1"
  730.             bloom86.Value = Color.FromArgb(&H18, &H18, &H18)
  731.             bloom87.Name = "DownGradient2"
  732.             bloom87.Value = Color.FromArgb(&H26, &H26, &H26)
  733.             bloom88.Name = "NoneGradient1"
  734.             bloom88.Value = Color.FromArgb(&H26, &H26, &H26)
  735.             bloom89.Name = "NoneGradient2"
  736.             bloom89.Value = Color.FromArgb(&H18, &H18, &H18)
  737.             bloom90.Name = "Text"
  738.             bloom90.Value = Color.FromArgb(0, &H84, &HFF)
  739.             bloom91.Name = "Border1"
  740.             bloom91.Value = Color.FromArgb(&H16, &H16, &H16)
  741.             bloom92.Name = "Border2A"
  742.             bloom92.Value = Color.FromArgb(60, 60, 60)
  743.             bloom93.Name = "Border2B"
  744.             bloom93.Value = Color.FromArgb(&H24, &H24, &H24)
  745.             Me.flowButton5.Colors = New Bloom() { bloom86, bloom87, bloom88, bloom89, bloom90, bloom91, bloom92, bloom93 }
  746.             Me.flowButton5.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  747.             Me.flowButton5.Font = New Font("Verdana", 8!)
  748.             Me.flowButton5.Image = Nothing
  749.             Me.flowButton5.Location = New Point(&HBB, &HFD)
  750.             Me.flowButton5.Margin = New Padding(2, 3, 2, 3)
  751.             Me.flowButton5.Name = "flowButton5"
  752.             Me.flowButton5.NoRounding = False
  753.             Me.flowButton5.Size = New Size(&H39, 20)
  754.             Me.flowButton5.TabIndex = 13
  755.             Me.flowButton5.Text = "Tasks"
  756.             Me.flowButton5.Transparent = False
  757.             AddHandler Me.flowButton5.Click, New EventHandler(AddressOf Me.flowButton5_Click)
  758.             bloom94.Name = "DownGradient1"
  759.             bloom94.Value = Color.FromArgb(&H18, &H18, &H18)
  760.             bloom95.Name = "DownGradient2"
  761.             bloom95.Value = Color.FromArgb(&H26, &H26, &H26)
  762.             bloom96.Name = "NoneGradient1"
  763.             bloom96.Value = Color.FromArgb(&H26, &H26, &H26)
  764.             bloom97.Name = "NoneGradient2"
  765.             bloom97.Value = Color.FromArgb(&H18, &H18, &H18)
  766.             bloom98.Name = "Text"
  767.             bloom98.Value = Color.FromArgb(0, &H84, &HFF)
  768.             bloom99.Name = "Border1"
  769.             bloom99.Value = Color.FromArgb(&H16, &H16, &H16)
  770.             bloom100.Name = "Border2A"
  771.             bloom100.Value = Color.FromArgb(60, 60, 60)
  772.             bloom101.Name = "Border2B"
  773.             bloom101.Value = Color.FromArgb(&H24, &H24, &H24)
  774.             Me.flowButton6.Colors = New Bloom() { bloom94, bloom95, bloom96, bloom97, bloom98, bloom99, bloom100, bloom101 }
  775.             Me.flowButton6.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  776.             Me.flowButton6.Font = New Font("Verdana", 8!)
  777.             Me.flowButton6.Image = Nothing
  778.             Me.flowButton6.Location = New Point(&HFD, &HFD)
  779.             Me.flowButton6.Margin = New Padding(2, 3, 2, 3)
  780.             Me.flowButton6.Name = "flowButton6"
  781.             Me.flowButton6.NoRounding = False
  782.             Me.flowButton6.Size = New Size(&HF8, 20)
  783.             Me.flowButton6.TabIndex = 14
  784.             Me.flowButton6.Text = "Still Need Help? Click Here"
  785.             Me.flowButton6.Transparent = False
  786.             AddHandler Me.flowButton6.Click, New EventHandler(AddressOf Me.flowButton6_Click)
  787.             Me.comboBox1.AutoCompleteCustomSource.AddRange(New String() { "MBAM", "OTL", "GMER", "TFC", "SAntiSpyware", "FixComet", "Unlocker" })
  788.             Me.comboBox1.BackColor = Color.FromArgb(&H23, &H23, &H23)
  789.             Me.comboBox1.FlatStyle = FlatStyle.Flat
  790.             Me.comboBox1.ForeColor = SystemColors.MenuHighlight
  791.             Me.comboBox1.FormattingEnabled = True
  792.             Me.comboBox1.Items.AddRange(New Object() { "MBAM - Scans System", "OTL - Scans Startup", "GMER - Scans Rootkits", "TFC - Scans System", "SAntiSpyware - Scans System", "FixComet - Fixes Registry", "Unlocker - Unlocks files" })
  793.             Me.comboBox1.Location = New Point(&HFD, &HE1)
  794.             Me.comboBox1.Margin = New Padding(1)
  795.             Me.comboBox1.Name = "comboBox1"
  796.             Me.comboBox1.Size = New Size(140, &H16)
  797.             Me.comboBox1.TabIndex = 3
  798.             Me.comboBox1.Text = "Choose a Program"
  799.             Me.textBox1.BackColor = Color.FromArgb(&H23, &H23, &H23)
  800.             Me.textBox1.BorderStyle = BorderStyle.FixedSingle
  801.             Me.textBox1.ForeColor = SystemColors.MenuHighlight
  802.             Me.textBox1.Location = New Point(11, &HFD)
  803.             Me.textBox1.Margin = New Padding(2, 3, 2, 3)
  804.             Me.textBox1.Name = "textBox1"
  805.             Me.textBox1.Size = New Size(120, 20)
  806.             Me.textBox1.TabIndex = 5
  807.             Me.textBox1.Text = "process.exe"
  808.             bloom102.Name = "DownGradient1"
  809.             bloom102.Value = Color.FromArgb(&H18, &H18, &H18)
  810.             bloom103.Name = "DownGradient2"
  811.             bloom103.Value = Color.FromArgb(&H26, &H26, &H26)
  812.             bloom104.Name = "NoneGradient1"
  813.             bloom104.Value = Color.FromArgb(&H26, &H26, &H26)
  814.             bloom105.Name = "NoneGradient2"
  815.             bloom105.Value = Color.FromArgb(&H18, &H18, &H18)
  816.             bloom106.Name = "Text"
  817.             bloom106.Value = Color.FromArgb(0, &H84, &HFF)
  818.             bloom107.Name = "Border1"
  819.             bloom107.Value = Color.FromArgb(&H16, &H16, &H16)
  820.             bloom108.Name = "Border2A"
  821.             bloom108.Value = Color.FromArgb(60, 60, 60)
  822.             bloom109.Name = "Border2B"
  823.             bloom109.Value = Color.FromArgb(&H24, &H24, &H24)
  824.             Me.flowButton4.Colors = New Bloom() { bloom102, bloom103, bloom104, bloom105, bloom106, bloom107, bloom108, bloom109 }
  825.             Me.flowButton4.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  826.             Me.flowButton4.Font = New Font("Verdana", 8!)
  827.             Me.flowButton4.Image = Nothing
  828.             Me.flowButton4.Location = New Point(&H87, &HFD)
  829.             Me.flowButton4.Margin = New Padding(2, 3, 2, 3)
  830.             Me.flowButton4.Name = "flowButton4"
  831.             Me.flowButton4.NoRounding = False
  832.             Me.flowButton4.Size = New Size(&H30, 20)
  833.             Me.flowButton4.TabIndex = 12
  834.             Me.flowButton4.Text = "Kill"
  835.             Me.flowButton4.Transparent = False
  836.             AddHandler Me.flowButton4.Click, New EventHandler(AddressOf Me.flowButton4_Click)
  837.             bloom110.Name = "DownGradient1"
  838.             bloom110.Value = Color.FromArgb(&H18, &H18, &H18)
  839.             bloom111.Name = "DownGradient2"
  840.             bloom111.Value = Color.FromArgb(&H26, &H26, &H26)
  841.             bloom112.Name = "NoneGradient1"
  842.             bloom112.Value = Color.FromArgb(&H26, &H26, &H26)
  843.             bloom113.Name = "NoneGradient2"
  844.             bloom113.Value = Color.FromArgb(&H18, &H18, &H18)
  845.             bloom114.Name = "Text"
  846.             bloom114.Value = Color.FromArgb(0, &H84, &HFF)
  847.             bloom115.Name = "Border1"
  848.             bloom115.Value = Color.FromArgb(&H16, &H16, &H16)
  849.             bloom116.Name = "Border2A"
  850.             bloom116.Value = Color.FromArgb(60, 60, 60)
  851.             bloom117.Name = "Border2B"
  852.             bloom117.Value = Color.FromArgb(&H24, &H24, &H24)
  853.             Me.flowButton1.Colors = New Bloom() { bloom110, bloom111, bloom112, bloom113, bloom114, bloom115, bloom116, bloom117 }
  854.             Me.flowButton1.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
  855.             Me.flowButton1.Font = New Font("Verdana", 8!)
  856.             Me.flowButton1.Image = Nothing
  857.             Me.flowButton1.Location = New Point(&H9B, &H87)
  858.             Me.flowButton1.Margin = New Padding(2, 3, 2, 3)
  859.             Me.flowButton1.Name = "flowButton1"
  860.             Me.flowButton1.NoRounding = False
  861.             Me.flowButton1.Size = New Size(&H59, 20)
  862.             Me.flowButton1.TabIndex = 9
  863.             Me.flowButton1.Text = "Enable"
  864.             Me.flowButton1.Transparent = False
  865.             AddHandler Me.flowButton1.Click, New EventHandler(AddressOf Me.flowButton1_Click)
  866.             MyBase.AutoScaleDimensions = New SizeF(6!, 14!)
  867.             MyBase.AutoScaleMode = AutoScaleMode.Font
  868.             Me.BackColor = Color.FromArgb(&H23, &H23, &H23)
  869.             MyBase.ClientSize = New Size(&H202, &H120)
  870.             MyBase.Controls.Add(Me.flowTheme1)
  871.             Me.Font = New Font("Arial", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  872.             Me.ForeColor = Color.FromArgb(&H80, &H80, &HFF)
  873.             MyBase.FormBorderStyle = FormBorderStyle.None
  874.             MyBase.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
  875.             MyBase.Margin = New Padding(2, 3, 2, 3)
  876.             MyBase.Name = "Form1"
  877.             MyBase.StartPosition = FormStartPosition.CenterScreen
  878.             Me.Text = "Infested Cleaner"
  879.             MyBase.TopMost = True
  880.             MyBase.TransparencyKey = Color.Fuchsia
  881.             Me.flowTheme1.ResumeLayout(False)
  882.             Me.flowTheme1.PerformLayout
  883.             Me.groupBox1.ResumeLayout(False)
  884.             Me.groupBox1.PerformLayout
  885.             MyBase.ResumeLayout(False)
  886.         End Sub
  887.  
  888.         Private Sub lstServices_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
  889.             Dim class2 As New ManagementClass("Win32_StartupCommand")
  890.             Dim obj2 As ManagementObject
  891.             For Each obj2 In class2.GetInstances
  892.                 Dim strArray As String() = DirectCast(Me.arrServices.Item(Me.lstServices.SelectedIndex), String())
  893.                 If (obj2.GetPropertyValue("Name").ToString = strArray(1)) Then
  894.                     Me.lblPath.Text = (obj2.GetPropertyValue("Command"))
  895.                     Me.lblDesc.Text = obj2.GetPropertyValue("Location").ToString
  896.                 End If
  897.             Next
  898.         End Sub
  899.  
  900.  
  901.         ' Fields
  902.         Private arrServices As ArrayList = New ArrayList
  903.         Private checkBox1 As CheckBox
  904.         Private checkBox2 As CheckBox
  905.         Private checkBox3 As CheckBox
  906.         Private checkBox4 As CheckBox
  907.         Private columnHeader1 As ColumnHeader
  908.         Private comboBox1 As ComboBox
  909.         Private components As IContainer
  910.         Private flowButton1 As FlowButton
  911.         Private flowButton10 As FlowButton
  912.         Private flowButton11 As FlowButton
  913.         Private flowButton12 As FlowButton
  914.         Private flowButton13 As FlowButton
  915.         Private flowButton2 As FlowButton
  916.         Private flowButton3 As FlowButton
  917.         Private flowButton4 As FlowButton
  918.         Private flowButton5 As FlowButton
  919.         Private flowButton6 As FlowButton
  920.         Private flowButton7 As FlowButton
  921.         Private flowButton8 As FlowButton
  922.         Private flowButton9 As FlowButton
  923.         Private flowTheme1 As FlowTheme
  924.         Private groupBox1 As GroupBox
  925.         Private lblDesc As TextBox
  926.         Private lblPath As TextBox
  927.         Private listview1 As ListView
  928.         Private lstServices As ListBox
  929.         Private textBox1 As TextBox
  930.     End Class
  931. End Namespace
Add Comment
Please, Sign In to add comment