小智BAT 当前离线
一级士官
pcl_test 当前离线
荣誉版主
TOP
terse 当前离线
中将
@echo off mshta "javascript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject("WScript.Shell").CreateShortcut("腾讯QQ.LNK").WorkingDirectory);close()"|more pause复制代码
apang 当前离线
上将
@echo off %1mshta VBScript:CreateObject("WScript.Shell").Run("""%~0"" : """^&CreateObject("Shell.Application").NameSpace(0).ParseName("腾讯QQ.LNK").GetLink.WorkingDirectory^&"""")(close) & exit/b echo,%~2 pause复制代码
李安阳 当前离线
上等兵
@echo off if exist tmp.txt del tmp.txt for /f "delims=" %%i in ('type *.lnk ^| find ":\" ^| find /v "/" ^| find ".exe"') do ( echo %%i >>tmp.txt ) cls pause复制代码
DAIC 当前离线