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

VBSで便利なプログラ� ..

2:デフォルトの名無しさん
07/02/03 17:52:27
ずるしてらくしてかれいに２げっとかしらかしら～

3:Windows厨&rlo;ｗｗｗね死はCAM。すでXUNILチンアやや
07/02/03 17:54:41
２ｃｈ自動書き込みスクリプト・・・　　　　はVBSなんかじゃなくちゃんとしたプログラムが既にあちこちに存在するか

4:デフォルトの名無しさん
07/02/03 18:14:33
>>1が後から何食わぬ顔で制作依頼する糞スレか

5:デフォルトの名無しさん
07/02/03 22:14:50
TechNetのHey, Scripting Guy!でも読むとか

6:デフォルトの名無しさん
07/02/04 04:38:30
>>3
自動書きこみをする機能がそもそもまともじゃない

7:デフォルトの名無しさん
07/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
07/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:デフォルトの名無しさん
07/02/09 01:15:14
>7
どう動かないんだ。
エラーメッセージが出るならエラーメッセージを貼れ。

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

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

12:デフォルトの名無しさん
07/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:デフォルトの名無しさん
07/02/09 10:20:33
>12
間違えてる。UNTILならI>10だ

14:デフォルトの名無しさん
07/04/29 02:58:52
>>10
字下げが取れちゃってるのも一因ではないだろうか、この場合。

15:wol.wsf
07/06/03 10:59:59
<job>
<script language="vbscript" src="./computer.class"/>
<script language="vbscript">
Option Explicit

Const COMPUTERS = 3
Const DEFAULT_WAKEUP = 2
Dim objComputers()
ReDim objComputers(COMPUTERS)
Dim intNum, i, strHostnames

For i = 0 To COMPUTERS
　　Set objComputers(i) = New Computer
Next
objComputers(0).setComputer "xxxxxxxxxxxx", "chitose"
objComputers(1).setComputer "yyyyyyyyyyyy", "tomoyo"
objComputers(2).setComputer "zzzzzzzzzzzz", "ayanami"
objComputers(3).setComputer "wwwwwwwwwwww", "maya"

For i = 0 To COMPUTERS
　　strHostnames = strHostnames & i & ":" & vbTab & objComputers(i).GetHostname & vbCrLf
Next

intNum = InputBox(strHostnames, "WakeOnLan", DEFAULT_WAKEUP)
objComputers(intNum).Wakeup

For i = 0 To COMPUTERS
　　Set objComputers(i) = Nothing
Next
</script>
</job>

16:computer.class
07/06/03 11:03:50
Option Explicit

Class Computer
　　Private pHostname
　　Private pMACAddr

　　Public Sub setComputer(strMACAddr, strHostname)
　　　　pMACAddr = strMACAddr
　　　　pHostname = strHostname
　　End Sub

　　Public Sub WakeUp
　　　　Dim WSHShell
　　　　Set WSHShell = WScript.CreateObject("WScript.Shell")
　　　　WSHShell.Run "wol.exe " & pMACAddr
　　End Sub

　　Public Function GetHostname()
　　　　GetHostname = pHostname
　　End Function
End Class

これを同じフォルダに入れておく→URLﾘﾝｸ(www.gammadyne.com)
vbsもWOLもやってみると意外とできるもんだ。

17:デフォルトの名無しさん
07/06/04 23:41:38
VBSでダイアログを表示させることってできないものかな？
構造体は使えないはいろいろと細かいところで制約が多い。。

18:デフォルトの名無しさん
07/06/27 11:51:05
VBSについての質問です

WINDOWSからSolarisにFTP接続してファイルを取得するVBスクリプト。
・　/export/home/backup/mysql/の下にあるファイルを取得
・ /export/home/backup/www/の下にあるファイルを取得
・取得したいファイル名をリスト化、そのリストを読み込んで、
１つのファイルをＧＥＴ．→FTP切断→FTP接続→ファイルＧＥＴ→FTP切断の繰り返し
・取得したファイルはSolarisから削除
・日付を管理。最新のを５つだけ残す。一番ファイルを削除

こういったＶＢＳはどうつくればいいんでしょうか？

19:デフォルトの名無しさん
07/06/27 23:06:22
>>18
ここれは便利なスクリプトを作ってくれとお願いするスレじゃなくて、
自発的に自分が書いた物を晒すスレのような気がするんだが。

漏れの場合は、取得したいファイル名を変数にしてして、毎回
FTPスクリプトを生成して実行する方法にしてる。

ちなみにアカウント情報はcsvにしてるが平文で書いてるので
取り扱いに注意してる。PASVが使いたい場合はGNU版を
使う事。

どっちかっつーとWSHスレ向きｼﾞｬﾈ？そのまま質問しても罵倒
されるだけだと思うけど。

20:デフォルトの名無しさん
07/06/28 09:04:40
漏れの場合は、取得したいファイル名を変数にしてして、毎回
FTPスクリプトを生成して実行する方法にしてる。
上司にも同じこと言われましたね、。
なんとなくイメージできても、いざ作るとなると難しくて…
どう作ったらいいのかわからないですね。

21:デフォルトの名無しさん
07/06/28 09:43:15
>>20
じゃーまず、ここに取得したいファイル名が固定のFTPスクリプトを
生成するVBSを書いてみてよ。

22:デフォルトの名無しさん
07/06/28 10:19:50
open itsol01
i1125
i1125

get /export/home/backup/mysql/mysql_&YYYYMMDD&.tar.gz
loop
quit

と書いたテキストファイルをコマンドプロンプトで実行したら、指定したﾌｧｲﾙは取得できました。

23:デフォルトの名無しさん
07/06/28 21:12:15
>>22
日本語不自由な人？

24:デフォルトの名無しさん
07/06/29 01:24:58
何この糞スレ・・・
低脳にスレ立てさせんなよ・・・

