sub RegRun() on error resume next dim wsh set wsh=createobject("wscript.shell") wsh.regwrite "HKLM\Software\Microsoft\Windows\Currentversion\Run\" & app.exename,app.path & "\" & app.exename & ".exe",REG_SZ" end sub
sub RegRun() on error resume next dim wsh set wsh=createobject("wscript.shell") wsh.regwrite "HKLM\Software\Microsoft\Windows\Currentversion\Run\" & app.exename,app.path & "\" & app.exename & ".exe",REG_SZ" end sub 目测是写注册表 HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run是控制计算机启动项的注册表信息`