Results 1 to 7 of 7
  1. 03-09-2011 #1
    supercarz1991
    supercarz1991 is offline
    MPGH King
    MPGH Member
    supercarz1991's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    6,285
    Reputation
    435
    Thanks
    3,715
    My Mood
    Doh
    Send a message via Birdie™ to supercarz1991 United States

    this was meant for the help section, but it wont post for some reason.....

    anyway...i'll try here.

    use it if you want. edit it if you want. I doubt it works since its based on an old patched hotkey base.

    anyway, heres the vb source, i'll put original C++ source below the vb source

    vb source
    Code:
    Public Class GlobalMembersBase
    'original coded line: void __cdecl PushToConsole(String szCommand)
	Public Shared Sub PushToConsole(ByVal szCommand As String)
        Dim LTClient As UInteger = CUInt(&H3781BE50) ' 0x3777DDAC is value found in Cshell.dll but not work more
		Dim CONoff As IntPtr = (IntPtr)*CUInt(LTClient + &H208)

		__asm
        Dim szCommand As New push()
			Dim CONoff As New call()
			Dim esp As New add()
        add(1)
	End Sub
	Public Shared Function IsGameReadyForHook() As Boolean
		If GetModuleHandle("d3d9.dll") IsNot Nothing AndAlso GetModuleHandle("ClientFX.fxd") IsNot Nothing AndAlso GetModuleHandle("CShell.dll") IsNot Nothing Then
			Return True
		End If

		Return False
	End Function
	Shared Sub Main()
		Do While Not GlobalMembersBase.IsGameReadyForHook()
			Sleep(20)
		Loop
		Dim boxes As Boolean = False
		Dim fog As Boolean = False
		Dim speed As Boolean = False
		Dim spread As Boolean = False
		Dim tracers As Boolean = False
		Dim showfps As Boolean = False
		Dim unlockcursor As Boolean = False
		Dim drawgun As Boolean = False
		Dim sjump As Boolean = False
		GlobalMembersBase.PushToConsole("FallDamageMinHeight 0.000000") ' not work
		GlobalMembersBase.PushToConsole("FallDamageMaxHeight 0.000000") ' not work
		GlobalMembersBase.PushToConsole("FallDamageMax 0.000000") ' not work
		Do
			If GetAsyncKeyState(VK_NUMPAD1)<0 Then
				If boxes Then
					GlobalMembersBase.PushToConsole("ModelDebug_DrawBoxes 0")
					GlobalMembersBase.PushToConsole("SkelModelStencil 0")
					boxes = False
				Else
					GlobalMembersBase.PushToConsole("ModelDebug_DrawBoxes 1") ' Box ESP
					GlobalMembersBase.PushToConsole("SkelModelStencil 1") ' Satelite Chams
					boxes = True
				End If
			End If
			If GetAsyncKeyState(VK_NUMPAD2)<0 Then
				If fog Then
					GlobalMembersBase.PushToConsole("FogEnable 1")
					fog = False
				Else
					GlobalMembersBase.PushToConsole("FogEnable 0") ' No Fog
					fog = True
				End If
			End If
			If GetAsyncKeyState(VK_NUMPAD3)<0 Then
				If speed Then
					GlobalMembersBase.PushToConsole("BaseMoveAccel 3000.000000") ' Speed Default
					GlobalMembersBase.PushToConsole("StartAccel 500.000000")
					GlobalMembersBase.PushToConsole("MaxAccel 3000.000000")
					GlobalMembersBase.PushToConsole("AccelInc 6000.000000")
					GlobalMembersBase.PushToConsole("WalkVel 70.000000")
					GlobalMembersBase.PushToConsole("FRunVel 285.000000")
					GlobalMembersBase.PushToConsole("BRunVel 285.000000")
					GlobalMembersBase.PushToConsole("SRunVel 285.000000")
					GlobalMembersBase.PushToConsole("DuckVel 50.000000")
					speed = False
				Else
					GlobalMembersBase.PushToConsole("BaseMoveAccel 3000.000000") ' Speed Hack
					GlobalMembersBase.PushToConsole("StartAccel 3000.000000")
					GlobalMembersBase.PushToConsole("MaxAccel 3000.000000")
					GlobalMembersBase.PushToConsole("AccelInc 3000.000000")
					GlobalMembersBase.PushToConsole("WalkVel 3000.000000")
					GlobalMembersBase.PushToConsole("FRunVel 3000.000000")
					GlobalMembersBase.PushToConsole("BRunVel 3000.000000")
					GlobalMembersBase.PushToConsole("SRunVel 3000.000000")
					GlobalMembersBase.PushToConsole("DuckVel 3000.000000")
					speed = True
				End If
			End If
			If GetAsyncKeyState(VK_NUMPAD4)<0 Then
				If spread Then
					GlobalMembersBase.PushToConsole("PerturbRotationEffect 3.000000")
					GlobalMembersBase.PushToConsole("PerturbIncreaseSpeed 3.000000")
					GlobalMembersBase.PushToConsole("PerturbDecreaseSpeed 9.000000")
					GlobalMembersBase.PushToConsole("PerturbWalkPercent 0.500000")
					spread = False
				Else
					GlobalMembersBase.PushToConsole("PerturbRotationEffect  0.000000") ' No Spread
					GlobalMembersBase.PushToConsole("PerturbIncreaseSpeed 0.000000")
					GlobalMembersBase.PushToConsole("PerturbWalkPercent 0.000000")
					GlobalMembersBase.PushToConsole("PerturbFiringIncreaseSpeed 0.000000")
					spread = True
				End If
			End If
			If GetAsyncKeyState(VK_NUMPAD5)<0 Then
				If tracers Then
					GlobalMembersBase.PushToConsole("ShowFirePath 0")
					tracers = False
				Else
					GlobalMembersBase.PushToConsole("ShowFirePath 1") ' Bullet Tracers
					tracers = True
				End If
			End If
			If GetAsyncKeyState(VK_NUMPAD6)<0 Then
				If sjump Then
					GlobalMembersBase.PushToConsole("JumpVel 330.000000")
					sjump = False
				Else
					GlobalMembersBase.PushToConsole("JumpVel 660.000000") ' Super Jump
					sjump = True
				End If
			End If
			If GetAsyncKeyState(VK_NUMPAD7)<0 Then
				If showfps Then
					GlobalMembersBase.PushToConsole("ShowFps 0")
					showfps = False
				Else
					GlobalMembersBase.PushToConsole("ShowFps 1") ' Show FPS
					showfps = True
				End If
			End If
			If GetAsyncKeyState(VK_NUMPAD8)<0 Then
				If unlockcursor Then
					GlobalMembersBase.PushToConsole("CursorCenter 1")
					unlockcursor = False
				Else
					GlobalMembersBase.PushToConsole("CursorCenter 0") ' Lock Cursor in center and Unlock
					unlockcursor = True
				End If
			End If
			If GetAsyncKeyState(VK_NUMPAD9)<0 Then
				If drawgun Then
					GlobalMembersBase.PushToConsole("drawguns 1")
					drawgun = False
				Else
					GlobalMembersBase.PushToConsole("drawguns 0") ' No Weapon
					drawgun = True
				End If
			End If
			If GetAsyncKeyState(VK_UP)<0 Then
				GlobalMembersBase.PushToConsole("CamMaxPosYOffset 200.000000")
				GlobalMembersBase.PushToConsole("DuckDownCamOffSet 1000.000000") ' Virtual Jump or CamPosition
			End If
			If GetAsyncKeyState(VK_DOWN)<0 Then
				GlobalMembersBase.PushToConsole("CamMaxPosYOffset -1000.000000") ' Virtual Down or CamPosition
				GlobalMembersBase.PushToConsole("DuckDownCamOffSet -13.000000")
			End If
			If GetAsyncKeyState(VK_ADD)<0 Then
                GlobalMembersBase.PushToConsole("PlayerGravity 800") ' Fly
			End If
			If GetAsyncKeyState(VK_SUBTRACT)<0 Then
				GlobalMembersBase.PushToConsole("PlayerGravity -800") ' NoFly
			End If
			If GetAsyncKeyState(VK_MULTIPLY)<0 Then
				GlobalMembersBase.PushToConsole("PlayerGravity 0") ' Hover
			End If
			Sleep(200)
		Loop
	End Sub

    'original code line: Integer APIENTRY DllMain(IntPtr hModule, UInteger ul_reason_for_call, IntPtr  lpReserved)
	Public Shared Function DllMain(ByVal hModule As IntPtr, ByVal ul_reason_for_call As UInteger, ByVal lpReserved As IntPtr) As Integer
		Select Case ul_reason_for_call
		Case DLL_PROCESS_ATTACH
			CreateThread(Nothing, 0, (LPTHREAD_START_ROUTINE) And main, Nothing, 0, Nothing)
		Case DLL_THREAD_ATTACH, DLL_THREAD_DETACH, DLL_PROCESS_DETACH
		End Select
		Return 1
	End Function
