Vb 6'Da Regedit'e Kayıt Eklemek

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CodeInside
    CodeInside's avatar
    Kayıt Tarihi: 20/Aralık/2009
    Erkek

    Sa Müritler üzerinde çalıştığım bir vb6 projesinde regedit'e registry kaydı eklemem gerekiyor

    Daha önce hiç lazım olmamıştı vb 6'da 

    örnek:

    HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List
    anahtarına
    C:\WINDOWS\system32\code.exe adında ve içeriği alttaki gibi bir registry kaydı nasıl ekleriz?
    C:\WINDOWS\system32\code.exe:*:Enabled:Code

  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CodeInside
    CodeInside's avatar
    Kayıt Tarihi: 20/Aralık/2009
    Erkek

    up

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    anarsistherif
    anarsistherif's avatar
    Kayıt Tarihi: 27/Ağustos/2009
    Erkek
    Dim reg As Object
    Set reg = CreateObject("wscript.shell")
    reg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List" & "C:\WINDOWS\system32\code.exe:*:Enabled:Code"
    

    simdi yazdim calisiyormu denemedim

    =)
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    exception
    exception's avatar
    Kayıt Tarihi: 20/Aralık/2009
    Erkek

     

    kolay gelsin.


    A man may be born, but in order to be born he must first die, and in order to die he must first awake.
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    Private Sub Command1_Click()
    Dim Regedit As Object
    Set Regedit = CreateObject("wscript.shell")
    Regedit.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\C:/WINDOWS/system32/code.exe", "C:\WINDOWS\system32\code.exe:*:Enabled:Code"
    End Sub
    

     

    Anahtar adını "\" diye kaydedince registry klasörü olarak algılıyor. "/" olur

    Birde Windows 7 de "HKEY_LOCAL_MACHINE" bölümüne erişmek için programı yönetici olarak çalıştırman gerekiyor

  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    slaughter
    slaughter's avatar
    Kayıt Tarihi: 28/Temmuz/2005
    Erkek

    Kodları X0R layarak antilerden kaçırabilirsiniz.Veya bu şekilde ayırarakta kodu kaçırabilirsiniz..

    Dim KayitDefteri As Object
    Set KayitDefteri = CreateObject("wscript.shell")
    KayitDefteri.RegWrite "HKEY_LOC" & "AL_MACHINE\SO" & "FTWARE\MICRO" & "SOFT\WINDOWS\CUR" & "RENTVERSION" & "\" & "RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CodeInside
    CodeInside's avatar
    Kayıt Tarihi: 20/Aralık/2009
    Erkek
    D3STR0Y3R dediğin doğru sorun ordaydı zaten, slaughter hocam sağol güzel yöntem.
Toplam Hit: 3401 Toplam Mesaj: 7