Перестали выполняться "exe" файлы

Ответить


Этот вопрос предназначен для предотвращения автоматической отправки форм спам-ботами.
Смайлики
:| :) :wink: :D :lol: :( :cry: 8) :o :oops: :? :x :P :evil: :twisted: :roll: :!: :?: :idea: :arrow: :mrgreen:
Ещё смайлики…

Markdown is OFF

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ВКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: Перестали выполняться "exe" файлы

Bibigool » 17 мар 2010 16:20, Ср

Вариант 2:
Создаем reg-файл:

Код: Выделить всё

REGEDIT4 

[-HKEY_CLASSES_ROOT\exefile] 

[-HKEY_CLASSES_ROOT\.exe] 

[HKEY_CLASSES_ROOT\.exe] 
@="exefile" 
"Content Type"="application/x-msdownload" 

[HKEY_CLASSES_ROOT\.exe\PersistentHandler] 
@="{098f2470-bae0-11cd-b579-08002b30bfeb}" 

[HKEY_CLASSES_ROOT\exefile] 
@="Application" 
"EditFlags"=hex:38,07,00,00 
"TileInfo"="prop:FileDescription;Company;FileVersion" 
"InfoTip"="prop:FileDescription;Company;FileVersion;Create;Size" 

[HKEY_CLASSES_ROOT\exefile\DefaultIcon] 
@="%1" 

[HKEY_CLASSES_ROOT\exefile\shell] 

[HKEY_CLASSES_ROOT\exefile\shell\open] 
"EditFlags"=hex:00,00,00,00 

[HKEY_CLASSES_ROOT\exefile\shell\open\command] 
@="\"%1\" %*" 

[HKEY_CLASSES_ROOT\exefile\shell\runas] 

[HKEY_CLASSES_ROOT\exefile\shell\runas\command] 
@="\"%1\" %*" 

[HKEY_CLASSES_ROOT\exefile\shellex] 

[HKEY_CLASSES_ROOT\exefile\shellex\DropHandler] 
@="{86C86720-42A0-1069-A2E8-08002B30309D}" 

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers] 

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\PifProps] 
@="{86F19A00-42A0-1069-A2E9-08002B30309D}" 

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\ShimLayer Property Page] 
@="{513D916F-2A8E-4F51-AEAB-0CBC76FB1AF8}" 

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\{B41DB860-8EE4-11D2-9906-E49FADC173CA}] 
@="" 

и выполняем его.
По аналогии можно написать файлы восстановления реестра и для других типов файлов. Для каждого типа рассширения нужно править два ключа:

Код: Выделить всё

HKEY_CLASSES_ROOT\расширениеfile\ 
и
HKEY_CLASSES_ROOT\.расширение

Перестали выполняться "exe" файлы

UncleFather » 17 мар 2010 16:14, Ср

Проблема:
Перестали выполняться "exe" файлы
Решение:
Создаем vbs-скрипт:

Код: Выделить всё

'ExeFileFix.vbs - verifies the Registry, and restores the default values for .exe files 
' Mikhail Zhilin, Microsoft MVP (DTS),   mwz { AT } aha.ru 
'15 Nov 2001 

Option Explicit:Dim ws, t, e, v, q, Ask 
Set ws = WScript.CreateObject("WScript.Shell") 
t = "Verify and restore the default .exe values" 

e = ws.RegRead("HKEY_CLASSES_ROOT\.exe\") 
If e<>"exefile" then 
   Ask = MsgBox("DANGER!" & vbcrlf & vbcrlf & _ 
   ".exe default value is: " & e & vbcrlf & _ 
   "instead of: exefile" & vbcrlf & vbcrlf& _ 
   "Do you want to restore the default value just now?",20,t) 
   If Ask = 6 Then 
      ws.RegWrite "HKEY_CLASSES_ROOT\.exe\","exefile" 
   Else 
      Ask = MsgBox("Restore the .exe default value" & vbcrlf & _ 
      "as soon as possible!",16,t) 
   End If 
End If 

q=chr(34) & "%1" & chr(34) & " %*" 
'i.e.  "%1" %* 
v = ws.RegRead("HKEY_CLASSES_ROOT\exefile\shell\open\command\") 

If v<>q then 
   Ask = MsgBox("DANGER!" & vbcrlf & vbcrlf & _ 
   "Exefile default value is:  " & v & vbcrlf & vbcrlf & _ 
   "The name before " & q & " may be the virus name!" & vbcrlf & vbcrlf& _ 
   "Do you want to restore the default value just now?",20,t) 
   If Ask = 6 Then 
      ws.RegWrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\",q 
   Else 
      Ask = MsgBox("Restore the default value for exefile" & vbcrlf & _ 
      "as soon as possible!",16,t) 
   End If 
Else 
      Ask=MsgBox("Exefile default value is already correct!",64,t) 
End If 

и выполняем его


Вернуться к началу