| タイトル | ： Re^2: ショートカットをデスクトップに作成するとセキュリティ警告 |
| 記事No | ： 10411 |
| 投稿日 | ： 2011/01/17(Mon) 12:03 |
| 投稿者 | ： sue |
> > 何らかの対処方法はありますでしょうか？
>
> (案1) セキュリティソフトの設定を変える(除外登録しておく)。
> (案2) WScript.Shell を使わないようにする(Windows Installer を使うなど)。
>
> などといったところでしょうか。
>
> なお、CreateShortcut を使わないショートカット作成法が必要なのであれば
> 過去に何度か投稿されていたように思います。VB2005用では無いかも知れませんが。
ありがとうございます。
下記サンプルでできました。
'作成するショートカットのパス
Dim shortcutPath As String = System.IO.Path.Combine( _
Environment.GetFolderPath(System.Environment.SpecialFolder.DesktopDirectory), _
"App.lnk")
'ショートカットのリンク先
' Dim targetPath As String = Application.ExecutablePath
Dim targetPath As String = appPath
'WshShellを作成
Dim shell As New IWshRuntimeLibrary.WshShellClass()
'ショートカットのパスを指定して、WshShortcutを作成
Dim shortcut As IWshRuntimeLibrary.IWshShortcut = _
DirectCast(shell.CreateShortcut(shortcutPath), _
IWshRuntimeLibrary.IWshShortcut)
'リンク先
shortcut.TargetPath = targetPath
'コマンドパラメータ 「リンク先」の後ろに付く
shortcut.Arguments = ""
'作業フォルダ
shortcut.WorkingDirectory = Application.StartupPath
'ショートカットキー（ホットキー）
shortcut.Hotkey = "Ctrl+Alt+Shift+F12"
'実行時の大きさ 1が通常、3が最大化、7が最小化
shortcut.WindowStyle = 1
'コメント
shortcut.Description = "説明"
'アイコンのパス 自分のEXEファイルのインデックス0のアイコン
shortcut.IconLocation = Application.ExecutablePath + ",0"
'ショートカットを作成
shortcut.Save()
'後始末
System.Runtime.InteropServices.Marshal.ReleaseComObject(shortcut)
|