كود لفتح أختصار CTRL+H من خلال زر بالنموذج

[Suleiman alrashdi]

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

أرغب بالحصول على كود لفتح مسار بواسطة  CTRL+H زر بالنموذج

أرجو أن يكون طلبي واضح ولكم جزيل الشكر

[Ahmed.IQ]

ممكن توضح الفكرة بصراحة لم افهم موضوع المسار ؟

[Suleiman alrashdi]

أهلين أخي أحمد أشكرك بالرد وبارك الله فيك

الفكرة هي عندما تعمل من خلال لوحة المفاتيح كنترول أتش يفتح لك على History للمتصفح كروم وأنا أريد هذا الأمر يكون من خلال الضغط على زر في نموذج أكسس ويفتح لي المسار المطلوب .

[Ahmed.IQ]

تقصد انك تفتح صفحة ويب معينة لما تضغط على الاختصار ؟

[Suleiman alrashdi]

لا أخي العزيز أنت جرب أعمل كنترول اتش بعد فتح المتصفح ويظهر لك ما أطلبه

 

[Ahmed.IQ]

3 ساعات مضت, Suleiman alrashdi said:

لا أخي العزيز أنت جرب أعمل كنترول اتش بعد فتح المتصفح ويظهر لك ما أطلبه

 

سوف يقوم بجلب اخر مواقع قمت بزيارتها وهو الهيرستي الخاص بالمتصفح او بحسابي

[Suleiman alrashdi]

نعم أخي العزيز صحيح

وأنا أريد يكون هذا الأجراء من دخل نموذج أكسس عند الضغط على الزر يقوم بتحويل الى المسار بدلا من استخدام كنترول اتش من لوحة المفاتيح .

[Ahmed.IQ]

اخي العزيز . بمساعدة احد الاخو من باكستان كان لدي هوفة في الكود وهو من قام بتصحيحها ارجو منك الدعاء له لانه هو من ساهم بحل المشكلة الرئيسية .

الحل هو ارسال sendkey  الى المتصفح كوكل كروم وسوف يقوم بعمل الازم الكود من جزئين الاول تعريف والاخر الكود

Option Explicit

#If VBA7 Then
   Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

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

Shell "C:\Program Files\Google\Chrome\Application\chrome.exe -url chrome:\history", vbMaximizedFocus
Sleep 2000
SendKeys "chrome://history/~"

اتمنى ان اكون قد وفقت بالاجابة 

[Suleiman alrashdi]

أشكرك أخي العزيز وبارك الله فيك وللأخ وجعله الله في ميزان حسناتكم جميعا .

أخي العزيز تقصد أن أضعه كامل في زر الأمر أو ماذا ؟ بارك الله فيك

تم تعديل ديسمبر 7, 2022 بواسطه Suleiman alrashdi
تعديل

[Ahmed.IQ]

الاول ضعة optine explicit  تحت الجنرال في النموذج 

الكود الثاني shell ضعة في الزر

[Suleiman alrashdi]

يظهر هذه الرسالة عند النقر  على الزر

[biskra]

أمسح هذا السطر من الكود و سوف يشتغل عادي

Sleep 2000

مثال مرفق للكود يشتغل عادي

جرب بالضغط على زر H 

جرب ثانية بالضغط على H من لوحة المفاتيح سوف يشتغل كذلك

 

chrome.rar

تم تعديل ديسمبر 7, 2022 بواسطه biskra

[Ahmed.IQ]

3 ساعات مضت, Suleiman alrashdi said:

يظهر هذه الرسالة عند النقر  على الزر

Chrome-History sendkey.accdb

 

جرب المرفق التالي

[Suleiman alrashdi]

جزاك الله كل الخير أخي العزيز أحمد وبارك الله فيك وجعله الله في ميزان حسناتك على تعاونك .