چگونه می توان از مرورگر ویندوز در ویژوال بیسیک استفاده کرد؟ [بایگانی]

View Full Version : چگونه می توان از مرورگر ویندوز در ویژوال بیسیک استفاده کرد؟

mtn677

شنبه 24 فروردین 1392, 11:20 صبح

سلام می خواستم بدونم آیا این امکان وجود داره که با کلیک بر روی یک دکمه در ویژوال بیسیک بتوان مرورگر ویندوز را بالا آورد؟
از مرورگری که خود ویژوال بیسیک داره نمی خوام استفاده کنم.

alirezabigdeli

شنبه 24 فروردین 1392, 11:32 صبح

میتونی از دستور shell استفاده کنی

shell "ادرس مرورگر"
مثال
Shell "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

mtn677

شنبه 24 فروردین 1392, 13:23 عصر

میتونی از دستور shell استفاده کنی

shell "ادرس مرورگر"
مثال
Shell "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

تشکر
در صورتی که من آدرس موزیلا رو با این کد تعریف کنم اگه توی کامپیوتری که فاقد موزیلا باشه برنامه با مشکل روبه رو میشه درسته؟
برای حل این مشکل آیا راه حلی وجود داره؟مثلا میشه کاری کرد که برنامه در صورت نبود موزیلا از اکسپلورر استفاده کنه؟

MohammadGh2011

شنبه 24 فروردین 1392, 14:09 عصر

تشکر
در صورتی که من آدرس موزیلا رو با این کد تعریف کنم اگه توی کامپیوتری که فاقد موزیلا باشه برنامه با مشکل روبه رو میشه درسته؟
برای حل این مشکل آیا راه حلی وجود داره؟مثلا میشه کاری کرد که برنامه در صورت نبود موزیلا از اکسپلورر استفاده کنه؟

سلام عليکم
لازم نيست آدرس رو بنويسيد از دستر زير استفاده کنيد:
Shell ("Explorer http://**********.com")

موفق باشيد

amin32

شنبه 24 فروردین 1392, 14:09 عصر

میتونید آدرس IE رو به جاش قرار بدید. اما اگر یک آدرس اینترنتی خاص رو میخواید برای کاربر باز کنید , بهتر هست که از دستور زیر استفاده کنید:

Shell "cmd /c start http://www.google.com", vbHide

اینجوری صفحه موردنظر با مرورگر پیشفرض سیستم باز میشه.

alirezabigdeli

شنبه 24 فروردین 1392, 14:13 عصر

میتونی از این استفاده کنی

On Error Resume Next
If Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe") = -1 Then

Shell ("C:\Program Files\Internet Explorer\iexplore.exe")

End If

SlowCode

شنبه 24 فروردین 1392, 14:14 عصر

در صورتی که من آدرس موزیلا رو با این کد تعریف کنم اگه توی کامپیوتری که فاقد موزیلا باشه برنامه با مشکل روبه رو میشه درسته؟

بله درسته.
بهتره از مدیریت خطا استفاده کنی.

on error goto x
Shell "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
exit sub
x:
shell "explorer http://www.site.com"

البته روشی که تو خط دوم استفاده شده درست نیست، چون ممکنه کاربر برنامه رو تو مسیر دیگه ای نصب کرده باشه.

میتونی از این استفاده کنی

On Error Resume Next

If Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe") = -1 Then
Shell ("C:\Program Files\Internet Explorer\iexplore.exe")

End If
این درست نیست، چون اگه مسیر رو درست داده باشی سایت با هر دو مرورگر باز میشه.

mtn677

شنبه 24 فروردین 1392, 15:44 عصر

با تشکر از همه کارم راه افتاد مرسی از کمکتون استفاده کردم