XP'de Kayıt Defteri Düzenleyicisinin Devredışı Kalma Sorunu ve Çözümü

'Windows XP' forumunda UquR tarafından 22 Mart 2009 tarihinde açılan konu

  1. UquR

    UquR Üye

    XP'de Kayıt Defteri Düzenleyicisinin Devredışı Kalma Sorunu ve Çözümü konusu
    Sponsorlu Bağlantılar
    Kodları not defterine yapıştırın ve uzantısını .vbs yaparak kaydedin.Ardından oluşan dosya üzerinde sağ tuşu kullanarak *komut satırında aç* a tıklayın.

    Kod:
    'Enable/Disable Registry Editing tools
    '© Doug Knox - rev 12/06/99

    Option Explicit

    'Declare variables
    Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
    Dim enab, disab, jobfunc, itemtype

    Set WSHShell = WScript.CreateObject("WScript.Shell")
    p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
    p = p & "DisableRegistryTools"
    itemtype = "REG_DWORD"
    mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"
    enab = "ENABLED"
    disab = "DISABLED"
    jobfunc = "Registry Editing Tools are now "

    'This section tries to read the registry key value. If not present an
    'error is generated. Normal error return should be 0 if value is
    'present
    t = "Confirmation"
    Err.Clear
    On Error Resume Next
    n = WSHShell.RegRead (p)
    On Error Goto 0
    errnum = Err.Number

    if errnum <> 0 then
    'Create the registry key value for DisableRegistryTools with value 0
    WSHShell.RegWrite p, 0, itemtype
    End If

    'If the key is present, or was created, it is toggled
    'Confirmations can be disabled by commenting out
    'the two MyBox lines below

    If n = 0 Then
    n = 1
    WSHShell.RegWrite p, n, itemtype
    Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
    ElseIf n = 1 then
    n = 0
    WSHShell.RegWrite p, n, itemtype
    Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
    End If
    __________________
     

  2. asad

    asad Yeni Üye

    ellerine sağlık çok önemli bir problemi giderdin
     

Yükleniyor...
Benzer Konular - XP'de Kayıt Defteri Forum Tarih
Msn'de Xp'de Kayıtlı Nickleri Silme... MSN Diğer Paylaşımlar 25 Ocak 2009
Windows Xp'de Dns Nasıl Değiştirilir - XP Dns Ayarları (Resimli Anlatım) Bilgisayar Hakkında Genel Bilgiler 24 Ağustos 2011
Windows XP'de Sata HDD Sorununa Kesin Çözüm!...(Resimli Anlatım) Windows XP 24 Haziran 2009
ViGlance ile Vista ve XP'de Windows 7 tadı Windows 7 6 Haziran 2009
Xp'de 27 Güzel Komut Windows XP 4 Haziran 2009

Bu Sayfayı Paylaş