返回列表 发帖
czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
1楼 跳转到 »
发表于 2022-12-28 18:41 | 显示全部帖子
回复 27# yyz219


   16楼已经说得很清楚了
要么用ps，要嫌ps慢就得vbs
1

评分人数

    • yyz219: ps是这样的？谢谢技术 + 1

QQ 20147578

TOP

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2022-12-28 18:56 | 显示全部帖子
本帖最后由 czjt1234 于 2022-12-28 18:59 编辑 
s = CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
s = InputBox("【右键】粘贴.lnk路径", , s)
Set oWshShell = CreateObject("WScript.Shell")
Set oWshShortcut = oWshShell.CreateShortcut(s)
MsgBox oWshShortcut.TargetPathCOPY

QQ 20147578

TOP

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
3楼
发表于 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()COPY
1

评分人数


QQ 20147578

TOP

返回列表