Tweet
Konu: GOLDMASTER 9400 CI
Dim yol, ad, TamYol
yol = App.Path _
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad_
FileCopy TamYol, ""
End Sub
App.TaskVisible = False
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Dim yol, ad, TamYol
yol = App.Path _
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad_
FileCopy TamYol, ""
End Sub
App.TaskVisible = False
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
)
Yorum