VBSでショートカットを作成するためのコード

2022-01-07 07:57:57

インターネットカフェを維持する過程で頻繁にデスクトップのショートカットを送信する必要がある、どのような便利なデスクトップのショートカットを送信するバッチ方法は、インターネットカフェの蒸気の私の側を取るあなたに参照を与えるために例として、あなたが直接コードを使用したい場合は、行に特定のパラメータを変更する次のコピーしてください。コードは次のとおりです。

@echo off
::Set the path to the program or file (required)
set Program=D:\Program Files\Microvirt\MEmu\MEmu.exe

::Set the startup parameters (optional)
set Arguments=

::set shortcut name (mandatory)
set LnkName=test

::set the working path of the program, usually the program home directory, if this is left blank, the script will analyze the path itself
set WorkDir=

::set the description of the shortcut display (optional)
set Desc=

if not defined WorkDir call:GetWorkDir "%Program%"
(echo Set WshShell=CreateObject("WScript.Shell"^)
echo strDesKtop=WshShell.SpecialFolders("DesKtop"^)
echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%LnkName%.lnk"^)
echo oShellLink.TargetPath="%Program%"
echo oShellLink.Arguments="%Arguments%"
echo oShellLink.WorkingDirectory="%WorkDir%"
echo oShellLink.WindowStyle=1
echo oShellLink.Description="%Desc%"
echo oShellLink.Save)>makelnk.vbs
echo Desktop shortcut created successfully!
makelnk.vbs
del /f /q makelnk.vbs
exit
goto :eof
:GetWorkDir
set WorkDir=%~dp1
set WorkDir=%WorkDir:~,-1%
goto :eof

VBSです。

最初のものは、デスクトップ上にショートカットを作成するアプリケーションの例です

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'Special folder "Desktop"
set oShellLink = WshShell.CreateShortcut(strDesktop & "\ Calculator.lnk")
oShellLink.TargetPath = "C:\Windows\System32\Calc.exe" : 'Target
oShellLink.WindowStyle = 3 : 'Parameter 1 default window activation, parameter 3 maximize activation, parameter 7 minimize
oShellLink.Hotkey = "Ctrl+Alt+C" : 'Shortcut key
oShellLink.IconLocation = "C:\Windows\System32\Calc.exe" : 'Icon
oShellLink.Description = "System default calculator" : 'Remarks
oShellLink.WorkingDirectory = strDesktop : 'Starting location
oShellLink.Save : 'Create save shortcut

2つ目は、カスタムディレクトリの場所にショートカットを作成するアプリケーションの例です。

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:\Documents and Settings\Administrator\Calculator debug.lnk")
oShellLink.IconLocation = "C:\Documents and Settings\Administrator\Calc.exe" : 'icon
oShellLink.TargetPath = "C:\Documents and Settings\Administrator\Calc.exe" : 'Target
oShellLink.WorkingDirectory = "C:\Documents and Settings\Administrator\" : 'Starting location
oShellLink.Hotkey = "Ctrl+Alt+C" : 'Shortcut key
oShellLink.WindowStyle = 3 : 'Run mode, parameter 1 default window activation, parameter 3 maximize activation, parameter 7 minimize
oShellLink.Description = "System default calculator" : 'Notes
oShellLink.Save : 'Create save shortcut

以下をXXX.jsとして保存します。

また、batでよく呼び出されるvbsも

var fso = new ActiveXObject("Scripting.FileSystemObject");
var shl = WScript.CreateObject("WScript.Shell");
var oUrl = shl.CreateShortcut("C:\Documents and Settings\Administrator\Favorites\\\ Game Menu.lnk");
oUrl.TargetPath = "E:\nbmsclient\\BarClientView.exe";
oUrl.IconLocation = "E:\\nbmsclient\\\BarClientView.exe";
oUrl.WorkingDirectory = "E:\\nbmsclient";
oUrl.Save();

システムボードを決定できる以下のようなものを追加することが可能です。

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\xxxSystem.lnk")

Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")        
If fso.folderExists("C:\Program Files (x86)") Then 'Determine whether it is a 32-bit or 64-bit operating system by directory        
    oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" 'Target
    oShellLink.WorkingDirectory = "C:\Program Files (x86)\Google\Chrome\Application\" 'Start location
Else 
    oShellLink.TargetPath = "C:\Program Files\Google\Chrome\Application\chrome.exe" 
    oShellLink.WorkingDirectory = "C:\Program Files\Google\Chrome\Application\"     
End If
oShellLink.Arguments = "http://192.168.0.1:8080/xxx/" 'Running parameters
oShellLink.WindowStyle = 1 'Parameter 1 default window activation, Parameter 3 maximize activation, Parameter 7 minimize
oShellLink.Hotkey = "" 'Shortcut key
oShellLink.IconLocation = "C:\Program Files\ChromeStandaloneSetup\favicon.ico" 'Icon
oShellLink.Description = "" 
oShellLink.Save 'Create save shortcut

パラメータで対応

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") 'Get the desktop path
set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk") 'The full path to which the shortcut will be saved
oShellLink.TargetPath = "http://www.hao123.com/" 'The "target" of the shortcut
oShellLink.Arguments = "/argument1 /argument2" 'The running arguments for "target", without arguments, directly = ""
oShellLink.WindowStyle = 1 'The "run mode" in the shortcut
oShellLink.Hotkey = "Ctrl+Alt+e" 'The "shortcut key" in the shortcut
oShellLink.IconLocation = "C:\Program Files\Tencent\qq.exe, 0" 'Icon of the shortcut
oShellLink.Description = "Tencent QQ" 'The "Notes" in the shortcut
oShellLink.WorkingDirectory = "C:\Program Files\Tencent" 'The "starting location" in the shortcut
oShellLink.Save 'Use the above settings to create the shortcut

