فراخواني يک آدرس در چند مرورگر

[gorg313]

به نام خد ا

سلام بچه ها

من ميخواستم يک آدرس را در چند مرورگر فراخواني کنم

مثلآ در اينترنت اکسپلورر

shell "explorer http://www.site.com",vbnormalsetfouse

حالا اگه بخوام اين دستور در مرورگر چاروم - فايرفاکس و اُپرا اجرا بشه بايد از چه دستوري استفاده کنم؟؟؟


ممنون ميشم راهنمايي کنيد

:قلب:

[SlowCode]

سلام
اول باید مسیر فایل exe اون برنامه ها رو پیدا کنی بعد پارامتر مورد نظرت(آدرس سایت) رو براش ارسال کن، مثل دستور بالا که خودت نوشتی.
برای پیدا کردن مسیر فایل اجرایی مرورگرها هم میتونی از رجیستری کمک بگیری. چجوریش رو خودت بگرد پیدا کن.

[gorg313]

سلام
اول باید مسیر فایل exe اون برنامه ها رو پیدا کنی بعد پارامتر مورد نظرت(آدرس سایت) رو براش ارسال کن، مثل دستور بالا که خودت نوشتی.
برای پیدا کردن مسیر فایل اجرایی مرورگرها هم میتونی از رجیستری کمک بگیری. چجوریش رو خودت بگرد پیدا کن.


آقا محسن ممنون راهنمايي خوبي بود

من تونستم اين کارو انجام بدم با همين دستور شل

حالا يه چيزي

اگه مرورگر نصب نباشه چجور بتونيم تشخيص بديم که نصب نيست ؟؟؟ من از ريجستري هيچي سر در نميارم



Shell "C:\Program Files\Mozilla Firefox\firefox.exe http://www.Site.IR", vbNormalFocus



اگه از طريق ريجستري هستش ممنون ميشم يه نمونه کد بذاريد برا هر سه تا مرورگر گوگل چاروم-اُپرا و فايرفاکس

:تشویق::قلب:

[SlowCode]

تو رجیستری یکم گشتم چیزی پیدا نکردم.
میتونی چک کنی که اگه فایلی تو فلان مسیر بود یعنی مرورگر نصب شده پس بازش کن:

Path = "C:\Program Files\Mozilla Firefox\firefox.exe"
If Dir$(Path) <> "" Then
shell Path & " http://www.Site.IR", vbNormalFocus
End if

[gorg313]

111355111355
تو رجیستری یکم گشتم چیزی پیدا نکردم.
میتونی چک کنی که اگه فایلی تو فلان مسیر بود یعنی مرورگر نصب شده پس بازش کن:

Path = "C:\Program Files\Mozilla Firefox\firefox.exe"
If Dir$(Path) <> "" Then
shell Path & " http://www.Site.IR", vbNormalFocus
End if


محسن يه دنيا ازت ممنونم خيلي کمک بزرگي بود

يه سوال ديگه موقعي که روي فرم وب بروزر را اضافه ميکنم اين اررو مياد عکسش را ضميمه ميکنم که خودتون هم ببيني اسکريپت اررو ميده

چجور مي تونم اينو غير فعالش کنم؟

ممنون ميشم راهنمايي کني


:تشویق::قلب: