السلام عليكم
أريد أن أصنع برنامج يقوم بالضغط مثلاً على مفاتيح
Control + Alt
هل هناك طريقة لذلك؟
أتمنى المساعدة
وعليكم السلام
تستطيع ان تضع الكود التالي
كود :
[align=left]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal v As Long) As Integer ' هذا الكود في قسم التصريحات يعني اعلا الاكواد
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(17) And GetAsyncKeyState(18) Then MsgBox "ppp"
End Sub
[/align]
ويمكنك تجربة جميع الحروف
ولكي تتعرف الى ارقام الحروف
ضع مربعان نص وكتب الكود التالي
كود :
[align=left]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal v As Long) As Integer ' هذا الكود في قسم التصريحات يعني اعلا الاكواد
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text2.tex = KeyCode
End Sub
[/align]
بالتوفيق ,,,
سلام عليكم
ياصديقي لم يكن هذا قصدي ومع ذلك شكراً لمحاولة المساعدة إن ما أوده هو أن يقوم البرنامج بضغط تلك الأزرار تلقائياً، بدون ان أضغطها أنا... فعلى سبيل المثال: عندما يصل عداد زمني Timer إلى قيمة معينة، فليضغط على مفاتيح كذا وكذا....
[COLOR="#0000FF"]مششكككككككور جدا تمت الاستفاد
وجزاك الله كل خيرا و اللهم كثر من امثالك[/COLOR]
