インターネットショートカットをドロップすると、そのページへのリンクを作成して、コピーするhta
記事作成時にwebページのリンクを挿入するのは面倒です。
「インターネットショートカットをドロップすると、そのページへのリンクを作成して、コピーするhta」があれば、インターネットショートカットをhtaのショートカットにドロップして、貼り付けるだけで済みます。
リンクを作成してコピー.hta
<html>
<head>
<script language=vbscript>
Option Explicit
Sub window_onload
Dim fQuoting
Dim k
fQuoting=False
For k=1 To Len(hta.commandLine)
Select Case Mid(hta.commandLine,k,1)
Case Chr(34) fQuoting=Not fQuoting
Case Chr(32) If Not fQuoting Then Exit For
End Select
Next
Dim Link,fso,file
set fso=CreateObject("Scripting.FileSystemObject")
set File=fso.GetFile(Trim(Replace(Mid(hta.commandLine,k+1),"""","")))
Set Link=CreateObject("WScript.Shell").CreateShortCut(file.Path)
document.links(0).href=Link.TargetPath
document.links(0).innerText=fso.GetBaseName(Link.FullName)
document.execCommand "SelectAll"
document.execCommand "Copy"
close
End Sub
</script>
</head>
<body>
<a href=></a>
</body>
</html>
<hta:application id=hta />
標準では、htaにはドロップできないので、mshta.exeのショートカットにドロップする。
リンクを作成してコピー.lnk
mshta.exe "（フルパス）\リンクを作成してコピー.hta"
これをお気に入りに入れておく。
« 現在のページのリンクを作成して、コピーするブックマークレット | トップページ | 引用(blockquote)を挿入するブックマークレット »