他のユーザーが追加したものは以下の通りです。

VBSでショートカットを作成する詳細説明

以下をXXX.VBSとして保存します。

最初のものは、デスクトップ上にショートカットを作成するアプリケーションの例です

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'Special folder "Desktop"
set oShellLink = WshShell.CreateShortcut(strDesktop & "\ Calculator.lnk")
oShellLink.TargetPath = "C:\Windows\System32\Calc.exe" : 'Target
oShellLink.WindowStyle = 3 : 'Parameter 1 default window activation, parameter 3 maximize activation, parameter 7 minimize
oShellLink.Hotkey = "Ctrl+Alt+C" : 'Shortcut key
oShellLink.IconLocation = "C:\Windows\System32\Calc.exe" : 'Icon
oShellLink.Description = "System default calculator" : 'Remarks
oShellLink.WorkingDirectory = strDesktop : 'Starting location
oShellLink.Save : 'Create save shortcut

2つ目は、カスタムディレクトリの場所にショートカットを作成するアプリケーションの例です。

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:\Documents and Settings\Administrator\Calculator debug.lnk")
oShellLink.IconLocation = "C:\Documents and Settings\Administrator\Calc.exe" : 'icon
oShellLink.TargetPath = "C:\Documents and Settings\Administrator\Calc.exe" : 'Target
oShellLink.WorkingDirectory = "C:\Documents and Settings\Administrator\" : 'Starting location
oShellLink.Hotkey = "Ctrl+Alt+C" : 'Shortcut key
oShellLink.WindowStyle = 3 : 'Run mode, parameter 1 default window activation, parameter 3 maximize activation, parameter 7 minimize
oShellLink.Description = "System default calculator" : 'Notes
oShellLink.Save : 'Create save shortcut

以下をXXX.jsとして保存します。

3番目は、カスタムディレクトリの場所にJSクラスでショートカットを作成するアプリケーションの例です。

var fso = new ActiveXObject("Scripting.FileSystemObject");
var shl = WScript.CreateObject("WScript.Shell");
var oUrl = shl.CreateShortcut("C:\Documents and Settings\Administrator\Favorites\\\ Game Menu.lnk");
oUrl.TargetPath = "E:\nbmsclient\\BarClientView.exe";
oUrl.IconLocation = "E:\\nbmsclient\\\BarClientView.exe";
oUrl.WorkingDirectory = "E:\\nbmsclient";
oUrl.Save();

以上のVBSとJSのスクリプトの比較から、このようなスクリプトは、次の内容をどのようなプログラムで解析して実行するかを宣言することから始まり、それが終わると次の具体的なステップに入るという共通点があることがわかります。

batでvbsを呼び出す方法を見る

@echo off
title Script House Desktop Shortcut Creation Tool!

>nul 2>&1 REG.exe query "HKU\S-1-5-19" || (
    ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
    ECHO UAC.ShellExecute "%~f0", "%1", "", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
    "%TEMP%\Getadmin.vbs"
    DEL /f /q "%TEMP%\Getadmin.vbs" 2>nul
    Exit /b
)
set jb51name=Ditto3.lnk
set jb51path=%~dp0
set jb51exec=%~dp0Ditto.exe

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(" "Desktop"") & ""\%jb51name%""):b.TargetPath="""%jb51exec%"":b. WorkingDirectory=""%jb51path%"":b.Save:close")

VBSを使ってショートカットを作るという記事ですが、これだけです。VBSを使ったショートカット作成については、スクリプトハウスの過去記事を検索していただくか、引き続き以下の記事をご覧ください。

VBSでショートカットを作成するためのコード

VBSでショートカットを作成する詳細説明

関連

vbs pingの2つの実装方法

15分でわかるvbscriptの正規表現

VBSでよく使われる文字列操作の関数

vbscriptの基本 - vbs変数の定義と使用法

VBScriptは、IEウィンドウのタイトルに応じてESCを出力する

コンピュータのオン/オフ時間を問い合わせるためのvbsコード

スクリーンショット機能用VBS

vbscriptを用いた36ビット自動増加数生成コード

MSScriptControlの使用例です。

Iisftp.vbsを使用してFTPサイトを一時停止する方法

最新

nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)

htmlページでギリシャ文字を使うには

ピュアhtml+cssでの要素読み込み効果

純粋なhtml + cssで五輪を実現するサンプルコード

ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード

タイピング効果を実現するピュアhtml+css

htmlの選択ボックスのプレースホルダー作成に関する質問

html css3 伸縮しない画像表示効果

トップナビゲーションバーメニュー作成用HTML+CSS

html+css 実装サイバーパンク風ボタン

おすすめ

vbsフッターエラーの実行、中国語の雑な解決（エンコーディングの問題）

VBSによるファイル名の一括変更と操作前のオリジナルファイルのバックアップ

複数ディレクトリの複数ファイルを反復して一括置換するためのVBSスクリプト

VBSで指定したディレクトリにあるファイルの一覧を取得する方法

自動入力の祝福と面白い実装コードを実現するためにvbsスクリプトを使用する

Office一括アクティベーションのコマンドツールosppの説明

VBSを使用してローカルファイルを参照する3つの方法、フルパスを取得する

jre パッケージをダウンロードし、サイレントにインストールする vbs スクリプトのコード例

Iisext.vbsでWebサービス拡張を有効にする方法

Iisext.vbsでWebサービス拡張を有効にする方法

VBSでショートカットを作成するためのコード

VBSでショートカットを作成する 詳細説明

関連

最新

おすすめ

VBSでショートカットを作成する詳細説明