كود لفتح وغلق لوحة مفاتيح الويندوز على الشاشة

[qathi]

في 9‏/5‏/2015 at 14:39, Elsayed Bn Gemy said:

ضع هذا الكود فى وحدة نمطية

Public Function closeIfOpen() As Boolean
Dim objWINMGMTS As Object
Dim objApps As Object
Dim objApp As Object

    Set objWINMGMTS = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
     
    Set objApps = objWINMGMTS.ExecQuery("select * from win32_process where name='osk.exe'")
    
    For Each objApp In objApps
        objApp.Terminate
    Next
    
End Function

وقم بعمل استدعاء لها  فى احدث  مثلا عند النقر لاى  زر

Call closeIfOpen

 

السلام عليكم اخواني الافاضل .. قمت بتجربت هذا الكود في ويندوز 11 ولم يعمل

 

فهل يوجد لدى احدكم كود لفتح الكيبورد الموجود في الويندز يعمل على جميع اصدارات الويندوز بما فيها 11 و 10 ؟؟

 

[qathi]

للرفع ...

[jjafferr]

وعليكم السلام 🙂

 

هناك عدة محاولات هنا

 

 

جعفر

[qathi]

15 ساعات مضت, jjafferr said:

جعفر

شكرا لك أستاذي الكبير جعفر .. على ردك ..

ماأحلى تواجدكم معنا ..

ساقوم بتجربة الاكواد التي في الصفحة الذي اشرت إليها ووافيكم بالنتائج أن شاء الله

وياريت وجود كود عن تجربه

 

[qathi]

تم ايجاد الحل في الملف المرفق في الصفحة الذي اشرت ألياها .. شكرا لك استاذنا الغالي و الكبير @jjafferr

[jjafferr]

ياريت تكمل جميلك وتخبرنا عن "الملف" اللي حل مشكلتك ، علشان اللي تكون عنده المشكلة يعرف الحل مباشرة 🙂

 

جعفر

[qathi]

1 ساعه مضت, jjafferr said:

ياريت تكمل جميلك وتخبرنا عن "الملف" اللي حل مشكلتك ، علشان اللي تكون عنده المشكلة يعرف الحل مباشرة 🙂

وهو كذلك أستاذي الغالي

أولا قمت بتحميل ملفك

واعتمدت في ملفك على الزر الأول بملفك واكتفيت به لأنه يفي بالغرض .. قمت بنسخ المديولين

mod_IsWindows_64bit

و

modShellEx

إلى برنامجي

مع حذف دالتين OpenTabTip و strTerminateThis من مديول modShellEx

 

 

ووضع تحت زر استدعاء الدالة RunOSK

 

واكتفيت بهذا

 

ملاحظة على الزر الثاني في ملفك

سبب مشكلة عندي وهو تحجيم نافذة الملفات بحيث يصبح الكيبورد نصف الشاشة بالاسفل والبرنامج نصف الشاشة العلوية وهذا يعتبر مشكلة عندي .. فاستغنيت عنه

[jjafferr]

كفيت ووفيت ، شكرا جزيلا 🙂

الآن مشاركتك اصبحت مرجع للاعضاء 🙂

 

جعفر