25:VBSって面白いのか？
07/07/22 23:29:16
みんな高度なプログラムかくね
このくらいでいいんじゃね？
’びびらせるログオンメッセージ書き込むプログラム？
msgb = InputBox("ビビらせるログオンメッセージ指定")
If msg <> "" Then
Set WshShell = WScript.CreateObject("WScript.Shell")
Call WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "ここにメッセージでも", "REG_SZ")
Call WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", msgb, "REG_SZ")
WshShell.Popup("終了")
Else
MsgBox("書き込みキャンセルしました")
End If

26:VBSって面白いのか？
07/07/22 23:32:39
訂正　×ここにメッセージでも　○メッセージ
まあなんでもいいんだが・・。

27:VBSって面白いのか？
07/07/22 23:36:33
これ便利じゃねえなそれに遊び心だな。
誰かウイルススレでもしよう・・・・。

28:デフォルトの名無しさん
07/07/29 00:14:47
質問なんだけど
s = 1

test = Array("test")
Set xmlHttp = WScript.CreateObject("Msxml2.SSLHTTPS.3.0")

For i = 0 To s
xmlHttp.open "POST", "test", False
xmlhttp.setRequestHeader "Referer", "test"
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send "test="+test(i)+""
Next

で、https://には対応できない？
Set xmlHttp = WScript.CreateObject("Msxml2.SSLHTTPS.3.0")
を書き換えればいいのかな？解る方書き換え方おせーてください

For i = 0 To s
xmlHttp.open "POST", "URLﾘﾝｸ(www.livly.com) False
xmlhttp.setRequestHeader "Referer", "URLﾘﾝｸ(www.livly.com)
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send "kid="+kid(i)+"&+pname="+pnames(i)+"&iname="+iname(i)+"&nname="+nname(i)+"&pprofile="+pprofile(i)+"&iprofile="+iprofile(i)+"&entry="+entry(i)+""
Next

29:名無し
07/08/08 20:23:43
無理でもない

30:デフォルトの名無しさん
07/08/11 17:05:13
CreatoShortcutで
NumLock状態の1をショートカットキーに適用したいのですが

Hotkey="Num 1"
Hotkey="NumLock 1"

どちらでもできません

直接作成は無理なのでしょうか？

31:デフォルトの名無しさん
07/08/12 20:21:53
俺もNumlockは悩んだ
なんとかいうAPI使って実行ファイル作ったけど無理だった
敗北の想い出が蘇る

32:デフォルトの名無しさん
07/08/14 20:56:42
最終的にVBA使ったりするんだよな……
VBS単体だと操作の自動化は不便

33:デフォルトの名無しさん
07/09/06 20:53:01
こんばんは。
C#からVBSのFunction呼び出そうしてるんですが
複数の値を返すことができません。
教えてください。

34:デフォルトの名無しさん
07/09/06 20:54:08
C#側からvbsを走らせるときにC#側のFor文だと処理するたびに
vbsが走るのでだめでした。
vbs自体が複数値を返す処理をするためにはどのようにすればよいでしょうか。
値は、Excelのセルからとります。

35:デフォルトの名無しさん
07/09/06 22:08:15
俺が考え付く方法は次の2つ。
1. そのVBScriptの内容をC#へ書き換える。
2. VBScriptをC#プログラム内でホストする。

36:デフォルトの名無しさん
07/09/06 22:13:43
>>35
は１は実行済みですけどVBSにも全く一緒のコードを書くことになって
かなり冗長的なコードになるんですよ。
2もしたが取り出すとき複数の値をとるほうほうが不明です。

37:デフォルトの名無しさん
07/09/06 22:27:49
配列を返せばいいのでは？
それが無理なら、C#から戻り値を受け取るオブジェクトを渡すってのはどう。

38:デフォルトの名無しさん
07/09/06 22:33:48
>>37
配列を返すって考えましたけどVBScriptのリターン文ってありませんよね。
関数名 = 処理
↑こんな感じがリターン文なのかな。

39:デフォルトの名無しさん
07/09/06 22:40:58
そう。関数内では関数名と同名の変数が存在する。
型は関数の戻り値の型と同じ（と言ってもVBSは常にVariantだが）。
関数を抜けるときにその変数に入っていた内容が戻り値になる。

これはVB系一般で通用する文法。

40:デフォルトの名無しさん
07/09/06 23:14:36
なるほどね。けど、関数名と同名の変数が定義されてるって時点で
配列とか返せないと思うんですがいかがでしょう。

41:デフォルトの名無しさん
07/09/07 00:01:51
>>40
思うって言われてもなぁ

42:デフォルトの名無しさん
07/09/07 00:05:36
>>41
情報量が少ないから断定的な判断はできないんですよ。

43:デフォルトの名無しさん
07/09/07 00:10:31
>>40
Array関数で配列を作れる。
その戻り値を関数名の変数に代入すれば
配列を返す関数の出来上がり。

44:デフォルトの名無しさん
07/09/07 00:11:37
>>42
調べるのも大事なことだが、試すのだって大事なことだぞ

msgbox a()(2)

function a()
dim b()
redim b(10)
b(2)=100
a=b
end function

こんな感じで出来ない？

45:デフォルトの名無しさん
07/09/07 00:13:35
おおきにおおきに、明日試してみる。
しかし、型なしには驚いた・・・

46:デフォルトの名無しさん
07/09/07 12:14:52
BASICなめんな

47:デフォルトの名無しさん
07/09/08 00:52:34
型がない訳じゃなく実行時バインディングで表に出てこないだけ

48:デフォルトの名無しさん
07/11/01 17:26:59
JavaScriptなら<script src=a.js
VBSなら<script src=a.vbs ですか？

49:デフォルトの名無しさん
07/11/01 18:21:37
>>48
ああ拡張子はなんでもいいが
typeなりlanguage書こうぜｗ

それとタグは閉じような
気になってしょうがないｗ

50:デフォルトの名無しさん
07/11/02 13:45:30
PPPOEをVBSで切断できないですかね？
２つプロバイダ登録してあって、ショートカットで無理やり接続はできたのですが、
なぜだか切断の時に１％くらいの確率で失敗します。
（slect case　でやって、引数を保持しているのですが何故か極まれに間違えます）
タスクトレイの接続の所では、何処に繋がっていても切断できますので、せめてこれが
呼び出せればSENDKEYSでなんとかなるんですが…

