5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

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

1 :デフォルトの名無しさん:2007/02/03(土) 17:49:47
素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ

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


2 :デフォルトの名無しさん:2007/02/03(土) 17:52:27
ずるしてらくしてかれいに2げっとかしらかしら〜

3 :Windows厨&rlo;wwwね死はCAM。すでXUNILチンアやや:2007/02/03(土) 17:54:41
2ch自動書き込みスクリプト・・・    は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

9 :デフォルトの名無しさん:2007/02/09(金) 01:15:14
>7
どう動かないんだ。
エラーメッセージが出るならエラーメッセージを貼れ。

10 :デフォルトの名無しさん:2007/02/09(金) 01:18:01
BASICって何でここまで読む気が起こらないんだろう

11 :デフォルトの名無しさん:2007/02/09(金) 01:22:38
>>10
構文が冗長だから

12 :デフォルトの名無しさん:2007/02/09(金) 02:01:47
まぁ、COBOLの冗長さには勝てないがな
'VB
For I = 1 To 10
Next

*COBOL
PERFORM VARYING I FROM 1 BY 1 UNTIL I <= 10
END-PERFORM

13 :デフォルトの名無しさん:2007/02/09(金) 10:20:33
>12
間違えてる。UNTILならI>10だ

4 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)