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

[aleas2]

سلام خسته نباشید دوستان کد اینکه بخوام با کلیک روی Command آدرس یه سایت در مرورگر فایرفاکس(مهمه حتما مرورگر فایرفاکس) باز بشه چی؟


و کد بستن تمام پنجره های مرورگر فایرفاکس چی؟

[سید حمید حق پرست]

سلام علیکم
برای باز کردن یک سایت با فایرفکس :
Shell ("C:\Program Files\Mozilla Firefox\firefox.exe http://barnamenevis.org")
یا :
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", "firefox.exe", "http://barnamenevis.org", vbNullString, 1
End Sub
برای بستن هم :
Private Sub TerminateProcess(app_exe As String)
Dim Process As Variant
For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process Where Name LIKE '%" & app_exe & "%'")
Process.Terminate
Next
End Sub

Private Sub Command1_Click()
TerminateProcess ("firefox")
End Sub
موفق باشید.

یا علی (ع)

[aleas2]

ممنون میشه این کد

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", "firefox.exe", "http://barnamenevis.org", vbNullString, 1
End Sub


تغییر داد که سایت تو حالت minimize باز کنه؟

[سید حمید حق پرست]

با کد زیر به صورت minimizeباز میکنه :
ShellExecute Me.hwnd, "open", "firefox.exe", "http://barnamenevis.org", vbNullString, 2
اما در فایرفکسکار نمیکنه، مثلا برای اکسپلورر به همین صورت کار میکنه :
ShellExecute Me.hwnd, "open", "iexplore.exe", "http://barnamenevis.org", vbNullString, 2
موفق باشید.

یا علی (ع)

[talent1]

یه سئوال این به صورت کامل میبنده میشه کاری کرد که فقط 1 صفحه رو ببنده ؟
مثلا فقط سایت برنامه نویس رو ببنده