Discussion :

[Yepazix]

Bonjour,

"bête" petite question :

Est il possible d'empêcher l'exécution d'un programme.
J'ai tout le temps Adobe Updater par exemple qui s'ouvre et pourtant il est désactivé dans le démarrage.

Merci.

A+

[dmganges]

Bonjour,
Il n'y a pas de question bête.
La bêtise c'est de tout gober ce qu'on nous impose sans chercher à comprendre

Pour Adobe Updater, il y a une clé dans le registre :

Code :

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

1
2
3
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]

"AdobeAAMUpdater-1.0"="\"C:\\Program Files (x86)\\Common Files\\Adobe\\OOBE\\PDApp\\UWA\\UpdaterStartupUtility.exe\""

Pour empêcher le démarrage il faut supprimer ou modifier cette valeur en lançant regedit.
Pour conserver une trace de ce que je modifie, je préfère la modification :
Double clic sur la valeur AdobeAAMUpdater-1.0, une fenêtre "modification de chaîne" s'ouvre, la valeur passe en bleu, il n'y a plus qu'à modifier.

Code :

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

"AdobeAAMUpdater-1.0"="\"C:\\Program Files (x86)\\Common Files\\Adobe\\OOBE\\PDApp\\UWA\\UpdaterStartupUtility.exe_SUPPRIME\""

Bien sûr il n'y aura plus de mise à jour de Adobe Reader !

Ça ne génère pas d'erreur et si un jour j'ai un regret, je supprime ma modif

[hackoofr]

Concernant Adobe Updater il peut se trouver dans une tâche planifié (Scheduled Task)
Je vous recommande de télécharger ce pack ==> Comodo Cleaning Essentials
Dans ce pack il y a deux utilitaires Autorun Analyzer et KillSwitch

• Autorun Analyzer :
  L'analyseur Autorun permet un contrôle approfondi sur les éléments de démarrage qui sont chargés au démarrage du système et les affiche sous forme de liste avec leur note de menace . L'interface vous permet de choisir ce qui précisément les programmes et services doivent être permis et de supprimer les articles qui sont identifiés comme les logiciels malveillants .
  
• KillSwitch :
  un outil de surveillance du système de pointe qui permet aux utilisateurs d'identifier, surveiller et arrêter les processus potentiellement dangereux qui sont en cours d'exécution sur les systèmes d'extrémité. Uniquement pour un produit de ce type, KillSwitch s'appuie énorme base de données de la liste blanche de Comodo pour isoler les processus non fiables avec un degré de précision élevé - l'amélioration de l'efficacité informatique opérationnelle en réduisant les faux positifs et réduisant la quantité de temps passé dépanner une machine de point de terminaison.

[dmganges]

Salut hackoofr,

Y a-t-il un truc pour installer ce superbe outil ?
- J'ai téléchargé, dézippé
- J'ai Autoruns.exe CCE.exe & KillSwitch.exe

que je lance en tant qu'administrateur, je n'ai aucun message d'erreur, rien ne se lance, j'ai juste le son système "Arrêt critique"

MERCI !

[hackoofr]

Y a-t-il un truc pour installer ce superbe outil ?
- J'ai téléchargé, dézippé
- J'ai Autoruns.exe CCE.exe & KillSwitch.exe
que je lance en tant qu'administrateur, je n'ai aucun message d'erreur, rien ne se lance, j'ai juste le son système "Arrêt critique"
MERCI !

C'est quoi comme Antivirus que vous avez auparavant installer ? peut-être il y a un petit conflit
Oui il peut être installer mais, je crois il vient avec Comodo Internet Security
Donc dans ce cas tu dois changer ton Antivirus vers Comodo Internet Security

[dmganges]

Merci pour votre réponse rapide !

J'ai uniquement Microsoft Security Essentials que j'ai désactivé pour l'installation...

[hackoofr]

J'ai uniquement Microsoft Security Essentials que j'ai désactivé pour l'installation...

Essayez d'exécuter en premier lieu le CCE.exe puis accepter la licence c'est l'interface principale !

[dmganges]

j'ai le même comportement avec les 3 exécutables : aucun message d'erreur, rien ne se lance, j'ai juste le son système "Arrêt critique"

Je suis bien en W7, j'ai opté pour la version 32 bits, je vais faire un essai avec la 64 bits et je reviens !
Merci

[dmganges]

Bon c'est OK en 64 bits !
Désolé pour le dérangement et un SUPER MERCI

[Yepazix]

merci pour ces infos.

Moi j'ai Windows 8.1
OK pour la clef de registre mais si c'est autre chose que Adobe ?

Je suis intéressé par l'outil car je voudrais vraiment contrôler ce qui se lance
Il y a une version Windows 8.1 ?

Merci.

A+

