yyz219 当前离线
中尉
TOP
Kinglion 当前离线
列兵
ShowCode 当前离线
VIP1
# & cls & @cd /d "%~dp0" & powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression " & exit /b $Shell = New-Object -ComObject WScript.Shell $Link = $Shell.CreateShortcut("C:\Users\Administrator\Desktop\00.exe.lnk") $Link.TargetPath = "D:\00.bat" $Link.Save()复制代码
aloha20200628 当前在线
上尉
@set @v=1 /* @echo off set/p "sc=拖入快捷方式:" set/p "newP=拖入新目标路径所指向的文件:" cscript /e:jscript "%~f0" %sc% %newP% exit/b */ v=WSH.arguments; ws=new ActiveXObject("WScript.shell"); lnk=ws.createshortcut(v(0)); lnk.targetpath=v(1); lnk.save(); WSH.quit();复制代码
buyiyang 当前离线
shortcutPath="D:\\0.lnk"; TargetPath="D:\\00.exe"; function withObject(obj,callback){callback(obj);} withObject(new ActiveXObject("WScript.Shell").CreateShortcut(shortcutPath),function(shortcut){ shortcut.TargetPath=TargetPath; shortcut.Save(); });复制代码
xm4854 当前离线