创建批处理文件以创建快捷方式

时间:2017-08-31 18:22:24

标签: batch-file shortcut

我可以手动为此位置创建快捷方式文件(%windir%\ system32 \ rundll32.exe advapi32.dll,ProcessIdleTasks)

我想用.bat文件(非.vbs visual basic)做同样的事情。我在谷歌搜索后尝试了这个,但它不起作用。请告诉我正确的脚本,并请解释每个命令。

@echo off
echo [InternetShortcut] >> "%AllUsersProfile%\desktop\shortcut.Ink"
echo URL="%windir%\system32\rundll32.exe" >> "%AllUsersProfile%\desktop\shortcut.ink"

1 个答案:

答案 0 :(得分:0)

我提供了一个小型混合脚本 [BAT / VBS] 来创建桌面快捷方式。 你当然可以根据自己的目的修改它。

@echo off
mode con cols=87 lines=5 & color 9B
Title Shortcut Creator for your batch and applications files by Hackoo
Set MyFile=%~f0
Set ShorcutName=HackooTest
(
echo Call Shortcut("%MyFile%","%ShorcutName%"^)
echo ^'**********************************************************************************************^)
echo Sub Shortcut(ApplicationPath,Nom^)
echo    Dim objShell,DesktopPath,objShortCut,MyTab
echo    Set objShell = CreateObject("WScript.Shell"^)
echo    MyTab = Split(ApplicationPath,"\"^)
echo    If Nom = "" Then
echo    Nom = MyTab(UBound(MyTab^)^)
echo    End if
echo    DesktopPath = objShell.SpecialFolders("Desktop"^)
echo    Set objShortCut = objShell.CreateShortcut(DesktopPath ^& "\" ^& Nom ^& ".lnk"^)
echo    objShortCut.TargetPath = Dblquote(ApplicationPath^)
echo    ObjShortCut.IconLocation = "Winver.exe,0"
echo    objShortCut.Save
echo End Sub
echo ^'**********************************************************************************************
echo ^'Fonction pour ajouter les doubles quotes dans une variable
echo Function DblQuote(Str^)
echo    DblQuote = Chr(34^) ^& Str ^& Chr(34^)
echo End Function
echo ^'**********************************************************************************************
) > Shortcutme.vbs
Start /Wait Shortcutme.vbs
Del Shortcutme.vbs
::***************************************Main Batch*******************************************
cls
echo Done and your main batch goes here !
echo i am a test 
Pause > Nul
::********************************************************************************************