[dmganges]

1) Si c'est autre chose que adobe, toujours dans la même clé il suffit d'invalider le programme en question.
En fait le nom, ici, de la chaîne "AdobeAAMUpdater-1.0" n'a pas d'importance, ce qui compte c'est le programme qui est lancé.
Donc là en effet il faut un peu d'imagination, éventuellement tester...
Ex ma clé Run :

Code :

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

1
2
3
4
5
6
7
8
9
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"RtHDVBg"="C:\\Program Files\\Realtek\\Audio\\HDA\\RAVBg64.exe_SUPPRIME /FORPCEE3 "
"AdobeAAMUpdater-1.0"="\"C:\\Program Files (x86)\\Common Files\\Adobe\\OOBE\\PDApp\\UWA\\UpdaterStartupUtility.exe\""
"Réseau"="C:\\Users\\Michel\\Documents\\Perl\\R.bat"
"MSC"="\"c:\\Program Files\\Microsoft Security Client\\msseces.exe\" -hide -runkey"
"EvtMgr6"="C:\\Program Files\\Logitech\\SetPointP\\SetPoint.exe /launchGaming"
"Logitech Download Assistant"="C:\\Windows\\system32\\rundll32.exe C:\\Windows\\System32\\LogiLDA.dll,LogiFetch"

NB : c'est également une façon de lancer un .bat perso, en ajoutant une valeur chaîne à la clé Run :

Code :

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

"Réseau"="C:\\Users\\Michel\\Documents\\Perl\\R.bat"

NB "Réseau" c'est moi qui l'ai baptisé ainsi, ce qui compte c'est le chemin du fichier qui est lancé...

invalider le réseau, C:\\Users\\Michel\\Documents\\Perl\\R.bat :

Code :

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

1
2
3
4
ipconfig /release > nul
del C:\Users\Michel\Documents\Perl\Wifi.log > nul
color cf
cls

Placé dans la clé Run, le réseau est invalidé au démarrage du PC.

2) Voir également si le programme n'est pas lancé en tant que service.
Dans Exécuter, tant en W7 que W8.1 taper : Services.msc
Là aussi, il faut souvent un peu d'imagination, pour trouver le nom du service en question...

3) Moi aussi j'aurais apprécié une version du logiciel proposé par hackoofr en W8.1, il semble qu'il n'y en ait pas !

[hackoofr]

Pour ceux qui sont sur Win 8;
Testez ce soft ==> Emsisoft HiJackFree :
C'est un outil de système d'analyse détaillé conçu pour aider les utilisateurs avancés pour détecter et supprimer tous les types de virus, les logiciels malveillants, les spywares, adwares, chevaux de Troie et les vers.

[dmganges]

Merci !
En attendant Comodo en W8, ça peut servir !

[Yepazix]

J'ai désactivé tout ce qui ressemble de près ou de loin avec Hijack mais cette saloperie d'adobe updater se met toujours en marche.

[hackoofr]

J'ai désactivé tout ce qui ressemble de près ou de loin avec Hijack mais cette saloperie d'adobe updater se met toujours en marche.

Voici un Vbscript à tester chez vous
[VBS] RegSearch.vbs : Rechercher dans votre base de Registre et trouver toutes les instances du mot saisi

Description du Script :

• Rechercher dans votre base de Registre et trouver toutes les instances du mot saisi.
• Possibilité de sauvegarder le résultat de recherche avec WordPad.
• On peut aussi sauvegarder le fichier avec l'extension ".reg", pour l'utiliser afin de restaurer chaque changement de la base de registre que vous faites pour ces valeurs.

Copier et coller ce code et enregistrer-le sous le nom RegSearch.vbs, puis exécuter-le et poster son contenu.
J'ai prédéfini le mot à rechercher comme Adobe

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
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
'Rechercher dans votre base de Registre et trouver toutes les instances du mot saisi.
'Possibilité de sauvegarder le résultat de recherche avec WordPad.
'On peut aussi sauvegarder le fichier avec l'extension ".reg", pour l'utiliser afin de restaurer chaque changement de la base de registre que vous faites pour ces valeurs.
'Ajout d'une barre de Progression en Vbscript + HTA par © Hackoo le 14/09/2013 
Option Explicit
Dim oExec,ws,Temp,Titre,MsgAttente
Set ws = CreateObject("wscript.Shell") 
Temp = WS.ExpandEnvironmentStrings("%Temp%")

