[CS:S] externer Triggerbot

void initD3D(HWND hWnd);
{
    d3d = Direct3DCreate9(D3D_SDK_VERSION);
 
    D3DPRESENT_PARAMETERS d3dpp;0,
 
    ZeroMemory(&d3dpp, sizeof(d3dpp));
    d3dpp.Windowed = FALSE;
    d3dpp.SwapEffect = D3DSWAPEFFECT_DISCARD;
    d3dpp.hDeviceWindow = hWnd;
    d3dpp.BackBufferFormat = D3DFMT_X8R8G8B8;
    d3dpp.BackBufferWidth = wi.rcWindow.right - wi.rcWindow.left;
    d3dpp.BackBufferHeight = wi.rcWindow.bottom - wi.rcWindow.top;
 
 
  d3d->CreateDevice(D3DADAPTER_DEFAULT,
                      D3DDEVTYPE_HAL,
                      hWnd,
                      D3DCREATE_SOFTWARE_VERTEXPROCESSING,
                      &d3dpp,
                      &d3ddev);
 
    D3DXCreateFont(d3ddev,    // the D3D Device
                   30,    // font height of 30
                   0,    // default font width
                   FW_NORMAL,    // font weight
                   1,    // not using MipLevels
                   true,    // italic font
                   DEFAULT_CHARSET,    // default character set
                   OUT_DEFAULT_PRECIS,    // default OutputPrecision,
                   DEFAULT_QUALITY,    // default Quality
                   DEFAULT_PITCH | FF_DONTCARE,    // default pitch and family
                   "Arial",    // use Facename Arial
                   &dxfont);    // the font object
 
 
}
 
 
void render_frame(void);
{
        d3ddev->Clear(0, NULL, D3DCLEAR_TARGET, D3DCOLOR_XRGB(0, 0, 0), 1.0f, 0);
 
    d3ddev->BeginScene();    // begins the 3D scene
 
    static RECT textbox; SetRect(&textbox, 0, 0, 640, 480); 
 
    dxfont->DrawTextA(NULL,
                      "Hello World...FINALLY!",
                      22,
                      &textbox,
                      DT_CENTER | DT_VCENTER,
                      D3DCOLOR_ARGB(255, 255, 255, 255));
 
    d3ddev->EndScene();    // ends the 3D scene
 
    d3ddev->Present(NULL, NULL, NULL, NULL);
 
 
}
 

 
Dim PointerTrigger As Int32 = Read_Long(getBaseAddr("client.dll", process(0)) + &H6F9B74)
        Dim IndexvomSpieler As Int32 = Read_Long(PointerTrigger + &H1468)
' Damit lese ich aus welchen Index der Spieler hat, der sich auf meinem xHair befindet
 
        Dim Radarbase As Int32 = Read_Long(getBaseAddr("client.dll", process(0)) + &H738098)
' So damit lese ich die Radarbasis aus
 
        Dim AnfangRadarbase As Int32 = Read_Long(Radarbase - &H140)
'Nun zeihe ich 140 von der Radarbasis ab, um zum Anfang zu gelangen
 
        Dim ZumSpieler As Int32 = Read_Long(AnfangRadarbase + &H140 * IndexvomSpieler)
'so nun addiere ich die die richtige Radarbasis(die Am Anfang beginnt) mit 140 * dem Index des Spielers unter meinem xHair
 
      Dim HPvomSpieler As Int32 = Read_Long(ZumSpieler + &H5C)
'jetzt rechne ich noch das Offset von der Hp darauf und erhalte leider kein Ergebniss(0)
 

If readmem((getBaseAddr("client.dll", hl2) + &H508170) + (&H140 * (readmem(readmem(getBaseAddr("client.dll", hl2) + pointer, 4) + offset, 4) - 1)) + &H2C, 1) = 2 Then
                        msgbox("Du ziehlst auf einen Terrorist!")
                    End If