Decompiled this code so here u go guys this is and account generator code!
Code:
Imports Crossfire_Account_Generator.My
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System****ntime.CompilerServices
Imports System.Threading
Imports System.Windows.Forms
Namespace Crossfire_Account_Generator
<DesignerGenerated> _
Public Class Form1
Inherits Form
' Methods
Public Sub New()
AddHandler MyBase.FormClosing, New FormClosingEventHandler(AddressOf Me.Form1_FormClosing)
AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
Me.setting = New MySettings
Me.InitializeComponent
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.WebBrowser1.Document.GetElementById("ctl00_Main_tb_loginid").SetAttribute("value", Me.TextBox1.Text)
Me.WebBrowser1.Document.GetElementById("ctl00_Main_tb_retypepassword").SetAttribute("value", Me.TextBox3.Text)
Me.WebBrowser1.Document.GetElementById("ctl00_Main_tb_password").SetAttribute("value", Me.TextBox2.Text)
Me.WebBrowser1.Document.GetElementById("ctl00_Main_tb_email").SetAttribute("value", Me.TextBox4.Text)
Me.WebBrowser1.Document.GetElementById("ctl00_Main_tb_email_confirm").SetAttribute("value", Me.TextBox5.Text)
Me.WebBrowser1.Document.GetElementById("ctl00_Main_tb_answer").SetAttribute("value", "I Dont Know This")
Me.WebBrowser1.Document.GetElementById("ctl00_Main_ddl_securityquestion").SetAttribute("value", "What was the name of your first school?")
Me.WebBrowser1.Document.GetElementById("ctl00_Main_tb_forumname").SetAttribute("value", Me.TextBox6.Text)
Interaction.MsgBox("Please Fill In The Captcha !", MsgBoxStyle.OkOnly, Nothing)
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Me.TextBox7.Text = "") Then
Interaction.MsgBox("Please Put Your Crossfire Directory Below Then Click Start Crossfire Above !", MsgBoxStyle.OkOnly, Nothing)
Else
Interaction.Shell(Me.TextBox7.Text, AppWinStyle.MinimizedFocus, False, -1)
End If
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.setting.test = Me.TextBox7.Text
Me.setting.Save
End Sub
Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
End Sub
<DebuggerNonUserCode> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If (disposing AndAlso (Not Me.components Is Nothing)) Then
Me.components.Dispose
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Public Sub fillinformation()
End Sub
<MethodImpl((MethodImplOptions.NoOptimization Or MethodImplOptions.NoInlining))> _
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
Dim num As Integer = 90
Do
Me.Opacity = (CDbl(num) / 100)
Me.Refresh
Thread.Sleep(50)
num = (num + -10)
Loop While (num >= 10)
ProjectData.EndApp
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.TextBox7.Text = Me.setting.test
Me.Timer1.Enabled = True
Dim num As Double = 0
Do
Me.Opacity = num
Me.Refresh
Thread.Sleep(100)
num = (num + 0.1)
Loop While (num <= 1.1)
End Sub
<DebuggerStepThrough> _
Private Sub InitializeComponent()
Me.SuspendLayout()
'
'Form1
'
Me.ClientSize = New System.Drawing.Size(284, 262)
Me.Name = "Form1"
Me.ResumeLayout(False)
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
If Me.Label7.Visible Then
Me.Label7.Visible = False
ElseIf Not Me.Label7.Visible Then
Me.Label7.Visible = True
End If
Me.Label8.Text = Conversions.ToString(DateAndTime.TimeOfDay)
End Sub
' Properties
Friend Overridable Property Button1 As Button
Get
Return Me._Button1
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Button)
Dim handler As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
If (Not Me._Button1 Is Nothing) Then
RemoveHandler Me._Button1.Click, handler
End If
Me._Button1 = WithEventsValue
If (Not Me._Button1 Is Nothing) Then
AddHandler Me._Button1.Click, handler
End If
End Set
End Property
Friend Overridable Property Button2 As Button
Get
Return Me._Button2
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Button)
Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
If (Not Me._Button2 Is Nothing) Then
RemoveHandler Me._Button2.Click, handler
End If
Me._Button2 = WithEventsValue
If (Not Me._Button2 Is Nothing) Then
AddHandler Me._Button2.Click, handler
End If
End Set
End Property
Friend Overridable Property Button3 As Button
Get
Return Me._Button3
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Button)
Dim handler As EventHandler = New EventHandler(AddressOf Me.Button3_Click)
If (Not Me._Button3 Is Nothing) Then
RemoveHandler Me._Button3.Click, handler
End If
Me._Button3 = WithEventsValue
If (Not Me._Button3 Is Nothing) Then
AddHandler Me._Button3.Click, handler
End If
End Set
End Property
Friend Overridable Property GroupBox1 As GroupBox
Get
Return Me._GroupBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As GroupBox)
Me._GroupBox1 = WithEventsValue
End Set
End Property
Friend Overridable Property GroupBox2 As GroupBox
Get
Return Me._GroupBox2
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As GroupBox)
Me._GroupBox2 = WithEventsValue
End Set
End Property
Friend Overridable Property Label1 As Label
Get
Return Me._Label1
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Label)
Me._Label1 = WithEventsValue
End Set
End Property
Friend Overridable Property Label2 As Label
Get
Return Me._Label2
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Label)
Me._Label2 = WithEventsValue
End Set
End Property
Friend Overridable Property Label3 As Label
Get
Return Me._Label3
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Label)
Me._Label3 = WithEventsValue
End Set
End Property
Friend Overridable Property Label4 As Label
Get
Return Me._Label4
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Label)
Me._Label4 = WithEventsValue
End Set
End Property
Friend Overridable Property Label5 As Label
Get
Return Me._Label5
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Label)
Me._Label5 = WithEventsValue
End Set
End Property
Friend Overridable Property Label6 As Label
Get
Return Me._Label6
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Label)
Me._Label6 = WithEventsValue
End Set
End Property
Friend Overridable Property Label7 As Label
Get
Return Me._Label7
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Label)
Me._Label7 = WithEventsValue
End Set
End Property
Friend Overridable Property Label8 As Label
Get
Return Me._Label8
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Label)
Me._Label8 = WithEventsValue
End Set
End Property
Friend Overridable Property TextBox1 As TextBox
Get
Return Me._TextBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox1 = WithEventsValue
End Set
End Property
Friend Overridable Property TextBox2 As TextBox
Get
Return Me._TextBox2
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox2 = WithEventsValue
End Set
End Property
Friend Overridable Property TextBox3 As TextBox
Get
Return Me._TextBox3
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox3 = WithEventsValue
End Set
End Property
Friend Overridable Property TextBox4 As TextBox
Get
Return Me._TextBox4
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox4 = WithEventsValue
End Set
End Property
Friend Overridable Property TextBox5 As TextBox
Get
Return Me._TextBox5
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox5 = WithEventsValue
End Set
End Property
Friend Overridable Property TextBox6 As TextBox
Get
Return Me._TextBox6
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox6 = WithEventsValue
End Set
End Property
Friend Overridable Property TextBox7 As TextBox
Get
Return Me._TextBox7
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox7 = WithEventsValue
End Set
End Property
Friend Overridable Property Timer1 As Timer
Get
Return Me._Timer1
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Timer)
Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
If (Not Me._Timer1 Is Nothing) Then
RemoveHandler Me._Timer1.Tick, handler
End If
Me._Timer1 = WithEventsValue
If (Not Me._Timer1 Is Nothing) Then
AddHandler Me._Timer1.Tick, handler
End If
End Set
End Property
Friend Overridable Property Timer2 As Timer
Get
Return Me._Timer2
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As Timer)
Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer2_Tick)
If (Not Me._Timer2 Is Nothing) Then
RemoveHandler Me._Timer2.Tick, handler
End If
Me._Timer2 = WithEventsValue
If (Not Me._Timer2 Is Nothing) Then
AddHandler Me._Timer2.Tick, handler
End If
End Set
End Property
Friend Overridable Property WebBrowser1 As WebBrowser
Get
Return Me._WebBrowser1
End Get
<MethodImpl(MethodImplOptions.Synchronized)> _
Set(ByVal WithEventsValue As WebBrowser)
Me._WebBrowser1 = WithEventsValue
End Set
End Property
' Fields
<AccessedThroughProperty("Button1")> _
Private _Button1 As Button
<AccessedThroughProperty("Button2")> _
Private _Button2 As Button
<AccessedThroughProperty("Button3")> _
Private _Button3 As Button
<AccessedThroughProperty("GroupBox1")> _
Private _GroupBox1 As GroupBox
<AccessedThroughProperty("GroupBox2")> _
Private _GroupBox2 As GroupBox
<AccessedThroughProperty("Label1")> _
Private _Label1 As Label
<AccessedThroughProperty("Label2")> _
Private _Label2 As Label
<AccessedThroughProperty("Label3")> _
Private _Label3 As Label
<AccessedThroughProperty("Label4")> _
Private _Label4 As Label
<AccessedThroughProperty("Label5")> _
Private _Label5 As Label
<AccessedThroughProperty("Label6")> _
Private _Label6 As Label
<AccessedThroughProperty("Label7")> _
Private _Label7 As Label
<AccessedThroughProperty("Label8")> _
Private _Label8 As Label
<AccessedThroughProperty("TextBox1")> _
Private _TextBox1 As TextBox
<AccessedThroughProperty("TextBox2")> _
Private _TextBox2 As TextBox
<AccessedThroughProperty("TextBox3")> _
Private _TextBox3 As TextBox
<AccessedThroughProperty("TextBox4")> _
Private _TextBox4 As TextBox
<AccessedThroughProperty("TextBox5")> _
Private _TextBox5 As TextBox
<AccessedThroughProperty("TextBox6")> _
Private _TextBox6 As TextBox
<AccessedThroughProperty("TextBox7")> _
Private _TextBox7 As TextBox
<AccessedThroughProperty("Timer1")> _
Private _Timer1 As Timer
<AccessedThroughProperty("Timer2")> _
Private _Timer2 As Timer
<AccessedThroughProperty("WebBrowser1")> _
Private _WebBrowser1 As WebBrowser
Private components As IContainer
Private setting As MySettings
Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
End Namespace
Enjoy
Thank + Rep Me!