Help us understand the problem. What is going on with this article?

タブーの小技 パスワードクリップ BAT/VBA/Javascript

More than 1 year has passed since last update.

趣旨

職場などで使うと便利だけども
見つかると怒られる技術

そんなこつ言ったって面倒くさいものは面倒くさい
そのパスワードに意味ある?ほんとに?
ということはたびたびありますよね

クリップボードにパスワード入れてしまえばこっちのもんじゃーい!!
というあれこれです。

遊ぶ時間欲しさでやったなどと欲望直結の供述を繰り返しており
当局では精神鑑定も含め動機の解明にあたる方針です

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/

Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
Comments
No comments
Sign up for free and join this conversation.
If you already have a Qiita account
Why do not you register as a user and use Qiita more conveniently?
You need to log in to use this function. Qiita can be used more conveniently after logging in.
You seem to be reading articles frequently this month. Qiita can be used more conveniently after logging in.
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
ユーザーは見つかりませんでした