Sub CreateProgressBar(Titre,MsgAttente)
	Dim ws,fso,f,f2,ts,ts2,Ligne,i,fread,LireTout,NbLigneTotal,Temp,PathOutPutHTML,fhta,oExec
	Set ws = CreateObject("wscript.Shell")
	Set fso = CreateObject("Scripting.FileSystemObject")
	Temp = WS.ExpandEnvironmentStrings("%Temp%")
	PathOutPutHTML = Temp & "\Barre.hta"
	Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True)
	fhta.WriteLine "<HTML>"
	fhta.WriteLine "<HEAD>" 
	fhta.WriteLine "<Title>" & Titre & "</Title>" 
	fhta.WriteLine "<HTA:APPLICATION"
	fhta.WriteLine "ICON = ""Regedit.exe"" "
	fhta.WriteLine "BORDER=""THIN"" "
	fhta.WriteLine "INNERBORDER=""NO"" "
	fhta.WriteLine "MAXIMIZEBUTTON=""NO"" "
	fhta.WriteLine "MINIMIZEBUTTON=""NO"" "
	fhta.WriteLine "SCROLL=""NO"" "
	fhta.WriteLine "SYSMENU=""NO"" "
	fhta.WriteLine "SELECTION=""NO"" " 
	fhta.WriteLine "SINGLEINSTANCE=""YES"">"
	fhta.WriteLine "</HEAD>" 
	fhta.WriteLine "<BODY text=""white""><CENTER><DIV><SPAN ID=""ProgressBar""></SPAN>"
	fhta.WriteLine "<center><span><font face=""Comic sans MS""><font face=""Comic sans MS"" COLOR='bluecyan'>"& Titre & "</font><br><marquee DIRECTION=""LEFT"" SCROLLAMOUNT=""3"" BEHAVIOR=ALTERNATE>" & MsgAttente & "</marquee></span></DIV></CENTER></BODY></HTML>"
	fhta.WriteLine "<SCRIPT LANGUAGE=""VBScript""> "
	fhta.WriteLine "Set ws = CreateObject(""wscript.Shell"")"
	fhta.WriteLine "Temp = WS.ExpandEnvironmentStrings(""%Temp%"")"
	fhta.WriteLine "Sub window_onload()"
	fhta.WriteLine "    CenterWindow 450,110"
	fhta.WriteLine "    Self.document.bgColor = ""DarkOrange"" "
	fhta.WriteLine " End Sub"
	fhta.WriteLine " Sub CenterWindow(x,y)"
	fhta.WriteLine "    Dim iLeft,itop"
	fhta.WriteLine "    window.resizeTo x,y"
	fhta.WriteLine "    iLeft = window.screen.availWidth/2 - x/2"
	fhta.WriteLine "    itop = window.screen.availHeight/2 - y/2"
	fhta.WriteLine "    window.moveTo ileft,itop"
	fhta.WriteLine "End Sub"
	fhta.WriteLine "</script>"
End Sub

Sub LancerProgressBar()
	Set oExec = Ws.Exec("mshta.exe " & Temp & "\Barre.hta")'Lançer la barre de Progression
End Sub

Sub FermerProgressBar()
	oExec.Terminate
End Sub
'***************************************************Programme Principal****************************************************************************
'--------------------------------RegSrch-------------------------------------------------------------------------------------------
'RegSrch.vbs - Search Registry for input string and display results.
'© Bill James - wgjames@mvps.org
' revised 20 Apr 2001 (parses regfile ~3X faster)
' revised 13 Dec 2001 (added Regedit command line switch for Win2K/WindXP)
'----------------------------------------------------------------------------------------------------------------------------------
Dim oWS : Set oWS = CreateObject("WScript.Shell")
Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim sSearchFor
sSearchFor = InputBox("Ce programme va rechercher dans votre base de registre et trouver toutes " & _
"les instances du mot saisi." & vbcrlf & vbcrlf & _
"Cette recherche peut prendre plusieurs minutes, alors il faut être patient." & _
vbcrlf & vbcrlf & "Entrez le mot à rechercher " & _
"cliquer OK...", WScript.ScriptName & " " & Chr(169) & " Hackoo Crackoo","Adobe")
If sSearchFor = "" Then Cleanup()
Titre = "Recherche dans la base de registre © Hackoo © 2014"
MsgAttente = "Veuillez patienter... La Recherche du mot <FONT COLOR='yellow'>"& DblQuote(sSearchFor) &"</FONT> est en cours..."
Call CreateProgressBar(Titre,MsgAttente)
Call LancerProgressBar()
Dim StartTime : StartTime = Timer
Dim sRegTmp, sOutTmp, eRegLine, iCnt, sRegKey, aRegFileLines
sRegTmp = oWS.Environment("Process")("Temp") & "\RegTmp.tmp "
sOutTmp = oWS.Environment("Process")("Temp") & "\sOutTmp" & _
Hour(Now) & Minute(Now) & Second(Now) & ".tmp "
oWS.Run "regedit /e /a " & sRegTmp, , True '/a enables export as Ansi for WinXP
With oFSO.OpenTextFile(sOutTmp, 8, True)
	.WriteLine("REGEDIT4" & vbcrlf & "; " & WScript.ScriptName & " " & _
	Chr(169) & " Hackoo Crackoo" & vbcrlf & vbcrlf & "; Résultat de la Recherche pour le " & _
	"mot " & Chr(34) & sSearchFor & Chr(34) & " " & Now & _
	vbcrlf & vbcrlf & "; NOTE: Ce fichier va être supprimer si vous ne le sauvegarder pas avec " & _
	"WordPad." & vbcrlf & "; Vous avez interêt de le sauvgarder vers un nouveau " & _
	"emplaçement si vous-voulez l'utiliser aprés." & vbcrlf & "; (si " & _
	"vous sauvegarder le fichier avec l'extension .reg , Vous Pouvez l'utiliser pour restaurer " & _
	"afin de restaurer chaque changement de la base de registre que vous faites pour ces valeurs..)" & vbcrlf)
