qathi قام بنشر نوفمبر 24, 2022 مشاركة قام بنشر نوفمبر 24, 2022 في 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 ؟؟ رابط هذا التعليق شارك More sharing options...
qathi قام بنشر نوفمبر 24, 2022 الكاتب مشاركة قام بنشر نوفمبر 24, 2022 للرفع ... رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر نوفمبر 24, 2022 أفضل إجابة مشاركة قام بنشر نوفمبر 24, 2022 وعليكم السلام 🙂 هناك عدة محاولات هنا جعفر 1 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر نوفمبر 25, 2022 الكاتب مشاركة قام بنشر نوفمبر 25, 2022 15 ساعات مضت, jjafferr said: جعفر شكرا لك أستاذي الكبير جعفر .. على ردك .. ماأحلى تواجدكم معنا .. ساقوم بتجربة الاكواد التي في الصفحة الذي اشرت إليها ووافيكم بالنتائج أن شاء الله وياريت وجود كود عن تجربه رابط هذا التعليق شارك More sharing options...
qathi قام بنشر نوفمبر 26, 2022 الكاتب مشاركة قام بنشر نوفمبر 26, 2022 تم ايجاد الحل في الملف المرفق في الصفحة الذي اشرت ألياها .. شكرا لك استاذنا الغالي و الكبير @jjafferr رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 26, 2022 مشاركة قام بنشر نوفمبر 26, 2022 ياريت تكمل جميلك وتخبرنا عن "الملف" اللي حل مشكلتك ، علشان اللي تكون عنده المشكلة يعرف الحل مباشرة 🙂 جعفر رابط هذا التعليق شارك More sharing options...
qathi قام بنشر نوفمبر 26, 2022 الكاتب مشاركة قام بنشر نوفمبر 26, 2022 1 ساعه مضت, jjafferr said: ياريت تكمل جميلك وتخبرنا عن "الملف" اللي حل مشكلتك ، علشان اللي تكون عنده المشكلة يعرف الحل مباشرة 🙂 وهو كذلك أستاذي الغالي أولا قمت بتحميل ملفك واعتمدت في ملفك على الزر الأول بملفك واكتفيت به لأنه يفي بالغرض .. قمت بنسخ المديولين mod_IsWindows_64bit و modShellEx إلى برنامجي مع حذف دالتين OpenTabTip و strTerminateThis من مديول modShellEx ووضع تحت زر استدعاء الدالة RunOSK واكتفيت بهذا ملاحظة على الزر الثاني في ملفك سبب مشكلة عندي وهو تحجيم نافذة الملفات بحيث يصبح الكيبورد نصف الشاشة بالاسفل والبرنامج نصف الشاشة العلوية وهذا يعتبر مشكلة عندي .. فاستغنيت عنه 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 26, 2022 مشاركة قام بنشر نوفمبر 26, 2022 كفيت ووفيت ، شكرا جزيلا 🙂 الآن مشاركتك اصبحت مرجع للاعضاء 🙂 جعفر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان