wael_rafat قام بنشر مايو 9, 2015 مشاركة قام بنشر مايو 9, 2015 السلام عليكم ورحمة الله وبركاته ... الاخوة الافاضل الكرام مشرفي واعضاء منتدانا الجميل استفساري هو عن كود اغلاق لوحــة مفاتيح الويندوز حيث ان كود الفتح هو : ShellExecute Me.hwnd, "Open", "C:\Windows\System32\osk.exe", vbNullString, "", 1 ولكم جزيل الشكر . رابط هذا التعليق شارك More sharing options...
أفضل إجابة Elsayed Bn Gemy قام بنشر مايو 9, 2015 أفضل إجابة مشاركة قام بنشر مايو 9, 2015 (معدل) ضع هذا الكود فى وحدة نمطية 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 بواسطه مارد 3 رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر مايو 9, 2015 الكاتب مشاركة قام بنشر مايو 9, 2015 مشكور اخي الكريم مارد وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 9, 2015 مشاركة قام بنشر مايو 9, 2015 العفو يا اخى الكريم اذا فهل لى ان استميحك عزرا ان تختار انها افضل اجابة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.