1

vbscript でデスクトップ ショートカットを作成します。

WindowsStyle プロパティを使用すると、シェルが最小化、最大化、または最後に設定されたサイズで起動するかどうかを判断できます。しかし、私が作成したシェルの最大幅は 80 文字です。

これをより大きな値に設定する方法はありますか? フォントのサイズとタイプを設定するのも面白いでしょう。

set oMyShortcut = WshShell.CreateShortcut(strDesktop & "\Shortcut 

Script.lnk")oMyShortcut.WindowStyle = 4
oMyShortcut.TargetPath = "%windir%\system32\cmd.exe"
oMyShortCut.Arguments= "/K """ & strProjectHome & "\" & strSetenvPath & """"
oMyShortCut.WorkingDirectory= strProjectHome
oMyShortcut.IconLocation = "%windir%\system32\cmd.exe"
oMyShortcut.Description = "Shell for project " + strProjectName + " in directory " + strDirname +". This shortcut has been created automatically."
oMyShortCut.Save

アンドレアスよろしく

4

1 に答える 1

3

確かに、あなたはこのようなモードパラメータを与えることができます、私はあなたのパラメータをコメントアウトしましたが、あなたはそれらを追加することもできます。

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oMyShortcut = WshShell.CreateShortcut(strDesktop & "\ShortcutScript.lnk")
oMyShortcut.WindowStyle = 4
oMyShortcut.TargetPath = "%windir%\system32\cmd.exe"
'oMyShortCut.Arguments= "/K """ & strProjectHome & "\" & strSetenvPath & """"
oMyShortCut.Arguments= "/K mode con:cols=150 lines=40"
oMyShortCut.WorkingDirectory= strProjectHome
oMyShortcut.IconLocation = "%windir%\system32\cmd.exe"
oMyShortcut.Description = "Shell for project " + strProjectName + " in directory " + strDirname +". This shortcut has been created automatically."
oMyShortCut.Save

これにより、ショートカットをダブルクリックすると、広いコンソール画面が表示されます。

フォントを変更する唯一の方法は、ショートカットで1回手動で変更し、それをテンプレートとして使用し、コピーしてから、他のパラメーターを変更することです。ショートカスを変更することは、それを開くことと同じ方法です。

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oMyShortcut = WshShell.CreateShortcut(strDesktop & "\ShortcutScript.lnk")
oMyShortCut.Arguments= "/K mode con:cols=80 lines=40"
oMyShortCut.Save

上からのショートカットファイルを元の120列ではなく80列に設定します。

于 2012-09-03T16:46:49.380 に答える