Source Code Visual Basic CS:GO Snippets

Hexui Undetected CSGO Cheats Sinkicheat PUBG Cheat

d0wen

Jr.Coder
Full Member
Nobleman
Dec 26, 2012
87
473
0
Bhop
C#:
Structure V2D
Dim X As Single
Dim Y As Single
End Structure

Public Function GetLocalBase() As Integer
Return ReadInteger(Client.dll + Offsets.LocalPlayer)
End Function

Public Function GetFlags() As Byte
Return ReadByte(GetLocalBase() + Offsets.Flags)
End Function

Public Function GetVelocity() As V2D
Return ReadVector2D(GetLocalBase() + Offsets.vecVelocity)
End Function

Public Function ValidVelocity() As Boolean
Dim vel = GetVelocity()
If vel.X < -50 or vel.X > 50 or vel.Y > 50 or vel.Y < -50 Then
Return True
End If
Return False
End Function

Public Sub SetJumpValue(Byval Value As Integer)
WriteInteger(Client.dll + ForceJump, Value)
End Sub

Public Sub Bhop()
While(True)
If GetAsyncKeyState(&H20) AndAlso ValidVelocity() Then
Dim fFlags = GetFlags()
If fFlags = 1<<0 or fFlags = 1<<1 Then
SetJumpValue(1)
Else If fFlags = 256 or fFlags = 258 or fFlags = 260 or fFlags = 262 Then
SetJumpValue(0)
SetJumpValue(1)
SetJumpValue(0)
Else
SetJumpValue(0)
End If
Threading.Thread.Sleep(1)
End While
End Sub
clrRender
C#:
Public Class clrColor
    Public R As New Byte
    Public G As New Byte
    Public B As New Byte
    Public A As New Byte

    Public Sub New()
        R = 0
        G = 0
        B = 0
        A = 0
    End Sub

    Public Sub New(ByVal r As Byte, ByVal g As Byte, ByVal b As Byte, ByVal a As Byte)
        Me.R = r
        Me.G = g
        Me.B = b
        Me.A = a
    End Sub

    Public Sub New(ByVal rgba As Byte)
        Me.R = rgba
        Me.G = rgba
        Me.B = rgba
        Me.A = rgba
    End Sub
End Class

Dim EnemyTeam As New clrColor(255, 0, 0, 255)
Dim MyTeam As New clrColor(0, 20, 200, 255)

Public Function GetLocalBase() As Integer
Return ReadInteger(Client.dll + Offsets.LocalPlayer)
End Function

Public Function GetEntityPointer(Byval Index As Integer) As Integer
Return ReadInteger(Client.dll + Offsets.EntityList + ((Index - 1) * 16))
End Function

Public Function isAlive(Byval Entity As Integer) As Boolean
If ReadInteger(Entity + Offsets.Health) > 0 Then
Return True
End If
Return False
End Function

Public Function isEnemy(Byval Entity As Integer) As Boolean
If ReadInteger(GetLocalBase + Offsets.Team) = ReadInteger(Entity + Offsets.Team) Then
Return False
End If
Return True
End Function

Public Function isDormant(Byval Entity As Integer) As Boolean
Return ReadBoolean(Entity + Offsets.Dormant)
End Function

Public Function ValidEnemy(Byval Entity As Integer) As Boolean
If Not isDormant(Entity) AndAlso isEnemy(Entity) AndAlso isAlive(Entity) Then
Return True
End If
Return False
End Function

Public Sub clrRender()
While(True)

For i As Integer = 1 To 64
Dim CurrentEntity = GetEntityPointer(i)

If ValidEnemy(CurrentEntity) Then

WriteClrRender(CurrentEntity + Offsets.clrRender, EnemyTeam)

Else

WriteClrRender(CurrentEntity + Offsets.clrRender, MyTeam)
End If
Next

Threading.Thread.Sleep(100)
End While
End Sub
InCross Trigger
C#:
Dim Delay As Integer = 15

Public Function GetLocalBase() As Integer
Return ReadInteger(Client.dll + Offsets.LocalPlayer)
End Function

