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

[wael_rafat]

السلام عليكم ورحمة الله وبركاته ...

الاخوة الافاضل الكرام مشرفي واعضاء منتدانا الجميل

استفساري هو عن كود اغلاق لوحــة مفاتيح الويندوز

حيث ان كود الفتح هو :

    ShellExecute Me.hwnd, "Open", "C:\Windows\System32\osk.exe", vbNullString, "", 1

ولكم جزيل الشكر .

[Elsayed Bn Gemy]

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

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

تم تعديل مايو 9, 2015 بواسطه مارد

[wael_rafat]

مشكور اخي الكريم مارد وجزاك الله كل خير

[Elsayed Bn Gemy]

العفو يا اخى الكريم اذا فهل لى ان استميحك عزرا ان تختار انها افضل اجابة