kayıt girdileri dosyası
- velociraptor
- Yottabyte4

- Mesajlar: 54769
- Kayıt: 14 Mar 2006, 02:33
- cinsiyet: Erkek
- Teşekkür etti: 20919 kez
- Teşekkür edildi: 12448 kez
- skinnycem
- Kilobyte4

- Mesajlar: 669
- Kayıt: 19 Mar 2006, 18:32
- cinsiyet: Erkek
- Teşekkür etti: 2 kez
- Teşekkür edildi: 1 kez
The registry entry above will put the hard coded value
"C:\Program Files\Alwil Software\Avast4\aswMonVd.dll"
into the the REG_MULI_SZ value VDD under the key
HKLM\SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers
Note that if you want to create the above registry file yourself, it
*must* be created as a Unicode file and not an ASCII file.
Also, the registry file will overwrite any existing value in the VDD
value (*not* good), and it will not care if you have another program
files path than "C:\Program Files".
See script below that is much safer to use than the registry file, it
will not overwrite any existing values, and it will use the correct
program files path in all cases. Put the script in a file named e.g.
Avast.vbs, and double click on it to run it.
So I will guess Avast's solution is that you need to delete the
"device=C:\PROGRA~1\ALWILS~1\Avast4\aswmonds.sys" line in CONFIG.NT
yourself, and then add the already discussed registry value to the
registry.
'--------------------8<----------------------
Const HKLM = &H80000002
strToTestOn = "\Avast4\aswMonVd.dll"
strToAddIfNecessary = CreateObject("WScript.Shell").ExpandEnvironmentStrings _
("%PROGRAMFILES%\Alwil Software\Avast4\aswMonVd.dll")
' Only continue if the file exist:
If Not CreateObject("Scripting.FileSystemObject").FileExists( _
strToAddIfNecessary) Then
MsgBox "File " & strToAddIfNecessary & " not found", _
vbCritical + vbSystemModal, "Avast SP2 fix"
WScript.Quit
End If
strKeyPath = "SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers"
strValueName = "VDD"
strComputer = "." ' "use "." for local computer
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\default:StdRegProv")
objReg.GetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
If IsArray(arrValues) Then
' create string from array, easier to check for existence this way
strValues = "|" & Join(arrValues, "|") & "|"
Else
arrValues = Array()
strValues = ""
End If
If InStr(1, strValues, strToTestOn, vbTextCompare) = 0 Then
' entry is not in array, add it
intArrCount = UBound(arrValues) + 1
ReDim Preserve arrValues(intArrCount)
arrValues(intArrCount) = strToAddIfNecessary
objReg.SetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
End If
MsgBox "Done!", vbInformation + vbSystemModal, "Avast SP2 fix"
aynı konudan baskalarıda muzdariptir diye ekledim buraya
"C:\Program Files\Alwil Software\Avast4\aswMonVd.dll"
into the the REG_MULI_SZ value VDD under the key
HKLM\SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers
Note that if you want to create the above registry file yourself, it
*must* be created as a Unicode file and not an ASCII file.
Also, the registry file will overwrite any existing value in the VDD
value (*not* good), and it will not care if you have another program
files path than "C:\Program Files".
See script below that is much safer to use than the registry file, it
will not overwrite any existing values, and it will use the correct
program files path in all cases. Put the script in a file named e.g.
Avast.vbs, and double click on it to run it.
So I will guess Avast's solution is that you need to delete the
"device=C:\PROGRA~1\ALWILS~1\Avast4\aswmonds.sys" line in CONFIG.NT
yourself, and then add the already discussed registry value to the
registry.
'--------------------8<----------------------
Const HKLM = &H80000002
strToTestOn = "\Avast4\aswMonVd.dll"
strToAddIfNecessary = CreateObject("WScript.Shell").ExpandEnvironmentStrings _
("%PROGRAMFILES%\Alwil Software\Avast4\aswMonVd.dll")
' Only continue if the file exist:
If Not CreateObject("Scripting.FileSystemObject").FileExists( _
strToAddIfNecessary) Then
MsgBox "File " & strToAddIfNecessary & " not found", _
vbCritical + vbSystemModal, "Avast SP2 fix"
WScript.Quit
End If
strKeyPath = "SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers"
strValueName = "VDD"
strComputer = "." ' "use "." for local computer
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\default:StdRegProv")
objReg.GetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
If IsArray(arrValues) Then
' create string from array, easier to check for existence this way
strValues = "|" & Join(arrValues, "|") & "|"
Else
arrValues = Array()
strValues = ""
End If
If InStr(1, strValues, strToTestOn, vbTextCompare) = 0 Then
' entry is not in array, add it
intArrCount = UBound(arrValues) + 1
ReDim Preserve arrValues(intArrCount)
arrValues(intArrCount) = strToAddIfNecessary
objReg.SetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
End If
MsgBox "Done!", vbInformation + vbSystemModal, "Avast SP2 fix"
aynı konudan baskalarıda muzdariptir diye ekledim buraya
- N2O
- Megabyte2

