VBscriptについて語りましょう

このエントリーをはてなブックマークに追加
1nobodyさん
そのうち消え去るかもしれないVBscriptについて
語りましょう。質問もOKです。
2Name_Not_Found:02/04/15 17:28 ID:++iJdcm0
こんにちは。はじめまして!
僕は、一応、>>1の友達です。
>>1に、紹介されてきたのですが
綺麗なスレッドですね。
これも>>1が作ったスレッドですよね?
あの人は、昔から人には優しい人なんです。
実は、>>1はボクシングをやっているんです。
この間、こっそりと会場に行って、>>1
試合を見てきました。いや〜、あの人はすごい!!
見た目は、弱い男子だけど、試合では強すぎる…。
相手は、チャンピオンだというのに、>>1
相手を1Rで倒したんですよ。しかも無傷で…。
そんな、優しくて強い人と仲良しだなんて
ラッキーな方ですね。もしかして、>>1
事が好きなのですか?では。
3Name_Not_Found:02/04/15 17:31 ID:GuCVhOqb
VBscriptを使っているサイトを教えてください
4Name_Not_Found:02/04/15 17:35 ID:GuCVhOqb
シカトですか
5nobodyさん:02/04/15 18:00 ID:kNVV4hfo
>>3
ここがいいんでないの?

http://www.shirakami.or.jp/~eichan/vbs/vbsfr.html
6Name_Not_Found:02/04/15 20:31 ID:MHa/qbGS
 ひょっとして蛮地外?WEBプログラミング板がええわけ?
7Name_Not_Found:02/04/15 20:34 ID:QVq4xMoQ
>2
tatuなのかよ!
8Name_Not_Found:02/04/15 20:38 ID:L9KdSKcg
>>6
うんにゃ、JavaScriptに客とられてるだけ。
IE独自拡張駄科
9Name_Not_Found:02/04/15 21:26 ID:MHa/qbGS
>>8
 ほっ、安心した( ゚Д゚)
10Name_Not_Found:02/04/15 21:49 ID:WhvfKav4
よさげ。関係無いか。

お前ら、wsh使ってますか?
http://pc.2ch.net/test/read.cgi/win/1009175619/
11Name_Not_Found:02/04/16 00:14 ID:gsCwtIiA
つかってない。
12Name_Not_Found:02/04/16 10:27 ID:/uU0EGFO
>>4
厨房ウザイ
13Name_Not_Found:02/04/16 14:54 ID:mw8Sp9PD
VBscriptを学ぶ上でのお勧めの本はありますか?
1999年発行とかのやたら古い本ばかりなのですが。
14Name_Not_Found:02/04/16 16:58 ID:fTkqYwOL
VCのマクロやASPを組むときに使ったが、死ぬ程へぼい言語仕様に辟易した。
はっきり言って逝ってよし。むしろ、VB自体逝ってよし。
15Name_Not_Found:02/04/16 19:32 ID:/kbjOSXB
 じゃあ、ASP組むときはJscriptのほうが良いってか?
16Name_Not_Found:02/04/16 19:42 ID:fTkqYwOL
>>15
少なくとも、VBSよりはそっちの方が良さそうかと。
っていうか、JSPを使え!
17Name_Not_Found:02/04/16 19:53 ID:/kbjOSXB
>>16
 だってJAVA書けないんだもん。
18Name_Not_Found:02/04/17 12:48 ID:MtOjIZVZ
>>14
否。そこはホームページ制作王を抜きに語れないと思われ。
19Name_Not_Found:02/04/17 13:18 ID:xF8N5FP2
VBスクリプトなら、Javaスクリプトと違って、
Unicodeだけでなく、Shift-JISを扱えます。
20Name_Not_Found:02/04/17 13:30 ID:Pkwu6sbZ
>>18
 HP制作王がぼろいってこと?
21Name_Not_Found:02/04/17 13:36 ID:MtOjIZVZ
使ったことの無い人間ほど、
ホームページ制作王の偉大さが分かるでしょう。
22Name_Not_Found:02/04/17 13:37 ID:R+G4kl6u
>>21
つまり、実際使った人間はその偉大さがわからなくなると?
23Name_Not_Found:02/04/17 13:39 ID:MtOjIZVZ
いえいえ、とんでもない。
使いこなせば見えにくくなるだけのことで、
ホームページ制作王が偉大という事実に変化は起きません。
24Name_Not_Found:02/04/17 13:41 ID:R+G4kl6u
>>23
打ち間違い言い訳カッコワルイ
25Name_Not_Found:02/04/17 13:43 ID:MtOjIZVZ
ホームページ制作王の高性能は、分かる人間にしか分からない。
違いを理解できない人間は自然淘汰されるだろう。それだけのこと。
26Name_Not_Found:02/04/17 13:51 ID:R+G4kl6u
>>25
どこら辺が(他と比較して)高性能か教えてくれ
「体験版をやった方が早い」なんてレスは無しで
27Name_Not_Found:02/04/17 14:47 ID:MtOjIZVZ
>>26
制作王の素晴らしさは、とても一口では表現できません。
長々とやるとスレ違いになるので一言。
「体験版は無料です」
あとは貴方の判断で。
28Name_Not_Found:02/04/17 15:10 ID:04ipteA3
>>27
結局答えられないのね
29Name_Not_Found:02/04/17 15:12 ID:MtOjIZVZ
>>28
粘着してスレを荒らすな。それだけだ。
30Name_Not_Found:02/04/17 15:14 ID:04ipteA3
>>29
いや、別に
質問に答えてくれさえするばそれでいいんだが?

やっぱり答えれなくて逃げちゃう?
31Name_Not_Found:02/04/17 15:28 ID:MtOjIZVZ
荒らしID:04ipteA3は放置。
ホームページ制作王は最強。
これ以上もなければ以下もなし。
32Name_Not_Found:02/04/17 15:34 ID:04ipteA3
>>31
いや、質問に正確に答えてくれりゃーそれでいいって言ってるだけだが?
結局逃げたいの?
33Name_Not_Found:02/04/17 15:42 ID:MtOjIZVZ
>>32
ぢゃあ、答えるぞ。手短に言うから、よく聞け!

俺は使い込むうちにホームページ制作王の偉大さを理解した。
だから興味があるなら、使いながら学んでくれ。
興味が無いなら、買うな。全部、貴方の自由だ。
34Name_Not_Found:02/04/17 16:45 ID:eNYE0rJ2
 いや、ここはVBscriptについて語るスレだから
