MPGHThe Dark Arts
RegisterLog in

[TUT]D3D Basic functions, Visual Basic 2008

Posts 1–9 of 9 · Page 1 of 1
[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)
Desktop.rarattachment deleted · 153 downloads before removal
#1 · edited ·
Quote Originally Posted by Dark_Goliath View Post
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
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)
Thanks i´ll try :_D
#2 ·
Quote Originally Posted by Zoom View Post
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
#4 ·
Quote Originally Posted by Dark_Goliath View Post
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
#5 · edited ·
Quote Originally Posted by Zoom View Post
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
#6 ·
Quote Originally Posted by Zoom View Post
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?
#7 ·
wow thanks man. this is pretty cool


ick..im on the worst connection in the middle of no where
#8 ·
Quote Originally Posted by Dark_Goliath View Post
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
#9 ·
So this is for Hacks.
Nope. I don't like Making Hacks.
#3 ·
Posts 1–9 of 9 · Page 1 of 1
This thread is closed for replies.

Similar Threads

Visual Basic Programming[Tut visual basics 2008] How to make a Password protection (for beginners)apezwijnapezwijn 3 CrossFire Hack Coding / Programming / Source Code[VISUAL BASIC 2008] D3D pic for every gameGER-Domi. 5 WarRock - International HacksVisual Basic 2008 !DarkyDarky 9 Visual Basic ProgrammingError In Visual Basic 2008 Express Edition ( Thanking People Who Help )Gunner03Gunner03 4 Programming Tutorial Requestsvisual basic 2008skater310skater310 5

Tags for this Thread

#2008#basic#functions#tutd3d#visual
Talk with us