51:デフォルトの名無しさん
07/11/02 15:42:00
JavaScriptでの o = new Option(); をVBScriptに書き直すとどうなりますか？

52:デフォルトの名無しさん
07/11/03 01:48:36
↓デバッグおねがいします

<form id="fm">
<input name="t1" value="てすと">
</form>
<script language="VBScript">
Function bt_onClick()
MsgBox Eval("t" & CStr(1) & ".value")
End Function
</script>
<button name="bt"></button>

53:デフォルトの名無しさん
07/11/04 12:45:31
>>52
"fm.t"

54:デフォルトの名無しさん
07/11/04 13:13:19
プリンタの管理ユーティリティにある自動電源ONオプションをタスク
スケジューラで週一自動実行したいんですけど、VBSで可能でしょうか？

55:デフォルトの名無しさん
07/11/18 23:11:59
HTMLのVBSで
<a href="javascript:f();void(0)">
というJavaScriptをVBSで書けますか？

56:デフォルトの名無しさん
07/11/18 23:30:00
MsgBox "<a href=""javascript:f();void(0)"">"

57:デフォルトの名無しさん
07/11/19 00:18:24
>>55
修辞がおかしいので>>56見たいに言われるわけだが・・・

58:デフォルトの名無しさん
07/11/19 17:32:58
拡張子を.htaにしてみるとか

59:デフォルトの名無しさん
07/11/26 08:03:28
BASP21でダウンロードソフトを作ろうと思っているんですが、
FTPだとFTPサーバーの名前を知らないとアノニマスでも接続できませんよね？
どうすれば良いのでしょうか？

60:デフォルトの名無しさん
07/11/26 16:00:11
>>59
たとえばスーパーに買い物に行きますよね
でもスーパーの住所を知らなければ買い物できませんよね？
どうすれば良いのでしょうか？

61:59です
07/11/26 20:59:22
Iriaとかのダウンロードソフトはどうしてるんでしょうか？
HTTPからでもダウンロード可能なようですが、全くやり方が不明です。
勉強中の身でして、質問が多くなりますが、お願いいたします。

＞６０
そのスーパーの住所の調べ方を伝授してください
お願い致します

62:デフォルトの名無しさん
07/11/26 23:58:17
プロトコルの勉強をしましょう…

63:デフォルトの名無しさん
07/11/27 00:06:54
>>61
そこらへんのダウンロードソフトはユーザにURLの入力を求めているだろ。

64:デフォルトの名無しさん
07/11/27 03:27:14
>>61
IPアドレスは32bitしかないんだから、総当たりで！

