[TUT]D3D Basic functions, Visual Basic 2008

This is a tutorial for basic D3D funtions in DirectX full screen processes. Just simple things for displaying FPS, Text and pictures.
NOTICE: You need the Hooking library (*.dll) in your program folder!
Download the attacments and the lala.dll copy it in your program folder
and d3d8, d3d9 in your directX folder :P

What to do:

*Start a new project in Visual Basic (Windows Form)
*Declare the functions you need:

For Text you will need this:

Code:

Private Declare Function GPSL_SetTextLineData Lib "lala.dll" (ByVal wTextPosX As Short, ByVal wTextPosY As Short, ByVal LPCTSTR As String, ByVal dwTextColor As Integer, _
ByVal bBlackBackground As Boolean, ByVal cSize As Byte, ByVal bTextBold As Boolean, ByVal cFontFamily As Byte) As Boolean 
Private Declare Function GPSL_ShowText Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean

For FPS you will need this:

Code:

Private Declare Function GPSI_ShowFPS Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean

And for a Picture take this:

Code:

Private Declare Function GPPIC_LoadNewPicture Lib "lala.dll" (ByVal LPCTSTR As String) As Boolean
Private Declare Function GPPIC_ShowPicturePos Lib "lala.dll" (ByVal bShowIt As Boolean, ByVal wPosX As Integer, ByVal wPosY As Integer) As Boolean

*Create:

*Put under Form1_Load

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Timer1.Enabled = True
End Sub

*Now doubleclick Timer1 and add:

Code:

Dim Text1 As String = Nothing

Timer1_Tick
QUELLTEXT
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Text1 = "[Mpgh.net]Ownz you!"
        GPSL_SetTextLineData(1064, 5, Text1, Color.FromArgb(255, 255, 0, 0).ToArgb, True, 20, True, 0)
        GPSL_ShowText(True)
End Sub

Now some explanation:

*1064, 5 == X, Y - Coordinates on your screen
*Text1 == Displayed text
*Color.FromArgb(255, 255, 0, 0) == Font color
*First true == For true it showes a black background
*20 == Font size
*Second true == For true the font is bold
*0 == Font type ( Don't know how it works, i think 0 is standard )

It shouldn't work for WarRock without Bypass because HS detects hooking... (Didn't test it)

Originally Posted by Dark_Goliath

This is a tutorial for basic D3D funtions in DirectX full screen processes. Just simple things for displaying FPS, Text and pictures.
NOTICE: You need the Hooking library (*.dll) in your program folder!

What to do:

*Start a new project in Visual Basic (Windows Form)
*Declare the functions you need:

For Text you will need this:

Code:

Private Declare Function GPSL_SetTextLineData Lib "lala.dll" (ByVal wTextPosX As Short, ByVal wTextPosY As Short, ByVal LPCTSTR As String, ByVal dwTextColor As Integer, _
ByVal bBlackBackground As Boolean, ByVal cSize As Byte, ByVal bTextBold As Boolean, ByVal cFontFamily As Byte) As Boolean 
Private Declare Function GPSL_ShowText Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean

For FPS you will need this:

Code:

Private Declare Function GPSI_ShowFPS Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean

And for a Picture take this:

Code:

Private Declare Function GPPIC_LoadNewPicture Lib "lala.dll" (ByVal LPCTSTR As String) As Boolean
Private Declare Function GPPIC_ShowPicturePos Lib "lala.dll" (ByVal bShowIt As Boolean, ByVal wPosX As Integer, ByVal wPosY As Integer) As Boolean

*Create:

*Put under Form1_Load

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Timer1.Enabled = True
End Sub

*Now doubleclick Timer1 and add:

Code:

Dim Text1 As String = Nothing

Timer1_Tick
QUELLTEXT
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Text1 = "[GHB] 0wnz you!"
        GPSL_SetTextLineData(1064, 5, Text1, Color.FromArgb(255, 255, 0, 0).ToArgb, True, 20, True, 0)
        GPSL_ShowText(True)
End Sub

Thanks i´ll try :_D

So this is for Hacks.
Nope. I don't like Making Hacks.

Originally Posted by hejsan1

Thanks i´ll try :_D

Hey man download the attcments and folow the instuctions i addeted the dlls try it i will put a vir scan in a moment

Originally Posted by Dark_Goliath

Hey man download the attcments and folow the instuctions i addeted the dlls try it i will put a vir scan in a moment

