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

السلام عليكم و رحمة الله تعالى و بركاته لقد قمت بتغيير البرنامج و هذا بالاستغناء عن ال Hook و استبداله بأوامر ابسط كما قمت باظافة اوامر التحكم ب inpout32.dll فالضغط على اي من الأسهم سيقوم بإخراج اشارة على المخرج الموافق حسب السهم 2،3،4،5

لكن عندي طلب بسيييييييط وهو أنني لم أستطع فهم هذين الجزء من البرنامج بشكل كامل:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Value = 0
If Shape1.FillStyle = 0 Then Shape1.FillStyle = 1
If Shape2.FillStyle = 0 Then Shape2.FillStyle = 1
If Shape3.FillStyle = 0 Then Shape3.FillStyle = 1
If Shape4.FillStyle = 0 Then Shape4.FillStyle = 1
Out PortAddress, Value
End Sub


Shape1.FillStyle........................?????
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) .............؟؟؟؟؟