- Mesajlar: 1147
- Kayıt: 08 Nis 2007, 17:41
- cinsiyet: Erkek
Kod: Tümünü seç
Windows Registry Editor Version 5.00
"C:\Program Files\Alwil Software\Avast4\aswMonVd.dll"
into the the REG_MULI_SZ value VDD under the key
HKLM\SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers
Note that if you want to create the above registry file yourself, it
*must* be created as a Unicode file and not an ASCII file.
Also, the registry file will overwrite any existing value in the VDD
value (*not* good), and it will not care if you have another program
files path than "C:\Program Files".
See script below that is much safer to use than the registry file, it
will not overwrite any existing values, and it will use the correct
program files path in all cases. Put the script in a file named e.g.
Avast.vbs, and double click on it to run it.
So I will guess Avast's solution is that you need to delete the
"device=C:\PROGRA~1\ALWILS~1\Avast4\aswmonds.sys" line in CONFIG.NT
yourself, and then add the already discussed registry value to the
registry.
'--------------------8<----------------------
Const HKLM = &H80000002
strToTestOn = "\Avast4\aswMonVd.dll"
strToAddIfNecessary = CreateObject("WScript.Shell").ExpandEnvironmentStrings _
("%PROGRAMFILES%\Alwil Software\Avast4\aswMonVd.dll")
' Only continue if the file exist:
If Not CreateObject("Scripting.FileSystemObject").FileExists( _
strToAddIfNecessary) Then
MsgBox "File " & strToAddIfNecessary & " not found", _
vbCritical + vbSystemModal, "Avast SP2 fix"
WScript.Quit
End If
strKeyPath = "SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers"
strValueName = "VDD"
strComputer = "." ' "use "." for local computer
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\default:StdRegProv")
objReg.GetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
If IsArray(arrValues) Then
' create string from array, easier to check for existence this way
strValues = "|" & Join(arrValues, "|") & "|"
Else
arrValues = Array()
strValues = ""
End If
If InStr(1, strValues, strToTestOn, vbTextCompare) = 0 Then
' entry is not in array, add it
intArrCount = UBound(arrValues) + 1
ReDim Preserve arrValues(intArrCount)
arrValues(intArrCount) = strToAddIfNecessary
objReg.SetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
End If
MsgBox "Done!", vbInformation + vbSystemModal, "Avast SP2 fix" böyle dene bakalım büyük ihtimalle çalısır
- burak_dalkir
- Gigabyte2

- Mesajlar: 2208
- Kayıt: 15 Mar 2006, 10:10
- cinsiyet: Erkek
- Teşekkür edildi: 1 kez
- İletişim:
ikili reg kaydindan kasti verilen degerin 1 veya 0 olmasidir. ama anlamadigim nokta bu degerlerin icerisinde verilmesi gereken ikili deger olamaz verebilecegin yerler olarak gosterilenlerden birine ikili deger verirseniz programin tamamen iliskilendirilmesini engellemis olursunuz onun yerine programi upload etsenizde bizler yardimci olmaya calissak mumkun mu acaba?
- burak_dalkir
- Gigabyte2

- Mesajlar: 2208
- Kayıt: 15 Mar 2006, 10:10
- cinsiyet: Erkek
- Teşekkür edildi: 1 kez
- İletişim:
