代码之家 › 专栏 › 技术社区 › Matt

在Windows 7 box(64位)上从vb.net创建快捷方式

shortcut windows-7 vb.net .net c#

Matt · 技术社区 · 15 年前

Imports IWshRuntimeLibrary

Dim WshShell As WshShellClass = New WshShellClass

            Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut

            ' The shortcut will be created on the desktop
            'Win 7 
            MyShortcut = CType(WshShell.CreateShortcut("C:\Users\Public\Desktop\iexplore.lnk"), IWshRuntimeLibrary.IWshShortcut)

            'MyShortcut = CType(WshShell.CreateShortcut("C:\Documents and Settings\All Users\Desktop\iexplore.lnk"), IWshRuntimeLibrary.IWshShortcut)

            MyShortcut.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" 'Specify target app full path
            MyShortcut.Description = "IE"

            MyShortcut.Save()

2 回复 | 直到 15 年前

David Crowell 15 年前

Windows 7 64位。将其编译为32位,并成功:

Imports IWshRuntimeLibrary

Module Module1

    Sub Main()
        Dim WshShell As WshShell = New WshShell

        Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut

        MyShortcut = CType(WshShell.CreateShortcut("C:\Users\Public\Desktop\Dah Browser.lnk"), IWshRuntimeLibrary.IWshShortcut)
        MyShortcut.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" 'Specify target app full path
        MyShortcut.Description = "IE"

        MyShortcut.Save()
    End Sub

End Module

注意:我以管理员身份运行,UAC已关闭。

还要注意,我将WshShellClass更改为WshShell

Walter 15 年前

你的应用程序在什么特权下运行?我相信它将需要管理员凭据做什么,你正在寻找。

推荐文章

A B · C#Excel自动调整列避免长文本时出错

3 月前

Alireza Noori · 全局配置用于本地化的MudDontext验证消息?

3 月前

Martyn C · 自定义StringEnumConverter未拾取所有枚举

3 月前

Nwerx_user · 在C#中,如何在不使用static关键字的情况下使用类外的方法?

4 月前

pseudodev · 失败的测试仅显示堆栈跟踪,不显示完整日志

4 月前

user19291301 · 平行。ForEachAsync不会更改IEnumerable项的属性

5 月前

CactusCake · if语句中应有分号

5 月前

LemonPotion · SaveChangesAsync期间EF Core中的DbUpdateConcurrenty异常

5 月前

Bin4ry · 子文件夹中的应用程序设置

5 月前

enflky · 如何修改Winforms TabControl中所有选项卡中的WebView2内容?

6 月前