Hi all,
i wonder,how can i open firefox window without address bar using vbscript ?
for example i can do it with google Chrome like this :
[Code Vbscript]Option Explicit
Const StartURL = "--app=dim Chrome,Question,Titre
Titre = "Ouvrir Google Chrome sans barre d'adresse"
set Chrome = CreateObject("Shell.Application")
Chrome.ShellExecute "chrome.exe", StartURL, "", "",1
Pause(10) 'faire une pause de 10 secondes
Question = MsgBox ("Voulez-vous fermer le navigateur Google Chrome ? ",VBYesNO+VbQuestion,Titre)
If Question = VbYes then
Kill("Chrome.exe")
else
Wscript.Quit
end if
Sub Kill(Process)
Dim Ws,Command,Execution
Set Ws = CreateObject("Wscript.Shell")
Command = "cmd /c Taskkill /F /IM "&Process&""
Execution = Ws.Run(Command,0,False)
End Sub
Sub Pause(NbSecs)
wscript.Sleep NbSecs*1000
End Sub[/Code]
But i can't found how to deal it by using firefox instead of Google Chrome ?
Any idea ??
i wonder,how can i open firefox window without address bar using vbscript ?
for example i can do it with google Chrome like this :
[Code Vbscript]Option Explicit
Const StartURL = "--app=dim Chrome,Question,Titre
Titre = "Ouvrir Google Chrome sans barre d'adresse"
set Chrome = CreateObject("Shell.Application")
Chrome.ShellExecute "chrome.exe", StartURL, "", "",1
Pause(10) 'faire une pause de 10 secondes
Question = MsgBox ("Voulez-vous fermer le navigateur Google Chrome ? ",VBYesNO+VbQuestion,Titre)
If Question = VbYes then
Kill("Chrome.exe")
else
Wscript.Quit
end if
Sub Kill(Process)
Dim Ws,Command,Execution
Set Ws = CreateObject("Wscript.Shell")
Command = "cmd /c Taskkill /F /IM "&Process&""
Execution = Ws.Run(Command,0,False)
End Sub
Sub Pause(NbSecs)
wscript.Sleep NbSecs*1000
End Sub[/Code]
But i can't found how to deal it by using firefox instead of Google Chrome ?
Any idea ??