WshShortcut設置外殼大小

Question

我使用VBScript創建桌面快捷方式。

使用WindowsStyle屬性，我可以確定shell是否開始最小化，最大化或最後設置的大小。但是我創建的shell最大寬度爲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 

問候 安德烈亞斯

Answer 1

當然，你可以給模式參數這個樣子，我評論了你的參數，但你也可以添加。

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 

當您雙擊該快捷方式

我發現改變字體是通過手動改變一次上的快捷方式的唯一方法，然後使用它作爲一個模板，這給出了一個漂亮寬大的控制檯屏幕，複製它，然後更改其他參數。改變shortcus是方式打開它一樣，所以

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周的cols而不是原來的120個COLS shortcutfile。