Code impressionnant
par contre j'ai une erreur :
Une erreur inconnue est survenue !
est-ce normal ?
Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
Discussion :
[PowerShell]
Code impressionnant
par contre j'ai une erreur :
Une erreur inconnue est survenue !
est-ce normal ?
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
Envoyé par GADENSEB
Testez cette modification et dites-moi si vous recevez toujours une erreur
une autre chose, si le code marche vous allez obtenir deux fichiers avec l'extension .reg
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
65Option Explicit Dim Titre,MaCommande,RunMachine,RunUser,MonDossier Titre = "Sauvegarde de quelques clés de la base de registre" RunMachine = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" RunUser = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" MaCommande = "Taskkill /F /IM reg.exe" Call Executer(MaCommande,0,False) MonDossier = Parcourir_Dossier() MaCommande = "REG EXPORT " & RunMachine & " " & MonDossier & "\SauvegardeRunMachine.reg /y" Call Executer(MaCommande,0,False) MsgBox "La clé " & DblQuote(RunMachine) & " a été bien sauvegardé dans le fichier SauvegardeRunMachine.reg" & VbCrLF &_ "dans le dossier "& DblQuote(MonDossier),VbInformation,Titre MaCommande = "REG EXPORT " & RunUser & " " & MonDossier & "\SauvegardeRunUser.reg /y" Call Executer(MaCommande,0,True) MsgBox "La clé " & DblQuote(RunUser) & " a été bien sauvegardé dans le fichier SauvegardeRunUser.reg" & VbCrLF &_ "dans le dossier "& DblQuote(MonDossier),VbInformation,Titre Call Open(MonDossier) '************************************************************************************************************** Function Parcourir_Dossier() Dim objShell,objFolder Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier pour la sauvegarde des clés ",1,"c:\Programs") If objFolder Is Nothing Then Wscript.Quit End If Parcourir_Dossier = objFolder.self.path end Function '************************************************************************************************************** Function Executer(StrCmd,Console,bWaitOnReturn) Dim ws,MyCmd,Resultat Set ws = CreateObject("wscript.Shell") 'La valeur 0 pour cacher la console MS-DOS If Console = 0 Then MyCmd = "CMD /C " & StrCmd & "" Resultat = ws.run(MyCmd,Console,bWaitOnReturn) If Resultat = 0 Then Else MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !" Wscript.Quit() End If End If 'La valeur 1 pour montrer la console MS-DOS If Console = 1 Then MyCmd = "CMD /K " & StrCmd & " " Resultat = ws.run(MyCmd,Console,bWaitOnReturn) If Resultat = 0 Then Else MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !" Wscript.Quit() End If End If Executer = Resultat End Function '*********************************************************************************************************** 'Fonction pour ajouter les doubles quotes dans une variable Function DblQuote(Str) DblQuote = Chr(34) & Str & Chr(34) End Function '*********************************************************************************************************** Sub Open(Location) Dim objShell,Ouvrir Set objShell = CreateObject("WScript.Shell") Ouvrir = objShell.Run(Location,1,False) End Sub '***********************************************************************************************************
- SauvegardeRunMachine.reg
- SauvegardeRunUser.reg
Alors vous pouvez avec le bouton droit de la souris éditer ces deux fichiers ouvrir avec Notepad++ ou bien modifier, puis poster leurs contenus ici
Hello
j'ai un message de validation sur :
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\
Mais le mm message d'erreur au final
Une erreur inconnue est survenue !
rien n'est sauvegarder dans le dossier de destination
On y est presque
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
SauvegardeBDR.bat
Testez alors ce batch : SauvegardeBDR.bat
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
10
11
Ca marche
....Commande a réussie ......
par contre je n'ai pas le choix du dossier de destination
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
Oubliez maintenant le choix du dossier de destination, ce qui nous intéressent le plus c'est la création des ces deux fichiers.reg
Vous avez les deux fichiers.reg dans le même dossier que vous avez exécuter le batch ou non ?
Est-ce que le UAC est activé ou non chez vous
Vous avez les deux fichiers.reg dans le même dossier que vous avez exécuter le batch ou non ?
--> oui
Est-ce que le UAC est activé ou non chez vous
--> Non
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
Donc vous pouvez les éditer avec le bloc notes et postez leurs contenus
Oui par contre ceux-ci sont générer sur mon pc pro et non pas sur mon pc perso sur lequel je cherche à faire la manip du post
Est-ce un problème ?
SauvegardeRunMachine1
SauvegardeRunUser1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
Les deux PC ont le même système d'exploitation ?
Le UAC est activé ou non sur ces deux PC ?
il se peut qu'un code marche sur une machine et dans l'autre non
vous voyez il faut expliquer mieux les choses pour qu'on puisse avancer
Les deux PC ont le même système d'exploitation ?
même configuration ?
--> Oui ils sont tous les 2 en Seven Pro
Le UAC est activé ou non sur ces deux PC ?
--> non
il se peut qu'un code marche sur une machine et dans l'autre non
vous voyez il faut expliquer mieux les choses pour qu'on puisse avancer
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
DeleteRegKey.vbs
Mais l'entrée de Avast
Avez-vous supprimer cette dernière manuellement ?
DeleteRegKey.vbs
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
74Option Explicit Dim WshShell,CleMachine,CleUser,MesValeurs,i CleMachine = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" MesValeurs = Array("Hello","mobilegeni daemon","Google Desktop Search","Connectify Hotspot","Connectify Dispatch","IgfxTray","HackooNotFound") Set WshShell = CreateObject("WScript.Shell") For i = LBound(MesValeurs) To UBound(MesValeurs) If RegExists(CleMachine & MesValeurs(i)) = True Then WshShell.RegDelete(CleMachine & MesValeurs(i)) Msgbox "La clé " & DblQuote(CleMachine & MesValeurs(i)) & " a été bien effacé ! ",VbInformation,DblQuote(MesValeurs(i)) Else Msgbox "ERREUR " & VbTab & Err.Description & VbCrLF & "La clé " & DblQuote(CleMachine & MesValeurs(i)) & " n'existe pas ! ",VbCritical,DblQuote(MesValeurs(i)) End if Next '************************************************************************************************************** CleUser = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" MesValeurs = Array("AdobeBridge","BitTorrent Sync","GoogleChromeAutoLaunch_002D28F6D3F86A3FDF662C1423F53833") For i = LBound(MesValeurs) To UBound(MesValeurs) If RegExists(CleUser & MesValeurs(i)) = True Then WshShell.RegDelete(CleUser & MesValeurs(i)) Msgbox "La clé " & DblQuote(CleUser & MesValeurs(i)) & " a été bien effacé ! ",VbInformation,DblQuote(MesValeurs(i)) Else Msgbox "ERREUR " & VbTab & Err.Description & VbCrLF & "La clé " & DblQuote(CleUser & MesValeurs(i)) & " n'existe pas ! ",VbCritical,DblQuote(MesValeurs(i)) End if Next '************************************************************************************************************** Call StartupCommand() 'Pour voir tous les points de démarrage automatique après l'effacement des cles '************************************************************************************************************** Function RegExists(value) On Error Resume Next Dim WS Set WS = CreateObject("WScript.Shell") val = WS.RegRead(value) If (Err.number = -2147024893) or (Err.number = -2147024894) Then RegExists = False Else RegExists = True End If End Function '************************************************************************************************************** 'Fonction pour ajouter les doubles quotes dans une variable Function DblQuote(Str) DblQuote = Chr(34) & Str & Chr(34) End Function '************************************************************************************************************** Function StartupCommand() Dim FSO,strComputer,resultat,objWMIService,colStartupCommands,objStartupCommand Dim WS,NomFichierLog,PathNomFichierLog,OutPut,temp strComputer = "." resultat="" Set FSO = WScript.CreateObject("Scripting.FileSystemObject") Set Ws = CreateObject("WScript.Shell") NomFichierLog="Startup.txt" temp = Ws.ExpandEnvironmentStrings("%temp%") PathNomFichierLog = temp & "\" & NomFichierLog Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,2) Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colStartupCommands = objWMIService.ExecQuery ("Select * from Win32_StartupCommand") For Each objStartupCommand in colStartupCommands resultat=resultat & "Nom: " & objStartupCommand.Name & vbNewline resultat=resultat & "Description: " & objStartupCommand.Description & vbNewline resultat=resultat & "Emplacement: " & objStartupCommand.Location & vbNewline resultat=resultat & "Commande: " & objStartupCommand.Command & vbNewline resultat=resultat & "Utilisateur: " & objStartupCommand.User & vbNewline resultat=resultat & String(120,"*") & vbNewline Next OutPut.WriteLine String(50,"*") &" Les éléments à démarrage automatique "& String(50,"*") OutPut.WriteLine resultat OutPut.Close Set OutPut = Nothing ws.run PathNomFichierLog set ws = Nothing end Function '**************************************************************************************************************
avec ce code j'ai ce retour
en 3fois
puis
puis ce fichier texte
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
Bien sûr c'est normale car vous n'avez pas une entrée "Hello" etc...avec ce code j'ai ce retour
puis
puis ce fichier texte
Par contre avez-vous à la fin un fichier texte ?
ca....
***************************************************************************************
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
J'ai relancé le VBS
et voila le résultat
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
Maintenant, vous avez tous ce qu'il faut comme scripts (Sauvegarde + Effacement)
Si vous voulez par exemple effacer cette entrée "snp2uvc" de la BDR, il vous suffit de la mettre dans votre tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part MesValeurs = Array("Autre valeur1","snp2uvc","Autre valeur3") etc.....
Hello
Bon si je résume :
- Repérage
- Sauvegarde
- Effacement
- Génération du démarrage
- Restauration ?
Etape 0 : Je repère les programmes au démarrage
Hackoo_Virus_Cleaner
Il me génére un TXT qui résume les programmes au démarrage.
Etape 1 : Sauvergarde
SauvegardeBDR.bat
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
10
11
Etape 2 : Effacement
--> Dans la partie
MesValeurs = Array je choisie les programmes a effacer qui seront programmés dans la Partie 3 : Génération du Démarrage
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
74Option Explicit Dim WshShell,CleMachine,CleUser,MesValeurs,i CleMachine = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" MesValeurs = Array("Hello","mobilegeni daemon","Google Desktop Search","Connectify Hotspot","Connectify Dispatch","IgfxTray","HackooNotFound") Set WshShell = CreateObject("WScript.Shell") For i = LBound(MesValeurs) To UBound(MesValeurs) If RegExists(CleMachine & MesValeurs(i)) = True Then WshShell.RegDelete(CleMachine & MesValeurs(i)) Msgbox "La clé " & DblQuote(CleMachine & MesValeurs(i)) & " a été bien effacé ! ",VbInformation,DblQuote(MesValeurs(i)) Else Msgbox "ERREUR " & VbTab & Err.Description & VbCrLF & "La clé " & DblQuote(CleMachine & MesValeurs(i)) & " n'existe pas ! ",VbCritical,DblQuote(MesValeurs(i)) End if Next '************************************************************************************************************** CleUser = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" MesValeurs = Array("AdobeBridge","BitTorrent Sync","GoogleChromeAutoLaunch_002D28F6D3F86A3FDF662C1423F53833") For i = LBound(MesValeurs) To UBound(MesValeurs) If RegExists(CleUser & MesValeurs(i)) = True Then WshShell.RegDelete(CleUser & MesValeurs(i)) Msgbox "La clé " & DblQuote(CleUser & MesValeurs(i)) & " a été bien effacé ! ",VbInformation,DblQuote(MesValeurs(i)) Else Msgbox "ERREUR " & VbTab & Err.Description & VbCrLF & "La clé " & DblQuote(CleUser & MesValeurs(i)) & " n'existe pas ! ",VbCritical,DblQuote(MesValeurs(i)) End if Next '************************************************************************************************************** Call StartupCommand() 'Pour voir tous les points de démarrage automatique après l'effacement des cles '************************************************************************************************************** Function RegExists(value) On Error Resume Next Dim WS Set WS = CreateObject("WScript.Shell") val = WS.RegRead(value) If (Err.number = -2147024893) or (Err.number = -2147024894) Then RegExists = False Else RegExists = True End If End Function '************************************************************************************************************** 'Fonction pour ajouter les doubles quotes dans une variable Function DblQuote(Str) DblQuote = Chr(34) & Str & Chr(34) End Function '************************************************************************************************************** Function StartupCommand() Dim FSO,strComputer,resultat,objWMIService,colStartupCommands,objStartupCommand Dim WS,NomFichierLog,PathNomFichierLog,OutPut,temp strComputer = "." resultat="" Set FSO = WScript.CreateObject("Scripting.FileSystemObject") Set Ws = CreateObject("WScript.Shell") NomFichierLog="Startup.txt" temp = Ws.ExpandEnvironmentStrings("%temp%") PathNomFichierLog = temp & "\" & NomFichierLog Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,2) Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colStartupCommands = objWMIService.ExecQuery ("Select * from Win32_StartupCommand") For Each objStartupCommand in colStartupCommands resultat=resultat & "Nom: " & objStartupCommand.Name & vbNewline resultat=resultat & "Description: " & objStartupCommand.Description & vbNewline resultat=resultat & "Emplacement: " & objStartupCommand.Location & vbNewline resultat=resultat & "Commande: " & objStartupCommand.Command & vbNewline resultat=resultat & "Utilisateur: " & objStartupCommand.User & vbNewline resultat=resultat & String(120,"*") & vbNewline Next OutPut.WriteLine String(50,"*") &" Les éléments à démarrage automatique "& String(50,"*") OutPut.WriteLine resultat OutPut.Close Set OutPut = Nothing ws.run PathNomFichierLog set ws = Nothing end Function '**************************************************************************************************************
Partie 3 : Génération du Démarrage
Dans cette partie je 1 variable = 1 programme donc si je rajoute un programme je rajoute Var13, Var14...... --> Ok ?
Quel est le temps de latence entre chaque lancement de programme ?
Ou as-ton prévu que le programme suivant se lance une fois qu'un programme est complètement lancé ? j'avoue ne plus savoir
GADENSEB_Killer.vbs
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
69Option Explicit Dim Ws,fso,Var1,Var2,Var3,Var4,Var5,Var6,Var7,Var8,Var9,Var10,Var11,Var12,MainArray,LogFile,i,OutPut,count Set Ws = CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Var1 = "Chrome.exe" Var2 = "sidebar.exe" Var3 = "BTSync.exe" Var4 = "ISUSPM.exe" Var5 = "ETDCtrl.exe" Var6 = "jusched.exe" Var7 = "vsnp2uvc.exe" Var8 = "VProTray.exe" Var9 = "tv_w32.exe" Var10 = "TeamViewer.exe" Var11 = "TeamViewer_Service.exe" Var12 = "AthBtTray.exe" MainArray = Array(Var1,Var2,Var3,Var4,Var5,Var6,Var7,Var8,Var9,Var10,Var11,Var12) LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "log" count = 0 If fso.FileExists(LogFile) Then fso.DeleteFile LogFile Set OutPut = fso.OpenTextFile(LogFile,8,True) For i = LBound(MainArray) To UBound(MainArray) Call Kill(MainArray(i)) Next 'Stopper le Service TeamViewer Call MyService("TeamViewer9","Stop") OutPut.WriteLine String(50,"*") OutPut.WriteLine count & " Process were killed !" OutPut.WriteLine String(50,"*") If fso.FileExists(LogFile) Then ws.run LogFile 'To show the LogFile End if '*********************************************************************************************** Sub Kill(MyProcess) On Error Resume Next Dim colItems,objItem Set colItems = GetObject("winmgmts:").ExecQuery("Select * from Win32_Process " _ & "Where Name like '%"& MyProcess &"%' AND NOT commandline like '%" & wsh.scriptname & "%'",,48) For Each objItem in colItems count= count + 1 OutPut.WriteLine Mid(objItem.CommandLine,InStr(objItem.CommandLine,""" """) + 2) objItem.Terminate(0) If Err <> 0 Then OutPut.WriteLine Err.Description End If Next End Sub '*********************************************************************************************** Sub MyService(strServiceName,State) Dim objWMIService,colListOfServices,objService Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name ='" & strServiceName & "'") If State = "Start" Then For Each objService in colListOfServices If objService.state = "Stopped" Then objService.StartService() OutPut.WriteLine VbCrLF & String(50,"*") & VbCrLF & "Le Service : " & strServiceName & " a été demarré avec succés !" End If Next ElseIF State = "Stop" Then For Each objService in colListOfServices If Not objService.state = "Stopped" Then objService.StopService() OutPut.WriteLine VbCrLF & String(50,"*") & VbCrLF &"Le Service : " & strServiceName & " a été arrêté avec succés !" End If Next End if End Sub '***********************************************************************************************
Etape 4 : Restauration ?
Mince j'ai dû loupé une étape, peut-on restaurer le registre sauvegarder ?
Merci pour le travail !!
Bonne journée
Seb
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
Restauration de la BDR depuis un fichier.reg
Pour restituer une clé de Registre sauvegardée ou pour une modification dans la Base de Registre, il est plus facile de fusionner le fichier .reg que d’intervenir directement dans l’Editeur de Registre.
Voici la procédure pour fusionner le fichier .reg.
D’un clic-droit sur le fichier, sélectionner Fusionner
Valider l’avertissement de sécurité par Exécuter
Valider la demande du Contrôle de Compte Utilisateur (UAC), puis valider l’avertissement de sécurité en cliquant sur Continuer
Un message de réussite apparaît
thanks !!
Je vais tester tout ca ce soir !!!
Merci du job !
Bonne journée
Seb
###############################
C'est Totomatique, On va tout Totomate-isé ;-)
###############################
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Répondre avec citation
Partager