DebateFort - Where Warriors Come To Debate
RAGECRY - Funny, Amusing, Interesting, Trending & Viral Videos and Images
GameOrc - Free Flash Games Online
Page 1 of 2 1 2 LastLast
Results 1 to 15 of 29
  1. #1
    Novice
    MPGH Member
    diamondo25's Avatar
    Join Date
    May 2007
    Gender
    male
    Posts
    55
    Reputation
    10
    Thanks
    7
    My Mood
    Tired

    Post [Tutorial]Make your first hack in Visual Basic 6 (and a begin in CE) (for noobs)

    Introduction:
    Welcome on my (first) tutorial "Make Your First Hack In Visual Basic 6".
    We gonna hack Microsoft Pinball's Money/Score value .

    *note: I use the dutch version because I'm dutch
    *note2: I use the old version of CheatEngine, V5.3
    Requirements:


    The begin:
    Ok, Start CheatEngine 5.4 (you've downloaded) and Microsoft Pinball (Can't you find it? start -> run -> pinball (button: ok)).

    See the money value? Its zero if you start pinball Just play a bit
    that the money value IS NOT 0 (zero)!



    You see my score/money is 127750
    Minimize Pinball and go to CheatEngine. If you see a tutorial window, just click it away. You see that the Little pc button is flashing, press it! You get now an window with processes and things, select pinball.exe.
    You got now this:



    Press OK! In the Value box you type your score/money of Pinball and press First Scan. You've now 2 addresses in the addresses box (if you're lucky) if not, just go further in pinball to score more, and then you go to CheatEngine and in the Value box you type your new score and press Next Scan!

    You must have a window like this (value of adresses = the score you have):


    Double click the addresses or click the red, to the right-down pointing button( ) to add the addresses to the downer box. So you can easily select them and change the values.
    You now got this:

    *Note: The addresses can be different!
    *Note: you can change te descriptions to "Money Value" or something


    Now we gonna change the score!
    Double click the address under "Value" that you get a box with "Change this value to:" and a box with your score. Change this to anything you want! Do the same with the other rule (USE THE SAME VALUE!). You can freeze the values if you want with the check boxes under "Frozen", i do this. You got now this:


    Test it!
    Go to Pinball, play a bit, and if you do it right, the score is the same you got in CheatEngine
    *Note: It change if you in the wormhole or some other thing!
    Else (if it's not changed at all or pinball crashed) , do it again :P!

    The Real coding:
    Start Visual Basic 6! Double Click on "Standard EXE", you got now an white form like this:



    You know what you must do if not (If not, press your on/off button of your pc like 10 seconds, jolt all cables off your pc and throw your computer on the street and shoot it with shotgun ) (<< Don't do that lol, just redo this step!)
    On the tab "Project" do "Add Module", you got now an window with the title "Add Module", DoubleClick the "Module" (that image in the box)
    You got now this:


    Add in the box this:
    Code:
    Public Const PROCESS_ALL_ACCESS = &H1F0FFF
    Dim f1holder As Integer
    Dim timer_pos As Long
    
    Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal SomeValueIsStoredHere As Long, lpdwProcessId As Long) As Long
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
    Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
    Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    
    Public Function WriteALong(TheGame As String, TheAddress As Long, ThisIsTheValue As Long)
    Dim SomeValueIsStoredHere As Long
    Dim SomeValueIsStoredHereToo As Long
    Dim SomeValue As Long
    SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
    GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
    SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
    If (SomeValue = 0) Then
        Exit Function
    End If
    WriteProcessMemory SomeValue, TheAddress, ThisIsTheValue, 4, 0&
    CloseHandle hProcess
    End Function
    
    Public Function ReadALong(TheGame As String, TheAddress As Long, TheValue As Long)
    Dim SomeValueIsStoredHere As Long
    Dim SomeValueIsStoredHereToo As Long
    Dim SomeValue As Long
    SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
    GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
    SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
    If (SomeValue = 0) Then
        Exit Function
    End If
    ReadProcessMem SomeValue, TheAddress, TheValue, 4, 0&
    CloseHandle hProcess
    End Function
    
     
    
    Public Function ReadAFloat(TheGame As String, TheAddress As Long, TheValue As Single)
    Dim SomeValueIsStoredHere As Long
    Dim SomeValueIsStoredHereToo As Long
    Dim SomeValue As Long
    SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
    GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
    SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
    If (SomeValue = 0) Then
        Exit Function
    End If
    ReadProcessMem SomeValue, TheAddress, TheValue, 4, 0&
    CloseHandle hProcess
    End Function
    
     
    
    Public Function WriteAFloat(TheGame As String, TheAddress As Long, ThisIsTheValue As Single)
    Dim SomeValueIsStoredHere As Long
    Dim SomeValueIsStoredHereToo As Long
    Dim SomeValue As Long
    SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
    GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
    SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
    If (SomeValue = 0) Then
        Exit Function
    End If
    WriteProcessMemory SomeValue, TheAddress, ThisIsTheValue, 4, 0&
    CloseHandle hProcess
    End Function
    'Code by Diamondo25
    *Note: this a module from a warrock hack (dont use it, its detected)

    Now, go to the main form, with tab "Window" > "1 Project1 - Form1(Code)" and add a button. DoubleClick the button that you just added . You now got something like this:


    Replace this:
    Code:
    Private Sub Command1_Click()
    
    End Sub
    with this:
    Code:
    Private Sub Command1_Click()
    Call WriteALong("3D Pinball for Windows, Space Cadet", &HA12EF4, 999999)
    Call WriteALong("3D Pinball for Windows, Space Cadet", &HB8AEBA, 999999)
    End Sub
    I gonna explain this rule for you:
    Call WriteALong("3D Pinball for Windows, Space Cadet", &HB8AEBA, 999999): "Call WriteALong" is the function to Write a long (you use WriteALong if your value is larger then 10, else you use WriteAByte (not included in the module!) if its a float (A Float is a value like 1234.90922 ) you use WriteAFloat.) If you want to read a float/byte/long you use ReadALong/Float/Byte(Title of the window, The adress you want to scan, The dimmed value you want to post in), "3D Pinball for Windows, Space Cadet" is the window title, &HB8AEBA is the address (Read the note below!), "999999" is the value you want to set.
    *Note: Add &H instead of the 2 00 (two zero's), Here's an example: Your address: 00L1FD4 You replace the 00 (two zero's) with an &H , then you got this: &HL1FD4 ,

    Now we gonna read the score value and we post it in a textbox.
    Add an new button in your form AND a textbox (Here you can see the money value)! Double click the button with the name "Command2", now you got this code:
    Code:
    Private Sub Command1_Click()
    Call WriteALong("3D Pinball for Windows, Space Cadet", &HA12EF4, 999999)
    Call WriteALong("3D Pinball for Windows, Space Cadet", &HB8AEBA, 999999)
    End Sub
    
    Private Sub Command2_Click()
    
    End Sub
    You ADD below Private Sub Command2_Click() this:
    Code:
    Dim thevalue As Long
    Call ReadALong("3D Pinball for Windows, Space Cadet", &HB8AEBA, thevalue)
    Text1.Text = thevalue
    As you see, the rule will read a long of the process with the title "3D Pinball for Windows, Space Cadet", looks for the address &HB8AEBA, and write it down in "thevalue" (what is a long), later, this value will be posted in the textbox with Text1.Text = thevalue

    You got now something like this:

    if not, do it again! :P
    Test the application with F5.
    Here a pic off mine:


    You can save the project with ctrl+s and make an EXE with the tab File -> Make Project1.exe...

    Now you know the basics (i think) If there is something missing or something, Just PM me or Post it in this tut!

    Greets Diamondo25

    Credits
    Me

  2. The Following 6 Users Say Thank You to diamondo25 For This Useful Post:

    happyboy (05-07-2008), lolicatgirl (03-12-2009), MatPian (08-05-2008), NewbieH (01-28-2009), shashank (05-09-2008), ZFused (08-30-2008)

  3. #2
    Former Staff
    Donator
    Alen's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    Liquid Generator
    Posts
    27,893
    Reputation
    2474
    Thanks
    4,183
    My Mood
    Fine
    The pinball hack is the default example on CE, so it you just copied it -.-

    Other than that the VB part is fine, used same example, but VB is useless for hacking...

  4. #3
    Member
    MPGH Member
    55555's Avatar
    Join Date
    Feb 2008
    Gender
    male
    Posts
    117
    Reputation
    10
    Thanks
    56
    thats no so easy haha

  5. #4
    Former Staff
    Donator
    Alen's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    Liquid Generator
    Posts
    27,893
    Reputation
    2474
    Thanks
    4,183
    My Mood
    Fine
    And...? It all works even if it is easy...

  6. #5
    Threadstarter
    Novice
    MPGH Member
    diamondo25's Avatar
    Join Date
    May 2007
    Gender
    male
    Posts
    55
    Reputation
    10
    Thanks
    7
    My Mood
    Tired
    Quote Originally Posted by mastasnip3 View Post
    The pinball hack is the default example on CE, so it you just copied it -.-
    Nope, i didnt copy it :P Wrote it by myself xD For some WhatPulse keys

  7. #6
    Former Staff
    Donator
    Alen's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    Liquid Generator
    Posts
    27,893
    Reputation
    2474
    Thanks
    4,183
    My Mood
    Fine
    That is cheat engine and the tutorials on the cheat engine site are for hacking pinball...

  8. #7
    Newbie rambone11's Avatar
    Join Date
    Feb 2008
    Posts
    99
    Reputation
    10
    Thanks
    4
    omg XDDD nice whit pinball
    but visual basic is a lot of mb (about 300) : i'm tryng to download it

  9. #8
    Threadstarter
    Novice
    MPGH Member
    diamondo25's Avatar
    Join Date
    May 2007
    Gender
    male
    Posts
    55
    Reputation
    10
    Thanks
    7
    My Mood
    Tired
    Try Torrents

  10. #9
    Former Staff
    Donator
    Alen's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    Liquid Generator
    Posts
    27,893
    Reputation
    2474
    Thanks
    4,183
    My Mood
    Fine
    torrents will not inrease your dl speed, mostly when connecting to servers you will have a faster dl unless you have a good connection (24 mbit +)

  11. #10
    Leecher MasterMiloo's Avatar
    Join Date
    Feb 2008
    Posts
    12
    Reputation
    10
    Thanks
    0
    hmm it doesnt work.. i made evything like u but if i click command 1 and then command 2 write somethin in the text and push command 1/2 nothing happens

  12. #11
    Banned
    BANNED!
    kkookk's Avatar
    Join Date
    Feb 2008
    Posts
    12
    Reputation
    10
    Thanks
    2
    is it real that when you hold a hack ad your own it will not so fast detected?

  13. #12
    Choob Novox's Avatar
    Join Date
    Feb 2007
    Posts
    33
    Reputation
    10
    Thanks
    0
    useless -.-

  14. #13
    Threadstarter
    Novice
    MPGH Member
    diamondo25's Avatar
    Join Date
    May 2007
    Gender
    male
    Posts
    55
    Reputation
    10
    Thanks
    7
    My Mood
    Tired
    Quote Originally Posted by kkookk View Post
    is it real that when you hold a hack ad your own it will not so fast detected?
    Ehh, yes... But if you really want an undetected hack, then you must learn C++
    I'm trying to type my best English Please, Don't spam about my typo's Because i'm Dutch

    Crap, not enough...

  15. #14
    Threadstarter
    Novice
    MPGH Member
    diamondo25's Avatar
    Join Date
    May 2007
    Gender
    male
    Posts
    55
    Reputation
    10
    Thanks
    7
    My Mood
    Tired
    Quote Originally Posted by Novox View Post
    useless -.-
    I know But this is for people, who don't know anything about hacking and vb scripting
    I'm trying to type my best English Please, Don't spam about my typo's Because i'm Dutch

    Crap, not enough...

  16. #15
    Threadstarter
    Novice
    MPGH Member
    diamondo25's Avatar
    Join Date
    May 2007
    Gender
    male
    Posts
    55
    Reputation
    10
    Thanks
    7
    My Mood
    Tired
    Quote Originally Posted by MasterMiloo View Post
    hmm it doesnt work.. i made evything like u but if i click command 1 and then command 2 write somethin in the text and push command 1/2 nothing happens
    Just nothing happened? Strange... What is your language? if its not English, you must use your own title of Pinball like mine:


    If its still don't work, post your code in a reply
    I'm trying to type my best English Please, Don't spam about my typo's Because i'm Dutch

    Crap, not enough...

Page 1 of 2 1 2 LastLast

Similar Threads

  1. [Tutorial] >How to make your first hack client! <
    By TheFk? in forum Minecraft Tutorials
    Replies: 59
    Last Post: 02-15-2012, 10:51 PM
  2. [RELEASE/INFO] CN Tutorial - Making your first CA Hack!
    By CoderNever in forum Combat Arms Hack Coding / Programming / Source Code
    Replies: 170
    Last Post: 07-26-2010, 09:11 AM
  3. *DLL* [Tutorial] Make Your first DLL Interacted to a Form Project...
    By Silk[H4x] in forum Visual Basic Programming
    Replies: 14
    Last Post: 06-26-2009, 08:52 PM
  4. Video tutorial: Making WarRock hack in Visual Basic
    By Darky in forum Visual Basic Programming
    Replies: 5
    Last Post: 02-12-2009, 02:47 PM
  5. [Video tutorial] Make your own css cheats
    By seren1ty in forum CounterStrike (CS) 1.6 Hacks / Counter Strike: Source (CSS) Hacks
    Replies: 6
    Last Post: 09-15-2007, 04:11 PM

Tags for this Thread