Arkadaşlar bir program yazıyorum. (Ebeveyn Denetimi) Klavyede basılan her tuşu textbox' a aktarıyor. O textbox' uda C' ye kaydediyor. Yani kesinlikle keylogger değildir yanlış anlaşılmasın. Kişinin kendi bilgisayarına kaydediyor. ALT, ALT GR, UP ARROW, DOWN ARROW v.b tuşlara bastığında değişik sembolik şekiller cıkıyor. Bu tuşlara bastığında hicbirşey olmasın istiyorum. Onu nasıl sağlayabilirim?
Kodlar
Kod:
Public Class Form1 Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer Dim keys As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick For i = 1 To 255 keys = 0 keys = GetAsyncKeyState(i) If keys = -32767 Then TextBox1.Text = TextBox1.Text + Chr(i) End If Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Timer1.Enabled = False Then Timer1.Enabled = True Button1.Text = "DURDUR" ElseIf Timer1.Enabled = True Then Timer1.Enabled = False Button1.Text = "BAŞLAT" End If End Sub end class
Bir onceki konum sanırım keylogger sanılıp kapanmıştı kesinlikle keylogger değildir. Benim bu konuda hicbir cıkarım yoktur.
__________________
vb.net tanımsız tuşlar
Programlama0 Mesaj
●23 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- vb.net tanımsız tuşlar