Précharger Firefox (Windows7)

**CliffeCSTL** · 08/10/2013, 18h49

Bonjour,

Je voudrais savoir comment faire pour précharger et garder en mémoire Firefox (ou tout autre programme) au démarrage de windows. Histoire de gagner quelques secondes à chaque ouverture.

Merci.

**hackoofr** · 08/10/2013, 23h40

Voila, j'ai traduit votre requête vers un petit programme Vbscript, et j’espère qu'il va marcher pour vos tous

Copier et coller ce code ci-dessous dans votre Notepad et enregistrer-le sous le nom : ShortcutCreator.vbs
Et surtout n'oubliez pas mes +1

pour l'encouragement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
Dim Titre,Nom
Titre = "Créateur de raccourcis by © Hackoo © 2013"
Call Shortcut(BrowseForFile,Nom)
'*****************************************************************************************************
Function BrowseForFile()
	Dim shell : Set shell = CreateObject("WScript.Shell")
	Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
	Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
	Dim tempName : tempName = fso.GetTempName()
	Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")
	tempFile.Write _
	"<html>" & _
	"    <head>" & _
	"        <Titre>Browse</Titre>" & _
	"    </head>" & _
	"    <body>" & _
	"        <input type='file' id='f'>" & _
	"        <script type='text/javascript'>" & _
	"            var f = document.getElementById('f');" & _
	"            f.click();" & _
	"            var shell = new ActiveXObject('WScript.Shell');" & _
	"            shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
	"            window.close();" & _
	"        </script>" & _
	"    </body>" & _
	"</html>"
	tempFile.Close
	shell.Run tempFolder & "\" & tempName & ".hta",0,True
	BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")
	shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function
'*****************************************************************************************************
Sub Shortcut(CheminApplication,Nom)
	Dim objShell,StartFolder,objShortCut,MyTab
	Set objShell = CreateObject("WScript.Shell")
	MyTab = Split(CheminApplication,"\")
	Nom = MyTab(UBound(MyTab))
	StartFolder = objShell.SpecialFolders("Startup")
	Set objShortCut = objShell.CreateShortcut(StartFolder & "\" & Nom & ".lnk")
	objShortCut.TargetPath = Dblquote(CheminApplication)
	ObjShortCut.IconLocation = "Winver.exe,0"
	objShortCut.Save
	MsgBox "Le Raccourci " & Dblquote(Nom) & " est crée avec succès dans le dossier démarrage !",64,Titre
End Sub
'*****************************************************************************************************
Function DblQuote(Str)
	DblQuote = Chr(34) & Str & Chr(34)
End Function
'*****************************************************************************************************

Précharger Firefox (Windows7)

Windows 7

Discussions similaires

Partager

Partager