Home › Forum › Programming › Other Programming › Visual Basic Programming › Locking a string's value
Locking a string's value
Locking a string's value
So i'm coding a little thing, it has the features : godmode, unlimited ammo, custom health and custom ammo,
but for the godmode and the unlimited ammo i will need to lock the string's value, idk how to do that XD lol i know so help please ?
yes i tested it and everything (so far) works !
THIS IS CODED IN VISUAL BASIC !!!
BUTTONS:
Button 1 = custom health
Button 2 = custom ammo
Button 3 = godmode
Button 4 = unlimited ammo
my code so far:
but for the godmode and the unlimited ammo i will need to lock the string's value, idk how to do that XD lol i know so help please ?
yes i tested it and everything (so far) works !
THIS IS CODED IN VISUAL BASIC !!!
BUTTONS:
Button 1 = custom health
Button 2 = custom ammo
Button 3 = godmode
Button 4 = unlimited ammo
my code so far:
Code:
Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim ammount As String = TextBox2.Text
Try
WriteInteger("csgo", &H3FB5114, ammount)
WriteInteger("csgo", &H45045EC, ammount)
WriteInteger("csgo", &H45049EC, ammount)
WriteInteger("csgo", &H4504DEC, ammount)
WriteInteger("csgo", &H45059EC, ammount)
WriteInteger("csgo", &H45065EC, ammount)
WriteInteger("csgo", &H45071EC, ammount)
WriteInteger("csgo", &H233D8404, ammount)
WriteInteger("csgo", &H23CB18F4, ammount)
WriteInteger("csgo", &H23CB1FC0, ammount)
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ammount As String = TextBox1.Text
Try
WriteInteger("csgo", &H454458, ammount)
WriteInteger("csgo", &H4504524, ammount)
WriteInteger("csgo", &H4504858, ammount)
WriteInteger("csgo", &H454924, ammount)
WriteInteger("csgo", &H454C58, ammount)
WriteInteger("csgo", &H454D24, ammount)
WriteInteger("csgo", &H4505858, ammount)
WriteInteger("csgo", &H4505924, ammount)
WriteInteger("csgo", &H4506458, ammount)
WriteInteger("csgo", &H4506524, ammount)
WriteInteger("csgo", &H4507058, ammount)
WriteInteger("csgo", &H4507124, ammount)
WriteInteger("csgo", &H9B5760C, ammount)
WriteInteger("csgo", &H9F9DF58, ammount)
WriteInteger("csgo", &H233D7EC4, ammount)
WriteInteger("csgo", &H23CB091C, ammount)
WriteInteger("csgo", &H23CB7D08, ammount)
WriteInteger("csgo", &H47BF8C08, ammount)
WriteInteger("csgo", &H482BEE6C, ammount)
Catch ex As Exception
End Try
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("http://www.mpgh.net")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
End Sub
End Class
