Private Sub WriteRegedit()
Dim w As Object
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & _
App.EXEName, _
App.Path & "\" & App.EXEName & ".exe"
End Sub
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。