制作王の話はよそでやってよ(; ´Д`)
35Name_Not_Found:02/04/17 16:51 ID:PiMG3L0N
EXCELのプログラムはどうなんでしょうか?
36Name_Not_Found:02/04/17 17:02 ID:baS/dntp
>>35
VBAはほぼVBですが、何か?
37Name_Not_Found:02/04/17 23:15 ID:app92p78
PHPとVBscriptはどちらが覚えるの難しいですか?
38Name_Not_Found:02/04/18 12:07 ID:us1DeibQ
>>37
別に、どっちでもいいよ
39Name_Not_Found:02/04/19 21:55 ID:2aIAK3kA
 CやVBには仕様書工房とかの自動生成ツールがありますけど、
VBscriptも仕様書を自動生成してくれるツールとかないですか?
40Name_Not_Found:02/04/20 04:01 ID:CI6v8+cx
>>39
ホームページ制作王を使ってください。
5分以内に解決します。
41仕様書無しさん:02/04/22 00:14 ID:Y1zo6kHX

        / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
        | 下がり過ぎ緊急浮上ぅぅぅ!!!
    \  \
          ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄
      \ ∧ ∧
        (゚Д゚∩
       ⊂/  ,ノ
 ̄  ̄   「 _  |〜 ト  ̄  ̄  ̄
       ∪ ヽ l   オ
       /  ∪  \
  /       :    オ

42Name_Not_Found:02/04/23 23:00 ID:YVCLi3mR
VBscriptって仕様書工房使えないから腹がたつ。どうにか
ならんのか?
43Name_Not_Found:02/04/24 14:01 ID:UTxuqQMn
>>42
仕様しない。
44Name_Not_Found:02/04/26 23:28 ID:OdlD4FXT
 VBscript入門読みながら勉強してますよー
45Name_Not_Found:02/05/02 20:59 ID:t2+60Fm/
ヘルプみりゃいいやん。
46名無し:02/05/06 12:07 ID:eb7OpyyD
右クリックメニュー拡張ソフト「IE MenuExt」を使っています。
このソフトはVBスクリプトの書かれたHTMLファイルを右クリックから
呼び出せるようにするソフトです。

ブラウザでスレの杜などを見ているとき、リンク上で右クリックから
かちゅ〜しゃで見る などの拡張メニューを作成したいのですが
普通の実行ファイルを実行させる方法がわかりません。

Iriaなど、右クリックを拡張しているプログラムの右クリックメニュー用の
HTMLを見たのですが、どこで実行ファイルを呼び出しているのかが
まったくわかりません。

どなたか、ヒントをください。
47Name_Not_Found:02/05/06 15:50 ID:hSOkF3GT
>>46
これを参考にしてみるとか。
http://www2.wbs.ne.jp/~go-to/run/
48Name_Not_Found:02/05/06 16:17 ID:EXKqwPPd
>>47
JavaScript...
49名無し:02/05/06 19:08 ID:eb7OpyyD
>47
ありがとうございます。とりあえず、それを使って解決できました。

>>48
VBスクリプトしかだめ という変な先入観を持って質問してしまいました。
ものごとは全て臨機応変に考えろ という教訓だったのですね。
50Name_Not_Found:02/05/11 05:22 ID:ckyLrmxc
JavaScriptでは不可能とわかったので こちらで質問です。

HTMLファイルを開いたとき、特定の場所に 別のソースの内容を
まるまるもってくることは可能でしょうか?
たとえば、test.html というHTML文書内の
<div ID="HOGE">hoge</div>
のhoge部分に hoge.txt の内容を複写したいのです。
(test.htmlとhoge.txtは別サーバにあります)
51Name_Not_Found:02/05/11 05:53 ID:tnBl6pdH
今選択してる文字を取得する方法おしえれ
右クリック拡張でttp://....を選択するとそこへジャンプするやつつくりてーんだyo
52Name_Not_Found:02/05/11 05:55 ID:ckyLrmxc
>>47のってどうですか?
53Name_Not_Found:02/05/11 06:11 ID:80oGjQG+
>>50 >>51
JavaScriptでできる。
5450:02/05/11 13:39 ID:ckyLrmxc
>53
マジっすか? ヒントクダサイ
55仕様書無しさん:02/05/17 23:34 ID:gx3KMD8Z
 VBscriptで書いたアプリをネットスケープで見るためには
なんのプラグインがいるの?
56仕様書無しさん:02/05/27 22:09 ID:c+q80oiQ
>>55
 さあ?
57Name_Not_Found :02/05/31 21:11 ID:v/tvpIYo
みんなVBscriptをつかおう!
58名無しさん@そうだ選挙にいこう:02/06/19 20:11 ID:/t+53xHh
すげえな。まだ倉庫に行かないの?
59Name_Not_Found:02/08/07 13:36 ID:FYbX95r/
あっげ
60Name_Not_Found:02/08/13 00:32 ID:l+v73d4y
        / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
        | 下がり過ぎ緊急浮上ぅぅぅ!!!
    \  \
          ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄
      \ ∧ ∧
        (゚Д゚∩
       ⊂/  ,ノ
 ̄  ̄   「 _  |〜 ト  ̄  ̄  ̄
       ∪ ヽ l   オ
       /  ∪  \
  /       :    オ

61Name_Not_Found:02/08/13 00:34 ID:l+v73d4y
ASP+VBscriptやることになったからあげておこう!
さぁ、皆集うがいいさ!
62Name_Not_Found:02/08/13 00:35 ID:l+v73d4y
とりあえず推薦参考書などを
キボンヌ
63Name_Not_Found:02/08/13 00:36 ID:???
お〜い…
誰もいない…
64Name_Not_Found:02/08/13 00:37 ID:???
なんですか?
この板は無人ですか?
それともVBSに喧嘩売ってるんですか?
65Name_Not_Found:02/08/15 23:54 ID:+wN3FYOZ
javaに負けるな!
66Name_Not_Found:02/09/22 14:29 ID:???
まだあったのね ココ
67Name_Not_Found:02/10/10 21:04 ID:???

  V B S c r i p t ! ! !
68Name_Not_Found:02/10/24 16:19 ID:???
やっと見付けたのに誰もいない・・・
やっぱJavaScriptにするか
69Name_Not_Found:02/10/24 18:53 ID:???
その考えに反逆してage
70Name_Not_Found:02/11/26 03:54 ID:rChJUZe5
JavaScriptで window.open() に相当する機能は
VBScriptにありますか?
71Name_Not_Found:02/12/12 23:06 ID:???
あります
72Name_Not_Found:02/12/12 23:13 ID:???
JavaScriptでコンストラクタ関数のprototypeに代入するのに
相当する技はVBScriptにありますか?
73Name_Not_Found:02/12/20 02:08 ID:Rx/hnSsn
Do While 式
Loop

ループを抜けるときは Exit Do だけど
ループを続行する、いわゆる continue文は どう書くの?
74Name_Not_Found:02/12/20 02:17 ID:???
>>72
ないの。オブジェクト作れないの。
ActiveXを別売りのソフトで作って使えというコンセプトなの
75Name_Not_Found:02/12/20 02:18 ID:???
>>73
コンテヌーも無いの
If then elseで分岐するしかないの
76Name_Not_Found:02/12/20 02:18 ID:???
でも好きなの。。。
77Name_Not_Found:02/12/20 13:42 ID:???
<input type=button value="しいたける" language="VBScript" onclick='MsgBox " / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄"&Chr(13)&"< しいたけですが何か?"&Chr(13)&" \_________",16,"しいたけお"'>
78Name_Not_Found:02/12/21 02:50 ID:???
VBSの一番の魅力はCreateObjectだと思うの
不細工な子でもひとつくらいは取り得あるの
あまりにセキュリティ無視でノートン先生とかに起こられちゃうけど
webというよりブラウザベースのLAN内のシステム開発にはもってこいの
おてがるさだと思うの
でもみんな嫌いだよね…。ごめんなさいごめんなさい。
79Name_Not_Found:02/12/23 16:43 ID:???
>>78
jscriptのActiveXObjectと全く同じだし
80Name_Not_Found:02/12/23 16:47 ID:???
どっちにしろWSHよりのVBSの話は板違いなわけで。
81Name_Not_Found:02/12/23 18:44 ID:???
以降↓へ。
http://pc.2ch.net/php/
82Name_Not_Found:02/12/24 08:25 ID:3qCeBLb8
>>81
あっちはサーバサイド専門だったと記憶。ASPで使うならいいんだろうけど。
83Name_Not_Found:02/12/24 08:54 ID:???
84Name_Not_Found:02/12/31 04:37 ID:jBlikRm5
ウイルス撒き散らすVBSはキライ
85Name_Not_Found:03/01/03 03:13 ID:???
>>84
それだけ自由度が高いんだよ。
諸刃の剣なのを承知で使うのが通だ。
86Name_Not_Found:03/01/03 03:35 ID:???
vbsってMacじゃ使えないのかな?
87Name_Not_Found:03/01/03 10:16 ID:???
そういえばMacのIEでは動かんのかな?
MacのExcelではVBAはついていないのかな?
88Name_Not_Found:03/01/10 04:45 ID:/xz3G9pZ
VBScriptでgrep作ったらめっちゃくちゃ遅かった・・・
やっぱ言語には得手不得手があるね
89Name_Not_Found:03/01/14 09:12 ID:???



岡田克彦ファンクラブからのご案内です。ご高承のとおり、岡田克彦氏の卒業した早稲田大学政治経済学部
と、ひろゆきの卒業した中央大学文学部は比較にならないほど差があります。中央大学文学部のような
ヘボい大学に共通しているのは、文化水準が低いという事です。18歳から22歳をヘボい大学で過ごすという
ことは、感受性において致命傷と言えます。2ちゃんねらーの大半は岡田克彦氏に比べて、著しい低学歴で
頭が悪いだけでなく、感受性も愚鈍で腐っているという、取り返しのつかない状態なのです。
せめて、http://www.geocities.co.jp/MusicHall-Horn/1091/で、岡田氏の作品に触れましょう。

90Name_Not_Found:03/01/16 19:32 ID:YciPNXIp
VBscriptのすべてのコマンドを記載してある本を知りませんか?
91 ◆nonoGOIeGg :03/01/16 20:07 ID:???
         /
∋8ノハヽ8∈ | >>90しゃん
  ( ´D`) < オンラインのリファレンスじゃ
          | ものたりないれすか?

http://www.microsoft.com/japan/msdn/library/ja/script56/html/vtoriVBScript.asp
92Name_Not_Found:03/01/16 21:26 ID:YciPNXIp
レジストリをいじったり、セキュリティレベルを変えるコマンドがあると聞いたんですが、
さすがに普通の本には載ってませんね。
MSのホームページにも載ってないです。
93 ◆nonoGOIeGg :03/01/16 21:42 ID:???
         /
