yyz219

czjt1234 发表于 2022-12-28 18:56

    我试一试先 谢谢

yyz219

czjt1234 发表于 2022-12-28 18:56

成功，速度不错
**************************
1.我现在不想粘贴.lnk的路径，将 D:\桌面\Desktop\关机.lnk 直接写入里面（双击就出结果）
2.将结果保存为：#.txt
（不要有任何显示、对话框）

代码应该怎么样？谢谢
   

terse

WScript.Shell 解决部分问题 某些情况下可以用ADODB.Stream处理一下

1>1/* :
@echo off
cscript //E:JScript //nologo "%~f0">#.txt
exit
*/
var ph = new ActiveXObject('htmlfile').parentWindow.clipboardData.getData('Text');
var ws = new ActiveXObject("WScript.Shell");
WSH.Echo(ws.CreateShortcut(ph).TargetPath);
复制代码

yyz219

WScript.Shell 解决部分问题 某些情况下可以用ADODB.Stream处理一下
terse 发表于 2022-12-28 19:53

    我试一试 谢谢

yyz219

WScript.Shell 解决部分问题 某些情况下可以用ADODB.Stream处理一下
terse 发表于 2022-12-28 19:53

    我不知道怎么使用

terse

我不知道怎么使用
yyz219 发表于 2022-12-28 19:58

    存为bat文件

yyz219

存为bat文件
terse 发表于 2022-12-28 22:54

    运行？拖到图标？

czjt1234

回复 32# yyz219


  

s = "D:\桌面\Desktop\关机.lnk"
f = "#.txt"

Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut(s)
s = oWshShortcut.TargetPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(f, 2, True)
oTextStream.Write s
oTextStream.Close()
复制代码

yyz219

回复  yyz219
czjt1234 发表于 2022-12-29 09:01

    非常感谢  问题解决了

terse

看你已解决了，还是发上来吧，应该符合你的需求，保存为BAT文件 直接运行

1>1/* : @echo off &cscript //E:JScript //nologo "%~f0" "D:\桌面\Desktop\关机.lnk" >#.txt &exit */
WSH.Echo(new ActiveXObject("WScript.Shell").CreateShortcut(WSH.Arguments(0)).TargetPath);
复制代码

回复 37# yyz219

yyz219

看你已解决了，还是发上来吧，应该符合你的需求，保存为BAT文件 直接运行回复  yyz219
terse 发表于 2022-12-29 11:51

    非常感谢 我试一试

yyz219

看你已解决了，还是发上来吧，应该符合你的需求，保存为BAT文件 直接运行回复  yyz219
terse 发表于 2022-12-29 11:51

   如果 前面和后面，还有代码就不行吗？

WHY

@echo off
set "Lnk=D:\桌面\Desktop\关机.lnk"
for /f "delims=" %%i in ('wmic Path Win32_ShortcutFile where "Name='%Lnk:\=\\%'" get target /format:List ^| find ":"') do (
    set "%%i"
)
echo;%target%
pause
复制代码

yyz219

WHY 发表于 2022-12-30 12:00

    辛苦了，非常感谢

yyz219

WHY 发表于 2022-12-30 12:00

    正常系统中正常

在weiPE中不行