Making your 1st VB Trainer
This is just a simple project that can help you understand the basic of training makeing.
Now you agree on downloading and opening this file i can not be held responisble for what this program does to your game or your PC if you have any problems drop us a line at our site that is shown at the bottom.
1st make a project and a form


ok make a botton
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...
Please if you have any trouble at drop by our forums found at www.linuxmasters123d.com and drop us a line.
www.extalia.com
123cS
-==AKA==-