サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2011/03/22 19:14
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[他のアプリ関係][応用コード][] *
* キーワード：ショートカット,*.lnk,デスクトップ,送る,WshShell, *
***********************************************************************************
タイトル ： ショートカットをデスクトップに作成するとセキュリティ警告
記 事 No ： 10405
投 稿 日 ： 2011/01/14(Fri) 17:26
元質問者 ： sue
プログラムのショートカットをWScript.ShellのCreateShortcutで行っていますが、実行時に、
ウィルスセキュリティゼロからスクリプトの警告メッセージを出してしまいます。
一般的なソフトのインストール時には警告は出ないのですが、何らかの対処方法はあります
でしょうか？
-----------------------------------------------------------------------------------
詳しくは、記事No：10405 〜 の一連の投稿をご覧ください
記事No ： 10411
投稿日 ： 2011/01/17(Mon) 12:03
投稿者 ： sue
-----------------------------------------------------------------------------------
ありがとうございます。
下記サンプルでできました。
'作成するショートカットのパス
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)
------------------------------------------------------------------------------------------
下記サンプルも参考にしてください。 ----------- by 花ちゃん -------------
デスクトップにショートカットを作成する(VB.NET)
http://hanatyan.sakura.ne.jp/patio/read.cgi?no=196
 |
