информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Портрет посетителяСтрашный баг в WindowsЗа кого нас держат?
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Линуксовый ботнет, распространяющийся... 
 Конец поддержки Internet Explorer 
 Рекордное число уязвимостей в 2021 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / operating systems
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Народ, подскажие pls по проблеме с Вистой 08.02.08 16:37  
Автор: HandleX <Александр М.> Статус: The Elderman
Отредактировано 13.02.08 17:25  Количество правок: 1
<"чистая" ссылка> <обсуждение закрыто>
У знакомого установлена эта ОС, при просмотре Проводником в папках невозможно выбрать несколько объектов как обычно — при помощи Shift'а или выделением мышью. Утверждает, что раньше работало. Кнопка Shift работает.

Как это лечится?

Заранее всем огромное спасибо.
Всем спасибо, помог скрипт по ссылке Cyril, оно кста удаляет те ключи, о которых говорил +. На всякий случай оставлю скрипт в теле сообщения для потомков. 15.02.08 13:59  
Автор: HandleX <Александр М.> Статус: The Elderman
Отредактировано 15.02.08 14:00  Количество правок: 1
<"чистая" ссылка> <обсуждение закрыто>
Option Explicit

const HKCU = &H80000001
const FWF_SINGLESEL = &H00000040

dim objReg

msgbox "Close all Explorer windows before continuing."

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

FixBags

FixDefaults

msgbox "Done!  Logoff and Logon before opening any Explorer windows."


'===================================================================================================
Sub FixBags

const BagsPath = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags"

dim iFFlags
dim strBag, strShellPath, strFolderID, strKeyPath
dim arrBags, arrFolderIDs

objReg.EnumKey HKCU, BagsPath, arrBags

For Each strBag in arrBags
    strShellPath = BagsPath & "\" & strBag & "\Shell"
    If RegKeyExists(strShellPath) Then
         If objReg.EnumKey(HKCU, strShellPath, arrFolderIDs) = 0 Then
              If Not IsNull(arrFolderIDs) Then
                  For each strFolderID in arrFolderIDs
                      strKeyPath = strShellPath & "\" & strFolderID
                      If objReg.GetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) = 0 Then
                          If (iFFlags AND FWF_SINGLESEL) <> 0 Then
                              iFFlags = (iFFlags AND (NOT(FWF_SINGLESEL)))
                              If objReg.SetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) <> 0 Then
                                  Msgbox "SetDWORDValue Failed"
                              End If
                          End If
                      End If
                  Next
              End If
         End If
    End If
Next

End Sub
'===================================================================================================

'===================================================================================================

Sub FixDefaults

const StreamsPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"

dim bytTemp, bytFFlags
dim iByteIndex
dim strFolderID, strViewSettings, strSearch
dim arrFolderIDs, arrRegTypes, arrViewSettings


If (objReg.EnumValues(HKCU, StreamsPath, arrFolderIDs, arrRegTypes) <> 0) Or IsNull(arrFolderIDs) Then
    Exit Sub
End If

For Each strFolderID in arrFolderIDs

    If objReg.GetBinaryValue(HKCU, StreamsPath, strFolderID, arrViewSettings) = 0 Then

        '--- Convert Byte array to string to facilitate searching ---

        strViewSettings = ""
        For each bytTemp in arrViewSettings
           strViewSettings = strViewSettings & chr(bytTemp)
        Next

        strSearch = "F" & chr(0) & "F" & chr(0) & "l" & chr(0) & "a" & chr(0) & "g" & chr(0) & "s"

        iByteIndex = instr(strViewSettings, strSearch) + 17

        bytFFlags = arrViewSettings(iByteIndex)
        If (bytFFlags AND FWF_SINGLESEL) <> 0 Then
           arrViewSettings(iByteIndex) = (bytFFlags AND NOT(FWF_SINGLESEL))
           If objReg.SetBinaryValue(HKCU, StreamsPath, strFolderID, arrViewSettings) <> 0 Then
               msgbox "SetBinaryValue Failed"
           End If
        End If


    End If
Next

End Sub


'===================================================================================================

Function RegKeyExists(sRegKey)

dim aValueNames, aValueTypes

sRegKey = Trim(sRegKey)

If objReg.EnumValues(HKCU, sRegKey, aValueNames, aValueTypes) = 0 Then
    RegKeyExists = True
Else
    RegKeyExists = False
End If

End Function

---
у меня такое было , вылечилось просто: 15.02.08 03:14  
Автор: + <Mikhail> Статус: Elderman
Отредактировано 15.02.08 03:16  Количество правок: 1
<"чистая" ссылка> <обсуждение закрыто>
у меня такое было , вылечилось просто:
в регистре удали Bags Keys в
HKCU\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\
вот решение, нашел в гугле сам не пробовал 14.02.08 17:29  
Автор: Cyril <sc> Статус: Member
<"чистая" ссылка> <обсуждение закрыто>


ссылка
попробовать под пытками узнать после чего перестало работать... 14.02.08 17:03  
Автор: jiZo <Александр> Статус: Member
<"чистая" ссылка> <обсуждение закрыто>
из оствышихся идей не высказаными остаются только снос висты с последующей её перестановкой, снос висты с последующей установкой XP и, последнее, поставить SP1, мож все вернется на круги своя...
Он бы и рад снести, да дитятко не позволяет, оно же ему и воткнуло висту -)) 15.02.08 13:57  
Автор: HandleX <Александр М.> Статус: The Elderman
<"чистая" ссылка> <обсуждение закрыто>
Оопс, не ожидал такой бурной реакции ;-)) 13.02.08 17:26  
Автор: HandleX <Александр М.> Статус: The Elderman
<"чистая" ссылка> <обсуждение закрыто>
может в опциях для инвалидов что-то накручено на тему шифта 13.02.08 17:34  
Автор: dl <Dmitry Leonov>
<"чистая" ссылка> <обсуждение закрыто>
Мышой тоже не выделяется (синий полупрозрачный прямоугольник не создается при попытке выделения мышой). 13.02.08 22:06  
Автор: HandleX <Александр М.> Статус: The Elderman
<"чистая" ссылка> <обсуждение закрыто>
Может поиграться настройками в свойствах папок? 14.02.08 13:14  
Автор: Den <Denis> Статус: The Elderman
<"чистая" ссылка> <обсуждение закрыто>
тады ой, идей нет 14.02.08 01:53  
Автор: dl <Dmitry Leonov>
<"чистая" ссылка> <обсуждение закрыто>
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2022 Dmitry Leonov   Page build time: 1 s   Design: Vadim Derkach