[Unforgiven]

Aşağıdaki kodlar formun LOAD olayına yazılırsa bilgisayar açılırken bu program otomatik başlatılır.

Tanımlayacağınız değişken;

Dim KayitDefteri As Object

Yazılacak kod;

Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

 

[myhones]

k