【VBS】メモ帳でも作れるパスワード入力ツール

VBS

メモ帳でも作れるVBSのパスワード入力ツールです。

パスワード入力ツールがインストールができないような状況で使えると思います。

簡易パスワード入力ツールの作り方

作り方

メモ帳に以下のコードを貼り付けてください。

Option Explicit

Dim ID
Dim PW

ID = "ID"
PW = "PW"

CopyToClip ID
Call MsgBox("IDをコピーしました",vbSystemModal)
CopyToClip PW

Public Sub CopyToClip(ByVal str)
    Dim cmd
    cmd = "cmd /c ""echo " & str & "| clip"""
    CreateObject("WScript.Shell").Run cmd, 0
End Sub

" "で囲まれたIDとPWを、それぞれ設定したいIDとPWに修正してください（" "は残します）。

注意点として、入出力を意味する特殊文字（「<」や「>」など）は、エスケープできないので避けてください。

修正したら拡張子を「vbs」、文字コードを「SJIS」に指定して保存します。

SJISを指定するのは、メッセージボックスで日本語を表示させているためです。
日本語が含まれなければUTF8でも問題ありません。

このようなvbsファイルが保存されます。

使い方

ファイルをダブルクリックで起動します。
すると以下のようなメッセージボックスが表示されます。

このメッセージボックスが表示されている間は、IDがクリップボードに保存されています。
そのままIDを貼り付けてください。

その後OKボタンを押すと、PWがクリップボードに保存されます。

IDとPWでなくとも、固定値をコピーペーストする作業に利用可能ですのでカスタマイズしてみてください。

VBS

Posted by junichi