Results 1 to 7 of 7
  1. #1
    supercarz1991's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    North of Hell, South of Heaven
    Posts
    6,067
    Reputation
    323
    Thanks
    3,323
    My Mood
    Doh

    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. #2
    whit's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Posts
    7,170
    Reputation
    490
    Thanks
    2,252
    Yea it could..
    Vb is a programing language too..And also .NET as well

  3. #3
    supercarz1991's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    North of Hell, South of Heaven
    Posts
    6,067
    Reputation
    323
    Thanks
    3,323
    My Mood
    Doh
    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. #4
    flameswor10's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    12,528
    Reputation
    981
    Thanks
    10,404
    My Mood
    In Love
    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.


    Been MPGH Minion: 6 July 2011 - 1 August 2012

  5. #5
    supercarz1991's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    North of Hell, South of Heaven
    Posts
    6,067
    Reputation
    323
    Thanks
    3,323
    My Mood
    Doh
    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. #6
    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
    4,922
    My Mood
    Cool
    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. #7
    supercarz1991's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    North of Hell, South of Heaven
    Posts
    6,067
    Reputation
    323
    Thanks
    3,323
    My Mood
    Doh
    Blame the converter...not me