Page 1 of 3 123 LastLast
Results 1 to 15 of 39
  1. #1
    Abstract's Avatar
    Join Date
    Mar 2009
    Gender
    male
    Location
    Look in your refrigerator
    Posts
    3,626
    Reputation
    54
    Thanks
    978

    [Tutorial]Easy VB Trainer

    Hi, today im gonna show you how to make a easy trainer in Visual Basic. Im gonna do this in some easy steps!

    1. First of all open Visual Basic. (Any version. I prefer Visual Basic 2008 Express)
    Now make a new project. Name it whatever you want


    2. Make a new module. Name it whatever you want


    3. Add this to the module. (Clear out all in the module before inserting or else you will get some errors)


    [php]Module Module1

    #region "Declarations"

    Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
    Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer

    Private string1 As Long
    Private string2 As Integer
    Private RBuff1 As Long
    Private RBuff2 As Single
    Private RBuff3 As Integer

    #end region

    #Region "Check Process/ReadDll"

    Private Function readdll(ByVal modulename As String)
    Dim procmodule As ProcessModule
    Dim constant1 As Integer
    Dim constant2 As Long
    Dim constant3 As Process() = Process.GetProcessesByName("iw4mp")
    If constant3.Length = 0 Then
    Return 0
    End If
    For Each procmodule In constant3(0).Modules
    If modulename = procmodule.ModuleName Then
    constant1 = procmodule.BaseAddress
    End If
    Next
    constant2 = constant1
    Return constant2
    End Function

    Public Function IsProcessOpen(ByVal name As String) As Boolean

    For Each clsProcess As Process In Process.GetProcesses

    If clsProcess.ProcessName.Contains(name) Then


    Return True

    End If
    Next
    ' Do nothing
    Return False
    End Function


    #end region

    #Region "Hacks"

    'WriteMemory
    Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
    Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    If iw4mpLookUp.Length = 0 Then
    End
    End If
    Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
    CloseHandle(processHandle)

    Return Nothing
    End Function

    'WriteFloat
    Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
    Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    If iw4mpLookUp.Length = 0 Then
    End
    End If
    Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
    CloseHandle(processHandle)

    Return Nothing
    End Function

    'NOP
    Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
    Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    If iw4mpLookUp.Length = 0 Then
    End
    End If
    Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    WriteProcessMemory(processHandle, Address, value, 1, Nothing)
    CloseHandle(processHandle)

    Return Nothing
    End Function

    #End region

    #Region "Functions"

    Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
    If IsProcessOpen("iw4mp") Then

    string1 = readdll("cshell.dll")
    string2 = "&H" & Hex(string1 + address)
    WriteMemory(string2, value, bytes)
    End If
    Return Nothing
    End Function

    Public Function floath4x(ByVal address As String, ByVal value As Long)
    If IsProcessOpen("iw4mp") Then

    string1 = readdll("cshell.dll")
    string2 = "&H" & Hex(string1 + address)
    WriteFloat(string2, value)
    End If
    Return Nothing
    End Function

    Public Function noph4x(ByVal address As String, ByVal value As Long)
    If IsProcessOpen("iw4mp") Then
    string1 = readdll("cshell.dll")
    string2 = "&H" & Hex(string1 + address)
    NOP(string2, value)


    End If
    Return Nothing
    End Function

    #end region
    End Module[/php]

    4. Go back to the designing form and make a textbox, a button and a label


    5. Doubleclick the button and add
    [php]memoryh4x(&H12BC89C, textbox1.text, 4) 'Exp code[/php]

    If you want to set a default value like level 70 then [php]memoryh4x(&H12BC89C, 2516000, 4) 'Exp code[/php]
    Just fill in whatever value u want, and put it on a button as above.

    6. Now debug and test it in barracks!
    If everything works, You just made your first trainer in Visual Basic

    Credits:
    Me for tutorial
    Blubb for his awesome module and funcrions forund here
    And last CK for his cheat engine tables in attachments

    Here are some cheat engine etables so you can find all the adresses needed!!

    Virusscans:
    Virustotal
    Virscan

    If you dont even know what to do with the Cheat Engine files, then dont try. Read some tuts and come back in a year!!!

    Dont say it, press it
    Last edited by Abstract; 08-23-2010 at 01:46 AM.

  2. The Following 29 Users Say Thank You to Abstract For This Useful Post:

    ad3e (09-25-2015),Angelchev (08-29-2010),B4M (08-22-2010),billy9999 (09-29-2010),bremiller1421 (07-25-2011),casppae (08-03-2013),cgallagher21 (08-22-2010),dtb2001 (05-14-2013),GBot! (08-22-2010),HGP (03-09-2013),House (08-22-2010),[MPGH]Insane (08-22-2010),julius2314 (06-26-2012),kila58 (08-11-2012),lolbie (08-22-2010),lolkop123 (09-09-2010),Maniac101 (08-25-2010),ong siow wei (12-11-2013),OnLy123 (08-07-2015),pakcaponsang (01-11-2014),Personality (08-22-2010),pikadeponei2 (06-01-2014),sima_6600 (08-24-2010),Skyline. (08-23-2010),spyrozone73 (12-28-2012),starcitykilla (05-01-2013),tianz (06-25-2013),topblast (10-06-2010),transongngocquan (04-25-2012)

  3. #2
    Melodia's Avatar
    Join Date
    Dec 2009
    Gender
    female
    Posts
    2,608
    Reputation
    276
    Thanks
    1,661
    My Mood
    Dead
    ~Approved.

    Enjoy =).
    Meah...DunnLike VB
    Love You All~

  4. #3
    Abstract's Avatar
    Join Date
    Mar 2009
    Gender
    male
    Location
    Look in your refrigerator
    Posts
    3,626
    Reputation
    54
    Thanks
    978
    Quote Originally Posted by Melodia View Post
    ~Approved.

    Enjoy =).
    Meah...DunnLike VB
    Give it a try /yea Much esier to design with

  5. #4
    House's Avatar
    Join Date
    Mar 2010
    Gender
    male
    Posts
    2,990
    Reputation
    223
    Thanks
    8,955
    My Mood
    Cynical
    Nice TUT thanks

  6. #5
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    wow thx never found a tut like this i may gonna make a trainer for hacked mw 2 sp so some people can hack on that too

  7. #6
    deoxyribonucleicacid's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    The Great White North
    Posts
    53
    Reputation
    19
    Thanks
    36
    Nice tutorial but Visual basic is so ugly

  8. #7
    House's Avatar
    Join Date
    Mar 2010
    Gender
    male
    Posts
    2,990
    Reputation
    223
    Thanks
    8,955
    My Mood
    Cynical
    lol why ugly?

  9. #8
    deoxyribonucleicacid's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    The Great White North
    Posts
    53
    Reputation
    19
    Thanks
    36
    Haha just look at that interface and how hard it is to make a trainer.

  10. #9
    Insane's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Posts
    9,055
    Reputation
    1007
    Thanks
    1,997
    Lets just hope we don't get millions of releases because of the
    Good tutorial
    Insane
    Ex Middleman
    [
    PM|VM]
    |x|x|x|x|x|x|x|



    Quote Originally Posted by Boombox View Post
    Shut the fuck up insane you pussy bitch.
    Quote Originally Posted by arunforce View Post
    Shut the fuck up kid, everything that comes out of your mouth sounds retarded as fuck.

  11. #10
    Personality's Avatar
    Join Date
    Aug 2010
    Gender
    male
    Location
    Photoshop CS4
    Posts
    121
    Reputation
    10
    Thanks
    5
    My Mood
    Happy
    Great tutorial. Thanks that answered my question.

  12. #11
    B4M's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Real World
    Posts
    6,939
    Reputation
    478
    Thanks
    1,746
    My Mood
    Bored
    Abstract my friend, thanks a lot!

    Now prepare for trainers mania


    Back in '10



    Got a question?PM/VM me!
    I read them all.
    Also contact me via MSN.
    vlad@mpgh.net

    Minion since:07-04-2010
    Mod since:08-31-2010
    Till : 05.07.2011

  13. #12
    jabbathehutt's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Posts
    616
    Reputation
    18
    Thanks
    725
    My Mood
    Aggressive
    I thought Blubb already made such as tutorial?
    Everbody is making a trainer now in VB. I will start to learn C++.
    Helped out over 5000 guys with my level trainer and other stuff.

    Selling Steam accounts. Send me a message if you're interested.



    Nice forum needs to expands! Register now for a good position! (PM me)


  14. #13
    Abstract's Avatar
    Join Date
    Mar 2009
    Gender
    male
    Location
    Look in your refrigerator
    Posts
    3,626
    Reputation
    54
    Thanks
    978
    Quote Originally Posted by jabbathehutt View Post
    I thought Blubb already made such as tutorial?
    Everbody is making a trainer now in VB. I will start to learn C++.
    He released the module and functions

  15. #14
    jabbathehutt's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Posts
    616
    Reputation
    18
    Thanks
    725
    My Mood
    Aggressive
    And you gave all the noobs who don't understand VB a way to make there own trainer...
    Helped out over 5000 guys with my level trainer and other stuff.

    Selling Steam accounts. Send me a message if you're interested.



    Nice forum needs to expands! Register now for a good position! (PM me)


  16. The Following User Says Thank You to jabbathehutt For This Useful Post:

    Blubb1337 (08-22-2010)

  17. #15
    Blubb1337's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Location
    Germany
    Posts
    5,923
    Reputation
    161
    Thanks
    3,096
    Ya people who just finished watching Hello World will now try to do a trainer and fail miserably cuz they cannot fix upcoming errors.

    Thanks for the tutorial though.



  18. The Following 2 Users Say Thank You to Blubb1337 For This Useful Post:

    House (08-22-2010),[MPGH]master131 (08-22-2010)

Page 1 of 3 123 LastLast

Similar Threads

  1. [SOLVED] Tutorial for making trainers/hacks with C++?
    By Tigermisu in forum Call of Duty Modern Warfare 2 Help
    Replies: 4
    Last Post: 06-03-2010, 10:51 AM
  2. [Tutorial]Making a Trainer[Closed]
    By CoderNever in forum Visual Basic Programming
    Replies: 6
    Last Post: 04-14-2010, 10:56 AM
  3. [Tutorial] Easy Modern Warfare 2 rank hack
    By Inmolak in forum General Hacking
    Replies: 2
    Last Post: 01-29-2010, 03:52 PM
  4. [Tutorial] CA Mod's Tutorial: Easy Model Editing
    By Kuro Tenshi in forum Combat Arms Europe Hacks
    Replies: 5
    Last Post: 01-10-2010, 05:27 PM
  5. [Tutorial] VB6 Flash Trainer
    By CrazyBish in forum Programming Tutorials
    Replies: 12
    Last Post: 04-17-2009, 10:54 AM