Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Reflection
Public Class Form1
Dim sound1 = "sound1.wav"
Public Master_cookies As New CookieContainer
Public Ap_Fonction As New Fonctions_et_Sub
Dim dossier As String
Dim resFilestream As Stream
Dim Exeassembly As System.Reflection.Assembly = Assembly.GetExecutingAssembly
Dim Mynamespace As String = Exeassembly.GetName().Name.ToString()
Public Sub SaveEmbeddedResourcesFile(ByVal fileToGetFromAssembly As String, ByVal LocationTosavefileTo As String)
Try
Dim xCount As Integer
resFilestream = Exeassembly.GetManifestResourceStream(Mynamespace + "." + fileToGetFromAssembly)
Dim writeResources As New FileStream(LocationTosavefileTo, FileMode.OpenOrCreate)
For xCount = 1 To resFilestream.Length
writeResources.WriteByte(resFilestream.ReadByte)
Next
writeResources.Close()
resFilestream.Close()
Catch nu As NullReferenceException
MsgBox(nu.Message.ToString)
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
My.Computer.Audio.Play(My.Resources.sound1, AudioPlayMode.Background)
'Si il n'y a rien dans les parametre, retourne ""
LogInNormalTextBox1.Text = My.Settings.pseudo
LogInNormalTextBox2.Text = My.Settings.mdp
LogInButton1.Enabled = False
LogInButton2.Enabled = False
LogInOnOffSwitch1.Enabled = False
'On vérifie qu'il y a bien les valeurs pour les cookies enregistré dans l'application.(teste uniquement le cookie 0 suffit à vérifier), sinon ont pourrais faire (If My.Settings.cookie0 = "" Or My.Settings.cookie1 = "" Or My.Settings.cookie2 = "" Or My.Settings.cookie3 = "" etc ...)
If My.Settings.cookie0 = "" Then
'Si il n'y a rien ont demande de se loguer.
LogInLogButton1.Enabled = True
MsgBox("Veuillez vous connecter !", MsgBoxStyle.Information, "Veuillez vous connecter !")
Else
'Si il y a bien une chaine (string) on lance là fonction pour ajouter les cookies dans le CookiContainder "Master_cookies_custom".(plus d'info dans la class "Fonctions et Sub")
Ap_Fonction.recup_add_cookie(Master_cookies)
'Débloque les bouttons
LogInButton2.Enabled = True
LogInOnOffSwitch1.Enabled = True
End If
End Sub
Private Sub LogInLogButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInLogButton1.Click
If LogInNormalTextBox1.Text = "" Or LogInNormalTextBox2.Text = "" Then
'Si une ou les deux textbox sont vide.
MsgBox("Veuillez remplire les champs !", MsgBoxStyle.Information, "Aucunes données")
Else
'Sinon ont envois la requète pour se loguer sur CG3.
Ap_Fonction.http_login_cg3( _
"http://www.cheat-gam3.com/login.php?do=login", _
LogInNormalTextBox1.Text, _
LogInNormalTextBox2.Text, _
"http://www.cheat-gam3.com", _
Master_cookies)
End If
End Sub
Private Sub LogInOnOffSwitch2_Click(sender As Object, e As EventArgs) Handles LogInOnOffSwitch2.Click
If LogInOnOffSwitch2.Toggled Then
My.Computer.Audio.Stop()
Else
My.Computer.Audio.Play(My.Resources.sound1, AudioPlayMode.Background)
End If
End Sub
Private Sub LogInButton1_Click(sender As Object, e As EventArgs) Handles LogInButton1.Click
Dim RandomClass As New Random()
Dim RememberSet As New HashSet(Of Integer)
Dim RandomNumber As Integer
If LogInOnOffSwitch1.Toggled Then
'Code Value Normal
WriteLong("S4Client.exe", &H8EAF1E, 1166869354)
WriteLong("S4Client.exe", &H526D04, 2348565977)
WriteLong("S4Client.exe", &H5FD76F, 1376277899)
WriteLong("S4Client.exe", &H5FDF8F, 990136971)
WriteLong("S4Client.exe", &H5FDEC2, 2299023755)
WriteLong("S4Client.exe", &H78C95D, 2374698346)
WriteFloat("S4Client.exe", &H1242700, 350)
WriteLong("S4Client.exe", &H62B48E, 2240611178)
WriteLong("S4Client.exe", &H4B17BB, 1300955498)
WriteLong("S4Client.exe", &H5E6C0A, 1166869354)
WriteLong("S4Client.exe", &H55923D, 2348565977)
WriteLong("S4Client.exe", &H5F34E6, 251773571)
WriteLong("S4Client.exe", &H784551, 3555263861)
WriteLong("S4Client.exe", &H48D4B2, 2348565977)
WriteLong("S4Client.exe", &H5F5FF3, 990136971)
WriteLong("S4Client.exe", &H5DE3A3, 1166869098)
WriteLong("S4Client.exe", &H5DE4ED, 1301098346)
WriteLong("S4Client.exe", &H5DE453, 1301096042)
WriteLong("S4Client.exe", &H48D9C9, 3641722329)
Else
While RememberSet.Count < 3
RandomNumber = RandomClass.Next(0, 19)
If RememberSet.Add(RandomNumber) Then
'If RamdomNumber = 0 then
'WriteLong("S4Client.exe", &HAdresse, ValeurHa)
'Else
'WriteLong("S4Client.exe", &HAdresse, Valeur)
'Ca fait mal du code comme ça _ 10 values au clic xD
'0Gravity
If RandomNumber = 0 Then
WriteLong("S4Client.exe", &H8EAF1E, 1166868842)
Else
WriteLong("S4Client.exe", &H8EAF1E, 1166869354)
End If
'200HP
If RandomNumber = 1 Then
WriteLong("S4Client.exe", &H526D04, 2348565979)
Else
WriteLong("S4Client.exe", &H526D04, 2348565977)
End If
'Anchor Delay
If RandomNumber = 2 Then
WriteLong("S4Client.exe", &H5FD76F, 1376212363)
Else
WriteLong("S4Client.exe", &H5FD76F, 1376277899)
End If
'Anchor Range
If RandomNumber = 3 Then
WriteLong("S4Client.exe", &H5FDF8F, 990071435)
Else
WriteLong("S4Client.exe", &H5FDF8F, 990136971)
End If
'Anchor Speed
If RandomNumber = 4 Then
WriteLong("S4Client.exe", &H5FDEC2, 2298761611)
Else
WriteLong("S4Client.exe", &H5FDEC2, 2299023755)
End If
'Block HP
If RandomNumber = 5 Then
WriteLong("S4Client.exe", &H78C95D, 2374697834)
Else
WriteLong("S4Client.exe", &H78C95D, 2374698346)
End If
'Cam Hack (ATTENTION WRITEFLOAT - PANDA DE LA MORT QUI TUE LE [Censure] - EXTALIA DEVELLOPPPEMENT)
If RandomNumber = 6 Then
WriteFloat("S4Client.exe", &H1242700, 400)
Else
WriteFloat("S4Client.exe", &H1242700, 350)
End If
'Cut Speed Le bonus à avoir
If RandomNumber = 7 Then
WriteLong("S4Client.exe", &H62B48E, 2240612458)
Else
WriteLong("S4Client.exe", &H62B48E, 2240611178)
End If
'Dmg x2
If RandomNumber = 8 Then
WriteLong("S4Client.exe", &H4B17BB, 1300955754)
Else
WriteLong("S4Client.exe", &H4B17BB, 1300955498)
End If
'Dodge Speed
If RandomNumber = 9 Then
WriteLong("S4Client.exe", &H5E6C0A, 1166872682)
Else
WriteLong("S4Client.exe", &H5E6C0A, 1166869354)
End If
'Ennemy hp recovery - the trool function
If RandomNumber = 10 Then
WriteLong("S4Client.exe", &H55923D, 2332181979)
Else
WriteLong("S4Client.exe", &H55923D, 2348565977)
End If
'Fast reload
If RandomNumber = 11 Then
WriteLong("S4Client.exe", &H5F34E6, 251708035)
Else
WriteLong("S4Client.exe", &H5F34E6, 251773571)
End If
'Full power
If RandomNumber = 12 Then
WriteLong("S4Client.exe", &H48D7F1, 2047263990)
Else
WriteLong("S4Client.exe", &H48D7F1, 2047198454)
End If
'Inf Ammo
If RandomNumber = 13 Then
WriteLong("S4Client.exe", &H784551, 3555299472)
Else
WriteLong("S4Client.exe", &H784551, 3555263861)
End If
'Inf sp
If RandomNumber = 14 Then
WriteLong("S4Client.exe", &H48D4B2, 2348565979)
Else
WriteLong("S4Client.exe", &H48D4B2, 2348565977)
End If
'Instant Respawn
If RandomNumber = 15 Then
WriteLong("S4Client.exe", &H5F5FF3, 989874827)
Else
WriteLong("S4Client.exe", &H5F5FF3, 990136971)
End If
'Reverse Wall Jump
If RandomNumber = 16 Then
WriteLong("S4Client.exe", &H5DE3A3, 1166868586)
Else
WriteLong("S4Client.exe", &H5DE3A3, 1166869098)
End If
'Wall Jump Height
If RandomNumber = 17 Then
WriteLong("S4Client.exe", &H5DE4ED, 1301101162)
Else
WriteLong("S4Client.exe", &H5DE4ED, 1301098346)
End If
'Wall Jump Range
If RandomNumber = 18 Then
WriteLong("S4Client.exe", &H5DE453, 1301099882)
Else
WriteLong("S4Client.exe", &H5DE453, 1301096042)
End If
'Wall Jump Teleport
If RandomNumber = 19 Then
WriteLong("S4Client.exe", &H48D9C9, 3641722331)
Else
WriteLong("S4Client.exe", &H48D9C9, 3641722329)
End If
End If
End While
End If
End Sub
Private Sub LogInButton2_Click(sender As Object, e As EventArgs) Handles LogInButton2.Click
MsgBox("Veuillez selectionner le dossier d'installation de S4League", MsgBoxStyle.Information, "Ramdom Cheat")
Dim folderDlg As New FolderBrowserDialog
folderDlg.ShowNewFolderButton = False
If (folderDlg.ShowDialog() = DialogResult.OK) Then
Dim dossier As String = folderDlg.SelectedPath
System.IO.File.WriteAllBytes(dossier & "\AvoidBan.exe", My.Resources.AvoidBan)
System.IO.File.WriteAllBytes(dossier & "\Xtrap_Bypass.exe", My.Resources.Xtrap_Bypass)
Process.Start(dossier & "\Xtrap_Bypass.exe")
Process.Start(dossier & "\AvoidBan.exe")
Process.Start(dossier & "\patcher_s4.exe")
Else
MsgBox("Dossier d'installation invalide", MsgBoxStyle.Critical, "Fatal Error")
End If
End Sub
Private Sub LogInButtonWithProgress2_Click(sender As Object, e As EventArgs) Handles LogInButtonWithProgress2.Click
Form2.Show()
End Sub
Public Sub SaveToDisk(ByVal resourceName As String, ByVal fileName As String)
' Get a reference to the running application.
Dim assy As Assembly = Assembly.GetExecutingAssembly()
Dim MyNamespace As String = assy.GetName().Name.ToString()
' Loop through each resource, looking for the image name (case-insensitive).
' Get the embedded file from the assembly as a MemoryStream.
Try
Using resourceStream As System.IO.Stream = assy.GetManifestResourceStream(MyNamespace & "." & resourceName)
If resourceStream IsNot Nothing Then
Using fs As New FileStream(fileName, FileMode.OpenOrCreate)
' Read the bytes from the input stream.
For x As Integer = 1 To resourceStream.Length
fs.WriteByte(resourceStream.ReadByte)
Next
End Using
End If
End Using
Catch nu As NullReferenceException
Catch ex As Exception
End Try
End Sub
Private Sub FolderBrowserDialog1_HelpRequest(sender As Object, e As EventArgs) Handles FolderBrowserDialog1.HelpRequest
End Sub
Private Sub LogInOnOffSwitch1_Click(sender As Object, e As EventArgs) Handles LogInOnOffSwitch1.Click
If LogInOnOffSwitch1.Toggled Then
LogInButton1.Enabled = True
Else
LogInButton1.Enabled = True
End If
End Sub
End Class