هنا كود اللعب بمصابيح لوحة المفاتيح من تصميمي

    • هنا كود اللعب بمصابيح لوحة المفاتيح من تصميمي

      للوندوز ميلينيوم قم بتجربة إحدى الطريقتين وأخبرني بالنتيجة

      للوندوز 98إصنع 2 زر commandbutton وسوف يكون الأول للتشغيل والثاني للإيقاف
      إصنع مربع نص textbox
      إصنع 2 تايمر timer

      الكود


      كود المصدر

      1. CODEPrivate Sub Command1_Click()
      2. If Timer1.Enabled = False Then
      3. Timer1.Enabled = True
      4. End If
      5. End Sub
      6. Private Sub Command2_Click()
      7. Timer1.Enabled = False
      8. Text1.Text = 0
      9. End Sub
      10. Private Sub Form_Load()
      11. Text1.Visible = False
      12. Timer1.Enabled = False
      13. Text1.Text = 1
      14. Timer1.Interval = 500
      15. Timer2.Interval = 400
      16. End Sub
      17. Private Sub Timer1_Timer()
      18. Text1.Text = Text1.Text + 1
      19. If Text1.Text = 7 Then
      20. Text1.Text = 1
      21. End If
      22. End Sub
      23. Private Sub Timer2_Timer()
      24. If Text1.Text = 2 Then
      25. SendKeys "{SCROLLLOCK}", True
      26. End If
      27. If Text1.Text = 3 Then
      28. SendKeys "{CAPSLOCK}", True
      29. End If
      30. If Text1.Text = 4 Then
      31. SendKeys "{NUMLOCK}", True
      32. End If
      33. If Text1.Text = 5 Then
      34. SendKeys "{SCROLLLOCK}", False
      35. End If
      36. If Text1.Text = 6 Then
      37. SendKeys "{CAPSLOCK}", False
      38. End If
      39. If Text1.Text = 1 Then
      40. SendKeys "{NUMLOCK}", False
      41. End If
      42. End Sub
      عرض الكل

      وانظر إلى مصابيح لوحة المفاتيح وانظر إلى توقيعي بالأسفل

      للوندوز اكس بي

      مطلوب صنع برنامجين سهلين

      [glow=FF0000]البرنامج الأول[/glow] لا تضع به شيء
      فقط اجعل خصائصة هي
      caption تكون form2
      (name) يكون form2
      من قائمة file اختر الأمر make project1.exe واحفظ الملف على سطح المكتب مثلا بإسم form2

      [glow=FF0000]البرنامج الثاني[/glow] ضع به تايمر واحد فقط
      الكود

      كود المصدر

      1. CODEPrivate Sub Form_Load()
      2. Dim ID
      3. ChDir App.Path
      4. ID = Shell("form2.exe", vbNormalFocus)
      5. Timer1.Interval = 1000
      6. End Sub
      7. Private Sub Timer1_Timer()
      8. AppActivate "form2"
      9. SendKeys ("{CAPSLOCK}" = "Wait")
      10. SendKeys ("{NUMLOCK}" = "Wait")
      11. SendKeys ("{SCROLLLOCK}" = "Wait")
      12. AppActivate "form1"
      13. End Sub
      عرض الكل
      واحفظ الملف بأي اسم على سطح المكتب أو في نفس مجلد البرنامج الأول form2.exe
      وليكن البرنامج الجديد بإسم project1.exe

      أولا قم بإضاءة أي مصباح أو أكثر في لوحة المفاتيح من خلال المفاتيح Num Lock و Caps Lock و Scroll

      Lock وللعلم لن تعمل هذه الحركة إلا وأحد هذه المصابيح مضاء أو أكثر من مصباح مضاء ولا أعرف لماذا
      قم بتشغيل البرنامج project1.exe والذي افترضنا وجوده على سطح المكتب
      وانظر إلى مصابيح لوحة المفاتيح
      وأنا في انتظار تجاربكم وردودكم وأي تعليق أو فكرة أفضل للبرنامج
      أخيرا أنظر إلى توقيعي


      [line]التوقيع :
      رجاء من الخبراء أريد مساعدة لصنع برنامج هاكرز للإختراق وأريد أن أتعلم طريقة إنشاء السرفر فقط وكيفية عمله. أرجو مراسلتي على البريد الإليكتروني التالي
      omar_abo_husein@yahoo.com