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

当您双击快捷方式时,这会提供一个很好的宽控制台屏幕

我发现更改字体的唯一方法是在快捷方式上手动更改一次,然后将其用作模板,复制它,然后更改其他参数。更改快捷方式与打开方式相同,因此

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

将我们的快捷方式文件设置为 80 列,而不是原来的 120 列。

于 2012-09-03T16:46:49.380 回答