#趣旨
職場などで使うと便利だけども
見つかると怒られる技術
そんなこつ言ったって面倒くさいものは面倒くさい
そのパスワードに意味ある？ほんとに？
ということはたびたびありますよね
クリップボードにパスワード入れてしまえばこっちのもんじゃーい！！
というあれこれです。
遊ぶ時間欲しさでやったなどと欲望直結の供述を繰り返しており
当局では精神鑑定も含め動機の解明にあたる方針です
#Batファイル
一行で実装可能
秘密の鍵.bat
SET /P DUMMY="paswwwwwwwww"<NUL|clip
#IE Javascript
IE専用ですが十分じゃろ
秘密の鍵.html
<html>
<head>
<title></title>
<script language="javascript" type="text/javascript">
function SetClip() {
window.clipboardData.setData("Text" , "paswwwwwwwww");
}
</script>
</head>
<body>
<input type="button" value="クリップボード" onclick="SetClip();"/>
</html>
#Excel VBA
Microsoft Forms 2.0 Object Libraryを参照設定します。
※参照設定に存在しない場合は
c:\Windows\System32\FM20.DLLを参照してあげる。
Module1.bas
Sub SetClip()
Dim clipB As Object
Set clipB = New DataObject
With clipB
.SetText "paswwwwwwwww"
.PutInClipboard
End With
End Sub
#秀丸エディタ
たまたま秀丸の入ってる環境だったので追記
カっとしてやった、反省はしていない。
秘密の鍵.mac
setclipboard "paswwwwwwwww";
#先達 参考 Special Thanks
検索でひっかかるとは何事だ、大変ありがとうございます
Excel VBA から、クリップボードにテキストをセットする
https://qiita.com/rohinomiya/items/1b719bc90d7497688699
Office TANAKA クリップボードを操作する
http://officetanaka.net/excel/vba/tips/tips20.htm
VBEの参照設定で『Microsoft Forms 2.0 Object Library』が見つからない
http://www.tomodachihiroba.org/2016/01/vbe-microsoft-forms-2-0-object-library/