فتح تطبيق من داخل الأكسيس في وندوز 8.1

[alhaithm 0]

الأخوة الأعزاء

 

بأدناه أكواد فتح أحد تطبيقات وندوز للفتح من داخل الأكسيس ، وهذا الأكواد تعمل كلا على حدة مع وندوز إكس بي فقط ولاتعمل مع وندوز 8 (32 بيت و 64 بت)

 

فهل من منجد لتعديله للعمل مع وندوز 8.1 (32 بت)

 

Private Sub OpenKey_Click()

On Error GoTo Err_OpenKey_Click

 

' Dim RetVal

' RetVal = Shell("C:\WINDOWS\System32\osk.exe", 1)

 

 

    Dim stAppName As String

 

    stAppName = "C:\WINDOWS\System32\osk.exe"

    Call Shell(stAppName, 1)

 

' Call Shell("osk.exe", 1)

 

Exit_OpenKey_Click:

    Exit Sub

 

Err_OpenKey_Click:

    MsgBox Err.Description

    Resume Exit_OpenKey_Click

    

End Sub

[أمير2008 162]

هذا مثال للأستاذة / زهرة

 

za-OSK.rar

[wael_rafat 0]

السﻻم عليكم

اخوي الهيثم اجابتك موجودة في المنتدي ومن اجابات اﻻخت الفاضلة ام عهود

ابحت بكلمة كود ﻻ يعمل علي ويندوز 8

بخصوص اظهار الكيبورد علي ويندوز 8

[alhaithm 0]

شكرا أخي 

 

استفدت من المثال الذي أعدته الأخت زهرة الذي أرفقت بعاليه

 

فشكرا لك والشكر والتقدير للاستاذة الكريمة زهرة على كل ماتقدمه