كود لفتح موقع على قوقل google عن طريق زرامر في نموذج

[hussein arby]

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

هل هذا ممكن في اكسس ولكم جزيل الشكر

[ابوخليل]

وعليكم السلام

نعم ممكن

هل تريد فتح الموقع عبر متصفح ميكروسوفت ام عبر متصفح قوقل ؟

[hussein arby]

شكرا علي مرورك اخي الفاضل ابوخليل اريد فتح الموقع عن طريق متصفح قوقل

[ابوخليل]

تفضل المثال

وعن طريق المتصفحين ميكروسوفت وجوجل

يتم فتح متصفح ميكروسوفت بواسطة ارتباط تشعبي

 

اما بالنسبة لجوجل انظر الكود المسؤول عن ذلك

chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
        returnValue = Shell(chromePath & " http://www.officena.net/ib/index.php?showforum=89", vbNormalFocus)
        SendKeys ("{F5}"), True

ويجب التنبه لصحة امتداد عنوان برنامج جوجل داخل حاسوبك

فتح موقع.rar

[hussein arby]

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

[sevgilim]

الف شكر لك اخي الفاضل ابو خليل 

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

[ابوخليل]

اعتقد اذا تم التصفح من خلال الأداة WebBrowser فإنه يمكنك استهداف اي حقل

اما اذا تم فتح المتصفح حرا خارج اكسس فإني لم امر بهذه التجربة ، ولا اعلم ان كان الامر SendKeys يقوم بالمهمة

لعل احدا من اخوتنا الخبراء الأفاضل يفيدنا في ذلك

[sevgilim]

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

 

فتح أداة webbrowser بإستخدام فايرفوكس أو كروم

http://vb4arb.com/vb/showthread.php?tid=32903

http://vb4arb.com/vb/showthread.php?tid=17621

[jjafferr]

السلام عليكم 🙂

 

شوف هذا الرابط

 

 

جعفر