+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة في عمل Keyboard (/showthread.php?tid=13159)
مشكلة في عمل Keyboard - YazanOtoum - 07-09-15
السلام عليكم
اخواني .. لقد تطرقت لعمل كيبورد في Form لاستخدامه بدلا من الكيبورد العادي
واستخدم الكود التالي لتحديد Foucsed Process او Window لكي يقوم الكيبورد الكتابة عليها
كود :
Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
Declare Function GetWindowThreadProcessId Lib "user32.dll" ( _
ByVal hwnd As Int32, _
ByRef lpdwProcessId As Int32) As Int32
Public Function GetID() As Integer
Dim processID As Int32
GetWindowThreadProcessId(GetForegroundWindow(), processID)
Return Process.GetProcessById(processID).Id
End Functionو عند ارسال KEY مثلا حرف E استخدم :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
AppActivate(GetID())
SendKeys.Send("E")
End Subولكن المشكلة هي عند تحديد الوندز المفتوحه اي Foucsed فانه يعتبر برنامجي هو المفتوح اي المحدد Foucesd
لو وضعت Textbox في برنامجي سوف يظهر حرفE في Textbox
ارجوا اني قد شرحت مشكلتي بشكل واضح ,,,,, وشكراا لكم