Code:
1. Create whit VB a new Form
2. Make Transparenty Color White
and Back Color White too!
3. Make 4 Label´s in it!
One and tow you write the Funktion Text in it.
three and four you write Off in it.
4. Make 2 Timers call one D3D and one menu make Enable true and a Interval of 100
5. Go to the Code editing Page and add this:
Spoiler
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long)
Dim HackLabel = 1
Dim CNT4 = 0
Private Sub D3D_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D3D.Tick
If GetAsyncKeyState(118) Then
If CNT4 = 1 Then
Sleep(200)
Me.Show()
CNT4 = CNT4 - 1
Else
Sleep(200)
Me.Hide()
CNT4 = CNT4 + 1
End If
If CNT4 < 0 Then CNT4 = 0
End If
If HackLabel > 2 Then HackLabel = 1
If HackLabel < 1 Then HackLabel = 2
If GetAsyncKeyState(40) Then
HackLabel = HackLabel + 1
Sleep(200)
End If
If GetAsyncKeyState(38) Then
HackLabel = HackLabel - 1
Sleep(200)
End If
If HackLabel = 1 Then
Me.Label1.ForeColor = Color.DarkBlue
Me.Label2.ForeColor = Color.DarkBlue
ElseIf Label1.ForeColor <> Color.DarkBlue Then
Me.Label1.ForeColor = Color.DarkBlue
Me.Label2.ForeColor = Color.DarkBlue
End If
If HackLabel = 1 Then
Me.Label3.ForeColor = Color.DarkBlue
Me.Label4.ForeColor = Color.DarkBlue
ElseIf Label3.ForeColor <> Color.DarkBlue Then
Me.Label3.ForeColor = Color.DarkBlue
Me.Label4.ForeColor = Color.DarkBlue
End If
If HackLabel = 1 Then
If Label2.Text = "Off" Then
If GetAsyncKeyState(39) Or GetAsyncKeyState(37) Then
Label2.ForeColor = Color.DarkBlue
Label2.Text = "On"
'Hack Funktion1 On
Sleep(200)
End If
End If
If Label2.Text = "On" Then
If GetAsyncKeyState(39) Or GetAsyncKeyState(37) Then
Label2.ForeColor = Color.DarkBlue
Label2.Text = "Off"
Sleep(200)
End If
End If
End If
If HackLabel = 2 Then
If Label4.Text = "Off" Then
If GetAsyncKeyState(39) Or GetAsyncKeyState(37) Then
Label4.ForeColor = Color.DarkBlue
Label4.Text = "On"
'Hack Funktion2 On
Sleep(200)
End If
End If
If Label4.Text = "On" Then
If GetAsyncKeyState(39) Or GetAsyncKeyState(37) Then
Label4.ForeColor = Color.DarkBlue
Label4.Text = "Off"
Sleep(200)
End If
End If
End If
If Label2.Text <> "Off" Then
Me.Label2.ForeColor = Color.DarkBlue
Me.Label1.ForeColor = Color.DarkBlue
End If
If Label4.Text <> "Off" Then
Me.Label4.ForeColor = Color.DarkBlue
Me.Label3.ForeColor = Color.DarkBlue
End If
End Sub
6. You can make Transparenz to 80% for a lower Visibelety and add a BackGroundImage
and chance the Show Ican to false and Show in TaskBar to false
chance the Start Position to Manual and the Location to 25; 25 i think that is the best!
7. Compile it and Open