[已解决]帮我看下“查找快捷方式所指向目标.bat”那里出了问题，谢谢 - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

31楼 跳转到 »

发表于 2022-12-28 19:08 | 只看该作者

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

我试一试先谢谢

我是小白，希望老师多多帮助

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

32楼

发表于 2022-12-28 19:27 | 只看该作者

本帖最后由 yyz219 于 2022-12-28 19:32 编辑

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

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

代码应该怎么样？谢谢

我是小白，希望老师多多帮助

terse

中将

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

33楼

发表于 2022-12-28 19:53 | 只看该作者

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);
复制代码

1 评分人数

yyz219: 乐于助人技术 + 1

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

34楼

发表于 2022-12-28 19:55 | 只看该作者

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

我试一试谢谢

我是小白，希望老师多多帮助

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

35楼

发表于 2022-12-28 19:58 | 只看该作者

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

我不知道怎么使用

我是小白，希望老师多多帮助

terse

中将

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

36楼

发表于 2022-12-28 22:54 | 只看该作者

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

存为bat文件

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

37楼

发表于 2022-12-29 08:30 | 只看该作者

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

运行？拖到图标？

我是小白，希望老师多多帮助

czjt1234

少校

Rank: 6 Rank: 6

帖子: 1058
积分: 1559
技术: 112
捐助: 0
注册时间: 2010-4-30

38楼

发表于 2022-12-29 09:01 | 只看该作者

本帖最后由 czjt1234 于 2022-12-29 09:02 编辑

回复 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()
复制代码

1 评分人数

yyz219: 乐于助人技术 + 1

QQ 20147578

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

39楼

发表于 2022-12-29 11:05 | 只看该作者

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

非常感谢问题解决了

我是小白，希望老师多多帮助

terse

中将

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

40楼

发表于 2022-12-29 11:51 | 只看该作者

看你已解决了，还是发上来吧，应该符合你的需求，保存为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

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

41楼

发表于 2022-12-29 13:28 | 只看该作者

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

非常感谢我试一试

我是小白，希望老师多多帮助

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

42楼

发表于 2022-12-29 13:33 | 只看该作者

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

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

我是小白，希望老师多多帮助

WHY

上校

Rank: 6 Rank: 6

帖子: 1482
积分: 3266
技术: 567
捐助: 0
注册时间: 2015-7-19

43楼

发表于 2022-12-30 12:00 | 只看该作者

@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
复制代码

1 评分人数

yyz219: 乐于助人技术 + 1

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

44楼

发表于 2022-12-30 12:14 | 只看该作者

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

辛苦了，非常感谢

我是小白，希望老师多多帮助

Rank: 5 Rank: 5

帖子: 759
积分: 978
技术: 4
捐助: 0
注册时间: 2021-8-30

45楼

发表于 2022-12-30 12:22 | 只看该作者

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

正常系统中正常

在weiPE中不行

我是小白，希望老师多多帮助