[TUT]D3D Basic functions, Visual Basic 2008
[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:
For FPS you will need this:
And for a Picture take this:
*Create:
*Put under Form1_Load
*Now doubleclick Timer1 and add:
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)
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
Code:
Private Declare Function GPSI_ShowFPS Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean
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
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
*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:
For FPS you will need this:
And for a Picture take this:
*Create:
*Put under Form1_Load
*Now doubleclick Timer1 and add:
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)
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
Code:
Private Declare Function GPSI_ShowFPS Lib "lala.dll" (ByVal bShowIt As Boolean) As Boolean
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
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
*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)
So this is for Hacks.
Nope. I don't like Making Hacks.
Nope. I don't like Making Hacks.
Originally Posted by hejsan1
Thanks i´ll try :_D
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
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:
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
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:
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
wow thanks man. this is pretty cool
ick..im on the worst connection in the middle of no where
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
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
Similar Threads
- [Tut visual basics 2008] How to make a Password protection (for beginners)By apezwijn in Visual Basic Programming3Last post
- [VISUAL BASIC 2008] D3D pic for every gameBy GER-Domi. in CrossFire Hack Coding / Programming / Source Code5Last post
- 9Last post
- Error In Visual Basic 2008 Express Edition ( Thanking People Who Help )By Gunner03 in Visual Basic Programming4Last post
- 5Last post