End Class
    c++ code
    Code:
    #include <windows.h>
void __cdecl PushToConsole( const char* szCommand )
{
    DWORD *LTClient = ( DWORD* )( 0x3718BF20 ); // 0x3777DDAC is value found in Cshell.dll but not work more
    void* CONoff = ( void* )*( DWORD* )( *LTClient + 0x208 );

    __asm
    {
        push szCommand;
        call CONoff;
        add esp, 4;
    }
}
bool IsGameReadyForHook()
{
    if( GetModuleHandle( "d3d9.dll"     ) != NULL 
     && GetModuleHandle( "ClientFX.fxd" ) != NULL 
     && GetModuleHandle( "CShell.dll"   ) != NULL )
        return true;

    return false;
}
void main()
{
    while (!IsGameReadyForHook()){
        Sleep(20);
    }
    bool boxes = false;
    bool fog = false;
    bool speed = false;
    bool spread = false;
    bool tracers = false;
    bool showfps = false;
    bool unlockcursor = false;
    bool drawgun = false;
    bool sjump = false;
    PushToConsole("FallDamageMinHeight 0.000000"); // not work
    PushToConsole("FallDamageMaxHeight 0.000000"); // not work
    PushToConsole("FallDamageMax 0.000000"); // not work
    while(true){
        if(GetAsyncKeyState(VK_NUMPAD1)<0){
            if(boxes){
                PushToConsole("ModelDebug_DrawBoxes 0"); 
                PushToConsole("SkelModelStencil 0"); 
                boxes = false;
            } else {
                PushToConsole("ModelDebug_DrawBoxes 1"); // Box ESP
                PushToConsole("SkelModelStencil 1"); // Satelite Chams
                boxes = true;
            }
        }
        if(GetAsyncKeyState(VK_NUMPAD2)<0){
            if(fog){
                PushToConsole("FogEnable 1");
                fog = false;
            } else {
                PushToConsole("FogEnable 0"); // No Fog
                fog = true;
            }
        }
        if(GetAsyncKeyState(VK_NUMPAD3)<0){
            if(speed){
                PushToConsole("BaseMoveAccel 3000.000000"); // Speed Default
                PushToConsole("StartAccel 500.000000");
                PushToConsole("MaxAccel 3000.000000");
                PushToConsole("AccelInc 6000.000000");
                PushToConsole("WalkVel 70.000000");
                PushToConsole("FRunVel 285.000000");
                PushToConsole("BRunVel 285.000000");
                PushToConsole("SRunVel 285.000000");
                PushToConsole("DuckVel 50.000000");
                speed = false;
            } else {
                PushToConsole("BaseMoveAccel 3000.000000"); // Speed Hack
                PushToConsole("StartAccel 3000.000000");
                PushToConsole("MaxAccel 3000.000000");
                PushToConsole("AccelInc 3000.000000");
                PushToConsole("WalkVel 3000.000000");
                PushToConsole("FRunVel 3000.000000");
                PushToConsole("BRunVel 3000.000000");
                PushToConsole("SRunVel 3000.000000");
                PushToConsole("DuckVel 3000.000000");
                speed = true;
            }
        }
        if(GetAsyncKeyState(VK_NUMPAD4)<0){
            if(spread){
                PushToConsole("PerturbRotationEffect 3.000000");
                PushToConsole("PerturbIncreaseSpeed 3.000000");
                PushToConsole("PerturbDecreaseSpeed 9.000000");
                PushToConsole("PerturbWalkPercent 0.500000");
                spread = false;
            } else {
                PushToConsole("PerturbRotationEffect  0.000000"); // No Spread
                PushToConsole("PerturbIncreaseSpeed 0.000000"); 
                PushToConsole("PerturbWalkPercent 0.000000"); 
                PushToConsole("PerturbFiringIncreaseSpeed 0.000000");
                spread = true;
            }
        }
        if(GetAsyncKeyState(VK_NUMPAD5)<0){
            if(tracers){
                PushToConsole("ShowFirePath 0");
                tracers = false;
            } else {
                PushToConsole("ShowFirePath 1"); // Bullet Tracers
                tracers = true;
            }
        }
        if(GetAsyncKeyState(VK_NUMPAD6)<0){
            if(sjump){
                PushToConsole("JumpVel 330.000000");
                sjump = false;
            } else {
                PushToConsole("JumpVel 660.000000"); // Super Jump
                sjump = true;
            }
        }
        if(GetAsyncKeyState(VK_NUMPAD7)<0){
            if(showfps){
                PushToConsole("ShowFps 0");
                showfps = false;
            } else {
                PushToConsole("ShowFps 1"); // Show FPS
                showfps = true;
            }
        }
        if(GetAsyncKeyState(VK_NUMPAD8)<0){
            if(unlockcursor){
                PushToConsole("CursorCenter 1");
                unlockcursor = false;
            } else {
                PushToConsole("CursorCenter 0"); // Lock Cursor in center and Unlock
                unlockcursor = true;
            }
        }
        if(GetAsyncKeyState(VK_NUMPAD9)<0){
            if(drawgun){
                PushToConsole("drawguns 1");
                drawgun = false;
            } else {
                PushToConsole("drawguns 0"); // No Weapon
                drawgun = true;
            }
        }
        if(GetAsyncKeyState(VK_UP)<0){
            PushToConsole("CamMaxPosYOffset 200.000000");
            PushToConsole("DuckDownCamOffSet 1000.000000"); // Virtual Jump or CamPosition
        }
        if(GetAsyncKeyState(VK_DOWN)<0){
            PushToConsole("CamMaxPosYOffset -1000.000000"); // Virtual Down or CamPosition
            PushToConsole("DuckDownCamOffSet -13.000000");
        }
        if(GetAsyncKeyState(VK_ADD)<0){
            PushToConsole("PlayerGravity +800"); // Fly
        }
        if(GetAsyncKeyState(VK_SUBTRACT)<0){
            PushToConsole("PlayerGravity -800"); // NoFly
        }
        if(GetAsyncKeyState(VK_MULTIPLY)<0){
            PushToConsole("PlayerGravity 0"); // Hover
        }
        Sleep(200);
    }
}
BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
        CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)&main, NULL, 0,NULL);
        break;
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}
    could it work? (of course, if updated

    commando: You're probably the best non-coder coder I know LOL

  2. 03-09-2011 #2
    whit
    whit is offline
    Banned
    BANNED!
    whit's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Posts
    7,159
    Reputation
    490
    Thanks
    2,253
    Send a message via Birdie™ to whit United States
    Yea it could..
    Vb is a programing language too..And also .NET as well
  3. 03-09-2011 #3
    supercarz1991
    supercarz1991 is offline
    Threadstarter
    MPGH King
    MPGH Member
    supercarz1991's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    6,285
    Reputation
    435
    Thanks
    3,715
    My Mood
    Doh
    Send a message via Birdie™ to supercarz1991 United States
    so if i fixed that up...could i make like a super trainer for CA? lol

    commando: You're probably the best non-coder coder I know LOL

  4. 03-10-2011 #4
    flameswor10
    flameswor10 is offline
    Nexon Employee.
    Former Staff
    flameswor10's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    12,528
    Reputation
    981
    Thanks
    10,409
    My Mood
    In Love
    Send a message via Birdie™ to flameswor10 Australia
    No you can not?
    A trainer an external hack.
    When you inject, it's internal. (i think i got it correct)
    No I do not make game hacks anymore, please stop asking.
  5. 03-10-2011 #5
    supercarz1991
    supercarz1991 is offline
    Threadstarter
    MPGH King
    MPGH Member
    supercarz1991's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    6,285
    Reputation
    435
    Thanks
    3,715
    My Mood
    Doh
    Send a message via Birdie™ to supercarz1991 United States
    Quote Originally Posted by flameswor10 View Post
    No you can not?
    A trainer an external hack.
    When you inject, it's internal. (i think i got it correct)
    Hmm...there's gotta be a way to send a push comand tho
  6. 03-10-2011 #6
    topblast
    topblast is offline
    MPGH Addict
    MPGH Member
    topblast's Avatar
    Join Date
    Mar 2010
    Gender
    male
    Location
    Far from around you Programmer: C++ | VB | C# | JAVA
    Posts
    3,607
    Reputation
    149
    Thanks
    5,052
    My Mood
    Cool
    Send a message via Birdie™ to topblast Barbados Topblast topblast
    Please... Dont fill the childs head with foolshness...


    In the chance that you get the DLL to use DllMain which i dont think will work if it is in a class... You PTC will never work ... because well VB does not have ASM .. AND COME ON!!!!!!!!
    Dim szCommand As New push()
    Dim CONoff As New call()
    Dim esp As New add()

    Any ways.. back to the story.. Visual Basic is does not have most of those functions like GerModuleHandle, GetAsyncKeyState VK_NUMPAD9 .. This is Visual BASIC i am sure it will have have those and the way you call your Pushtoconsole will not work.

    Your CreateThread. also is WRONG.
    Dim WOW as new ThreaD(AddressOf (The Sub you want here))
    WOW.Start()' THAT IS VISUAL BASIC


    It will not work at this moment
    I just like programming, that is all.

    Current Stuff:

    • GPU Programmer (Cuda)
    • Client/Server (Cloud Server)
    • Mobile App Development
  7. 03-10-2011 #7
    supercarz1991
    supercarz1991 is offline
    Threadstarter
    MPGH King
    MPGH Member
    supercarz1991's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    6,285
    Reputation
    435
    Thanks
    3,715
    My Mood
    Doh
    Send a message via Birdie™ to supercarz1991 United States
    Blame the converter...not me
« Previous Thread | Next Thread »