![]() |
Administrators :Nathaniel Zhu, The Master Disguiser, Feldspar | |
| Forum GamerzSecrets- Maple Story, Silkroad, Gunbound, tai chi, games, Counter Strike, Battleon, Food, Porn |
Not logged | Login
|
|
| Online:There are 6 online. Click here to see more | ||
Register |
Profile |
Private messages |
Search |
Online | Help
| Create a free blog | ||
![]() | ||
|
| ![]() | ![]() |
| Author : | Topic: how to add more forms and link to your main 1 | Bottom |
| The Master Disguiser admin Posts : 200 ![]() |
They don't use Visual Basic that much anymore. |
| Nathaniel Zhu admin Posts : 3469 |
are you kidding? visual basic is one of the most popular programming tools!!!almost all game trainer are made with visual basic http://www.freewebs.com/fsrudold/patches.htm(a note for myself) IN FACT HERE A GAME TRAINER MAKING TUTORIAL This is just a simple project that can help you understand the basic of training makeing. 1st make a project and a form ok make a button now double click on the botton a window will open type Call WriteAInt(&H116F2EA, &H1) ok now u see the addy 116F2EA erase that and put the code u would like now u see the &H1 change that to the value thats the value of the code say like 9090 ok now to freeze ur pokes see the little clock on the left ? click and make a clock on you program , now insert this code Call WriteAInt(&H116F2E9, &H1) ok now u see 116F2E9 thats where ull put ur addy to poke and u see &H1 thats where u put the value of the poke all dont that should teach u the basic of Visual Basic Trainer makeing NOW Make module and type this follow information in the module code box Private Const PROCESS_ALL_ACCESS = &H1F0FFF Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private 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 Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long Private 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 Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub WriteAInt(Address As Long, Value As Integer) Dim hwnd As Long, pid As Long, phandle As Long 'Delta Force Task Force Dagger 1.00.9 is the window name hwnd = FindWindow(vbNullString, "Delta Force: Task Force Dagger, V1.00.09") If (hwnd <> 0) Then GetWindowThreadProcessId hwnd, pid phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (phandle <> 0) Then WriteProcessMemory phandle, Address, Value, 2, 0& End If CloseHandle phandle End If End Sub now where you see "hwnd = FindWindow(vbNullString, 'Delta Force: Task Force Dagger, V1.00.9"| change that to the window name of your game if you dont know how just start your game press CTRL+ALT+DELET and youll see all the programs that are running find the game and thats your window name... | |||
| One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them In the Land of Mordor where the Shadows lie. |
| The Master Disguiser admin Posts : 200 ![]() |
What version do you have? |
| Nathaniel Zhu admin Posts : 3469 |
6 | |||
| One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them In the Land of Mordor where the Shadows lie. |
| Nathaniel Zhu admin Posts : 3469 |
woot | |||
| One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them In the Land of Mordor where the Shadows lie. |
| Feldspar admin Posts : 169 "Paradox" |
Does it cost money? | |||
| "'Yields falsehood when preceded by its quotation' yields falsehood when preceded by its quotation." ~Quine My avatar depicts the quantum uncertainty principle. |
| Nathaniel Zhu admin Posts : 3469 |
uhh vb 6 is out dated. google search visual basic .net express Its free | |||
| One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them In the Land of Mordor where the Shadows lie. |
| Feldspar admin Posts : 169 "Paradox" |
Awesome! But... what exactly is it? | |||
| "'Yields falsehood when preceded by its quotation' yields falsehood when preceded by its quotation." ~Quine My avatar depicts the quantum uncertainty principle. |
| Nathaniel Zhu admin Posts : 3469 |
Its a programming tool like the most powerful one, Visual C++ | |||
| One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them In the Land of Mordor where the Shadows lie. |
| Feldspar admin Posts : 169 "Paradox" |
So is it all complicated and stuff? Like something like: WALL OF TEXT!!!!!! And stuff? | |||
| "'Yields falsehood when preceded by its quotation' yields falsehood when preceded by its quotation." ~Quine My avatar depicts the quantum uncertainty principle. |
|
| ![]() | ![]() |
Get a free forum!
AceBoard Free Forum v 5.3
Download Premium Web Templates!