FORUM, Forum Discussion, Forum Gratuit, Nom de domaine, Nom de domaine gratuit, Redirection gratuite,

Forum GamerzSecrets- Maple Story, Silkroad, Gunbound, tai chi, games, Counter Strike, Battleon, Food, Porn 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 Register | Profile Profile | Private messages Private messages | Search Search | Online Online | Help Help | Create a free blog

forum Forum index forumGeneral Gaming Forum forumhow to add more forms and link to your main 1

Author : Topic: how to add more forms and link to your main 1  Bottom
 Nathaniel Zhu
 admin
 Posts : 3469
 Nathaniel Zhu
  Posted 06/02/2007 07:25:31 PM
Send a private message to Nathaniel Zhu
go to add form...the code is (the name).show
ex: form1.show
form1.refresh
end sub

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
 The Master Disguiser
  Posted 25/06/2007 08:59:35 AM
Send a private message to The Master Disguiser
They don't use Visual Basic that much anymore.

 Nathaniel Zhu
 admin
 Posts : 3469
 Nathaniel Zhu
  Posted 25/06/2007 12:19:47 AM
Send a private message to Nathaniel Zhu
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
 The Master Disguiser
  Posted 10/07/2007 01:16:53 PM
Send a private message to The Master Disguiser
What version do you have?

 Nathaniel Zhu
 admin
 Posts : 3469
 Nathaniel Zhu
  Posted 14/07/2007 12:14:53 AM
Send a private message to Nathaniel Zhu
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
 Nathaniel Zhu
  Posted 16/07/2007 06:16:49 PM
Send a private message to Nathaniel Zhu
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"
 Feldspar
  Posted 22/06/2008 04:42:58 PM
Send a private message to Feldspar
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
 Nathaniel Zhu
  Posted 22/06/2008 07:11:51 PM
Send a private message to Nathaniel Zhu
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"
 Feldspar
  Posted 22/06/2008 07:27:24 PM
Send a private message to Feldspar
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
 Nathaniel Zhu
  Posted 22/06/2008 09:59:05 PM
Send a private message to Nathaniel Zhu
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"
 Feldspar
  Posted 23/06/2008 09:45:26 AM
Send a private message to Feldspar
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.

forum Forum index forumGeneral Gaming Forum forumhow to add more forms and link to your main 1
top
Go to :
  Add a quick reply

Add a quick reply