Results 1 to 11 of 11
  1. #1
    gotter's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    Minecraft snowy Biome
    Posts
    360
    Reputation
    6
    Thanks
    151

    NEED HELP PLEASE ( Visual Basic Hacks )

    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!
    Last edited by gotter; 07-19-2010 at 08:33 AM.

  2. #2
    Relyc's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    22
    Reputation
    10
    Thanks
    0
    My Mood
    Inspired
    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.

  3. #3
    Solify's Avatar
    Join Date
    Feb 2009
    Gender
    male
    Location
    Frankfurt, Germany
    Posts
    2,291
    Reputation
    143
    Thanks
    2,473
    My Mood
    Aggressive
    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

  4. #4
    zmansquared's Avatar
    Join Date
    Oct 2008
    Gender
    male
    Location
    Kickin it at Microsoft
    Posts
    2,088
    Reputation
    36
    Thanks
    221
    My Mood
    Cheerful
    i would say NO vb to make hack.
    Need Help With Coding or Something??? MSN me
    zmansquared@hotmail.com


    I am the one and only Microsoft Fag!!!

    Quote:
    Originally Posted by Arhk
    All games should be hacked, if we don't do it someone else will. Hackers force the progress, of better programming methods.
    ~


    Take this Pic everyone!



    next-

  5. #5
    Zoom's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Your going on my 24/7 DDoS hit list.
    Posts
    8,561
    Reputation
    127
    Thanks
    5,912
    My Mood
    Happy
    its hard to make good vb hacks.
    -Rest in peace leechers-

    Your PM box is 100% full.

  6. #6
    zmansquared's Avatar
    Join Date
    Oct 2008
    Gender
    male
    Location
    Kickin it at Microsoft
    Posts
    2,088
    Reputation
    36
    Thanks
    221
    My Mood
    Cheerful
    its possible but hs can pick em up very easily
    Need Help With Coding or Something??? MSN me
    zmansquared@hotmail.com


    I am the one and only Microsoft Fag!!!

    Quote:
    Originally Posted by Arhk
    All games should be hacked, if we don't do it someone else will. Hackers force the progress, of better programming methods.
    ~


    Take this Pic everyone!



    next-

  7. #7
    whit's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Posts
    7,170
    Reputation
    490
    Thanks
    2,252
    I know sumone who can Bitches...
    but anyways go to Vb section...

  8. #8
    gotter's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    Minecraft snowy Biome
    Posts
    360
    Reputation
    6
    Thanks
    151
    i looked all the vb section but found nothing about combat arms hacks

  9. #9
    DeadLinez's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Location
    http://mpgh.net Sexy Points: 989,576,420
    Posts
    465
    Reputation
    11
    Thanks
    499
    My Mood
    Psychedelic
    Code:
    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:
    Code:
    WriteMemory(001AA41C, 0)
    to change the address.

    use "Tsearch" to find addresses.

  10. The Following User Says Thank You to DeadLinez For This Useful Post:

    gotter (07-19-2010)

  11. #10
    gotter's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    Minecraft snowy Biome
    Posts
    360
    Reputation
    6
    Thanks
    151
    wow ty but can you please help me more cause i am having some probs with making it work...
    Last edited by gotter; 07-20-2010 at 04:27 AM.

  12. #11
    DeadLinez's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Location
    http://mpgh.net Sexy Points: 989,576,420
    Posts
    465
    Reputation
    11
    Thanks
    499
    My Mood
    Psychedelic
    no problem bro, had this laying around..

Similar Threads

  1. ***VISUAL BASIC 6 NEED HELP PLEASE
    By HustlaOwnz in forum CrossFire Hack Coding / Programming / Source Code
    Replies: 7
    Last Post: 07-25-2010, 12:14 AM
  2. Need Help With Visual Basic 2008
    By xsaban13x in forum Combat Arms Discussions
    Replies: 2
    Last Post: 04-19-2010, 02:43 AM
  3. Need help with visual basic PHISHING program
    By mariofan901 in forum Visual Basic Programming
    Replies: 14
    Last Post: 10-10-2009, 12:27 PM
  4. i need help please visual c++
    By yexon in forum C++/C Programming
    Replies: 3
    Last Post: 04-10-2009, 07:45 PM
  5. Need Mega Help Please With My Hack
    By rob1cool in forum Visual Basic Programming
    Replies: 0
    Last Post: 03-24-2008, 09:21 AM