|
// Windows Scripting Host を定義。
var WshShell = WScript.CreateObject("WScript.Shell");
// レジストリのインストール履歴から、熱血江湖のインストールパスを取得。
// try〜catch() 文を利用してエラー時（値が存在しない等）の処理を分岐。
try{
// レジストリからパスを探す。
var YBDir = WshShell.RegRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\YBJP\\Path") ;
}catch(e){
// エラーが発生したら、空文字を代入。
YBDir = "";
}
// パスの値にてダイアログを表示。
if (YBDir==""){
// 空文字の場合「インストールされていません。」ダイアログを表示。
result = WshShell.Popup("熱血江湖-Onlineがインストールされていません。",0,"SS保存フォルダへのショートカットの作成",0+16);
}else{
// パスが存在した場合、「ショートカットを作りますか？」と問い合わせる。
result = WshShell.Popup("熱血江湖-Onlineの\nスクリーンショット保存フォルダへのショートカットを、\nデスクトップに作成しますか？",0,"SS保存フォルダへのショートカットの作成",4 + 32);
if(result==6){
// [はい]を選択した場合、ショートカットを作成。
// デスクトップのパスを取得。
var strDesktop = WshShell.SpecialFolders("Desktop");
// ショートカットを作成。ファイル名は「熱血江湖SS保存フォルダ.lnk」。
var oShellLink = WshShell.CreateShortcut(strDesktop + "\\熱血江湖SS保存フォルダ.lnk");
// ショートカットのリンク先「インストールパス＋\datas\capture」を設定。
oShellLink.TargetPath = YBDir+"\\datas\\capture";
// 起動時のウインドウを「通常のウインドウ」に設定。
oShellLink.WindowStyle = 1;
// ショートカットの説明を設定。
oShellLink.Description = "熱血江湖スクリーンショット保存フォルダへのショートカット";
// ショートカットを保存。
oShellLink.Save();
}else{
// [いいえ]を選択した場合、処理を中止。
result = WshShell.Popup("処理を中止します。",0,"SS保存フォルダへのショートカットの作成",0+64);
}
} | 
ゲーム