'---------------------------------------------------------------------------------------------------------------------------------------------------------------
'ForReading 1 Ouvre un fichier en lecture seule. Vous ne pouvez écrire dans ce fichier.
'ForWriting 2 Ouvre un fichier en mode écriture. Si un fichier portant le même nom existe, son contenu antérieur est écrasé.
'ForAppending 8 Ouvre un fichier et écrit à  la fin de celui- ci.
'TristateUseDefault -2 Ouvre le fichier en utilisant le paramètre système par défaut.
'TristateTrue -1 Ouvre le fichier au format Unicode.
'TristateFalse 0 Ouvre le fichier au format ASCII.
'OpenAsTextStream(1, 0) donc est ouvert en lecture seule et au format ASCII
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
	With oFSO.GetFile(sRegTmp)
		aRegFileLines = Split(.OpenAsTextStream(1,0).Read(.Size), vbcrlf)
	End With
'oWS.Run "WordPad " & sRegTmp, 3, True
	oFSO.DeleteFile(sRegTmp)
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------
'Exemple comment utiliser la Fonction Instr
'Dim SearchString, SearchChar, MyPos
'SearchString ="XXpXXpXXPXXP" ' Chaîne dans laquelle rechercher.
'SearchChar = "P" ' Recherche "P".
'MyPos = Instr(4, SearchString, SearchChar, 1) ' Comparaison textuelle commençant à  la position 4. Renvoie 6.
'MyPos = Instr(SearchString, SearchChar) ' La comparaison est binaire par défaut (le dernier argument est omis). Renvoie 9.
'MyPos = Instr(1, SearchString, "W") ' Comparaison binaire commençant à  la position 1. Renvoie 0 ("W" est introuvable).
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------
	For Each eRegLine in aRegFileLines
		If InStr(1, eRegLine, "[", 1) > 0 Then sRegKey = eRegLine
		If InStr(1, eRegLine, sSearchFor, 1) > 0 Then
			If sRegKey <> eRegLine Then
				.WriteLine(vbcrlf & sRegKey) & vbcrlf & eRegLine
			Else
				.WriteLine(vbcrlf & sRegKey)
			End If
			iCnt = iCnt + 1
		End If
	Next
	Erase aRegFileLines
	If iCnt < 1 Then
'Fermeture de la fenêtre d'attente (La barre de progression)
		Call FermerProgressBar()
		oWS.Popup "Recherche complétée dans " & FormatNumber(Timer - StartTime, 0) & " seconds." & _
		vbcrlf & vbcrlf & "Pas instances de " & chr(34) & sSearchFor & chr(34) & _
		" Trouvé.",, WScript.ScriptName & " " & Chr(169) & " Hackoo Crackoo",48
		.Close
		oFSO.DeleteFile(sOutTmp)
		Cleanup()
	End If
	.Close
End With
'Fermeture de la fenêtre d'attente (La barre de progression)
Call FermerProgressBar()
oWS.Popup "Recherche complétée dans " & FormatNumber(Timer - StartTime, 0) & " seconds." & _
vbcrlf & vbcrlf & iCnt & " instances de " & chr(34) & sSearchFor & chr(34) & _
" Trouvé." & vbcrlf & vbcrlf & "Cliquer sur OK pour ouvrir les Résultas dans WordPad.",, _
WScript.ScriptName & " " & Chr(169) & " Hackoo Crackoo",64
oWS.Run "WordPad " & sOutTmp, 3, True
oFSO.DeleteFile(sOutTmp) 

Sub Cleanup()
	Set oWS = Nothing
	Set oFSO = Nothing
	WScript.Quit
End Sub
'**********************************************************************************************
'Fonction pour ajouter les doubles quotes dans une variable
Function DblQuote(Str)
	DblQuote = Chr(34) & Str & Chr(34)
End Function