主题：[分享]发布后主程序版权信息的解决方案

这个问题困扰我很久，今天终于把它解决了，楼主太厉害了！
此主题相关图片如下：9999.png

 谢谢分享。生成桌面快捷方式，可以这样写代码

 

Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String =  SpecialFolder.DesktopDirectory & "/test.lnk"
If Not PathLink.ToLower.EndsWith(".lnk") Then
    PathLink = PathLink & ".lnk"
End If
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = ProjectFile
wshs.Save()
wshs = Nothing
wsh = Nothing

 

老师，这段代码应该写在那里？

 

可以写到任何你想写的地方。比如AfterOpenProject事件。