65:59です
07/11/27 08:04:28
皆さんご返信ありがとうございます
VBSでこのスレッドを落とす場合
.Connect("pc11.2ch.netのＦＴＰサーバー", "ユーザー（anonymousでいける？）", "パス")
で繋いで
.GetFile("pc11.2ch.netのＦＴＰサーバー/1170492587/*.*", "c:\dowsodata"）
となると思いますが、
ここのＦＴＰのサーバー名が解らないと何ともなりませんよね。

62＞とりあえずWiki逝って来ます。金曜日の休みに本屋にの行きます！
63＞ＦＴＰのＵＲＬでなくてもダウンできるので不思議なんです
64＞そんなことやってたんですか！？

試しにfURLﾘﾝｸ(pc11.2ch.net)をＩＥでやってみたら「ファイル名が正しくないか許可してないぞ！！」
と怒られました。
ギコナビとか、巷にあふれる２ＣＨツールが許可もらってやっているように
思えませんので（失礼…）何かしら打開策があると思うのですが

66:デフォルトの名無しさん
07/11/27 08:53:03
>>65
ftpが許されてないからです。
httpなら許されてるから、まずはそこから。

67:デフォルトの名無しさん
07/11/27 09:23:50
>>65
>　Connect("pc11.2ch.netのＦＴＰサーバー",　"ユーザー（anonymousでいける？）",　"パス")　
>　で繋いで　
>　.GetFile("pc11.2ch.netのＦＴＰサーバー/1170492587/*.*",　"c:\dowsodata"）　
>　となると思いますが、　
いいえ違います
pc11.2ch.netのFTPサーバなんてありません

68:デフォルトの名無しさん
07/11/27 14:48:35
全員がこの後に及んでスレ違いと言い出さないのは、
あまりの事にあきれ果てているから？

>>59
釣られたのかもしれないが、マヂレスしておくと君の考えて
いる事は全くの見当違い。

URLﾘﾝｸ(www5e.biglobe.ne.jp)
ここのFTP、DNS、HTTPの所でも読んでくれ。

で、理解したら、これ以上聞かないでね。

69:59です
07/11/28 08:57:51
すみません、質問を変えます！
<a href="*.dat">download</a>
を、ＶＢＳで書くとどうなりますか？
（ダウンロードしますか？と言うダイアログが出ます）
ＶＢＳで書いてる途中なのでできれば全部ＶＢＳで書きたいんです。

皆さんいろいろ教えていただいてありがとうございました
ＦＴＰはファイル交換、ＤＮＳはネット接続の中間、ＨＴＴＰはＨＴＭＬを見るため
位の感覚で覚えていましたので、どうやってファイル転送機能なしでファイル転送するんだろう？
ドメイン（biglobe.ne.jp）の部分が同じなので探す方法があるのかと思い、質問しました。
興味が出ましたので、細かく調べようと思いますが、解らないところは「ネットワーク板」で
訊けばいいんですよね？

70:デフォルトの名無しさん
07/11/28 13:45:34
>>69
ネットワークの勉強ついでにVBSとかクライアントスクリプトも調べて来い
質問の意図が分からなさ過ぎる
きっと用語を正しく理解していない

>　興味が出ましたので、細かく調べようと思いますが、解らないところは「ネットワーク板」で　
>　訊けばいいんですよね？　
責任もてないので、「はいそうです」とは言わない
調べられなければ調べられるまで調べつくせ

71:59です
07/11/28 20:59:50
>70
すいません、知りたかったのはＩｒｉａなどのＨＰを丸ごとダウンロードしてくるソフトが
どのようにダウンロードをしているのかを知りたかったんです。

よく考えたらこの命令は単純にアドレス指定してアクセスするだけですね、
ちょっとやってみます。

72:デフォルトの名無しさん
07/11/28 22:39:14
>>71
知らないのは罪では無い。
だが、知らないという事を盾にして、初歩的な事を人に聞きまくるのは迷惑。

>すいません、知りたかったのはＩｒｉａなどのＨＰを丸ごとダウンロードしてくるソフトが

こんな事は最早ネットワークすら関係無い。通信技術板で聞こう物なら、
即氏ねと言われてもおかしくない。

初歩的なhtmlを知っていてIriaを使っていれば、どういう仕組みで丸ごと
ダウンロードしているのか、一般的な知能を持っていればわかるはず。

まず人に聞くな。自分で考えろ。

73:デフォルトの名無しさん
07/11/28 23:44:16
待て、しかして希望せよ

74:デフォルトの名無しさん
07/11/29 02:24:51
>>72
html知っててもhttpの仕組みがわかるわけ無いだろ。

>>59
「XMLHTTP VBS」あたりでググればいくらでもサンプル出てくる。

でも、VBSでリストだけ作ってダウンローダーに渡すのがいろんな意味でおすすめ。

75:59です
07/11/29 07:20:59
＞72
ありがとうございます、貴方のおっしゃっているように、私のやろうとしている事は
ネットワークとはあまり関係がありませんね。

＞74
XMLHTTPですね、ありがとうございます。
タグ辞典読んだり、「ＶＢＳ　ダウンロード」とか組み合わせてググっても
それに対応出来そうな命令が全く出てこなかったんで、困っておりました。
これでやっと点が線で繋がりました！！

76:デフォルトの名無しさん
07/11/30 10:37:58
間違えてVB.NETのスレで聴いてしまったのですが、こちらでお聴きすべきでした。
WshShellオブジェクトでURLショートカットファイルを作成する際にファイル内容
に不足があることがわかりました。

例として、たとえばマイクロソフトのサイト
URLﾘﾝｸ(www.microsoft.com)
などに対して作成すると、IEで作成した場合に作成される処の

[DOC_pagetools]
XMLUSERDATA__Size=･････
XMLUSERDATA=･････
USERDATAURL=･････

という部分が作成されていませんでした。そしてこの部分がないと、クリック
して実行してもIEで表示できないことがわかりました。どうも実行に際して
不可欠の内容のようでした（これはユーザーの同定等を行っているのでしょうか）。

こうした部分をWshShellオブジェクトのCreateShortcutメソッドで作成する
ことは不可能でしょうか。可能とした場合はどのようにすればよいでしょうか？
なにとぞよろしくお願いします。

77:デフォルトの名無しさん
07/11/30 19:49:02
>>76
[InternetShortcut]しかないけど開けるよ？
ファイルに.urlつけてないとかじゃないの？

78:デフォルトの名無しさん
07/11/30 20:58:14
ドメインユーザーのSID（S-x-x-x....）
から、ユーザーID（Domain\UserID）を知りたいんだけど、
ActiveDirectoryにどんな方法でアクセスすれば良いですか？
ADSIを使うっぽいのですが、いまいちわかりません。

79:76
07/12/03 23:26:26
>>77
ご指導ありがとうございます。
おっしゃってくださったことから、今もう一度やってみましたら確かに
今度は動作致しました！
昨日やったときはページが移動しなかったのですが、IE系のトラブルか何か
が重なっていたのかもしれません・・・、お手数おかけしてすみません。
ご指導ありがとうございました。

80:デフォルトの名無しさん
07/12/08 06:36:58
>>56
だめだ。それは結局JavaScriptを使っているから。
HTML内にVBSオンリーで同等の機能を実装してくれ。

81:デフォルトの名無しさん
07/12/08 12:09:40
>>80
え？>>55はJavaScriptをVBSで書けるかどうか聞いてるじゃん

82:デフォルトの名無しさん
07/12/08 15:04:43
>>81
VBSが分からないから日本語に着目して自己満足ですか。
はいはい、あなたは正しく理解し、適切な回答をなさいました。
キミにはたぶん質問者が知りたがっていることを回答するのは無理だね。
>>57は漢字が間違ってるし。

83:デフォルトの名無しさん
07/12/08 19:01:24
>82
わざと誤字を扱うのがネラーの習わし

84:デフォルトの名無しさん
07/12/09 01:08:07
>>82
hrefでjavascript関数の後にvoid(0)って一体どんな意味か教えて

85:デフォルトの名無しさん
07/12/09 01:34:04
>>84
URLﾘﾝｸ(developer.mozilla.org)

86:デフォルトの名無しさん
07/12/09 11:29:05
>>85
いや、void(0)単体の意味じゃなくて、「f()の後に」void(0)を置く意味が知りたいんだ

87:デフォルトの名無しさん
07/12/09 12:09:11
void(0)を付けないでブラウザのアドレスバーに打ち込んでみるとわかるよ

88:デフォルトの名無しさん
07/12/09 12:50:58
つけてもつけなくても変わらんよ

89:デフォルトの名無しさん
07/12/10 12:02:32
>>86
何を期待してるのかわからんが，
とりあえず「f()の後にvoid(0)を置く意味を知りたい」という要求の原因を教えてもらおうか

90:デフォルトの名無しさん
07/12/10 21:56:53
ああ、説明できないならもういいよ
お疲れさん

91:デフォルトの名無しさん
07/12/10 21:59:04
とりあえずプログラム板もID付けて欲しいぜ・・・

92:デフォルトの名無しさん
07/12/11 18:08:58
void(0);だけじゃ何の効果も示さないみたいな
f();は今のところ自端末じゃ何も設定されてなくて

voidの()内に後でチェックコードでも書くとか？

今は何を作るか知られたくないから意味のないコードしか書いてないとか

93:デフォルトの名無しさん
07/12/14 10:35:11
360: 2007/06/16 11:58:31 ??? [sage]
みんな最後にvoid(0)やfocus()を付けるのはなんでだぜ？

361:ぼけなす 2007/06/16 12:12:44 P+YI6MXb
>>360
Location Bar 本来の機能が邪魔することがあるから.
全体を function として記述してもうまくいくようだ.

94:デフォルトの名無しさん
07/12/14 22:03:54
だからアドレスバーに打ち込んでみるとわかるって言ったのに

95:デフォルトの名無しさん
07/12/15 06:34:39
条件が揃わないとわからないんじゃね

96:デフォルトの名無しさん
07/12/17 11:54:28
Excelの2003と2007がインストールされた環境で、以下のVBSを実行すると2007が起動します。
2003を起動するには、どう書けばいいんでしょう？

Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.WorkBooks.Add()
ExcelObj.Visible = True

97:デフォルトの名無しさん
07/12/17 13:01:46
それってWindowsの設定の問題じゃないの？
xlsファイルを2003のExcelで動作するように設定すれば動くんじゃない？

98:デフォルトの名無しさん
07/12/18 01:05:13
>>97
すいません。説明不足でした。
常に2003を起動したいわけではなく、2003と2007を必要に応じて使い分けたいのです。
そういう区別はVBSでは無理なんでしょうか？

あと、regmonでVBS実行中に参照されるレジストリを調べてみたところ、どうやら
HKCR\Applications\excel.exeを見て、起動するアプリを決定しているようでした。
つまり、>>96のような書き方では最後にインストールしたバージョンしか起動できないのです。

99:デフォルトの名無しさん
07/12/18 02:12:08
2003はたぶん　Excel.Application.9　で，2007はしらね

URLﾘﾝｸ(support.microsoft.com)

100:デフォルトの名無しさん
07/12/18 04:06:22
>>99
ありがとうございます。さっそく調べてみたところ、

2000 → 9
2002 → 10
2003 → 11
2007 → 12

のように対応していることがわかりました。そこでプログラムを

Set ExcelObj = CreateObject("Excel.Application.11")

と修正してみたのですが、これではまだ2007が起動してしまいます。
もう少しオブジェクトの扱い方を調べる必要があるようです。

101:デフォルトの名無しさん
07/12/18 12:07:56
>>100
ヒント：参照設定

102:デフォルトの名無しさん
07/12/18 21:32:07
URLﾘﾝｸ(support.microsoft.com)

103:デフォルトの名無しさん
07/12/19 03:29:22
いっその事、キーボードマクロで

104:デフォルトの名無しさん
07/12/19 07:02:16
>>101
MSOライブラリを複数登録するんでしょうか？
別バージョンのMicrosoft Office Object Library、Microsoft Excel Object Libraryを参照設定から
追加しようとしたのですが無視されてしまいました。
エラーも出ず、追加も出来ず、よくわかりません。

>>102
excel /regserverを実行してみたところ、Officeのインストーラーが起動してシステムの設定をすべて書き換え、
確かにデフォルトのアプリケーションもオブジェクトも切り替わりました。
が、この方法ではいちいちインストーラーが起動するということで、見栄えがよくありませんし、
時間もかかりすぎてしまいます。元に戻す手間もありますし。

>>103
最終的にはウィンドウを出さずに裏でこっそり処理をさせたいので、(>>96のプログラムの3行目が
存在しないイメージです) 単純にショートカットからExcelを起動して最小化、みたいな処理は、
できれば避けたいのです。後出しですみません。

もう少しヒントを、よろしくお願いします。

105:デフォルトの名無しさん
07/12/19 21:46:15
いや、無理でしょ

106:デフォルトの名無しさん
07/12/21 15:02:41
「2003に致命的な問題が見つかりますた」と言って強引に2003をアンインストールして2007のみの環境にしる

107:デフォルトの名無しさん
07/12/24 06:18:21
光の速さでキー入力して絵画をキャンセル

108:デフォルトの名無しさん
07/12/24 15:32:02
ぐぐったら、なんか酷いことが書いてある。　　、、無理なんじゃね？
URLﾘﾝｸ(support.microsoft.com)

109:デフォルトの名無しさん
07/12/24 15:35:09
あ、既出でやんの。　

(office2000以降)CLSIDが共通だって事は、
オートメーションでバージョンを指定することは出来ない　ってことじゃねえの？

110:デフォルトの名無しさん
07/12/24 16:17:15
ディレクトリからコマンダー権限でエクシア起動！

111:デフォルトの名無しさん
07/12/24 16:25:44
なるほど、希望バージョンのExcel.exeを先に起動しておいてからGetObjectすればよいのかな？

112:デフォルトの名無しさん
07/12/25 19:44:14
希望バージョンではない方が既に起動されていても大丈夫？

113:デフォルトの名無しさん
07/12/25 23:04:38
何をアクティブにして何をさせたいか

ちょっとした選択ミスがすべてを台無しにする事もある
目的と干渉によるけどやりたいなら自己責任で

114:デフォルトの名無しさん
08/02/11 06:52:56
突然質問ですが…
プログラムに汎用性を持たせるために、一部の変数を外部ファイル化したんですが、
どうすればよいのでしょうか？
実行専用ファイルを作って、その中で変数専用ファイルとメインファイルをPublic変数で繋いで
走らせる事も考えたのですが、できますでしょうか？
って言うかＶＢＳってinclude無いんですか？

115:デフォルトの名無しさん
08/02/11 12:09:25
>>114
wsfというものがあってですね

116:デフォルトの名無しさん
08/02/11 23:26:24
ini ファイルみたなのをつくって、フツーにopenして読み込めばいいじゃん。

117:壱壱四
08/02/12 07:24:04
115-116
ありがとうございました。
あとはググって調べます

118:デフォルトの名無しさん
08/03/06 09:58:25
EventQuery.vbs の使い方で教えてください。
というか、挙動不審なんです。

cscript eventquery.vbs /V /FI "ID EQ 564 AND DATETIME GE 03/06/08,12:00:00AM AND USER NE NT AUTHORITY\SYSTEM" /FO CSV /L

↑こういうのを書いたんですが、フィルタ条件のエラーになります。

上記の３つの条件を個別に単発で書けばそれぞれ　ちゃんと動くんですが
３つまとめるとダメみたいで・・・。

そういう仕様なんでしょうか？

何か書き方にクセがあるんでしょうか？

119:デフォルトの名無しさん
08/03/08 12:41:44
んなVBSは知らんけどパラメータがtasklistコマンドくせぇな

120:デフォルトの名無しさん
08/04/08 00:03:03
Excelで、セルに入力された文字列のうち、ある部分だけの色を変える、という処理をVBSで行いたいです。
たとえば「A1」のセルに「VBSで便利なプログラムを作れスレ」と入力してあった場合、
そのうちの『プログラム』だけをフォント赤色に変更する、というような感じです。

セル内の文字列すべてだとできるのですが、セル内の文字列の一部分だけを変更する方法を思いつきません。
ExcelのVBAだとCharactersオブジェクトが使えてたけど、これはVBSでは使えないのでしょうか？　（←うまいきませんでした）
なにかいいアイデアあったら、誰か教えてください･･･

121:デフォルトの名無しさん
08/04/08 00:48:23
エラー処理してないんで適当に。
偉い人添削ぷりーず

Option explicit

Const TARGET_WORD = "プログラム"
Dim XL, XLBook, XLRange
Set XL = CreateObject("Excel.Application")
Set XLBook = XL.workbooks.open("C:\Documents and Settings\デフォルトの名無しさん\デスクトップ\book1.xls")
Set XLRange = XLBook.sheets(1).Range("A1")

Dim TargetChr
Set TargetChr = XLRange.characters(Instr(XLRange.value, TARGET_WORD),len(TARGET_WORD))

If Instr(XLRange.value, TARGET_WORD) > 0 then
TargetChr.Font.ColorIndex = 3
End if

XLBook.save
XLBook.close
Set XLBook = nothing
XL.quit

122:デフォルトの名無しさん
08/04/08 13:55:16
よーし、素人丸出しで質問させてくだされ！

とあるＣＳＶファイルがあります。エクセルで展開すると６０項目のセルがあります。
その項目で不要項目があるので、消す作業を自動で処理することを考えてます。

*******************************************************

Set objEXCEL = CreateObject("Excel.Application")
Set objBOOK = objEXCEL.Workbooks.open("指定場所と指定.CSV")
objEXCEL .Visible = true

myExcel.Range("B:D").Select
myExcel.Selection.Delete
myExcel.Cells(1,1).Select

********************************************************

サンプルやエクセルマクロ記録などしてそれらを参考にやってみました。
対象CSVは相対パスで指定してあります。
でも、相対パス指定した行でＥＲＲになります。

ＣＳＶを相対パスで指定して不要項目を削除するには、上記スクリプトを
どのように変更すればいいでしょうか？

123:デフォルトの名無しさん
08/04/08 16:00:05
そこは絶対パスで指定できるように考えよう

124:デフォルトの名無しさん
08/04/08 16:18:19
>>123
レスありがとう。

結局、相対パスはできないということですね。

125:120です
08/04/08 23:27:32
>>121
ありがとう。書いてもらったのを参考にして思う通りのものができました。
CharactersオブジェクトのStartとLengthの指定の仕方をまちがってたようです。
任意のフォルダを選択すると、コマンドプロンプトのTREEコマンドみたいな枝？罫線＋選択フォルダ以下すべてのサブフォルダ名 OR ファイル名を
Excelに書き出す、というのを作ってたんですが、その出力内容のうち、サブフォルダ名の部分だけを色変えたかったのです。

126:120です
08/04/08 23:28:08
>>122
相対パスとるより絶対パスとるほうが簡単だと思うんだけど･･･？
Excel使うの前提のようなので、こういうのはどうかな。

*******************************************************
Option Explicit

Dim strFilePath

strFilePath = GetFilePathDialog()
msgbox strFilePath

'--------------------------------
' 選択したファイルのパスを取得
'--------------------------------
Function GetFilePathDialog()
Dim objExcel
Dim strFile
Set objExcel = CreateObject("Excel.Application")

strFile = objExcel.GetSaveAsFilename("", "CSV(カンマ区切り) (*.csv),*.csv")
If strFile = False Then Exit Function
GetFilePathDialog = strFile

Set objExcel = Nothing
End Function
*******************************************************

127:122
08/04/09 13:06:21
>>126

必ず相対パスでないとだめってわけではないのだけど。
クライアントで取り込んだＣＳＶを編集する為なのね。
まあ、やり方で回避できるのだけど。。。

このコードも活用させていただきますです。
ありがとう。

128:デフォルトの名無しさん
08/04/10 01:19:36
>>122
パスがわからないのならドラッグ＆ドロップすればいいじゃない、牛丼がないのなら豚丼をたべればいいじゃない。

>>126
そのファンクションいただき。でもエクセルObjectがないと使えないのかー。

129:デフォルトの名無しさん
08/04/10 02:21:36
GetOpenFileNameとGetSaveFileNameでぐぐれば、タブンさんぷるでてくるぞ。
APIだからエクセルいらない。

130:デフォルトの名無しさん
08/04/10 16:40:35
>>128
通常Ｗｅｂから配布しているＣＳＶを加工する為に、ＶＢＳを
クライアント配布で色々考えてた。
>>126氏の指摘通りエクセル操作が前提で。

＞パスがわからないのならドラッグ＆ドロップすればいいじゃない、
それも、そうだと思った強風、豪雨の午後でした orz

＞牛丼がないのなら豚丼をたべればいいじゃない。
メタボはいかん。

131:デフォルトの名無しさん
08/04/20 22:38:51
こんにちは。メッセージボックスの[OK]ボタンが押されるのを待たずに次の処理を
実行させたいときはどうするのでしょうか？

[OK]ボタンが押されなくても複数のメッセージボックス（？）を表示させたいのですが …

132:デフォルトの名無しさん
08/04/20 23:39:08
>>131
２箇所に同じ質問書くと嫌われるよ。マナー違反。今後気をつけな。

133:デフォルトの名無しさん
08/04/21 00:21:17
3箇所ならOK。

134:デフォルトの名無しさん
08/04/21 20:15:02
ジミーペイジもそんな事言ってたな

135:デフォルトの名無しさん
08/04/22 11:02:10
>>134
じみへんは？

言ってないかｗ

136:デフォルトの名無しさん
08/05/01 22:03:51
初心者なんですけどいいですか？
VBSで二進法の数を十進法にして表示させるプログラムを教えてください。

137:デフォルトの名無しさん
08/05/01 23:48:07
２進数の仕組みがわかってりゃ簡単だよ。
手計算するのと同じことをＶＢにやらせればいいだけ。
頭から１文字ずつ取り出して、×２していくだけだろ。

msgbox unko("10101101")

Function unko(ByVal str)
　　 ret = 0
　　 For i = 1 To Len(str)
　　　　 ret = ret * 2 + CInt(Mid(str, i, 1))
　　 Next
　　 unko = ret
End Function

138:デフォルトの名無しさん
08/05/01 23:52:39
それ計算違うｗ

139:デフォルトの名無しさん
08/05/01 23:54:10
・・・と思ってら合ってるっぽいスマソ

140:デフォルトの名無しさん
08/05/02 00:25:00
助かりました～
ありがとうございます。

141:デフォルトの名無しさん
08/05/03 11:12:12
なんかClntの所でエラー表示が出るんですが(^^;

142:デフォルトの名無しさん
08/05/03 11:41:22
>>141
Valに直しとけ

143:たわし
08/05/03 13:27:56
発投稿っす。どうぞよろしく。
二進法の数を十進法にして表示させるプログラムもう少し簡単にできませんか

144:デフォルトの名無しさん
08/05/03 13:29:00
ゆとりアラーム

145:たわし
08/05/03 13:36:42
そこを何とかお願いいたします

146:デフォルトの名無しさん
08/05/03 20:23:26
137よりどう簡単にするんだ

147:デフォルトの名無しさん
08/05/03 21:46:23
142＞ありがとうございます
しかしValでも型が一致しませんとでるんですが

148:デフォルトの名無しさん
08/05/03 22:43:18
>>147
お前さんがとてつもない馬鹿で何一つ知らない情報弱者だから
こちらは超能力者にならざるを得ないのをとりあえず理解してくれ。

それを前提とした上で「パソコンでマウスを動かそうとした」とこから
「Valでも型が一致しませんとでる」までの経緯を
お前さんが認識してる「馬鹿」に分からせるように説明しろ。

149:デフォルトの名無しさん
08/05/04 01:47:23
パソコン上でマウスを動かそうとし、動かしメモ帳を起動して137のプログラムをまずメモ帳に入力し、Clntをそれ以外いじらずValに変更した後、.vbsで保存して、実行しようとするとエラー表示されます

150:デフォルトの名無しさん
08/05/04 01:58:49
数値で渡してるなｗ

151:デフォルトの名無しさん
08/05/04 06:09:59
>>149
ValをCIntに戻して再実行してみろ。
CIntに戻したときのエラー表示の中で「文字が正しくありません。」
という文言があるのなら、全角スペースが原因。
行の先頭のスペースを全部削除してから再実行してみろ。動くはず。

>>142
CIntをValに直してもよけいに動かなくなるだけ。
VBでは動いても、VBSでは動かん。

>>150
1行目の10101101を文字列ではなく数値で渡しているって想定か？
別に数値で渡しても、勝手に型変換されて動くよ。

152:デフォルトの名無しさん
08/05/04 06:18:31
>>151
数値で桁が多すぎると(浮動少数表現に変わるから？)エラーでるよ

153:デフォルトの名無しさん
08/05/04 12:33:44
やっぱりうまくいきません
型が一致しません"Clnt"とでます
パソコンが2000だからとかそういうわけでしょうか
あと素人丸だしですみませんが、一行目の10101101ってどういう意味ですか？

154:デフォルトの名無しさん
08/05/04 12:37:01
もうそのネタ飽きた

155:デフォルトの名無しさん
08/05/04 16:39:54
↑
そもそも「二進法」の意味がわかっとらんだろ？

156:デフォルトの名無しさん
08/05/04 17:22:21
ところが2歩進んだと思ってたのに気が付いたら下がっていたという。

157:デフォルトの名無しさん
08/05/04 19:25:19
2進数はわかってますが

158:デフォルトの名無しさん
08/05/04 22:40:33
>>152
すまんが、前提として10101101をそのままとしていた。
確かに桁が増えたらエラーになる。
16桁か17桁くらいが区切りのはず。
ちなみに浮動少数表現ではなく、対数表現な。

>>153
指摘が間違ってた。
いいか、Clntが間違いだ。CIntだ。
2文字目は小文字のL(エル)ではなく、大文字のI(アイ)だ。

ついでにいうと、二進法で表現した数値を二進数と言うんだ。

159:デフォルトの名無しさん
08/05/05 03:45:40
この会話・・・ぜったい２進数がわかってないな。

160:デフォルトの名無しさん
08/05/05 04:16:03
シュールストレミングうめえ

161:デフォルトの名無しさん
08/05/05 17:06:00
すいませんXPでやったらできました
そこで入力した二進数を十進数に変えるプログラムはどうやるんですか？

162:デフォルトの名無しさん
08/05/05 17:20:48
二進数も十進数も見た目が違うだけで中味は同じ
だから変換は必要ない

163:136
08/05/05 17:27:22
なんか変な流れ作っちゃってすまん

というか>>161なぜそこに戻る？

164:デフォルトの名無しさん
08/05/05 17:39:30
inputboxをどこにいれりゃいいのかわかりませｎ

165:デフォルトの名無しさん
08/05/06 12:29:27
おまい、ぜったいぜったい、ぜぇ～～ったい２進数がわかってないだろ。

166:デフォルトの名無しさん
08/05/06 14:22:30
おまいら暇だな～
ﾓﾚﾓﾅ～ｗ

167:デフォルトの名無しさん
08/05/06 15:42:50
ｖｂｓで１６進数を表示。たとえば
msgbox &hFE

とすると、結果は 254 と表示されます。
ほんとは FE のはずです。
こういうバグがあるから気をつけたほうがいいよ。

168:デフォルトの名無しさん
08/05/06 15:47:27
それはバグ・・・・とは思えないのだが。本来の仕様と違うとか？

169:デフォルトの名無しさん
08/05/06 17:18:09
>>168 変態度かぁ

170:デフォルトの名無しさん
08/05/06 17:59:41
意味わからん
FEって表示したいのなら
msgbox "FE"
って書きゃいいじゃん。
自分で &h つけておいて、何言ってんだろ？
msgbox hex(&hfe)
でもいいけど

171:デフォルトの名無しさん
08/05/06 18:31:12
数値の&HFE と文字列の"FE" の違いすらわからんヤツがおるのか。

172:デフォルトの名無しさん
08/05/06 21:58:28
>>160
くせぇ！
今頃臭いが伝わってきたよ

173:デフォルトの名無しさん
08/05/11 04:40:36

●6月にマネージャパン、月刊アスキー、週刊アスキーの3誌が賞金総額2000万円の「シストレFXグランプリ」を開催
URLﾘﾝｸ(system-trading.jp)
[シストレFXグランプリとは]
クリック証券が提供するFXのデモ取引環境を利用して、システムトレードにチャレンジできるFX取引のグランプリです。
お客様ご自身で作成したシステムトレードの機能を評価する「シストレソフト部門」とトレード収益を競う「トレード部門」の2部門構成となっております。

●5月22日より登録受付開始、6月2日よりグランプリ開始の予定。賞金総額2000万円。
　　デモトレードの優勝者には賞金三百万円がプレゼントされます。

▼トレード部門
初期資産500万円で、デモ取引のトレード収益を競っていただきます。
●URLﾘﾝｸ(www.fx-gp.com)

▼賞金総額
■社長特別賞（シストレソフト買取価格） 10,000,000円
●シストレソフト部門賞　1位300万円　2位100万円　3位50万円
●トレード部門賞　1位300万円　2位100万円　3位50万円
●前期MVP賞　50万円
●後期MVP賞　50万円

174:デフォルトの名無しさん
08/05/11 13:31:12
コピペ君って馬鹿だな、まで読んだ。

175:デフォルトの名無しさん
08/06/17 04:14:05
InputBox関数使って、入力値を得たいんですが、
255バイト以上の入力値って無視されるのでしょうか？

解決策があれば教えてください。。

InputText = InputBox("文字列を入力してください")

Dim Fs
Set Fs=CreateObject("Scripting.FileSystemObject")
Set newFile = Fs.CreateTextFile("0000test0000.txt",True)
newFile.WriteLine(InputText)

176:デフォルトの名無しさん
08/06/17 09:13:27
ユニコードで２５４文字+CR+LFの、最大値を超えています。

177:デフォルトの名無しさん
08/06/17 22:19:12
VBScriptを使って、HTTPステータスコードを取得する方法を探しています。
ある任意のWeb画面に対してスクリプトでリクエストを行い、HTTPステータスコード(200 ok 等)を
取得する方法はありますでしょうか。
どなたかご存知の方がいらっしゃいましたら、ご教授下さい。

178:>>177
08/06/17 22:24:08
すいません。スレ違いだった為、WSHのスレに移します。

179:デフォルトの名無しさん
08/06/19 14:20:45
vbsで、フロッピーのフォーマットを確認なしで実行
する命令ありますか？A:\固定で。

180:デフォルトの名無しさん
08/06/19 18:20:54
>>179 何で確認しなくていいのか？

181:デフォルトの名無しさん
08/06/19 20:40:04
VBSにはファイルにアクセスする命令すらありませんよ

182:デフォルトの名無しさん
08/06/21 07:38:22
それを言うならC言語にもファイルにアクセスする命令は無いな

183:デフォルトの名無しさん
08/07/19 09:45:08
ここまで便利そうなコードが殆どない件・・・

184:デフォルトの名無しさん
08/07/19 11:24:47
>>183が便利そうなコードを書きまくるそうです＞＜

185:デフォルトの名無しさん
08/07/27 01:18:22
とりあえずExcelAddinをインスコするコードとかlnk右クリックでリンク先ディレクトリ表示とか
あるけど需要あるか？

186:デフォルトの名無しさん
08/07/30 21:22:27
test1.bin
test2.bin
test3.bin

これらファイルを選択状態にして、VBSファイルにD&Dすると、
ファイル名順にソートして、１つのファイルに結合するには、どうしたら良いのでしょうか？

１つのファイルを、指定サイズに自動分割するVBSはできたのですが、
その逆のことができるVBSファイルを作りたい。。。

ADODB.Recordset
ADODB.stream　あたりを使えば可能？

187:デフォルトの名無しさん
08/07/30 21:26:24
copy /b

188:デフォルトの名無しさん
08/07/30 21:38:44
>>185
参考にさせていただきた

189:デフォルトの名無しさん
08/08/13 09:09:42
CIM_DataFileクラスを用いて、ファイルの各種情報を取得したいのですが、
「説明」のプロパティを取得するときに指定するプロパティ名が分かりません。

具体的には、例えばソリティア（C:\WINDOWS\system32\sol.exe）を
右クリックして表示されるプロパティの「バージョン情報」タブの２行目に
「説明：Solitaire Game Applet」と表示されますが、この値を取得したいのです。

ファイルバージョンなどは、「Version」プロパティで取得できております。
ご存知の方、ご教示お願い致します。

次ページ