Discussion :

[papyxy]

Bonjour
Peut-on changer l'ordre de démarrage des applications (à droite de la barre)?
Je suis en wi-fi et je gère l'accès au modem (Livebox2) au moyen de Wirless Lan Adapter.
En résident, j'ai Avast et Skype; lesquels démarrent avant mon accès à internet.
Je préfèrerais, dans la mesure du possible, avoir l'accès au net avant toute chose.
Merci d'avance.

[hackoofr]

Bonjour
Peut-on changer l'ordre de démarrage des applications (à droite de la barre)?
Je suis en wi-fi et je gère l'accès au modem (Livebox2) au moyen de Wirless Lan Adapter.
En résident, j'ai Avast et Skype; lesquels démarrent avant mon accès à internet.
Je préfèrerais, dans la mesure du possible, avoir l'accès au net avant toute chose.
Merci d'avance.

Peut-être avec un VBS qui gère tout au démarrage, je crois que c'est possible

[papyxy]

ah, ça pourrait m' intéresser, mais je ne suis pas un crack dans le domaine.
Je ne fais que "bricoler" et récupérer des programmes VBS en les aménageant à ma convenance.

[hackoofr]

ah, ça pourrait m' intéresser, mais je ne suis pas un crack dans le domaine.
Je ne fais que "bricoler" et récupérer des programmes VBS en les aménageant à ma convenance.

Dans ce cas voici un petit script que j'utilise pour tester ma connexion Internet et récupérer mon IP Publique en le sauvegardant dans un fichier texte puis si la connexion est réellement établie, alors il démarre automatiquement le navigateur FireFox
Donc Inspirez-vous de ce code afin d'atteindre votre but
Vous deviez copier/coller ce code et enregistrez-sous MonIP.vbs et de placer dans le dossier démarrage,puis vous le modifier au fur et à mesure de votre besoin de démarrage sélectif.
Donc vous deviez par exemple voir les programmes qui sont inscrits avec le démarrage de windows dans la base des registres et de les modifier afin de l’exécuter à partir de ce script et si vous trouviez par hasard un petit problème avec le script modifié n'hésitiez pas à demander de l'aide dans le forum Vbscript

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Set ws = CreateObject("wscript.Shell")
wscript.sleep 30000 'Attente 30 secondes
Dim Boucle,strComputer,MsgTitre,objPing,objStatus
Boucle = True
While Boucle = True
strComputer = "smtp.gmail.com"
MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL © Hackoo © 2012"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
ws.Popup "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE ! ",5, MsgTitre,64
Boucle = False
Call Ip_Publique
Call FireFox
wscript.quit
else
ws.Popup "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !",5,MsgTitre,16
'msgbox "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !",16,MsgTitre
End If
Call ReNewLocalIP
Next
wscript.sleep 60000
Wend

Sub Ip_Publique
Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches
Titre = "Adresse Ip Publique © Hackoo © 2012"
URL = "http://monip.org"
Set ie = CreateObject("InternetExplorer.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject") 
ie.Navigate (URL) 
ie.Visible=false
DO WHILE ie.busy
wscript.sleep 100
LOOP
Data = ie.document.documentElement.innertext 
Set OutPut = objfso.OpenTextFile("c:\monip.txt",8,True)
ie.Quit 
Set ie = Nothing
Set objRegex = new RegExp
objRegex.Pattern = "\b([0-9]{1,3}\.){3}[0-9]{1,3}\b"
objRegex.Global = False
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(Data)
For Each Match in Matches   
   ws.Popup "Mon IP Publique est : " & vbCr & Match.Value,5,Titre,64
    'MsgBox "Mon IP Publique est : " & vbCr & Match.Value ,64,Titre
    OutPut.WriteLine string(40,"-") & vbcr &"  Nous sommes le "& Now & vbcr & string(40,"-") & vbcr & "  Mon IP Publique est : "& Match.Value & vbcr & string(40,"*")
Next
Call OpenLog("c:\monip.txt")
End Sub

Sub OpenLog(File)
Dim ws
Set ws = CreateObject("wscript.shell")
ws.run "Notepad " & File,1,False
Set ws = Nothing
End Sub

Sub ReNewLocalIP
Dim Ws,command,StrCommand,Resultat
Set Ws = CreateObject("WScript.Shell")
command = "netsh interface ip delete arpcache & ipconfig /release & ipconfig /flushdns & ipconfig /renew & arp -a"
StrCommand = "cmd /k "& command &""
Resultat = ws.Run(StrCommand,1,True)
End Sub

Sub FireFox()
Set WShell = CreateObject("WScript.Shell")
Command = "cmd /c cd ""%ProgramFiles%\Mozilla Firefox\"" & Start firefox.exe"
Execution = Wshell.Run(Command,0,False)
Set Wshell = Nothing
End Sub

[papyxy]

Merci pour ce code; je l'essayerai quand je pourrai.