NEED HELP PLEASE ( Visual Basic Hacks )

[gotter]

hi
i am very good at visual basic and i was wondering ( cause i dont wanna learn c++ right now ( already working on something so... )) could any of you help me

i want to make a hack in vb
can any of you please give me some tips or even a small part of source code ( nx chams or anything would be nice so i could try to understand how to build a hack in vb and all ...

btw i have vb 2005, vb6, vb 2008 and vb 2010 so if you could help me with any of these that would be nice...
i really need help
i helped some1 on another site that i cant name to make his vip in c++ with super bullets and all but ... im not going to learn c++ until maybe 3 years...

please help me to make simple chamms in vb or anything and ill thank yo and +rep you!

[Relyc]

NX Chams: PushToConsole("SkelModelStencil 1");
PushToConsole("SkelModelStencil 0");
Boxes: PushToConsole("ModelDebug_DrawBoxes 1");
PushToConsole("ModelDebug_DrawBoxes 0");
Pickup Hack: PushToConsole("ActivationDistance 999999");
PushToConsole("ActivationDistance 50");

Tip: Not all hacks are simple to make.

[Solify]

pushtoconsole hacks for VB is not that good ... get a PTC hack and search via mhs for changed values while activating/deactivating hacks and make the hacks with the addies you have

[zmansquared]

i would say NO vb to make hack.

[Zoom]

its hard to make good vb hacks.

[zmansquared]

its possible but hs can pick em up very easily

[whit]

I know sumone who can Bitches...
but anyways go to Vb section...

[gotter]

i looked all the vb section but found nothing about combat arms hacks

[DeadLinez]

Module Handler
    Public Const PROCESS_VM_READ = &H10
    Public Const PROCESS_VM_WRITE = (&H20)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_QUERY_INFORMATION = (&H400)
    Public Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION
    Public Const PROCESS_ALL_ACCESS = &H1F0FFF
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Byte(), ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByVal lpBuffer() As Byte, ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As UInteger, ByVal bInheritHandle As Integer, ByVal dwProcessId As UInteger) As IntPtr
    Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
    Public Function Game_Hwnd() As Int32
        Dim i As Int32 : Dim foundit As Boolean = False
        For Each p As Process In Process.GetProcessesByName("Solitaire")'Add your Process Name Here.
            i = p.Id
            foundit = True : Exit For
        Next
        If foundit = True Then
            Return i
        Else
            Return 0
        End If
    End Function

    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value As Integer, ByVal Size As Integer)
        Try
            Dim GameReadWrite As Integer
            Dim PID As Integer = Game_Hwnd()
            GameReadWrite = OpenProcess(PROCESS_READ_WRITE_QUERY, False, PID)
            Dim bytArray() As Byte
            bytArray = BitConverter.GetBytes(Value)
            WriteProcessMemory(GameReadWrite, Address, bytArray, Size, 0)
            CloseHandle(GameReadWrite)
        Catch Ex As Exception
        End Try
    End Sub

    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value() As Byte)
        Try
            Dim GameReadWrite As Integer
            Dim PID As Integer = Game_Hwnd()
            GameReadWrite = OpenProcess(PROCESS_READ_WRITE_QUERY, False, PID)
            WriteProcessMemory(GameReadWrite, Address, Value, Value.Length, 0)
            CloseHandle(GameReadWrite)
        Catch Ex As Exception
        End Try
    End Sub
    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value() As Byte, ByVal Offset As Integer, ByVal Length As Integer)
        Try
            Dim Count1 As Integer
            For Count1 = 0 To Length - 1
                WriteMemory(Address + Count1, Value(Count1 + Offset), 1)
            Next
        Catch Ex As Exception
        End Try
    End Sub
    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value As String)
        Try
            Dim Length As Integer = Value.Length
            For I As Integer = 0 To Length - 1
                WriteMemory(Address + I, Asc(Value.Chars(I)), 1)
            Next
            WriteMemory(Address + Length, 0, 1)
        Catch Ex As Exception
        End Try
    End Sub

    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value As Double)
        Try
            Dim Buffer(0 To 7) As Byte
            Buffer = BitConverter.GetBytes(Value)
            For I As Integer = 0 To 7
                WriteMemory(Address + I, CInt(Buffer(I)), 1)
            Next
        Catch Ex As Exception
        End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value As Double)
        Try
            Dim Buffer(7) As Byte
            Dim Temp As Integer
            For I As Integer = 0 To 7
                ReadMemory(Address + I, Temp, 1)
                Buffer(I) = CByte(Temp)
            Next
            Value = BitConverter.ToDouble(Buffer, 0)
        Catch Ex As Exception
        End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value As Integer, ByVal Size As Integer)
        Try
            Dim mValue As Integer
            Dim GameReadWrite As Integer
            Dim PID As Integer = Game_Hwnd()
            GameReadWrite = OpenProcess(PROCESS_READ_WRITE_QUERY, False, PID)
            ReadProcessMemory(GameReadWrite, Address, mValue, Size, 0)
            Value = mValue
            CloseHandle(GameReadWrite)
        Catch Ex As Exception
        End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value() As Byte, ByVal Length As Integer)
        Dim bytArray() As Byte
        Dim Count1 As Integer
        Dim tempInteger As Integer
        ReDim bytArray(Length - 1)
        For Count1 = 0 To Length - 1
            ReadMemory(Address + Count1, tempInteger, 1)
            bytArray(Count1) = CByte(tempInteger)
        Next
        Value = bytArray
        Try
        Catch Ex As Exception
        End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value As String)
        Try
            Dim intChar As Integer
            Dim Count1 As Integer
            Dim strTemp As String
            strTemp = String.Empty
            Count1 = 0
            Do
                ReadMemory(Address + Count1, intChar, 1)
                If intChar <> 0 Then strTemp = strTemp & Chr(intChar)
                Count1 += 1
            Loop Until intChar = 0
            Value = strTemp
        Catch Ex As Exception
        End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value As String, ByVal Length As Integer)
        Try
            Dim intChar As Integer
            Dim Count1 As Integer
            Dim strTemp As String
            strTemp = String.Empty
            For Count1 = 0 To Length - 1
                ReadMemory(Address + Count1, intChar, 1)
                strTemp = strTemp & Chr(intChar)
            Next
            Value = strTemp
        Catch Ex As Exception
        End Try
    End Sub

    Function ReadInt(ByVal Address As Int32)
        Dim i As Int32
        ReadMemory(Address, i, 4)
        Return i
    End Function

    Public Sub WriteInt(ByVal Address As Int32, ByVal Value As Int32)
        WriteMemory(Address, Value, 4)
    End Sub
End Module

And you use:

WriteMemory(001AA41C, 0)

to change the address.

use "Tsearch" to find addresses.

[gotter]

wow ty but can you please help me more cause i am having some probs with making it work...

[DeadLinez]

no problem bro, had this laying around..