∋8ノハヽ8∈ | 
  ( ´D`) < こーゆーのれすか?
          | 

http://www.microsoft.com/japan/msdn/library/ja/script56/html/wsconWSHWalkthroughs.asp
94一年目:03/01/16 21:55 ID:???
95Name_Not_Found:03/01/16 22:04 ID:???
>>93
こういうのです。
見つけられなかった自分が恥ずかしいです。
96Name_Not_Found:03/01/18 09:53 ID:fXyvJ2vw
メールアドレスを取得するにはどうすればいいのだろう
誰かLOVELETEER.vbs.txtのソース張り付けてくれないかな
あっ、独りごと言っちゃった
97Name_Not_Found:03/01/19 23:58 ID:???
>>96
ノーdが反応しちゃうだろ
98山崎渉:03/01/23 03:01 ID:???
(^^)
99Name_Not_Found:03/02/01 11:15 ID:???
保守hage
100岡田克彦ファンクラブ:03/02/01 12:14 ID:???


それにいたしましても、明確になったことは、2ちゃんねらーの人達の愚鈍さと
無能さでございました。
2ちゃんねらーに出来る事は、たかだか、ウェブ上で騒いだり、岡田先生のホームページ
(URL;http://www.geocities.co.jp/MusicHall/5933/
のBBSにエロ、グロな写真を掲載するくらいのこと。昭和54年に岡田先生が
早稲田大学政治経済学部を卒業したことを取り消すなどということは出来ないの
ですね。もちろん、ひろゆきが、中央大学文学部夜間を卒業したことも取り消せない
のと同様ですけれども、いかにウェブ上で思い上がっていても阿呆に出来る事は
この程度なのです。阿呆は、何をしたって、阿呆どまりなのです。ハハハハハ・・・。
101ふんにゃか ふんにゃか:03/02/01 17:58 ID:???
ふんにゃか ふんにゃか
102Name_Not_Found:03/03/28 13:47 ID:7JRri0eK
>改行が文の区切り(一行に複数の文を記述する方法もあるが、スクリプトが見難くなるので、ここでは説明を省略する)
http://www.tkdlab.ritsumei.ac.jp/02ip2/0303.html
一行に複数文各方法教えて下さい
103山崎渉:03/04/17 15:48 ID:???
(^^)
104山崎渉:03/04/20 04:10 ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
105山崎渉:03/05/28 13:24 ID:???
     ∧_∧
ピュ.ー (  ^^ ) <これからも僕を応援して下さいね(^^)。
  =〔~∪ ̄ ̄〕
  = ◎――◎                      山崎渉
106Name_Not_Found:03/06/11 23:44 ID:Rv6WqUPM
VB
107_:03/06/11 23:46 ID:???
108教えてクン:03/06/18 17:51 ID:zwctcbDc
>>102 誰か教えて
109山崎 渉:03/07/15 10:14 ID:???

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄
110山崎 渉:03/08/02 02:41 ID:???
(^^)
111山崎 渉:03/08/15 17:16 ID:???
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン
112Name_Not_Found:03/08/29 16:08 ID:zztheoUd
http://page4.auctions.yahoo.co.jp/jp/auction/d33788352
の2枚目の写真に、VB Script作成を支援するようなソフトが
写ってるんだけど、これって何ですか?
113Name_Not_Found:03/08/29 17:29 ID:???
>>112
フロントページ買え
114Name_Not_Found:03/10/09 10:12 ID:???
ホームページ制作王を使えば簡単にクリアできるぞ。
115Name_Not_Found:04/02/21 12:01 ID:???
今、テンプレートと記事ファイル(1つのテキストファイル=1つの記事)から
blog風のHTMLを生成するVBScript、ってかWSH組んでる

需要ある?
116Name_Not_Found:04/02/22 21:39 ID:???
ない
117Name_Not_Found:04/05/18 15:51 ID:???
VBScript自体糞
118Name_Not_Found:04/06/23 10:42 ID:???
何かできそうで、やっぱり出来ないのがVBSだな
119Name_Not_Found:04/08/08 02:49 ID:QK3Sy+VG
なんとも閑散としておりますな。
120Name_Not_Found:04/08/08 06:38 ID:???
BASICはもっと糞
121Name_Not_Found:04/09/12 09:16:22 ID:8hKsHGHQ
質問させてください。
IE上で動くVBScriptを作っています。

textbox1とtextbox2とButton1が設置されていまして、

1. textbox1に『1 * 5 - 2』のような数式を手入力
2. Button1を押す
3. textbox2に1*5-2の結果である『3』が表示される

といったプログラムを組みたいのです。
検索していると、『Eval関数を使えばよい』と言うところまでは分かったのですが、いざ記述して動かしてみようとしても、textbox2には何も表示されません。(ステータスバーにはエラーが発生しましたと表示されていました)

下のように記述したのですが、間違っているところを教えていただけませんでしょうか?
<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button1_OnClick
x = eval(textbox1.value)
textbox2.value = x
end sub
-->
</Script>
</HEAD>
<BODY>
・・・以下はHTMLの内容

宜しくお願いします。
122Name_Not_Found:04/09/12 17:42:23 ID:???
>>121
うちの環境ではその内容で正しく実行された。
プログラムはあってるものと思われ
下部のHTMLにでも間違いがあるのでは?

HTML内で同IDには上から順に連番がつけられていくけど
これを自分で指定する事はできないのでしょうか?
<INPUT type="text" id="textbox(5)">
のように指定したいのですが、できません。
123Name_Not_Found:04/09/12 18:06:06 ID:???
( )なんか使えるわけないだろ
124Name_Not_Found:04/09/12 18:07:03 ID:???
あぁ、コレはVBScriptの問題じゃなくてHTMLの仕様か
125Name_Not_Found:04/09/12 18:37:11 ID:???
>>123
同IDは配列扱いできるようですが
ID指定時には配列のドコに入れるかは
決められないという事でしょうか?
それは不便な気が
126Name_Not_Found:04/09/12 18:43:15 ID:???
不便だと思うならRFCに提案しろよ
127Name_Not_Found:04/12/27 22:21:56 ID:BSBqNadW
Option Explicit

Private mObjIE

Main

Public Sub Main()
On Error Resume Next

Dim strUrl, strMes, strRep
Dim objArgs
Dim i

Set objArgs = WScript.Arguments

strUrl = objArgs(0)
strMes = objArgs(1)
strRep = objArgs(2)

'ファイル読み取り
strMes = ReadFile(strMes)

'IEのオブジェクト作成
Set mObjIE = CreateObject("InternetExplorer.Application")
128Name_Not_Found:04/12/27 22:22:40 ID:BSBqNadW
OpenIE(strUrl)
DoIE(strMes)
EatCookie(strRep)
CloseIE

'IEのオブジェクトをNothing
Set mObjIE = Nothing

End Sub
129Name_Not_Found:04/12/27 22:23:12 ID:BSBqNadW

Private Function ReadFile(strPath)
On Error Resume Next

Dim strMes
Dim FSO
Dim f
Dim fStream

'オブジェクト作成
Set FSO = CreateObject("Scripting.FileSystemObject")
'ストリームオブジェクト作成
Set fStream = FSO.OpenTextFile(strPath)
'文字列取得
strMes = fStream.ReadAll()

ReadFile = strMes

End Function
130Name_Not_Found:04/12/27 22:23:52 ID:BSBqNadW

Private Function OpenIE(u)
On Error Resume Next

mObjIE.Height = 50
mObjIE.Width = 100
mObjIE.Visible = True
mObjIE.Navigate u

Do Until mObjIE.Busy = False
WScript.Sleep 2000
Loop

End Function
131Name_Not_Found:04/12/27 22:25:03 ID:BSBqNadW
Private Function DoIE(m)
On Error Resume Next

Dim objDoc
Dim objFrm

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)

objFrm.MESSAGE.Value = m

Do Until mObjIE.Busy = False
WScript.Sleep 2000
Loop

objFrm.submit.Click

Do Until mObjIE.Busy = False
WScript.Sleep 2000
Loop


Set ObjFrm = Nothing
Set ObjDoc = Nothing

End Function
132Name_Not_Found:04/12/27 22:25:39 ID:BSBqNadW
Private Function EatCookie(SearchChar)
On Error Resume Next

Dim objDoc
Dim objFrm
Dim strFrm
Dim c

Set objDoc = mObjIE.Document
Set objFrm = objDoc.Forms(0)
strFrm = objFrm.innerHTML

c = InStr(1, strFrm, SearchChar, 1)

If c > 0 Then
objFrm.submit.Click
End If

Set objFrm = Nothing
Set objDoc = Nothing

End Function
133Name_Not_Found:04/12/27 22:26:22 ID:BSBqNadW

Private Function CloseIE
On Error Resume Next

mObjIE.Quit

End Function
134Name_Not_Found:04/12/27 22:27:53 ID:BSBqNadW

Main

Public Sub Main()

Dim wshShell
Set wshShell = WScript.CreateObject("WScript.Shell")

Call wshShell.Run("run.vbs ""[URL]"" ""[text file]"" ""承諾""", 0, True)
WScript.Sleep 160000
Call wshShell.Run("run.vbs ""[URL]"" ""[text file]"" ""承諾""", 0, True)
WScript.Sleep 160000
Call wshShell.Run("run.vbs ""[URL]"" ""[text file]"" ""承諾""", 0, True)

Set wshShell = Nothing

End Sub
135Name_Not_Found:05/01/06 02:11:15 ID:rMSXQ7e1
VBSで正規表現を使って文字列の取得が狙い通りにいきません・・・。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/jsgrpregexpsyntax.asp
「/<(.*)>.*<\/\1>/ "<(.*)>.*<\/\1>" HTML タグに一致します。」
の部分ですが、たとえば <BR>a</BR><BR>b</BR>を評価させると
そのまま検索結果に出てしまいます。狙いどころとしては
<BR>a</BR>と<BR>b</BR>がマッチオブジェクトにでてほしいのですが・・・
.*がの使い方がいまいちわかってないんだと思います。
136135:05/01/06 02:30:16 ID:???

.*を[^<]*ってやるといけた・・・
137135:05/01/06 02:50:02 ID:???
<BR>ab</BR><BR>bc</BR>からabとbcだけ取り出す方法ってありますかね・・・?やっぱ<BR>とかをRtrimとかで削るしかないんでしょうか?
138Name_Not_Found:05/01/06 03:45:13 ID:???
やっと何をしたいかわかった。

( )で囲むと後方参照のために記憶されるのでそれを使う。
前から順に\1、\2・・・

最初の( )による\1を使って閉じタグに利用している。最後の\3も同様。
        ↓
<(.*)>(.*)?<\/\1><(.*)>(.*)?<\/\3>
 ↑  ↑      ↑  ↑
 \1 \2      \3  \4

よってタグの間の部分は\2と\4に入る。

ところで評価対象は
「<BR>a</BR><BR>b</BR>」だけで他は一致する可能性はないんだな?
BR以外でも開始タグと閉じタグの組み合わせならマッチしてしまうが。
139Name_Not_Found:05/01/06 04:01:28 ID:???
安全策をとってこっちのほうがいいかな。

<(.*)?>(.*)?<\/\1><(.*)?>(.*)?<\/\3>

これもBR以外にもマッチしてしまうのは変わらないが。
140135:05/01/06 05:34:20 ID:rMSXQ7e1
>>138
具体的には2chブラウザをVB6で作ろうとしてます。板一覧を取得しツリービューに入れようとしてます。
http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html
ここから太字のタイトルと板URLとタイトルをノードに格納しました。いまのところ
親ノードに<B>地震</B>、子ノードに<A HREF=http://live18.2ch.net/eqplus/>臨時地震+</A>というようにタグつけたままノードに格納してます・・。
138さんがおっしゃってるのは
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jscript7/html/jsobjregexp.asp
の例のようなことですね?
proxomitoronを触ってるので意味は理解できます、しかしRegExp オブジェクトの使い方が良くわかってないので
その\2 \4を実際に取得する方法がわかりません・・・。

親ノードとして太字のタイトルのみをツリービューに追加する実際のコードです。
c = WebBrowser1.Document.Body.outerhtml      板一覧のHTMLソースです
a.Pattern = "<B>[^<]*<\/B>"             ここ変えないとだめですね<B>([^<]*)<\/B>こうですか?\1に地震が入ってるのでしょうか?
Set b = a.Execute(c)
For Each Match In b
TreeView1.Nodes.Add , , , Match.Value     valueにはタグつきで入ってるんでしょうか?\1だけ取り出すにはどう書けば・・
Next Match

とここまで書いて・・・Match.$1って書けばいいのかもと思いつつまだためす前に聞いてしまいました。
141135:05/01/06 05:50:42 ID:rMSXQ7e1
>>145
修正です。microsoftのURLがJscriptのものになってました・・・。なんかおかしいと思った・・・
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/vspropattern.asp
ここの(pattern)ってところがそれらしいですね・・
引数 pattern に指定した文字と一致します。一致する文字列が見つかったら、記憶されます。一致した部分は、Matches コレクションの項目 [0]...[n] から取得できます。
とあるけど・・・。globalをtureにしてるからコレクションの項目には<B>地震</B>とか<B>おすすめ</B>とかが入ってるんじゃ・・・。わからん・・・。
142135:05/01/06 06:21:42 ID:???
偶然見つけたページで解決できました。
そのものずばりでした・・・。
http://homepage1.nifty.com/MADIA/vb/vb_bbs/200311_03110053.html
SubMatchesがあるなんてしらなかった・・・。
143135:05/01/06 06:29:15 ID:???
>>140書き直しました。
c = WebBrowser1.Document.Body.outerhtml      板一覧のHTMLソースです
a.Pattern = "<B>([^<]*)<\/B>"  
Set b = a.Execute(c)
For Each SubMatches In b
TreeView1.Nodes.Add , , , SubMatches(0)
Next SubMatches
144135:05/01/06 06:36:08 ID:???
>>143あれ、これまちがってる・・・

c = WebBrowser1.Document.Body.outerhtml      板一覧のHTMLソースです
a.Pattern = "<B>([^<]*)<\/B>"  
Set b = a.Execute(c)
For Each match In b
TreeView1.Nodes.Add , , ,match.SubMatches(0)
Next Match
submatchesコレクションはmatchオブジェクトの中にあるのか・・・
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/vscolmatches.asp
こことか見てもわかりにくいな・・、図解で構造示してくれれば一発で理解できるのに・・。
145Name_Not_Found:05/01/06 14:19:53 ID:???
>>135
>具体的には2chブラウザをVB6で作ろうとしてます。
板違い。ム板へ逝け。
146Name_Not_Found:05/01/09 03:11:27 ID:???
スレ違いだな。VBScriptだし。
147Name_Not_Found:05/01/30 22:52:25 ID:cbvZtJCe
VBscriptでページを更新させたいです。

ページを更新させた後、サブプロシージャを実行させたいと思っています。
window.navigateで元ページを呼び出して更新させようと思ったのですが、
そうすると(作り方が悪いと思うのですが)どうしてもボタンを押すたびに更新
されてしまってサブプロシージャの実行ができません。

何か良い解決方法はないでしょうか?
148Name_Not_Found:05/01/30 23:10:00 ID:???
更新ってなんのこと言ってるんだ?
まさかリロードじゃないだろうな
149147:05/01/31 00:45:13 ID:???
そうです、リロードですorz
150Name_Not_Found:05/02/22 11:07:45 ID:8xcdEHF/
vbsを用いてIE上から市販の某地図ソフトを起動するスクリプトを作成しました。
Aのパソコンでは上手く動作するがBのパソコンでは動作しないといった問題がでてきました。
【ActiveXコンポーネントはオブジェクトを作成できません】とでてます。
共にWinXPでSP2適応、当然該当地図ソフトは同じようにインストール済み。
なぜでしょう?
***ソース***
<SCRIPT type="text/VBScript" Language="VBScript">
Dim PAtls
Sub onmap()
Set PAtls = CreateObject("ProAtlasW3.Map")
PAtls.EnableAddedText = True
b = PAtls.MoveTo("37/35/46210", "140/38/11950")
i = PAtls.AddTextEx("37/35/46210", "140/38/11950", "ここにいるよ", 0, 0, "", "")
End Sub
</SCRIPT>
************

151Name_Not_Found:2005/04/05(火) 00:08:43 ID:hhQqSBES
IBM Personal Comunications は実行キーが右Ctrlなのだが、
VBScript のSendkeysで右Ctrlを押す方法はないですかね?
152Name_Not_Found:2005/04/23(土) 15:51:39 ID:???
abc.exe というアプリケーションをVBScriptで停止させたいんですが
for each Process in _
 GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
 ("select * from Win32_Process where Name='abc.exe'")
 Process.terminate
Next
これで停止させられると書いてあったんですがどうもうまく行きません。
どこか間違ってるんでしょうか?
153Name_Not_Found:2005/04/24(日) 04:11:50 ID:???
>>152
やってみた→Process.Terminateの行の先頭に全角スペースがあり
それでエラーになってましたよ。
154Name_Not_Found:2005/04/24(日) 11:26:34 ID:???
>>153
あ、いや全角スペースは元々は無いです・・・
掲示板に張るときにTabが消えるんで全角スペースにしちゃったんです。
155152:2005/04/24(日) 11:29:09 ID:???
あれ・・・152のコードだけ実行したら普通に動きました。
すいません。

何がいかんのだろう・・・・
156152:2005/04/24(日) 11:35:43 ID:???
あぁ・・・どうもTClock2chだけ終了できないみたいです。
やろうとするとExplorerが落ちる。
157152:2005/04/24(日) 14:42:22 ID:???
TClock2chはそもそも強制終了するとExplorer巻き込んで落ちるらしい。
お騒がせしてもうしわけない(;´Д`)
158Name_Not_Found:2005/04/24(日) 22:29:24 ID:???
一件落着/ヨカタネ
159Name_Not_Found:2005/05/08(日) 14:47:29 ID:???
VBScriptってオブジェクト指向なん??
オブジェクト指向自体よく意味がわからん(´・ω・`)
160Name_Not_Found:2005/05/18(水) 21:15:16 ID:QaG22K1f
VBScriptでDOSコマンドを実行するのに
DOS窓を出さないでやる方法ってありますか?
161Name_Not_Found:2005/05/28(土) 12:48:12 ID:???
ん??普通にできなかったっけ?
162Name_Not_Found:2005/06/16(木) 02:30:49 ID:???
>>160
デフォルトでCScript.exeで実行してるだろ?
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsRunWscript.asp

2番目の記述は //h:wscript
だと思うんだが(笑)

ファイルの拡張子ごとに実行WScript.exeを指定してもいいぞ。
オリジナル拡張子の場合はオプションの
//E:vbs
を忘れないように。
163Name_Not_Found:2005/10/02(日) 23:09:36 ID:???
XMLにVBScript組み込んで使ってる人とかいます?
HTAとしてXMLの形式が使えないかなとか思ってるんですが無理ですか
164Name_Not_Found:2005/10/13(木) 05:48:45 ID:???
ホシュ
165VBS 信者の入りたて:2005/10/21(金) 14:47:37 ID:hPgmlKJT
WindowsXPを使っています。
ネットワーク接続にある、ダイヤルアップや広帯域に登録している接続先を
GUIで接続したり、切断したりせず、VBScriptで同じようなことを行いたいです。
何か良いサンプルがありましたら、ご教授ください。
あと、お薦めのVBScript(初歩レベル・長く使える辞書的・これ以上詳しく書いていないであろう超分厚い書籍)
など紹介していただければ助かります。

先人の知恵で感動したいです。
166Name_Not_Found:2005/10/22(土) 01:42:56 ID:???
お前ら、wsh使ってますか? part5
http://pc8.2ch.net/test/read.cgi/win/1126543183/
チのがいいかもよw
167Name_Not_Found:2005/10/22(土) 11:20:48 ID:SZoF3VJZ
168Name_Not_Found:2005/11/09(水) 00:34:15 ID:???
VBSでdosコマンドを使用したいのですがどのように記述したらよいのですか?
169Name_Not_Found:2005/11/09(水) 08:04:47 ID:???
bat使えよ。
170Name_Not_Found:2005/11/13(日) 16:57:27 ID:???
>168
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run("DOS_COMMAND")
171Name_Not_Found:2005/11/15(火) 19:02:33 ID:???
oShell.Run("cmd.exe /c DOS_COMMAND")
これでもおkじゃなかったっけ
テキトに書いたから書式違うかもシレンが。
172Name_Not_Found:2005/11/23(水) 02:34:36 ID:???
ホシュ
173Name_Not_Found:2005/12/21(水) 15:04:18 ID:???
ttp://www.yc.musashi-tech.ac.jp/~prog/c/source/VBS10-1.html

operaじゃ_onclick受け付けないんでしょうか?
174スクリプトン博士:2006/01/05(木) 05:01:12 ID:ZrPrVBmT
このスクリプトで、改行がうまく出来んのだけど!
教えてちょ〜だい。

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "実験終わり \r\nテスト\n改行",3,"ポップアップメッセージ",vbInformation
175Name_Not_Found:2006/01/05(木) 23:32:48 ID:???
>>174
chr(13)かchr$(13)のどっちかでできないか?
176Name_Not_Found:2006/01/05(木) 23:40:10 ID:???
vbNewLineのほうがナウいよ
177スクリプトン博士:2006/01/06(金) 03:53:18 ID:tt5Gu8mV
chr(13) vbNewLine どっちでもできました。
サンキュウ〜!
178Name_Not_Found:2006/01/09(月) 16:46:21 ID:???
>>176
へー知らんかった。ありがとう
179Name_Not_Found:2006/01/12(木) 16:29:44 ID:???
CDO(Microsoft Collaboration Data Object)というのを使ってVBScriptだけで
メールが(HTMLメールさえ)送れるのにはちょっと驚いた。
180Name_Not_Found:2006/01/17(火) 18:31:27 ID:cTNq8mQV
Session.Timeout = 20 '(分)
って最大何分まで設定できるんすか?
120では無理だった・・・
181ビギナ〜:2006/01/29(日) 17:15:16 ID:???
はじめまして!
文字列の中に"ダブルコーテンションを入れたいのですが…
どうすればいいでしょうか?
182Name_Not_Found:2006/01/29(日) 20:25:09 ID:??? BE:186318656-
msgbox "文字列の中に""ダブルコーテンションを入れたいのですが…"
msgbox "文字列の中に" & chr(34) & "ダブルコーテンションを入れたいのですが…"
"の前に"でエスケープするかchr関数で文字コードを指定
183Name_Not_Found:2006/05/11(木) 15:29:33 ID:???
あるフォルダのサイズを得る為に、ヘルプを参考に
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:\")
MsgBox f.size
の様な VBS を書いて実行すると、「800A0046:書き込み出来ません」
のエラーが出てしまいます。
ディレクトリのサイズを参照しているだけなのに、書き込めないとは
どういう事なのでしょうか・・・?
検索すると、権限の問題らしいのですが、Administrator で実行
していますし・・・
184Name_Not_Found:2006/05/11(木) 19:27:44 ID:???
>>183
VBプログラマ質問スレ(6.0以前) Part48
http://pc8.2ch.net/test/read.cgi/tech/1146678926/
に移動します。
185Name_Not_Found:2006/05/12(金) 12:56:45 ID:???
英語だと

Microsoft VBScript runtime error '800a0046' Permission denied
186Name_Not_Found:2006/07/03(月) 21:22:52 ID:Rkkz08+Y
Aタグでリンクを埋め込んだ文字列で、
クリックした時に、「はい」「いいえ」を選択させて、
「はい」なら、そのまま処理続行
「いいえ」なら処理中断

としたいのですが、
どうすればいいのでしょうか?
187Name_Not_Found:2006/07/04(火) 13:17:41 ID:???
>>186
よくある画面遷移の確認処理をVBSでってこと?
こういうやつでいいのかな。

<html><head>
<script language="vbscript">
Function AskYesNo(sUrlAtYes,sUrlAtNo)
If MsgBox("OK ?",vbYesNo,"Confirm") = vbYes Then
Window.Navigate sUrlAtYes
Else
Window.Navigate sUrlAtNo
End If
End Function
</script></head><body>
<a href="#" onclick="vbscript:AskYesNo 'nextpage.html', 'cancelpage.html'">Next Page</a>
</body></html>
188Name_Not_Found:2006/07/06(木) 16:01:50 ID:+tb83sfZ
IE環境で、AJAXでサーバのデータを読み込んで
VBScript(JavaScript)からExcelを起動させ、読み込んだデータを使って
線を書きたいんですがうまくいきません。
Shapes.Addlineメソッドって使えないんでしょうか。
IEのJavaScript環境からExcelに対して有効なメソッドって
どこかに解説ないでしょうか。

一応イントラなんでセキュリティ云々て話は気にしないでください。
189Name_Not_Found:2006/07/08(土) 11:06:35 ID:???
書籍スレで誘導されてこちらに来ました。

VBscriptの全くの初心者なのですが、IEの自動操作をしたいと
考えていて。何かオススメの書籍があれば教えていただきたいのですが。

ここの過去ログで同様の質問があったようなのですが、その際は
レスがなかったことから、あまり初心者向けの本はないということなのでしょうか?
190Name_Not_Found:2006/07/08(土) 11:42:07 ID:???
IEの自動操作の意味不明
191189:2006/07/09(日) 05:57:52 ID:???
IEオブジェクトの作成のことです
192Name_Not_Found:2006/07/09(日) 09:40:16 ID:???
CreateObject("InternetExplorer.Application")でObjectを作り
PropertyやMethodはMSDNで探せば本なんかいらんやろ
193Name_Not_Found:2006/07/11(火) 00:18:45 ID:???
ttp://www.microsoft.com/japan/technet/prodtechnol/windowsserver2003/technologies/directory/activedirectory/stepbystep/adbulk.mspx

ここの真ん中に書いてあるようにActiveDirectoryのデータ
をテキストに出力したいんだけどどういう書き方がありますか。

またいい本があったらおせーてくらはい。
194Name_Not_Found:2006/07/11(火) 10:22:39 ID:???
そこに書いてあるとおり書いたらどうか
195Name_Not_Found:2006/07/11(火) 18:06:10 ID:???
vbscriptでIMEを制御しようとなった場合、APIを利用する事になるんでしょうか?
196Name_Not_Found:2006/07/11(火) 19:46:08 ID:???
imeModeではだめか。APIを直接使う方法があるなら知りたいぞ。
197Name_Not_Found:2006/07/21(金) 09:21:59 ID:EznSaTWZ
質問です。
split関数のdelimiterを複数指定する方法を教えてください。

たとえば、aもしくはbでスプリットしたい場合、
split(text ,"a|b")
このように書きましたがダメでした。

よろしくお願いします。
198Name_Not_Found:2006/07/27(木) 15:30:12 ID:FhyySxvd
つ[VBScript Hackers Technique]だが

http://www.seshop.com/detail_cbook.asp?pid=42539
翔泳社SEショップまでが、この本の表紙写真を間違えてる・・・
199名無しの初級回答者:2006/08/15(火) 03:59:59 ID:???
>>197
split(text ,"a")で、分けたあと、
split(text ,"b")で、さらに分割するよろし。
200Name_Not_Found:2006/08/24(木) 12:47:43 ID:Sgul8h2H
エクセルのマクロを呼ぶ場合はどのようにするのでしょうか?
以下でMacro1というマクロを実行しようとしましたが
「オブジェクトでサーポートされていないプロパティです」
エラーが出てしまいます。

Set objSelection = Excel.Workbooks(1).Worksheets(1).Macro1
201Name_Not_Found:2006/08/24(木) 21:43:03 ID:???
>>200
「★WSHでCGI★JScriptVBScript」スレにいた人ですよね
Web製作板ではなく↓に誘導しておきます。
WSH(・∀・)スレッド!
http://pc8.2ch.net/test/read.cgi/tech/1055075469/l50
202Name_Not_Found:2006/08/31(木) 20:23:23 ID:b7D4rxbH
ホームページ制作王は、世界の権威として名高いCOMDEXが
21世紀のワールドスタンダードに認定したWebパブリッシングアプリケーションである。

ホームページ制作王に不可能はない。
不可能があるとすれば、そこが人類の英知の限界点である。

21世紀、世界のWebはホームページ制作王を中心に回っていくのである。
にもかかわらず、ここ日本では、心ない風評のため、まだまだ普及に
遅れがみられる。

ホームページ制作王を普及させないかぎり、我が国のWebは、
世界の趨勢の後塵を拝するばかりである。

世界が認めた高性能!ホームページ制作王
http://pc8.2ch.net/test/read.cgi/hp/1106508682/
203Name_Not_Found:2006/09/11(月) 23:49:26 ID:4c8WPGtb
JpGraphで作ったphpにASP(VBScript)からPOSTでデータを渡して、HTML上に表示するにはどうしたらよいでしょうか?
MSXML2.ServerXMLHTTPでPOSTしようと思ったのですが、HTMLでの表示がうまくいきません。
お助け下さい。。。
204Name_Not_Found:2006/09/12(火) 02:05:08 ID:???
ASPってなあに?
205203:2006/09/12(火) 09:14:19 ID:???
すみません、PHPのスレとマルチでした。
ここでの質問を破棄します。
206Name_Not_Found:2006/09/20(水) 11:52:27 ID:???
javaで言う所のArrayListってVBで使えますか?
javaで言う所のHashMapは、CreateObject("Scripting.Dictionary")で使用できたのですが。
java上がりのVB初心者なので、基本がjavaになってすいません。
207Name_Not_Found:2006/09/21(木) 12:51:52 ID:???
VBScript で、C でいう printf みたいな事は、どうすれば出来るのでしょうか?
デバッグの為、途中の結果を随時コマンドプロンプトに表示したいのですが・・・
MsgBox だと処理が止まってしまうので・・・
208Name_Not_Found:2006/09/21(木) 12:55:59 ID:???
>>207
ホストは何?
wsh, ie, asp
209Name_Not_Found:2006/09/21(木) 13:08:44 ID:???
>>208
コマンドプロンプトから、*.Vbs ファイルを普通に (?) 起動する場合を
想定してますので、多分 wsh という事になると思います。
210Name_Not_Found:2006/09/21(木) 14:11:37 ID:???
クリップボードからデータを取得して、取得した文字でキーボード入力をさせることはできるでしょうか。
211Name_Not_Found:2006/09/21(木) 18:35:47 ID:???
>>209
cscript.exe で実行するなら WScript.Echo で

>>210
IEのclipboardData.GetDataや
WshShellのSendKeysとか使えば出来るかもね。
212Name_Not_Found:2006/09/21(木) 20:59:31 ID:???
>>211
Vbs を直接実行したら、コマンドプロンプトが
開いて文字が表示されると思ったら、
MsgBox と同じになるんですね。
CScript で実行する事にします。
有難う御座いました。
213Name_Not_Found:2006/09/22(金) 11:50:41 ID:???
>>211
Set objShell = WScript.CreateObject("WScript.Shell")
Set IE = CreateObject("InternetExplorer.Application")

objShell.SendKeys IE.getData("text")

を実行したら、getData("text")がないといわれました。
どうすればよろしいでしょうか?
214Name_Not_Found:2006/09/27(水) 19:43:16 ID:???
いろいろなサイトを閲覧して、ローカルPCに溜まったCookieファイルを、VBScriptで定期的に自動消去する処理は、どうすれば良いでしょうか?

http://www.happy2-island.com/vbs/cafe02/capter00210.shtml
ファイルの削除を参考にしてみましたが、Cookieファイルの指定がうまくできませんでした。
215Name_Not_Found:2006/09/27(水) 20:02:12 ID:???
>>214
ブラウザで設定する方が早くね?
216Name_Not_Found:2006/09/27(水) 20:40:12 ID:???
>>215
手動でCookieを削除するなら、ブラウザを操作して消せば良いですが、
自動でCookieを削除するなら、やっぱプログラムで行なうしかないですかね?

Googleで検索して、Refresh2メソッド、CleanOnlineAppCacheメソッド等を利用すればOKみたいな情報に当たりましたが、いまいちうまくできません。
217Name_Not_Found:2006/09/28(木) 05:59:57 ID:???
なんにしても、マルチしてるような奴に教えることは何もないし
ローカルクッキーの削除なんてWeb制作板で扱う内容じゃない。
まあ、かくいう俺も最初は迷って、VBSでの方法を見つけるまでは
クッキーの削除にはバッチ使ってたけどな。
218Name_Not_Found:2006/10/21(土) 14:28:08 ID:???
>>211
>IEのclipboardData.GetData
を使うために、about:blankを信頼済みサイトに登録するという話を聞きますが、
副作用で、不都合や危険はないのでしょうか?
219Name_Not_Found:2006/10/23(月) 11:40:38 ID:rARn6wnm
VBS("C:\AAA.VBS")にて他のVBS("C:\BBB.VBS")を実行するにはどういう記述をすればいいんですか?
220Name_Not_Found:2006/10/23(月) 18:24:31 ID:???
WScript.CreateObject("WScript.Shell").Run("C:\BBB.VBS")
221219:2006/10/23(月) 21:21:57 ID:???
>>220
thx
222Name_Not_Found:2006/10/30(月) 00:00:20 ID:Ce0TSOmc
教えてください。
htmlに、VBscriptを埋め込みましたが思うように動作しません。
埋め込んだVBScriptは外部ファイルtest.vbsとして呼び出します。
test.vbsの内容は、ADSIを使ってユーザーの一覧を出力するものです。
test.vbsを単独で実行するぶんはOKなのですが
htmlからtest.vbsを呼ぶとなんの反応もありません。
なにがいけなのでしょうか?
223Name_Not_Found:2006/10/30(月) 00:18:35 ID:???
>>222
ステータスバーのビックリマーク
224Name_Not_Found:2006/10/30(月) 00:38:03 ID:???
>223
ビックリマークでるので、それをクリックして実行を許可しているが何も反応がない。
他に何がいけないのでしょう・・・。
225Name_Not_Found:2006/10/30(月) 03:35:00 ID:???
>>224
それはステータスバーじゃない。
もしステータスバーが表示されていないなら「表示」しろ。

あとは次のページでも見て悩め。
「Internet Explorer のスクリプト エラーをトラブルシュートする方法」
http://support.microsoft.com/kb/308260/ja
226Name_Not_Found:2006/10/30(月) 20:28:07 ID:JHhuK8DF
>225
ありがとうございました。
ひとまず、htaにすることで解決としました。
htmやhtaにスクリプトを埋め込む場合、いろいろと
クセがあるんですね。慣れればどうってことないかもしれませんが
わかりづらいし、サンプルがあちこち分散しているので
調べるのに時間がかかりすぎてしまう。
まっ、しょうがない。地道にやります。
227Name_Not_Found:2006/11/11(土) 14:26:56 ID:???
>>197
>split(text ,"a|b")
split(replace(text,"a","b"),"b")
228Name_Not_Found:2006/11/14(火) 22:23:25 ID:???
229Name_Not_Found:2006/12/12(火) 13:46:56 ID:nR9OWkpr
正規表現を使って例えばURLを抽出する場合
"((http|https)://[\w,_,\.,/,\-]+)"
のように記述しますよね?この様なパターンで
タイトルなどタグに囲まれた要素を抽出したいのですが
どのように記述すればよいですか?
超初心者です。よろしくお願いします。
230Name_Not_Found:2006/12/12(火) 14:02:08 ID:???
231Name_Not_Found:2006/12/13(水) 02:24:57 ID:gS/ZIeei
test.vbsというファイルをブラウザから「開く」を行う際、以下のエラーが出て
スクリプトが走ってくれません。一度ローカルにvbsファイルを保存すれば正常に処理が走ります。

Windows Script Host
スクリプト ファイル "C:\Document and Setting\user\LocalSettings\Temporary Internet Files\Content.IE5\PPEBEQ\test[1].vbs

原因は何でしょうか?どなたかご存知の方お願い致します。
232Name_Not_Found:2007/01/08(月) 22:46:22 ID:PvyzZ9L1
MSHTML Command Identifiersを使うためのGUIDの設定値を
教えてください。

InternetExplorerオブジェクトのExecWBメソッドを使う際、
第一引数にcmdIDとして、MSHTML Command Identifiersを
指定するのですが、スクリプトを実行するとエラーが発生します。

第一引数にOLECMDIDを指定する(古い方法?)とエラー無しで実行できますが、
この場合には、OLECMDIDを使うためのGUIDとして、正しい値を設定できています。
なので、MSHTML Command Identifiersを指定してエラーが発生する原因は、
GUIDの設定値が正しくないためと考えています。

233Name_Not_Found:2007/01/28(日) 20:11:25 ID:WvlCrBEP
ここ以外に適切な板があれば教えてください。

Vbscriptを考えています。
現在時刻をゲーム内の時刻に置き換えて
ページ上で表示させようとしています。
どなたか分かればご教授ください。

<html>
<head>
<script language="vbscript">
Dim iHour = Hour(Now)
Dim iMinute = Minute(Now)
Dim iSecond = Second(Now)
Dim mhour
Dim mminute

Sub form_onLoad()
mhour = ■ihourから計算■
minute = ■iminuteから計算■
End Sub
</script>
</head>

<body>
<form id="form">
<%=mhour%> : <%=mminute%>
</form>
</body>
</html>
234Name_Not_Found:2007/02/05(月) 22:03:07 ID:c5wxnQrM
すみません。
inputboxでリストを配列に入力したいです。
具体的には

abc
def
ghj

というリストをそのままコピペでinputboxで入力して配列strに入れたいのです。
inputboxでは一行しか入らず改行が認識されません。
むりなんでしょうか。
235Name_Not_Found:2007/02/05(月) 22:10:05 ID:o4ROB9X3
>>234 vbの基礎を勉強しましょう
236Name_Not_Found:2007/02/06(火) 00:01:49 ID:???
>>234
abc,def,ghiと入れて、split
237Name_Not_Found:2007/02/06(火) 00:18:05 ID:lHro6i9V
>>234
やっぱりカンマをいれなきゃだめですか。
リストをそのまま張りたいんですよ。
うーん、わからん。
inputboxじゃ無理っぽいとはおもってるんですが。
238Name_Not_Found:2007/02/06(火) 00:20:06 ID:lHro6i9V
テキストファイルから読み込みとかできるのかも。
もう少し勉強します。
239Name_Not_Found:2007/02/06(火) 00:24:26 ID:???
>>234
クリップボード
240Name_Not_Found:2007/02/06(火) 01:52:46 ID:???
仕様上の制限なんだから、「InputBox」か「そのまま貼り付け」かどちらかを捨てろ。
複数行扱えるもの(状況によって何が使えるかは変わってくるが)にそのまま貼るか、
InputBoxに1行に直した物を入れるか。

つーかテキストファイルに書かれてるなら普通に読めばいいだけじゃん。
「コピー+クリップボードから取得」でもいいけど、直接ファイルを読めばコピー操作すら必要ない。
241Name_Not_Found:2007/02/06(火) 21:56:13 ID:???
>>240
ありがとうございます。
242Name_Not_Found:2007/02/07(水) 00:24:13 ID:0t4ksJaU
inputboxにて、

<input type="text" name="a" value=<%= sTmp %>>

として、変数sTmpに→ "あ" というように"を含む文字列を
入れて表示させたいのですが、「あ」の前の"でvalueが切れてしまいます・・・
value='<%= sTmp %>'とした場合にも同様にsTmpに「’」が入ってきた場合に
文字が切れてしまいます。

何かよい対策ってありますでしょうか?
243Name_Not_Found:2007/02/07(水) 19:14:20 ID:???
>>240
テキストファイル読み込みを勉強します。
244Name_Not_Found:2007/02/12(月) 03:00:27 ID:5ZnxylX0
すいません。質問です。
objectからのWinMediaPlayerで

vbスクリプトからファイル名を読み込ませるには
どうすればいいのですか。
245Name_Not_Found:2007/02/12(月) 03:13:13 ID:???
>>244
MSDNアーカイブに載ってる
246Name_Not_Found:2007/02/12(月) 03:25:05 ID:1ADXoYYG
<script language="VBScript">
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 2000
WshShell.AppActivate "指定したタイトル名のブラウザー画面"
</script>


上記のようなVBScriptで、一定の待機時間待って任意の
タイトル名のブラウザーをアクティブにするスクリプトを
作成したいのですが、以下のようなエラーとなってしまいます。

-------------------エラー内容-------------------
「エラー:オブジェクトがありません。:'WScript'
コード:0
------------------------------------------------

どなたか解消方法が分かる方がいらっしゃいましたら、教えて
頂けますでしょうか?
247Name_Not_Found:2007/02/12(月) 03:38:25 ID:???
>>246
WScriptってのは、文字通りWScript.exe又はcscript.exeで実行したときに使えるオブジェクト。
IE(IEコンポのブラウザ)で実行したときは、IEのwindowオブジェクトなどが使える代わりに
WScriptオブジェクトは使えないので、解消方法は無く「不可能です」というのが回答になる。

もっともWScript.Sleep以外で、一定時間後に処理を実行する構造を作ることは可能だが
IEの機能であってVBSの機能ではないのでスレ違いだな。
248246:2007/02/12(月) 03:42:17 ID:1ADXoYYG
>>247

>IE(IEコンポのブラウザ)で実行したときは、IEのwindowオブジェクトなどが使える代わりに
>WScriptオブジェクトは使えないので、解消方法は無く「不可能です」というのが回答になる。
そうでしたか・・・
他に何か方法が無いか、考えて見ます。
レスありがとうございました。
249Name_Not_Found:2007/02/12(月) 13:35:08 ID:???
>>248
HTA でスクリプトを一時的に停止する方法はありますか
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/mar06/hey0330.mspx

MS公式ページだけど、clearTimeout て必要なのかな?
250Name_Not_Found:2007/02/25(日) 16:28:34 ID:???
<script language="VBScript">
Window.Open "指定したURLアドレス"
</script>

上記の通りVBScriptで、指定したURLアドレスをIEで起動させた後、
WEBページのタイトル名等から、起動させたブラウザー画面を指定して、
アクティブにさせてから、ブラウザー画面を閉じるスクリプトを考えています。

どなたかお分かりになる方がいまししたら、教えて頂けませんか?
251Name_Not_Found:2007/02/25(日) 16:34:45 ID:???
どこが分らないのか具体的に
252>>250:2007/02/25(日) 17:29:36 ID:???
openオブジェクトで、ブラウザーを起動させる事は出来ます。
その起動させたブラウザーを、閉じる方法が分かりません。
閉じ方としては、タイトル名を指定して起動させたブラウザーを
一旦アクティブにしてから、閉じさせたいと考えています。
253Name_Not_Found:2007/02/25(日) 18:10:59 ID:???
Set NewWin=window.open("指定したURLアドレス")
CreateObject("WScript.Shell").AppActivate NewWin.document.title
NewWin.close
254Name_Not_Found:2007/02/27(火) 01:27:54 ID:???
自身を常に最前面に表示させるにはどうしたらいいでしょうか?
SetWindowPosってVBSで使えます…?
255Name_Not_Found:2007/02/27(火) 01:46:09 ID:???
使えません。
256Name_Not_Found:2007/02/27(火) 02:59:43 ID:???
てことは無理ですかね…。
なんか調べても一向に実例とか出てこないし…。
257Name_Not_Found:2007/02/27(火) 13:44:34 ID:???
この要領でやれば
Set Application=CreateObject("Excel.Application")
Application.Visible=True
msgbox Application.ExecuteExcel4Macro("CALL(""Kernel32"",""Sleep"",""JJ"",5000)")
Application.Quit
Set Application=Nothing
258Name_Not_Found:2007/02/27(火) 13:59:09 ID:???
>>250は、聞くだけ聞いて、食い逃げかよー。無礼者
259Name_Not_Found:2007/02/28(水) 22:25:05 ID:95MUo+W7
すみません。vbsでIEのフォームに自動入力したいのです。
で、できないところがありまして質問します。
上から

コンボボックスA(あ、い、う)を選べる
テキストボックスB
チェックボックスC

というサイトです。

どうもBとCにinputタグにdisabledと書いてあり入力規制?されてます
Aのコンボボックスを選択すると入力できるようになります。
vbsはこうしてみました。
IE.document.form.A.value="あ" 又は IE.document.form.A.selectedIndex=0
IE.document.form.B.value="か"
IE.document.form.C.checked=true

これではB,Cの規制が解除されません。
(一応文字が白抜き表示で入っているように見えるでもデータとしては入力されてない)。
手動で選択すると解除されます。
Aのソースが<select style="width:10" name="A" onChange="F()">
となっているのでこのonchangeが怪しいと思っているのですがどうでしょうか。
どのようにしたらいいんでしょうか。
<script language="JavaScript" src="xxx.js">
とソースにあるのでJavaも関係あるのでしょうか。あまり良く分かってません。

お助けください。
260Name_Not_Found:2007/02/28(水) 22:39:56 ID:???
ここはWeb『制作管理』板
作る人のための板であって、使う人のための板じゃないよ
261Name_Not_Found:2007/11/05(月) 15:37:11 ID:DtzEEIF3
フォームからaspをアクションにしてアップロードした場合、
aspのアップロードでbasp21を使っていて、type=fileのテキストボックスに
何も入力されていなかった場合などのエラーはどうやって取得するんですか?
262Name_Not_Found:2008/07/17(木) 19:44:11 ID:yOfZNQT0
下記のようなスペース区切りのデータで数字の部分で並び替えしたいと思います。

AA 1 BBB
AA 4 BBB
AA 5 BBB
AA 3 BBB

VBScriptではどのような関数を使えばよいでしょうか?


263Name_Not_Found:2008/07/18(金) 17:27:48 ID:???
Sort関数を"作れば"いいんだよ
組込関数には並べ替えが出来る物は無いから

しかし、サンプルは腐るほど転がってるから何も困らないだろう
コンポーネントなら並べ替え機能を有したものもあるし
264Name_Not_Found:2008/07/18(金) 19:15:36 ID:???
>>263
何熱くなってんだ。そんな丸投げ質問は放置しとけよ。
265Name_Not_Found:2008/07/26(土) 11:08:07 ID:???
どうやるのがスマートなんだろね。
awkでも使えれば楽勝だけど、Web製作板だしね。

ディクショナリオブジェクトで一旦全行を配列に突っ込んで、
それを読み出しながら、splitで真ん中の数字抜いて、ifで分けていくとか。
266Name_Not_Found:2008/07/26(土) 15:47:18 ID:???
> ディクショナリオブジェクトで一旦全行を配列に突っ込んで、
> それを読み出しながら、splitで真ん中の数字抜いて、ifで分けていくとか。
結局、二次元データのソートアルゴリズムの話になるわけで、板違い気味だよな。
ソート自体についても二次元データへの対応についても、アルゴリズムについては
既に確立されたものがいくつもあるあけで、今更ここで話題に挙げる程のことでもないし。
267Name_Not_Found:2008/07/26(土) 16:54:29 ID:???
確かにWeb制作固有の話題じゃないけど、そこまで目くじら立てる事でも無いんじゃね?
そもそもVBScriptのスレってここしか無いんだよね。

関連性のあるスレだとWSHとかVB6.0とかあるけど。

もっとも>>263がまだ見てるとは思えんが(w
268Name_Not_Found:2008/07/31(木) 16:54:55 ID:???
VBScript勉強開始して1週間です。ちょっと質問があってきました。

InputBoxの自作は出来ないものでしょうか?
デフォルトのInputBoxは1行しか入力部が無く、改行も対応していないため若干不便です。
入力部を3行ほどの入力部の物を作りたいのですが、VBScriptの機能を超えているのでしょうか?

また、出来るなら入力部・出力部(以前入力したものを表示する)を分けて2段構えにしたいのですが、こちらも無理なのでしょうか?
269Name_Not_Found:2008/07/31(木) 19:08:40 ID:???
VBSそのものにはGUIの自作機能はありません
270Name_Not_Found:2008/08/01(金) 15:02:39 ID:???
>>269
回答ありです。大人しくInputBoxでガマンします・・・
271Name_Not_Found:2008/10/24(金) 11:28:59 ID:???
パスが正しいかどうかの判断ってどうやるの?
test = "C;\Documents and Settings"
こんな風にコロンをセミコロンと間違っていた場合とか
ファイル名フォルダ名に使用できない文字(\ / : * ? " < > | )が
含まれたパスをFalseとしたい場合とかです

272Name_Not_Found:2008/10/24(金) 12:15:16 ID:???
正規表現か、実在するパスのチェックだったら
FileSystemObjectのexistsとか。
273Name_Not_Found:2008/10/24(金) 12:53:27 ID:???
FileExists、FolderExistsのことだよね?

test = "C;\test.txt"
~~~
↑を
FileExists(test)で戻り値見るとFalseになるんだよね
On Errorに引っかかればよかったんだけど、普通にFalseになるから
パスとして誤っているからFalseなのかファイルとして存在しないから
Falseなのかが判断できない
274Name_Not_Found:2008/10/24(金) 12:54:08 ID:???
半角スペースが削除されちまったい

正)
test = "C;\test.txt"
    ~~~
275Name_Not_Found:2008/10/24(金) 19:35:41 ID:???
>>274
セミコロンに見えるのは気のせい?
276Name_Not_Found:2008/10/24(金) 19:48:52 ID:???
>>271から読んでいただけると助かります
277Name_Not_Found:2008/10/24(金) 20:39:42 ID:???
>>276
ああ、すまんすまん。

実在しているパスかどうかは問題でなく、パスとしての文字列が正しいのかだったら
正規表現で判定すればいいだけだと思うけど、なんかまずいの?
278Name_Not_Found:2008/10/24(金) 22:21:44 ID:???
ここ、Web制作板なんだが
279Name_Not_Found:2008/11/19(水) 05:31:17 ID:rtx9wZ5c
>268
そういう時はHTSを使うんだ。
280Name_Not_Found:2008/11/25(火) 05:51:28 ID:BrZxxCS2
変なスレが浮上してると思ったら
4ヶ月前のレスに亀レスしてるアホか
281Name_Not_Found:2009/02/02(月) 23:20:44 ID:???


VBSCRIPTは知っとくと何かと便利だわ!
282Name_Not_Found:2009/11/07(土) 04:29:56 ID:???
>>273
> FileExists(test)で戻り値見るとFalseになるんだよね
え?
それで正解じゃないの??
283Name_Not_Found:2009/12/20(日) 22:21:09 ID:???
>>282
よーするに正規表現後にFileExists
284Name_Not_Found:2010/05/21(金) 20:58:19 ID:4gzhTSC3
初めまして。
開発経験がほとんどないのですが、来週からVBS+HTML(ASP)の開発を一人で任されることになってしまいました。
ちょっと焦ってパニックになりそうです。また分からないことがあった場合は色々と質問させて下さい。

VBSはデバッグが難しいと聞きいています。
FireFoxを使うと、ブラウザに直接エラー原因が表示されると聞きましたので、
私はその方法でデバッグしようと思っています。
みなさんはどのようにデバッグされているのでしょうか。
ちょっと調べてみたのですが、Visual Web Developer などを使用したら、
少しは開発が楽になりますか?
285 忍法帖【Lv=11,xxxPT】 :2011/10/26(水) 22:22:12.41 ID:???
> 開発経験がほとんどないのですが、来週からVBS+HTML(ASP)の開発を一人で任されることになってしまいました。
> ちょっと焦ってパニックになりそうです。

なんてかわいそう。
今どうしてるだろ。
286Name_Not_Found:2011/10/27(木) 20:42:15.20 ID:???
>>285
今はもうScriptNiceGuyになってるさ
287まつたけ:2011/11/19(土) 23:49:30.91 ID:???
>>1
こんとゃ?
288Name_Not_Found:2012/09/15(土) 11:27:03.58 ID:???
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね 
創価死ね 
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね 
創価死ね 
289Name_Not_Found:2012/10/28(日) 12:38:57.97 ID:F4wYrQD8
あるwebページに

<form name="comment_area" id="comment_area" action="http://hogehoge/hagehage/myphp.php" method="post">
<input type="text" tabindex="1" name="my_sub" accesskey="a" class="input1" value="123456789" />
<p id="sendbtn">
<input type="submit" tabindex="3" name="neet" accesskey="c" value="ニート君" />
</p>
</form>

っていうようなソースがあるんだけど、
VBScriptでこのhttp://hogehoge/hagehage/myphp.phpに適切にPOSTする方法を教えてください

プログラミングは中級者なんだけどWeb関係のプログラミングは初心者でわかりゃない。

エロい人教えてください。
290Name_Not_Found:2012/10/28(日) 13:50:01.53 ID:???
スレ違い
291Name_Not_Found:2012/11/11(日) 15:36:37.38 ID:CHYVVgDN
質問お願いします。
htmlファイル内の<script language="vbscript" runat="server">
タグ内で、サーバ上のテキストファイルに書き込みを行いたいのですが、
うまく行きません。
以下がソースとなります。
<html>
<head>
<script language="vbscript" runat="server">
Dim fso, tso
Set fso = CreateObject("Scripting.FileSystemObject")
Set tso = fso.OpenTextFile(Server.MapPath("/file.txt"), 8, True)
tso.Write("書き込みテスト")
tso.Close()
Set tso = Nothing
Set fso = Nothing
</script>
</head>
<body>
テストページ
</body>
</html>

以上のhtmlファイルをブラウザから呼び出しても、
サーバ上にfile.txtが作成されないのです。

解決法をご教授いただけたら幸いです。宜しくお願いします。
292Name_Not_Found:2012/11/17(土) 00:29:44.99 ID:???
>>291
対象ディレクトリに書き込み権限があるか確認。
あとひょっとしたらserver.createobjectにしなければいけなかったかも。

最新のiisだと他に何かあるかもしれない。
情報はもう少ない上、質問に答えてくれる人もなかなかいないかもしれないですが頑張って下さい。
293Name_Not_Found:2012/12/25(火) 00:08:40.22 ID:YKJiebSm
VBSで.NETのWindows.Forms呼びたいんですが
COMの相互呼び出しには対応していないようです
なにか方法ありませんか?
自分でラッパー作るしかない?
294Name_Not_Found:2012/12/25(火) 06:14:18.32 ID:???
自分でラッパー作れば解決することが解ってるならそれをやればいいだけの話
別に1から書くのではなく、既にある物をラップするくらい簡単な作業なんだからさ
295Name_Not_Found:2013/04/03(水) 00:16:25.16 ID:???
解答もとむ

新しいyahooのメアド作ったので今までにメールをくださった方
&メールを送った方にメアド変えますメールを送りたい。
しかし、俺は腐れ縁がたくさん(小中高+サークル+同期、同僚など1000人ほど)
おって手動はめんどい。
大事な人だけに送ろうとしても、下手したら同窓会の案内などをもらい損ねるかもしれん。

そこでプログラムくんで一斉送信したいのだが誰かソース教えてくれ。

条件:
・受信BOXと送信BOXにはいっているメールの送り主と宛先をすべてBCC欄に入れて送信できる。
・重複は省く。
・内容はテンプレでおk。
・開発環境が悪いので.jsか.vbsで。
296Name_Not_Found:2013/08/04(日) 23:22:03.40 ID:Qug4id4r
wwwww
297Name_Not_Found:2013/08/14(水) 10:17:52.45 ID:???
VB =糞
298Name_Not_Found
正解