باز نشدن یک مسیر اینترنتی با دستور Shell (عجیب)

[abolfazl-z]

سلام دوستان
چرا زمانی که من این کد را میزنم پنجره My Document باز میشه؟:متفکر:
توجه داشته باشید که زمانی پنجره My Document باز میشه که دستور اشتباه وارد شده باشه ولی آدرس من اشتباه نیست؟؟؟!!!!!!!!

اینم کد من
Shell "explorer Http://www.softgozar.com/WebPage/Software.aspx?MCat=1", vbNormalFocus

[بهروز عباسی]

درود بهتره از تابع API زیر استفاده کنید

ShellExecute
موفق باشید

[MohammadGh2011]

سلام عليکم
وقتي آدرس اينطوري باشه صفحه Url رو باز نميکنه ؛اگه آدرستون رو به اين صورت بنويسيد ديگه My Document رو بازنميکنه البته صفحه مورد نظرتون رو باز نميکنه:
Shell ("Explorer http://www.softgozar.com/WebPage/"), vbNormalFocus

براي حل مشکل از اين دستور استفاده کنيد:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", "http://www.softgozar.com/WebPage/Software.aspx?MCat=1", "", App.Path, 1
End Sub


موفق باشيد

[بهروز عباسی]

لینکهای زیر مخصوصاً اولی رو هم ببین نمونه داره

http://support.microsoft.com/kb/224816

http://www.pixel2life.com/forums/index.php?/topic/17164-vb-shellexecute-api-launch-url-default-browser/

موفق باشید

[محسن واژدی]

سلام علیکم
در مورد Shell بصورت زیر ویرایش کنیم مشکل برطرف میشود:
Private Sub Command1_Click()
Shell """" & Environ("programfiles") & "\Internet Explorer\iexplore.exe"" Http://www.softgozar.com/WebPage/Software.aspx?MCat=1", vbNormalFocus
End Sub

موفق باشید