VBSで便利なプログラムを作れスレ

[1 デフォルトの名無しさん 2007/02/03(土) 17:49:47]

素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ

（例○○を自動処理してくれるプログラム）

[2 デフォルトの名無しさん 2007/02/03(土) 17:52:27]

ずるしてらくしてかれいに２げっとかしらかしら〜

[3 Windows厨&rlo;ｗｗｗね死はCAM。すでXUNILチンアやや 2007/02/03(土) 17:54:41]

２ｃｈ自動書き込みスクリプト・・・　　　　はVBSなんかじゃなくちゃんとしたプログラムが既にあちこちに存在するか

[4 デフォルトの名無しさん 2007/02/03(土) 18:14:33]

>>1が後から何食わぬ顔で制作依頼する糞スレか

[5 デフォルトの名無しさん 2007/02/03(土) 22:14:50]

TechNetのHey, Scripting Guy!でも読むとか

[6 デフォルトの名無しさん 2007/02/04(日) 04:38:30]

>>3
自動書きこみをする機能がそもそもまともじゃない

[7 デフォルトの名無しさん 2007/02/08(木) 22:08:15]

日経ソフトウェアだったかに乗ってたのですが　動きません　助けて

KETA = inputbox("何文字のパスワードを作りますか？","パスワードを生成","8")

If KETA < 1 Then
MsgBox "文字数は0以上でなくてはなりません"
End If

PASS_WRD = "A B C D E F G H J K L M N P Q R S T U V W X Y Z "
MOJISYU_A = MsgBox("アルファベットの小文字を使いますか？",vbYesNo)

If MOJISYU_A = vbYes Then
PASS_WRD = PASS_WRD + "a b c d e f g h i j k m n p q r s t u v w x y z "
End If

MOJISYU_B = MsgBox("数字を使いますか？",vbYesNo)
If MOJISYU_B = vbYes Then
PASS_WRD = PASS_WRD + "2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 "

MOJISYU_C = MsgBox("記号を使いますか？",vbYesNo)
If MOJISYU_C = vbYes Then
'記号
PASS_WRD = PASS_WRD + "! # $ % & ? - _ ~ @"
End If

'指定された条件で配列を作成
PASS_STR = Split(PASS_WRD)
MAX = Ubound(pass_str)

[8 7 2007/02/08(木) 22:08:56]

続き
'指定された桁数のパスワードを作成
For i=0 To KETA - 1
Randomize
X = abs(Int((0 - MAX) * Rnd))
PASS = PASS + PASS_STR(X)
Next
InputBox "パスワードが完成しました","生成完了！",PASS