Can´t get it work

My code, check it please:

Code:

Imports System.Drawing

Public Class Form1
    Private Declare Function GPSL_SetTextLineData Lib "lala.dll" (ByVal wTextPosX As Short, ByVal wTextPosY As Short, ByVal LPCTSTR As String, ByVal dwTextColor As Integer, _
ByVal bBlackBackground As Boolean, ByVal cSize As Byte, ByVal bTextBold As Boolean, ByVal cFontFamily As Byte) As Boolean
    Private Declare Function GPSL_ShowText Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean
    Private Declare Function GPSI_ShowFPS Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean
    Private Declare Function GPPIC_LoadNewPicture Lib "lala.dll" (ByVal LPCTSTR As String) As Boolean
    Private Declare Function GPPIC_ShowPicturePos Lib "lala.dll" (ByVal bShowIt As Boolean, ByVal wPosX As Integer, ByVal wPosY As Integer) As Boolean
    Dim Text1 As String = Nothing


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim Text1 As String = Nothing
        Text1 = "[Mpgh.net]Ownz you!"
        GPSL_SetTextLineData(500, 500, Text1, Color.FromArgb(255, 255, 0, 0).ToArgb, True, 20, True, 0)
        GPSL_ShowText(True)
    End Sub
End Class

Originally Posted by hejsan1

Can´t get it work

My code, check it please:

Code:

Imports System.Drawing

Public Class Form1
    Private Declare Function GPSL_SetTextLineData Lib "lala.dll" (ByVal wTextPosX As Short, ByVal wTextPosY As Short, ByVal LPCTSTR As String, ByVal dwTextColor As Integer, _
ByVal bBlackBackground As Boolean, ByVal cSize As Byte, ByVal bTextBold As Boolean, ByVal cFontFamily As Byte) As Boolean
    Private Declare Function GPSL_ShowText Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean
    Private Declare Function GPSI_ShowFPS Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean
    Private Declare Function GPPIC_LoadNewPicture Lib "lala.dll" (ByVal LPCTSTR As String) As Boolean
    Private Declare Function GPPIC_ShowPicturePos Lib "lala.dll" (ByVal bShowIt As Boolean, ByVal wPosX As Integer, ByVal wPosY As Integer) As Boolean
    Dim Text1 As String = Nothing


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim Text1 As String = Nothing
        Text1 = "[Mpgh.net]Ownz you!"
        GPSL_SetTextLineData(500, 500, Text1, Color.FromArgb(255, 255, 0, 0).ToArgb, True, 20, True, 0)
        GPSL_ShowText(True)
    End Sub
End Class

U need a fps game

to get it work at least one ho don't hack shield

EDIT: Try it on assalt cube

Originally Posted by hejsan1

Can´t get it work

My code, check it please:

Code:

Imports System.Drawing

Public Class Form1
    Private Declare Function GPSL_SetTextLineData Lib "lala.dll" (ByVal wTextPosX As Short, ByVal wTextPosY As Short, ByVal LPCTSTR As String, ByVal dwTextColor As Integer, _
ByVal bBlackBackground As Boolean, ByVal cSize As Byte, ByVal bTextBold As Boolean, ByVal cFontFamily As Byte) As Boolean
    Private Declare Function GPSL_ShowText Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean
    Private Declare Function GPSI_ShowFPS Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean
    Private Declare Function GPPIC_LoadNewPicture Lib "lala.dll" (ByVal LPCTSTR As String) As Boolean
    Private Declare Function GPPIC_ShowPicturePos Lib "lala.dll" (ByVal bShowIt As Boolean, ByVal wPosX As Integer, ByVal wPosY As Integer) As Boolean
    Dim Text1 As String = Nothing


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim Text1 As String = Nothing
        Text1 = "[Mpgh.net]Ownz you!"
        GPSL_SetTextLineData(500, 500, Text1, Color.FromArgb(255, 255, 0, 0).ToArgb, True, 20, True, 0)
        GPSL_ShowText(True)
    End Sub
End Class

try it on halo?

wow thanks man. this is pretty cool

ick..im on the worst connection in the middle of no where

Originally Posted by Dark_Goliath

U need a fps game

to get it work at least one ho don't hack shield

EDIT: Try it on assalt cube

Another Game Would be CrossFire,

They just Recently Switched From HS to something else

[TUT]D3D Basic functions, Visual Basic 2008

Post a Reply

Similar Threads

Tags for this Thread