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

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

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

إصنع مربع نص textbox

إصنع 2 تايمر timer

الكود

Private Sub Command1_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Text1.Text = 0
End Sub
Private Sub Form_Load()
Text1.Visible = False
Timer1.Enabled = False
Text1.Text = 1
Timer1.Interval = 500
Timer2.Interval = 400
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
If Text1.Text = 7 Then
Text1.Text = 1
End If
End Sub
Private Sub Timer2_Timer()
If Text1.Text = 2 Then
SendKeys "{SCROLLLOCK}", True
End If
If Text1.Text = 3 Then
SendKeys "{CAPSLOCK}", True
End If
If Text1.Text = 4 Then
SendKeys "{NUMLOCK}", True
End If
If Text1.Text = 5 Then
SendKeys "{SCROLLLOCK}", False
End If
If Text1.Text = 6 Then
SendKeys "{CAPSLOCK}", False
End If
If Text1.Text = 1 Then
SendKeys "{NUMLOCK}", False
End If
End Sub

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

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

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

البرنامج الأول لا تضع به شيء

فقط اجعل خصائصة هي

caption تكون form2

(name) يكون form2

من قائمة file اختر الأمر make project1.exe واحفظ الملف على سطح المكتب مثلا بإسم form2

البرنامج الثاني ضع به تايمر واحد فقط

الكود

Private Sub Form_Load()
Dim ID
ChDir App.Path
ID = Shell("form2.exe", vbNormalFocus)
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
AppActivate "form2"
SendKeys ("{CAPSLOCK}" = "Wait")
SendKeys ("{NUMLOCK}" = "Wait")
SendKeys ("{SCROLLLOCK}" = "Wait")
AppActivate "form1"
End Sub

واحفظ الملف بأي اسم على سطح المكتب أو في نفس مجلد البرنامج الأول form2.exe

وليكن البرنامج الجديد بإسم project1.exe

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

Lock وللعلم لن تعمل هذه الحركة إلا وأحد هذه المصابيح مضاء أو أكثر من مصباح مضاء ولا أعرف لماذا

قم بتشغيل البرنامج project1.exe والذي افترضنا وجوده على سطح المكتب

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

وأنا في انتظار تجاربكم وردودكم وأي تعليق أو فكرة أفضل للبرنامج

أخيرا أنظر إلى توقيعي