eng aoff قام بنشر فبراير 21, 2024 قام بنشر فبراير 21, 2024 السلام عليكم اساتذتي الكرام احتاج عند النقر على زر keybord يعمل الكيبورد الخاص بنظام التشغيل وجزاكم الله خير الجزاء keyboard.accdb
Ahmed_J قام بنشر فبراير 21, 2024 قام بنشر فبراير 21, 2024 (معدل) السلام عليكم تفضل ويعمل لدي على وندوز 7 Call Shell("osk.exe", 1) keyboard.accdb تم تعديل فبراير 21, 2024 بواسطه Ahmed_J
eng aoff قام بنشر فبراير 21, 2024 الكاتب قام بنشر فبراير 21, 2024 عاشت ايدك استاذ ولكن اعمل على ويندوز 10 وظهر خطأ
Moosak قام بنشر فبراير 21, 2024 قام بنشر فبراير 21, 2024 وعليكم السلام ورحمة الله وبركاته 🙂 تفضل الكود : يعمل عندي على ويندوز 10 أوفيس 365 Sub ShowVirtualKeyboard() Dim virtualKeyboardPath As String virtualKeyboardPath = "C:\Windows\System32\osk.exe" ' Path to the virtual keyboard executable Dim shellObject As Object Set shellObject = CreateObject("WScript.Shell") shellObject.Run "C:\Windows\System32\osk.exe" End Sub
Foksh قام بنشر فبراير 21, 2024 قام بنشر فبراير 21, 2024 (معدل) تفضل مشاركتي البسيطة ، حيث Open_Key اسم الزر الذي ستستخدمه لتنفيذ الكود . Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Sub OpenKeyboard() Dim osVersion As String Dim command As String osVersion = GetOSVersion() If osVersion = "10" Then command = "osk.exe" Else command = "osk.exe" End If ShellExecute 0, "runas", command, vbNullString, vbNullString, 1 End Sub Function GetOSVersion() As String Dim osVersion As String osVersion = SysCmd(acSysCmdAccessVer) GetOSVersion = Left(osVersion, InStr(osVersion, ".") - 1) End Function Private Sub Open_Key_Click() OpenKeyboard End Sub وهذا مرفق للتجربة Keyboard.accdb مع العلم أنه تمت تجربة كود الأستاذ @Moosak ويعمل بكفاءة تم تعديل فبراير 21, 2024 بواسطه Foksh 2
تمت الإجابة kkhalifa1960 قام بنشر فبراير 22, 2024 تمت الإجابة قام بنشر فبراير 22, 2024 تفضل استاذ @eng aoff محاولتي لفتح وغلق لوحة المفاتيح . DDOpen&CloseKB.rar 1
eng aoff قام بنشر فبراير 24, 2024 الكاتب قام بنشر فبراير 24, 2024 جزاكم الله خير الجزاء جميعا وبارك الله فيكم
gavan قام بنشر أبريل 14, 2024 قام بنشر أبريل 14, 2024 الاستاتذة الخبراء (kkhalifa1960 , و Foksh ) ابدعتم والله ابدعتم وتحياتي الخالصة لكم 1 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.