我可以手动为此位置创建快捷方式文件(%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"
答案 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
::********************************************************************************************