Public Function GetInCross() As Integer
Return ReadInteger(GetLocalBase + Offsets.InCross)
End Function

Public Function GetEntityPointer(Byval Index As Integer) As Integer
Return ReadInteger(Client.dll + Offsets.EntityList + ((Index - 1) * 16))
End Function

Public Function isEnemy(Byval Entity As Integer) As Boolean
If ReadInteger(GetLocalBase + Offsets.Team) = ReadInteger(Entity + Offsets.Team) Then
Return False
End If
Return True
End Function

Public Sub Shoot(Optional Byval ShootingTime As Integer)
If ShootingTime > 15 Then

WriteByte(Client.dll + Offsets.ForceAttack, 5)
Threading.Thread.Sleep(ShootingTime)
WriteByte(Client.dll + Offsets.ForceAttack, 4)

Else

WriteByte(Client.dll + Offsets.ForceAttack, 6)

End If
End Sub

Public Sub TriggerBot()
While(True)

If GetAsyncKeyState(&H3) AndAlso isEnemy(GetEntityPointer(GetInCross)) Then

Threading.Thread.Sleep(Delay)
Shoot()

End If

Threading.Thread.Sleep(1)
End While
End Sub
Radar
C#:
Public Function GetEntityPointer(Byval Index As Integer) As Integer
Return ReadInteger(Client.dll + Offsets.EntityList + ((Index - 1) * 16))
End Function

Public Function isDormant(Byval Entity As Integer) As Boolean
Return ReadBoolean(Entity + Offsets.Dormant)
End Function

Public Function isSpotted(Byval Entity As Integer) As Boolean
Return ReadBoolean(Entity + Offsets.bSpotted)
End Function

Public Sub SetSpottedValue(Byval EntityPointer As Integer, Byval Value As Boolean)
WriteBoolean(Entity + Offsets.bSpotted, Value)
End Sub

Public Sub Radar()
While(True)

For i As Integer = 1 To 64
CurrentEntity = GetEntityPointer(i)

If Not isDormant(CurrentEntity) AndAlso Not isSpotted(CurrentEntity) Then
SetSpottedValue(CurrentEntity, True)
End If
Next

Threading.Thread.Sleep(1)
End While
End Sub
Take the code with a grain of salt, it's hand-written from memory.
 

Lukor

ded
Meme Tier VIP
Fleep Tier Donator
Dec 13, 2013
490
5,353
25
Reminds me of "there is a vb pay cheat!?" :D
How can ppl actually code in vb? its... vb ;D

anyway thanks!
 

d0wen

Jr.Coder
Full Member
Nobleman
Dec 26, 2012
87
473
0
Reminds me of "there is a vb pay cheat!?" :D
How can ppl actually code in vb? its... vb ;D

anyway thanks!
In terms of features, there is nothing you can do in pure native languages you can't do in the .NET framework.
Only people who naturally act smarter than they're would say that.
 

d0wen

Jr.Coder
Full Member
Nobleman
Dec 26, 2012
87
473
0
NoHands
C#:
Public Function GetLocalBase() As Integer
Return ReadInteger(Client.dll + Offsets.LocalPlayer)
End Function

Public Sub NoHands()
WriteInteger(GetLocalBase() + Offsets.szArmsModel, 0)
End Sub
You'll need to die for it to take effect or write before connecting to server, FullForceUpdate will load normal arm/hand models again.
 
Attention! Before you post:

Read the How to Ask Questions Guide
99% of questions are answered in the Beginner's Guide, do it before asking a question.

No Hack Requests. Post in the correct section.  Search the forum first. Read the rules.

How to make a good post:

  • Fill out the form correctly
  • Tell us the game name & coding language
  • Post everything we need to know to help you
  • Ask specific questions, be descriptive
  • Post errors, line numbers & screenshots
  • Post code snippets using code tags
  • If it's a large project, zip it up and attach it

If you do not comply, your post may be deleted.  We want to help, please make a good post and we will do our best to help you.

Community Mods