2018年10月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      
無料ブログはココログ

« 現在のページのリンクを作成して、コピーするブックマークレット | トップページ | 引用(blockquote)を挿入するブックマークレット »

2017年8月17日 (木)

インターネットショートカットをドロップすると、そのページへのリンクを作成して、コピーする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)を挿入するブックマークレット »