Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

提示说:
ActiveX 部件不能创建对象

[[it] 本帖最后由 我是一只菜菜鸟 于 2008-3-19 18:00 编辑 [/it]]