![[VB.Net] "D3D" Menu](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/vb-net-d3d-menu_ltr.gif){kind=small}
[VB.Net] "D3D" Menu
Wir beginnen mit der GUI:
Ihr braucht:
-9 Labels
-1 Timer
!Benennt es so wie im Pic!
!Hack1 Muss ForeColor auf Gold haben!!
Danach Doppelklick auf Form1:
Code:
Imports System.Runtime.InteropServices
Jetzt kommt eine Hook Protection:
Code:
#Region "Hook"
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Integer, _
ByVal dwExtraInfo As Integer)
Private Const KEYEVENTF_KEYUP = &H2
Private Delegate Function HOOKPROCDelegate( _
ByVal nCode As Integer, _
ByVal wParam As IntPtr, _
ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
Private HookProc As New HOOKPROCDelegate(AddressOf KeyboardHookProc)
Private Declare Unicode Function GetModuleHandleW Lib "kernel32.dll" ( _
ByVal lpModuleName As IntPtr) As IntPtr
Private Declare Unicode Function SetWindowsHookExW Lib "user32.dll" ( _
ByVal idHook As Integer, _
ByVal lpfn As HOOKPROCDelegate, _
ByVal hMod As IntPtr, _
ByVal dwThreadId As UInteger) As IntPtr
' Für das Löschen des Hooks wird diese Funktion verwendet:
Private Declare Unicode Function UnhookWindowsHookEx Lib "user32.dll" ( _
ByVal hhk As IntPtr) As UInteger
Private Declare Unicode Function CallNextHookEx Lib "user32.dll" ( _
ByVal hhk As IntPtr, _
ByVal nCode As Integer, _
ByVal wParam As IntPtr, _
ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
Private Const WM_KEYDOWN As Int32 = &H100 ' Konstante für WM_KEYDOWN
Private Const WM_KEYUP As Int32 = &H101 ' Konstante für WM_KEYUP
Private Const HC_ACTION As Integer = 0 ' Konstante für HC_ACTION
Private Const WH_KEYBOARD_LL As Integer = 13 ' Konstante für WH_KEYBOARD_LL
Public PrevWndProc As Integer
Private mHandle As IntPtr
<StructLayout(LayoutKind.Sequential)> Public Structure KBDLLHOOKSTRUCT
Public vkCode As Keys
Public scanCode, flags, time, dwExtraInfo As UInteger
Public Sub New(ByVal key As Keys, _
ByVal scancod As UInteger, _
ByVal flagss As UInteger, _
ByVal zeit As UInteger, _
ByVal extra As UInteger)
vkCode = key
scanCode = scancod
flags = flagss
time = zeit
dwExtraInfo = extra
End Sub
End Structure
Public Property KeyHookEnable() As Boolean
Get
Return mHandle <> IntPtr.Zero
End Get
Set(ByVal value As Boolean)
If KeyHookEnable = value Then Return
If value Then
mHandle = SetWindowsHookExW(WH_KEYBOARD_LL, HookProc, _
GetModuleHandleW(IntPtr.Zero), 0)
Else
UnhookWindowsHookEx(mHandle)
mHandle = IntPtr.Zero
End If
End Set
End Property
Private Function KeyboardHookProc(ByVal nCode As Integer, _
ByVal wParam As IntPtr, _
ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
Dim fEatKeyStroke As Boolean
If nCode = HC_ACTION Then
fEatKeyStroke = Hook(lParam.vkCode)
If fEatKeyStroke Then
Return New IntPtr(1)
Exit Function
End If
Return CallNextHookEx(mHandle, nCode, wParam, lParam)
End If
End Function
#End Region
Dim DoubleHookProtect As Short = 1
Code:
Private Function Hook(ByVal keyCode As Integer)
If DoubleHookProtect = 1 Then
DoubleHookProtect = 2
Else
DoubleHookProtect = 1
Return False
End If
Select Case keyCode
Code:
Case Keys.Down
If Hack1.ForeColor = Color.Gold Then
Hack1.ForeColor = Color.Black
Hack2.ForeColor = Color.Gold
ElseIf Hack2.ForeColor = Color.Gold Then
Hack2.ForeColor = Color.Black
Hack3.ForeColor = Color.Gold
ElseIf Hack3.ForeColor = Color.Gold Then
Hack3.ForeColor = Color.Black
Hack4.ForeColor = Color.Gold
ElseIf Hack4.ForeColor = Color.Gold Then
Hack4.ForeColor = Color.Black
Hack1.ForeColor = Color.Gold
End If
Case Keys.Right
If Hack1.ForeColor = Color.Gold Then
on1.Text = "On"
on1.ForeColor = Color.Green
End If
If Hack2.ForeColor = Color.Gold Then
on2.Text = "On"
on2.ForeColor = Color.Green
End If
If Hack3.ForeColor = Color.Gold Then
on3.Text = "On"
on3.ForeColor = Color.Green
End If
If Hack4.ForeColor = Color.Gold Then
on4.Text = "On"
on4.ForeColor = Color.Green
End If
Case Keys.Left
If Hack1.ForeColor = Color.Gold Then
on1.Text = "Off"
on1.ForeColor = Color.Red
ElseIf Hack2.ForeColor = Color.Gold Then
on2.Text = "Off"
on2.ForeColor = Color.Red
ElseIf Hack3.ForeColor = Color.Gold Then
on3.Text = "Off"
on3.ForeColor = Color.Red
ElseIf Hack4.ForeColor = Color.Gold Then
on4.Text = "Off"
on4.ForeColor = Color.Red
End If
Case Keys.Up
If Hack2.ForeColor = Color.Gold Then
Hack2.ForeColor = Color.Black
Hack1.ForeColor = Color.Gold
ElseIf Hack3.ForeColor = Color.Gold Then
Hack3.ForeColor = Color.Black
Hack2.ForeColor = Color.Gold
ElseIf Hack4.ForeColor = Color.Gold Then
Hack4.ForeColor = Color.Black
Hack3.ForeColor = Color.Gold
ElseIf Hack1.ForeColor = Color.Gold Then
Hack1.ForeColor = Color.Black
Hack4.ForeColor = Color.Gold
End If
Code:
Case Keys.Delete
Me.Hide()
Case Keys.Insert
Me.Show()
End Select
Return False
End Function
Code:
KeyHookEnable = True
Me.TopMost = True
Für Hacks or sonstige Funktionen (Doppelklick Timer1):
Code:
If on1.Text = "On" Then
'Die Funktion
Else 'wenn on = off
'Die Funktion
End If
If on2.Text = "On" Then
'Die Funktion
Else'wenn on = off
'Die Funktion
End If
'Die Funktion
If on3.Text = "On" Then
'Die Funktion
Else'wenn on = off
'Die Funktion
End If
If on4.Text = "On" Then
'Die Funktion
Else'wenn on = off
'Die Funktion
End If
Viel Spass
Greez Giommi
(Hook By Shawak!!!)
.
