VBscriptについて語りましょう
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/04/15 17:22ID:kNVV4hfo語りましょう。質問もOKです。
0002Name_Not_Found
02/04/15 17:28ID:++iJdcm0僕は、一応、>>1の友達です。
>>1に、紹介されてきたのですが
綺麗なスレッドですね。
これも>>1が作ったスレッドですよね?
あの人は、昔から人には優しい人なんです。
実は、>>1はボクシングをやっているんです。
この間、こっそりと会場に行って、>>1の
試合を見てきました。いや〜、あの人はすごい!!
見た目は、弱い男子だけど、試合では強すぎる…。
相手は、チャンピオンだというのに、>>1は
相手を1Rで倒したんですよ。しかも無傷で…。
そんな、優しくて強い人と仲良しだなんて
ラッキーな方ですね。もしかして、>>1の
事が好きなのですか?では。
0003Name_Not_Found
02/04/15 17:31ID:GuCVhOqb0004Name_Not_Found
02/04/15 17:35ID:GuCVhOqb0005nobodyさん
02/04/15 18:00ID:kNVV4hfoここがいいんでないの?
http://www.shirakami.or.jp/~eichan/vbs/vbsfr.html
0006Name_Not_Found
02/04/15 20:31ID:MHa/qbGS0007Name_Not_Found
02/04/15 20:34ID:QVq4xMoQtatuなのかよ!
0008Name_Not_Found
02/04/15 20:38ID:L9KdSKcgうんにゃ、JavaScriptに客とられてるだけ。
IE独自拡張駄科
0009Name_Not_Found
02/04/15 21:26ID:MHa/qbGSほっ、安心した( ゚Д゚)
0010Name_Not_Found
02/04/15 21:49ID:WhvfKav4お前ら、wsh使ってますか?
http://pc.2ch.net/test/read.cgi/win/1009175619/
0011Name_Not_Found
02/04/16 00:14ID:gsCwtIiA0012Name_Not_Found
02/04/16 10:27ID:/uU0EGFO厨房ウザイ
0013Name_Not_Found
02/04/16 14:54ID:mw8Sp9PD1999年発行とかのやたら古い本ばかりなのですが。
0014Name_Not_Found
02/04/16 16:58ID:fTkqYwOLはっきり言って逝ってよし。むしろ、VB自体逝ってよし。
0015Name_Not_Found
02/04/16 19:32ID:/kbjOSXB0016Name_Not_Found
02/04/16 19:42ID:fTkqYwOL少なくとも、VBSよりはそっちの方が良さそうかと。
っていうか、JSPを使え!
0017Name_Not_Found
02/04/16 19:53ID:/kbjOSXBだってJAVA書けないんだもん。
0018Name_Not_Found
02/04/17 12:48ID:MtOjIZVZ否。そこはホームページ制作王を抜きに語れないと思われ。
0019Name_Not_Found
02/04/17 13:18ID:xF8N5FP2Unicodeだけでなく、Shift-JISを扱えます。
0020Name_Not_Found
02/04/17 13:30ID:Pkwu6sbZHP制作王がぼろいってこと?
0021Name_Not_Found
02/04/17 13:36ID:MtOjIZVZホームページ制作王の偉大さが分かるでしょう。
0022Name_Not_Found
02/04/17 13:37ID:R+G4kl6uつまり、実際使った人間はその偉大さがわからなくなると?
0023Name_Not_Found
02/04/17 13:39ID:MtOjIZVZ使いこなせば見えにくくなるだけのことで、
ホームページ制作王が偉大という事実に変化は起きません。
0024Name_Not_Found
02/04/17 13:41ID:R+G4kl6u打ち間違い言い訳カッコワルイ
0025Name_Not_Found
02/04/17 13:43ID:MtOjIZVZ違いを理解できない人間は自然淘汰されるだろう。それだけのこと。
0026Name_Not_Found
02/04/17 13:51ID:R+G4kl6uどこら辺が(他と比較して)高性能か教えてくれ
「体験版をやった方が早い」なんてレスは無しで
0027Name_Not_Found
02/04/17 14:47ID:MtOjIZVZ制作王の素晴らしさは、とても一口では表現できません。
長々とやるとスレ違いになるので一言。
「体験版は無料です」
あとは貴方の判断で。
0028Name_Not_Found
02/04/17 15:10ID:04ipteA3結局答えられないのね
0029Name_Not_Found
02/04/17 15:12ID:MtOjIZVZ粘着してスレを荒らすな。それだけだ。
0030Name_Not_Found
02/04/17 15:14ID:04ipteA3いや、別に
質問に答えてくれさえするばそれでいいんだが?
やっぱり答えれなくて逃げちゃう?
0031Name_Not_Found
02/04/17 15:28ID:MtOjIZVZホームページ制作王は最強。
これ以上もなければ以下もなし。
0032Name_Not_Found
02/04/17 15:34ID:04ipteA3いや、質問に正確に答えてくれりゃーそれでいいって言ってるだけだが?
結局逃げたいの?
0033Name_Not_Found
02/04/17 15:42ID:MtOjIZVZぢゃあ、答えるぞ。手短に言うから、よく聞け!
俺は使い込むうちにホームページ制作王の偉大さを理解した。
だから興味があるなら、使いながら学んでくれ。
興味が無いなら、買うな。全部、貴方の自由だ。
0034Name_Not_Found
02/04/17 16:45ID:eNYE0rJ2制作王の話はよそでやってよ(; ´Д`)
0035Name_Not_Found
02/04/17 16:51ID:PiMG3L0N0036Name_Not_Found
02/04/17 17:02ID:baS/dntpVBAはほぼVBですが、何か?
0037Name_Not_Found
02/04/17 23:15ID:app92p780038Name_Not_Found
02/04/18 12:07ID:us1DeibQ別に、どっちでもいいよ
0039Name_Not_Found
02/04/19 21:55ID:2aIAK3kAVBscriptも仕様書を自動生成してくれるツールとかないですか?
0040Name_Not_Found
02/04/20 04:01ID:CI6v8+cxホームページ制作王を使ってください。
5分以内に解決します。
0041仕様書無しさん
02/04/22 00:14ID:Y1zo6kHX/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 下がり過ぎ緊急浮上ぅぅぅ!!!
\ \
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄
\ ∧ ∧
(゚Д゚∩
⊂/ ,ノ
 ̄  ̄ 「 _ |〜 ト  ̄  ̄  ̄
∪ ヽ l オ
/ ∪ \
/ : オ
0042Name_Not_Found
02/04/23 23:00ID:YVCLi3mRならんのか?
0043Name_Not_Found
02/04/24 14:01ID:UTxuqQMn仕様しない。
0044Name_Not_Found
02/04/26 23:28ID:OdlD4FXT0045Name_Not_Found
02/05/02 20:59ID:t2+60Fm/0046名無し
02/05/06 12:07ID:eb7OpyyDこのソフトはVBスクリプトの書かれたHTMLファイルを右クリックから
呼び出せるようにするソフトです。
ブラウザでスレの杜などを見ているとき、リンク上で右クリックから
かちゅ〜しゃで見る などの拡張メニューを作成したいのですが
普通の実行ファイルを実行させる方法がわかりません。
Iriaなど、右クリックを拡張しているプログラムの右クリックメニュー用の
HTMLを見たのですが、どこで実行ファイルを呼び出しているのかが
まったくわかりません。
どなたか、ヒントをください。
0047Name_Not_Found
02/05/06 15:50ID:hSOkF3GTこれを参考にしてみるとか。
http://www2.wbs.ne.jp/~go-to/run/
0048Name_Not_Found
02/05/06 16:17ID:EXKqwPPdJavaScript...
0049名無し
02/05/06 19:08ID:eb7OpyyDありがとうございます。とりあえず、それを使って解決できました。
>>48
VBスクリプトしかだめ という変な先入観を持って質問してしまいました。
ものごとは全て臨機応変に考えろ という教訓だったのですね。
0050Name_Not_Found
02/05/11 05:22ID:ckyLrmxcHTMLファイルを開いたとき、特定の場所に 別のソースの内容を
まるまるもってくることは可能でしょうか?
たとえば、test.html というHTML文書内の
<div ID="HOGE">hoge</div>
のhoge部分に hoge.txt の内容を複写したいのです。
(test.htmlとhoge.txtは別サーバにあります)
0051Name_Not_Found
02/05/11 05:53ID:tnBl6pdH右クリック拡張でttp://....を選択するとそこへジャンプするやつつくりてーんだyo
0052Name_Not_Found
02/05/11 05:55ID:ckyLrmxc0053Name_Not_Found
02/05/11 06:11ID:80oGjQG+JavaScriptでできる。
005450
02/05/11 13:39ID:ckyLrmxcマジっすか? ヒントクダサイ
0055仕様書無しさん
02/05/17 23:34ID:gx3KMD8Zなんのプラグインがいるの?
0056仕様書無しさん
02/05/27 22:09ID:c+q80oiQさあ?
0057Name_Not_Found
02/05/31 21:11ID:v/tvpIYo0058名無しさん@そうだ選挙にいこう
02/06/19 20:11ID:/t+53xHh0059Name_Not_Found
02/08/07 13:36ID:FYbX95r/0060Name_Not_Found
02/08/13 00:32ID:l+v73d4y| 下がり過ぎ緊急浮上ぅぅぅ!!!
\ \
 ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄
\ ∧ ∧
(゚Д゚∩
⊂/ ,ノ
 ̄  ̄ 「 _ |〜 ト  ̄  ̄  ̄
∪ ヽ l オ
/ ∪ \
/ : オ
0061Name_Not_Found
02/08/13 00:34ID:l+v73d4yさぁ、皆集うがいいさ!
0062Name_Not_Found
02/08/13 00:35ID:l+v73d4yキボンヌ
0063Name_Not_Found
02/08/13 00:36ID:???誰もいない…
0064Name_Not_Found
02/08/13 00:37ID:???この板は無人ですか?
それともVBSに喧嘩売ってるんですか?
0065Name_Not_Found
02/08/15 23:54ID:+wN3FYOZ0066Name_Not_Found
02/09/22 14:29ID:???0067Name_Not_Found
02/10/10 21:04ID:???V B S c r i p t ! ! !
0068Name_Not_Found
02/10/24 16:19ID:???やっぱJavaScriptにするか
0069Name_Not_Found
02/10/24 18:53ID:???0070Name_Not_Found
02/11/26 03:54ID:rChJUZe5VBScriptにありますか?
0071Name_Not_Found
02/12/12 23:06ID:???0072Name_Not_Found
02/12/12 23:13ID:???相当する技はVBScriptにありますか?
0073Name_Not_Found
02/12/20 02:08ID:Rx/hnSsnLoop
ループを抜けるときは Exit Do だけど
ループを続行する、いわゆる continue文は どう書くの?
0074Name_Not_Found
02/12/20 02:17ID:???ないの。オブジェクト作れないの。
ActiveXを別売りのソフトで作って使えというコンセプトなの
0075Name_Not_Found
02/12/20 02:18ID:???コンテヌーも無いの
If then elseで分岐するしかないの
0076Name_Not_Found
02/12/20 02:18ID:???0077Name_Not_Found
02/12/20 13:42ID:???0078Name_Not_Found
02/12/21 02:50ID:???不細工な子でもひとつくらいは取り得あるの
あまりにセキュリティ無視でノートン先生とかに起こられちゃうけど
webというよりブラウザベースのLAN内のシステム開発にはもってこいの
おてがるさだと思うの
でもみんな嫌いだよね…。ごめんなさいごめんなさい。
0079Name_Not_Found
02/12/23 16:43ID:???jscriptのActiveXObjectと全く同じだし
0080Name_Not_Found
02/12/23 16:47ID:???0081Name_Not_Found
02/12/23 18:44ID:???http://pc.2ch.net/php/
0082Name_Not_Found
02/12/24 08:25ID:3qCeBLb8あっちはサーバサイド専門だったと記憶。ASPで使うならいいんだろうけど。
0083Name_Not_Found
02/12/24 08:54ID:???0084Name_Not_Found
02/12/31 04:37ID:jBlikRm50085Name_Not_Found
03/01/03 03:13ID:???それだけ自由度が高いんだよ。
諸刃の剣なのを承知で使うのが通だ。
0086Name_Not_Found
03/01/03 03:35ID:???0087Name_Not_Found
03/01/03 10:16ID:???MacのExcelではVBAはついていないのかな?
0088Name_Not_Found
03/01/10 04:45ID:/xz3G9pZやっぱ言語には得手不得手があるね
0089Name_Not_Found
03/01/14 09:12ID:???岡田克彦ファンクラブからのご案内です。ご高承のとおり、岡田克彦氏の卒業した早稲田大学政治経済学部
と、ひろゆきの卒業した中央大学文学部は比較にならないほど差があります。中央大学文学部のような
ヘボい大学に共通しているのは、文化水準が低いという事です。18歳から22歳をヘボい大学で過ごすという
ことは、感受性において致命傷と言えます。2ちゃんねらーの大半は岡田克彦氏に比べて、著しい低学歴で
頭が悪いだけでなく、感受性も愚鈍で腐っているという、取り返しのつかない状態なのです。
せめて、http://www.geocities.co.jp/MusicHall-Horn/1091/で、岡田氏の作品に触れましょう。
0090Name_Not_Found
03/01/16 19:32ID:YciPNXIp∋8ノハヽ8∈ | >>90しゃん
( ´D`) < オンラインのリファレンスじゃ
| ものたりないれすか?
http://www.microsoft.com/japan/msdn/library/ja/script56/html/vtoriVBScript.asp
0092Name_Not_Found
03/01/16 21:26ID:YciPNXIpさすがに普通の本には載ってませんね。
MSのホームページにも載ってないです。
∋8ノハヽ8∈ |
( ´D`) < こーゆーのれすか?
|
http://www.microsoft.com/japan/msdn/library/ja/script56/html/wsconWSHWalkthroughs.asp
0094一年目
03/01/16 21:55ID:???めちゃくちゃ載ってるが・・
http://msdn.microsoft.com/library/default.asp?url=/nhp/Default.asp?contentid=28001169
0095Name_Not_Found
03/01/16 22:04ID:???こういうのです。
見つけられなかった自分が恥ずかしいです。
0096Name_Not_Found
03/01/18 09:53ID:fXyvJ2vw誰かLOVELETEER.vbs.txtのソース張り付けてくれないかな
あっ、独りごと言っちゃった
0097Name_Not_Found
03/01/19 23:58ID:???ノーdが反応しちゃうだろ
0098山崎渉
03/01/23 03:01ID:???0099Name_Not_Found
03/02/01 11:15ID:???0100岡田克彦ファンクラブ
03/02/01 12:14ID:???それにいたしましても、明確になったことは、2ちゃんねらーの人達の愚鈍さと
無能さでございました。
2ちゃんねらーに出来る事は、たかだか、ウェブ上で騒いだり、岡田先生のホームページ
(URL;http://www.geocities.co.jp/MusicHall/5933/)
のBBSにエロ、グロな写真を掲載するくらいのこと。昭和54年に岡田先生が
早稲田大学政治経済学部を卒業したことを取り消すなどということは出来ないの
ですね。もちろん、ひろゆきが、中央大学文学部夜間を卒業したことも取り消せない
のと同様ですけれども、いかにウェブ上で思い上がっていても阿呆に出来る事は
この程度なのです。阿呆は、何をしたって、阿呆どまりなのです。ハハハハハ・・・。
0101ふんにゃか ふんにゃか
03/02/01 17:58ID:???0102Name_Not_Found
03/03/28 13:47ID:7JRri0eKhttp://www.tkdlab.ritsumei.ac.jp/02ip2/0303.html
一行に複数文各方法教えて下さい
0103山崎渉
03/04/17 15:48ID:???0104山崎渉
03/04/20 04:10ID:???( ^^ )< ぬるぽ(^^)
0105山崎渉
03/05/28 13:24ID:???ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。
=〔~∪ ̄ ̄〕
= ◎――◎ 山崎渉
0106Name_Not_Found
03/06/11 23:44ID:Rv6WqUPM0107_
03/06/11 23:46ID:???0108教えてクン
03/06/18 17:51ID:zwctcbDc0109山崎 渉
03/07/15 10:14ID:???__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄
0110山崎 渉
03/08/02 02:41ID:???0111山崎 渉
03/08/15 17:16ID:???│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン
0112Name_Not_Found
03/08/29 16:08ID:zztheoUdの2枚目の写真に、VB Script作成を支援するようなソフトが
写ってるんだけど、これって何ですか?
0113Name_Not_Found
03/08/29 17:29ID:???フロントページ買え
0114Name_Not_Found
03/10/09 10:12ID:???0115Name_Not_Found
04/02/21 12:01ID:???blog風のHTMLを生成するVBScript、ってかWSH組んでる
需要ある?
0116Name_Not_Found
04/02/22 21:39ID:???0117Name_Not_Found
04/05/18 15:51ID:???0118Name_Not_Found
04/06/23 10:42ID:???0119Name_Not_Found
04/08/08 02:49ID:QK3Sy+VG0120Name_Not_Found
04/08/08 06:38ID:???0121Name_Not_Found
04/09/12 09:16:22ID:8hKsHGHQIE上で動く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の内容
宜しくお願いします。
0122Name_Not_Found
04/09/12 17:42:23ID:???うちの環境ではその内容で正しく実行された。
プログラムはあってるものと思われ
下部のHTMLにでも間違いがあるのでは?
HTML内で同IDには上から順に連番がつけられていくけど
これを自分で指定する事はできないのでしょうか?
<INPUT type="text" id="textbox(5)">
のように指定したいのですが、できません。
0123Name_Not_Found
04/09/12 18:06:06ID:???0124Name_Not_Found
04/09/12 18:07:03ID:???0125Name_Not_Found
04/09/12 18:37:11ID:???同IDは配列扱いできるようですが
ID指定時には配列のドコに入れるかは
決められないという事でしょうか?
それは不便な気が
0126Name_Not_Found
04/09/12 18:43:15ID:???0127Name_Not_Found
04/12/27 22:21:56ID:BSBqNadWPrivate 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")
0128Name_Not_Found
04/12/27 22:22:40ID:BSBqNadWDoIE(strMes)
EatCookie(strRep)
CloseIE
'IEのオブジェクトをNothing
Set mObjIE = Nothing
End Sub
0129Name_Not_Found
04/12/27 22:23:12ID:BSBqNadWPrivate 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
0130Name_Not_Found
04/12/27 22:23:52ID:BSBqNadWPrivate 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
0131Name_Not_Found
04/12/27 22:25:03ID:BSBqNadWOn 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
0132Name_Not_Found
04/12/27 22:25:39ID:BSBqNadWOn 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
0133Name_Not_Found
04/12/27 22:26:22ID:BSBqNadWPrivate Function CloseIE
On Error Resume Next
mObjIE.Quit
End Function
0134Name_Not_Found
04/12/27 22:27:53ID:BSBqNadWMain
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
0135Name_Not_Found
05/01/06 02:11:15ID:rMSXQ7e1http://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>がマッチオブジェクトにでてほしいのですが・・・
.*がの使い方がいまいちわかってないんだと思います。
0136135
05/01/06 02:30:16ID:???.*を[^<]*ってやるといけた・・・
0137135
05/01/06 02:50:02ID:???0138Name_Not_Found
05/01/06 03:45:13ID:???( )で囲むと後方参照のために記憶されるのでそれを使う。
前から順に\1、\2・・・
最初の( )による\1を使って閉じタグに利用している。最後の\3も同様。
↓
<(.*)>(.*)?<\/\1><(.*)>(.*)?<\/\3>
↑ ↑ ↑ ↑
\1 \2 \3 \4
よってタグの間の部分は\2と\4に入る。
ところで評価対象は
「<BR>a</BR><BR>b</BR>」だけで他は一致する可能性はないんだな?
BR以外でも開始タグと閉じタグの組み合わせならマッチしてしまうが。
0139Name_Not_Found
05/01/06 04:01:28ID:???<(.*)?>(.*)?<\/\1><(.*)?>(.*)?<\/\3>
これもBR以外にもマッチしてしまうのは変わらないが。
0140135
05/01/06 05:34:20ID:rMSXQ7e1具体的には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って書けばいいのかもと思いつつまだためす前に聞いてしまいました。
0141135
05/01/06 05:50:42ID:rMSXQ7e1修正です。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>とかが入ってるんじゃ・・・。わからん・・・。
0142135
05/01/06 06:21:42ID:???そのものずばりでした・・・。
http://homepage1.nifty.com/MADIA/vb/vb_bbs/200311_03110053.html
SubMatchesがあるなんてしらなかった・・・。
0143135
05/01/06 06:29:15ID:???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
0144135
05/01/06 06:36:08ID:???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
こことか見てもわかりにくいな・・、図解で構造示してくれれば一発で理解できるのに・・。
0145Name_Not_Found
05/01/06 14:19:53ID:???>具体的には2chブラウザをVB6で作ろうとしてます。
板違い。ム板へ逝け。
0146Name_Not_Found
05/01/09 03:11:27ID:???0147Name_Not_Found
05/01/30 22:52:25ID:cbvZtJCeページを更新させた後、サブプロシージャを実行させたいと思っています。
window.navigateで元ページを呼び出して更新させようと思ったのですが、
そうすると(作り方が悪いと思うのですが)どうしてもボタンを押すたびに更新
されてしまってサブプロシージャの実行ができません。
何か良い解決方法はないでしょうか?
0148Name_Not_Found
05/01/30 23:10:00ID:???まさかリロードじゃないだろうな
0149147
05/01/31 00:45:13ID:???0150Name_Not_Found
05/02/22 11:07:45ID:8xcdEHF/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>
************
0151Name_Not_Found
2005/04/05(火) 00:08:43ID:hhQqSBESVBScript のSendkeysで右Ctrlを押す方法はないですかね?
0152Name_Not_Found
2005/04/23(土) 15:51:39ID:???for each Process in _
GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_Process where Name='abc.exe'")
Process.terminate
Next
これで停止させられると書いてあったんですがどうもうまく行きません。
どこか間違ってるんでしょうか?
0153Name_Not_Found
2005/04/24(日) 04:11:50ID:???やってみた→Process.Terminateの行の先頭に全角スペースがあり
それでエラーになってましたよ。
0154Name_Not_Found
2005/04/24(日) 11:26:34ID:???あ、いや全角スペースは元々は無いです・・・
掲示板に張るときにTabが消えるんで全角スペースにしちゃったんです。
0155152
2005/04/24(日) 11:29:09ID:???すいません。
何がいかんのだろう・・・・
0156152
2005/04/24(日) 11:35:43ID:???やろうとするとExplorerが落ちる。
0157152
2005/04/24(日) 14:42:22ID:???お騒がせしてもうしわけない(;´Д`)
0158Name_Not_Found
2005/04/24(日) 22:29:24ID:???0159Name_Not_Found
2005/05/08(日) 14:47:29ID:???オブジェクト指向自体よく意味がわからん(´・ω・`)
0160Name_Not_Found
2005/05/18(水) 21:15:16ID:QaG22K1fDOS窓を出さないでやる方法ってありますか?
0161Name_Not_Found
2005/05/28(土) 12:48:12ID:???0162Name_Not_Found
2005/06/16(木) 02:30:49ID:???デフォルトで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
を忘れないように。
0163Name_Not_Found
2005/10/02(日) 23:09:36ID:???HTAとしてXMLの形式が使えないかなとか思ってるんですが無理ですか
0164Name_Not_Found
2005/10/13(木) 05:48:45ID:???0165VBS 信者の入りたて
2005/10/21(金) 14:47:37ID:hPgmlKJTネットワーク接続にある、ダイヤルアップや広帯域に登録している接続先を
GUIで接続したり、切断したりせず、VBScriptで同じようなことを行いたいです。
何か良いサンプルがありましたら、ご教授ください。
あと、お薦めのVBScript(初歩レベル・長く使える辞書的・これ以上詳しく書いていないであろう超分厚い書籍)
など紹介していただければ助かります。
先人の知恵で感動したいです。
0166Name_Not_Found
2005/10/22(土) 01:42:56ID:???http://pc8.2ch.net/test/read.cgi/win/1126543183/
チのがいいかもよw
0167Name_Not_Found
2005/10/22(土) 11:20:48ID:SZoF3VJZttp://www.e-associate.info/amazon/ASIN/0735618674.html
0168Name_Not_Found
2005/11/09(水) 00:34:15ID:???0169Name_Not_Found
2005/11/09(水) 08:04:47ID:???0170Name_Not_Found
2005/11/13(日) 16:57:27ID:???Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run("DOS_COMMAND")
0171Name_Not_Found
2005/11/15(火) 19:02:33ID:???これでもおkじゃなかったっけ
テキトに書いたから書式違うかもシレンが。
0172Name_Not_Found
2005/11/23(水) 02:34:36ID:???0173Name_Not_Found
2005/12/21(水) 15:04:18ID:???operaじゃ_onclick受け付けないんでしょうか?
0174スクリプトン博士
2006/01/05(木) 05:01:12ID:ZrPrVBmT教えてちょ〜だい。
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "実験終わり \r\nテスト\n改行",3,"ポップアップメッセージ",vbInformation
0175Name_Not_Found
2006/01/05(木) 23:32:48ID:???chr(13)かchr$(13)のどっちかでできないか?
0176Name_Not_Found
2006/01/05(木) 23:40:10ID:???0177スクリプトン博士
2006/01/06(金) 03:53:18ID:tt5Gu8mVサンキュウ〜!
0178Name_Not_Found
2006/01/09(月) 16:46:21ID:???へー知らんかった。ありがとう
0179Name_Not_Found
2006/01/12(木) 16:29:44ID:???メールが(HTMLメールさえ)送れるのにはちょっと驚いた。
0180Name_Not_Found
2006/01/17(火) 18:31:27ID:cTNq8mQVって最大何分まで設定できるんすか?
120では無理だった・・・
0181ビギナ〜
2006/01/29(日) 17:15:16ID:???文字列の中に"ダブルコーテンションを入れたいのですが…
どうすればいいでしょうか?
0182Name_Not_Found
NGNGmsgbox "文字列の中に" & chr(34) & "ダブルコーテンションを入れたいのですが…"
"の前に"でエスケープするかchr関数で文字コードを指定
0183Name_Not_Found
2006/05/11(木) 15:29:33ID:???Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:\")
MsgBox f.size
の様な VBS を書いて実行すると、「800A0046:書き込み出来ません」
のエラーが出てしまいます。
ディレクトリのサイズを参照しているだけなのに、書き込めないとは
どういう事なのでしょうか・・・?
検索すると、権限の問題らしいのですが、Administrator で実行
していますし・・・
0184Name_Not_Found
2006/05/11(木) 19:27:44ID:???VBプログラマ質問スレ(6.0以前) Part48
http://pc8.2ch.net/test/read.cgi/tech/1146678926/
に移動します。
0185Name_Not_Found
2006/05/12(金) 12:56:45ID:???Microsoft VBScript runtime error '800a0046' Permission denied
0186Name_Not_Found
2006/07/03(月) 21:22:52ID:Rkkz08+Yクリックした時に、「はい」「いいえ」を選択させて、
「はい」なら、そのまま処理続行
「いいえ」なら処理中断
としたいのですが、
どうすればいいのでしょうか?
0187Name_Not_Found
2006/07/04(火) 13:17:41ID:???よくある画面遷移の確認処理を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>
0188Name_Not_Found
2006/07/06(木) 16:01:50ID:+tb83sfZVBScript(JavaScript)からExcelを起動させ、読み込んだデータを使って
線を書きたいんですがうまくいきません。
Shapes.Addlineメソッドって使えないんでしょうか。
IEのJavaScript環境からExcelに対して有効なメソッドって
どこかに解説ないでしょうか。
一応イントラなんでセキュリティ云々て話は気にしないでください。
0189Name_Not_Found
2006/07/08(土) 11:06:35ID:???VBscriptの全くの初心者なのですが、IEの自動操作をしたいと
考えていて。何かオススメの書籍があれば教えていただきたいのですが。
ここの過去ログで同様の質問があったようなのですが、その際は
レスがなかったことから、あまり初心者向けの本はないということなのでしょうか?
0190Name_Not_Found
2006/07/08(土) 11:42:07ID:???0191189
2006/07/09(日) 05:57:52ID:???0192Name_Not_Found
2006/07/09(日) 09:40:16ID:???PropertyやMethodはMSDNで探せば本なんかいらんやろ
0193Name_Not_Found
2006/07/11(火) 00:18:45ID:???ここの真ん中に書いてあるようにActiveDirectoryのデータ
をテキストに出力したいんだけどどういう書き方がありますか。
またいい本があったらおせーてくらはい。
0194Name_Not_Found
2006/07/11(火) 10:22:39ID:???0195Name_Not_Found
2006/07/11(火) 18:06:10ID:???0196Name_Not_Found
2006/07/11(火) 19:46:08ID:???0197Name_Not_Found
2006/07/21(金) 09:21:59ID:EznSaTWZsplit関数のdelimiterを複数指定する方法を教えてください。
たとえば、aもしくはbでスプリットしたい場合、
split(text ,"a|b")
このように書きましたがダメでした。
よろしくお願いします。
0198Name_Not_Found
2006/07/27(木) 15:30:12ID:FhyySxvdhttp://www.seshop.com/detail_cbook.asp?pid=42539
翔泳社SEショップまでが、この本の表紙写真を間違えてる・・・
0199名無しの初級回答者
2006/08/15(火) 03:59:59ID:???split(text ,"a")で、分けたあと、
split(text ,"b")で、さらに分割するよろし。
0200Name_Not_Found
2006/08/24(木) 12:47:43ID:Sgul8h2H以下でMacro1というマクロを実行しようとしましたが
「オブジェクトでサーポートされていないプロパティです」
エラーが出てしまいます。
Set objSelection = Excel.Workbooks(1).Worksheets(1).Macro1
0201Name_Not_Found
2006/08/24(木) 21:43:03ID:???「★WSHでCGI★JScriptVBScript」スレにいた人ですよね
Web製作板ではなく↓に誘導しておきます。
WSH(・∀・)スレッド!
http://pc8.2ch.net/test/read.cgi/tech/1055075469/l50
0202Name_Not_Found
2006/08/31(木) 20:23:23ID:b7D4rxbH21世紀のワールドスタンダードに認定したWebパブリッシングアプリケーションである。
ホームページ制作王に不可能はない。
不可能があるとすれば、そこが人類の英知の限界点である。
21世紀、世界のWebはホームページ制作王を中心に回っていくのである。
にもかかわらず、ここ日本では、心ない風評のため、まだまだ普及に
遅れがみられる。
ホームページ制作王を普及させないかぎり、我が国のWebは、
世界の趨勢の後塵を拝するばかりである。
世界が認めた高性能!ホームページ制作王
http://pc8.2ch.net/test/read.cgi/hp/1106508682/
0203Name_Not_Found
2006/09/11(月) 23:49:26ID:4c8WPGtbMSXML2.ServerXMLHTTPでPOSTしようと思ったのですが、HTMLでの表示がうまくいきません。
お助け下さい。。。
0204Name_Not_Found
2006/09/12(火) 02:05:08ID:???0205203
2006/09/12(火) 09:14:19ID:???ここでの質問を破棄します。
0206Name_Not_Found
2006/09/20(水) 11:52:27ID:???javaで言う所のHashMapは、CreateObject("Scripting.Dictionary")で使用できたのですが。
java上がりのVB初心者なので、基本がjavaになってすいません。
0207Name_Not_Found
2006/09/21(木) 12:51:52ID:???デバッグの為、途中の結果を随時コマンドプロンプトに表示したいのですが・・・
MsgBox だと処理が止まってしまうので・・・
0208Name_Not_Found
2006/09/21(木) 12:55:59ID:???ホストは何?
wsh, ie, asp
0209Name_Not_Found
2006/09/21(木) 13:08:44ID:???コマンドプロンプトから、*.Vbs ファイルを普通に (?) 起動する場合を
想定してますので、多分 wsh という事になると思います。
0210Name_Not_Found
2006/09/21(木) 14:11:37ID:???0211Name_Not_Found
2006/09/21(木) 18:35:47ID:???cscript.exe で実行するなら WScript.Echo で
>>210
IEのclipboardData.GetDataや
WshShellのSendKeysとか使えば出来るかもね。
0212Name_Not_Found
2006/09/21(木) 20:59:31ID:???Vbs を直接実行したら、コマンドプロンプトが
開いて文字が表示されると思ったら、
MsgBox と同じになるんですね。
CScript で実行する事にします。
有難う御座いました。
0213Name_Not_Found
2006/09/22(金) 11:50:41ID:???Set objShell = WScript.CreateObject("WScript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
objShell.SendKeys IE.getData("text")
を実行したら、getData("text")がないといわれました。
どうすればよろしいでしょうか?
0214Name_Not_Found
2006/09/27(水) 19:43:16ID:???http://www.happy2-island.com/vbs/cafe02/capter00210.shtml
ファイルの削除を参考にしてみましたが、Cookieファイルの指定がうまくできませんでした。
0215Name_Not_Found
2006/09/27(水) 20:02:12ID:???ブラウザで設定する方が早くね?
0216Name_Not_Found
2006/09/27(水) 20:40:12ID:???手動でCookieを削除するなら、ブラウザを操作して消せば良いですが、
自動でCookieを削除するなら、やっぱプログラムで行なうしかないですかね?
Googleで検索して、Refresh2メソッド、CleanOnlineAppCacheメソッド等を利用すればOKみたいな情報に当たりましたが、いまいちうまくできません。
0217Name_Not_Found
2006/09/28(木) 05:59:57ID:???ローカルクッキーの削除なんてWeb制作板で扱う内容じゃない。
まあ、かくいう俺も最初は迷って、VBSでの方法を見つけるまでは
クッキーの削除にはバッチ使ってたけどな。
0218Name_Not_Found
2006/10/21(土) 14:28:08ID:???>IEのclipboardData.GetData
を使うために、about:blankを信頼済みサイトに登録するという話を聞きますが、
副作用で、不都合や危険はないのでしょうか?
0219Name_Not_Found
2006/10/23(月) 11:40:38ID:rARn6wnm0220Name_Not_Found
2006/10/23(月) 18:24:31ID:???0222Name_Not_Found
2006/10/30(月) 00:00:20ID:Ce0TSOmchtmlに、VBscriptを埋め込みましたが思うように動作しません。
埋め込んだVBScriptは外部ファイルtest.vbsとして呼び出します。
test.vbsの内容は、ADSIを使ってユーザーの一覧を出力するものです。
test.vbsを単独で実行するぶんはOKなのですが
htmlからtest.vbsを呼ぶとなんの反応もありません。
なにがいけなのでしょうか?
0223Name_Not_Found
2006/10/30(月) 00:18:35ID:???ステータスバーのビックリマーク
0224Name_Not_Found
2006/10/30(月) 00:38:03ID:???ビックリマークでるので、それをクリックして実行を許可しているが何も反応がない。
他に何がいけないのでしょう・・・。
0225Name_Not_Found
2006/10/30(月) 03:35:00ID:???それはステータスバーじゃない。
もしステータスバーが表示されていないなら「表示」しろ。
あとは次のページでも見て悩め。
「Internet Explorer のスクリプト エラーをトラブルシュートする方法」
http://support.microsoft.com/kb/308260/ja
0226Name_Not_Found
2006/10/30(月) 20:28:07ID:JHhuK8DFありがとうございました。
ひとまず、htaにすることで解決としました。
htmやhtaにスクリプトを埋め込む場合、いろいろと
クセがあるんですね。慣れればどうってことないかもしれませんが
わかりづらいし、サンプルがあちこち分散しているので
調べるのに時間がかかりすぎてしまう。
まっ、しょうがない。地道にやります。
0227Name_Not_Found
2006/11/11(土) 14:26:56ID:???>split(text ,"a|b")
split(replace(text,"a","b"),"b")
0228Name_Not_Found
2006/11/14(火) 22:23:25ID:???こういうことかな。
http://pc8.2ch.net/test/read.cgi/tech/1055075469/742
0229Name_Not_Found
2006/12/12(火) 13:46:56ID:nR9OWkpr"((http|https)://[\w,_,\.,/,\-]+)"
のように記述しますよね?この様なパターンで
タイトルなどタグに囲まれた要素を抽出したいのですが
どのように記述すればよいですか?
超初心者です。よろしくお願いします。
0230Name_Not_Found
2006/12/12(火) 14:02:08ID:???ttp://glossary.tank.jp/t004C.html
ttp://glossary.tank.jp/t09E9.html
ttp://glossary.tank.jp/t0A66.html
0231Name_Not_Found
2006/12/13(水) 02:24:57ID:gS/ZIeeiスクリプトが走ってくれません。一度ローカルにvbsファイルを保存すれば正常に処理が走ります。
Windows Script Host
スクリプト ファイル "C:\Document and Setting\user\LocalSettings\Temporary Internet Files\Content.IE5\PPEBEQ\test[1].vbs
原因は何でしょうか?どなたかご存知の方お願い致します。
0232Name_Not_Found
2007/01/08(月) 22:46:22ID:PvyzZ9L1教えてください。
InternetExplorerオブジェクトのExecWBメソッドを使う際、
第一引数にcmdIDとして、MSHTML Command Identifiersを
指定するのですが、スクリプトを実行するとエラーが発生します。
第一引数にOLECMDIDを指定する(古い方法?)とエラー無しで実行できますが、
この場合には、OLECMDIDを使うためのGUIDとして、正しい値を設定できています。
なので、MSHTML Command Identifiersを指定してエラーが発生する原因は、
GUIDの設定値が正しくないためと考えています。
0233Name_Not_Found
2007/01/28(日) 20:11:25ID:WvlCrBEPVbscriptを考えています。
現在時刻をゲーム内の時刻に置き換えて
ページ上で表示させようとしています。
どなたか分かればご教授ください。
<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>
0234Name_Not_Found
2007/02/05(月) 22:03:07ID:c5wxnQrMinputboxでリストを配列に入力したいです。
具体的には
abc
def
ghj
というリストをそのままコピペでinputboxで入力して配列strに入れたいのです。
inputboxでは一行しか入らず改行が認識されません。
むりなんでしょうか。
0235Name_Not_Found
2007/02/05(月) 22:10:05ID:o4ROB9X30236Name_Not_Found
2007/02/06(火) 00:01:49ID:???abc,def,ghiと入れて、split
0237Name_Not_Found
2007/02/06(火) 00:18:05ID:lHro6i9Vやっぱりカンマをいれなきゃだめですか。
リストをそのまま張りたいんですよ。
うーん、わからん。
inputboxじゃ無理っぽいとはおもってるんですが。
0238Name_Not_Found
2007/02/06(火) 00:20:06ID:lHro6i9Vもう少し勉強します。
0239Name_Not_Found
2007/02/06(火) 00:24:26ID:???クリップボード
0240Name_Not_Found
2007/02/06(火) 01:52:46ID:???複数行扱えるもの(状況によって何が使えるかは変わってくるが)にそのまま貼るか、
InputBoxに1行に直した物を入れるか。
つーかテキストファイルに書かれてるなら普通に読めばいいだけじゃん。
「コピー+クリップボードから取得」でもいいけど、直接ファイルを読めばコピー操作すら必要ない。
0241Name_Not_Found
2007/02/06(火) 21:56:13ID:???ありがとうございます。
0242Name_Not_Found
2007/02/07(水) 00:24:13ID:0t4ksJaU<input type="text" name="a" value=<%= sTmp %>>
として、変数sTmpに→ "あ" というように"を含む文字列を
入れて表示させたいのですが、「あ」の前の"でvalueが切れてしまいます・・・
value='<%= sTmp %>'とした場合にも同様にsTmpに「’」が入ってきた場合に
文字が切れてしまいます。
何かよい対策ってありますでしょうか?
0243Name_Not_Found
2007/02/07(水) 19:14:20ID:???テキストファイル読み込みを勉強します。
0244Name_Not_Found
2007/02/12(月) 03:00:27ID:5ZnxylX0objectからのWinMediaPlayerで
vbスクリプトからファイル名を読み込ませるには
どうすればいいのですか。
0245Name_Not_Found
2007/02/12(月) 03:13:13ID:???MSDNアーカイブに載ってる
0246Name_Not_Found
2007/02/12(月) 03:25:05ID:1ADXoYYGset WshShell = CreateObject("WScript.Shell")
WScript.Sleep 2000
WshShell.AppActivate "指定したタイトル名のブラウザー画面"
</script>
上記のようなVBScriptで、一定の待機時間待って任意の
タイトル名のブラウザーをアクティブにするスクリプトを
作成したいのですが、以下のようなエラーとなってしまいます。
-------------------エラー内容-------------------
「エラー:オブジェクトがありません。:'WScript'
コード:0
------------------------------------------------
どなたか解消方法が分かる方がいらっしゃいましたら、教えて
頂けますでしょうか?
0247Name_Not_Found
2007/02/12(月) 03:38:25ID:???WScriptってのは、文字通りWScript.exe又はcscript.exeで実行したときに使えるオブジェクト。
IE(IEコンポのブラウザ)で実行したときは、IEのwindowオブジェクトなどが使える代わりに
WScriptオブジェクトは使えないので、解消方法は無く「不可能です」というのが回答になる。
もっともWScript.Sleep以外で、一定時間後に処理を実行する構造を作ることは可能だが
IEの機能であってVBSの機能ではないのでスレ違いだな。
0248246
2007/02/12(月) 03:42:17ID:1ADXoYYG>IE(IEコンポのブラウザ)で実行したときは、IEのwindowオブジェクトなどが使える代わりに
>WScriptオブジェクトは使えないので、解消方法は無く「不可能です」というのが回答になる。
そうでしたか・・・
他に何か方法が無いか、考えて見ます。
レスありがとうございました。
0249Name_Not_Found
2007/02/12(月) 13:35:08ID:???HTA でスクリプトを一時的に停止する方法はありますか
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/mar06/hey0330.mspx
MS公式ページだけど、clearTimeout て必要なのかな?
0250Name_Not_Found
2007/02/25(日) 16:28:34ID:???Window.Open "指定したURLアドレス"
</script>
上記の通りVBScriptで、指定したURLアドレスをIEで起動させた後、
WEBページのタイトル名等から、起動させたブラウザー画面を指定して、
アクティブにさせてから、ブラウザー画面を閉じるスクリプトを考えています。
どなたかお分かりになる方がいまししたら、教えて頂けませんか?
0251Name_Not_Found
2007/02/25(日) 16:34:45ID:???0252>>250
2007/02/25(日) 17:29:36ID:???その起動させたブラウザーを、閉じる方法が分かりません。
閉じ方としては、タイトル名を指定して起動させたブラウザーを
一旦アクティブにしてから、閉じさせたいと考えています。
0253Name_Not_Found
2007/02/25(日) 18:10:59ID:???CreateObject("WScript.Shell").AppActivate NewWin.document.title
NewWin.close
0254Name_Not_Found
2007/02/27(火) 01:27:54ID:???SetWindowPosってVBSで使えます…?
0255Name_Not_Found
2007/02/27(火) 01:46:09ID:???0256Name_Not_Found
2007/02/27(火) 02:59:43ID:???なんか調べても一向に実例とか出てこないし…。
0257Name_Not_Found
2007/02/27(火) 13:44:34ID:???Set Application=CreateObject("Excel.Application")
Application.Visible=True
msgbox Application.ExecuteExcel4Macro("CALL(""Kernel32"",""Sleep"",""JJ"",5000)")
Application.Quit
Set Application=Nothing
0258Name_Not_Found
2007/02/27(火) 13:59:09ID:???0259Name_Not_Found
2007/02/28(水) 22:25:05ID:95MUo+W7で、できないところがありまして質問します。
上から
コンボボックス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も関係あるのでしょうか。あまり良く分かってません。
お助けください。
0260Name_Not_Found
2007/02/28(水) 22:39:56ID:???作る人のための板であって、使う人のための板じゃないよ
0261Name_Not_Found
2007/11/05(月) 15:37:11ID:DtzEEIF3aspのアップロードでbasp21を使っていて、type=fileのテキストボックスに
何も入力されていなかった場合などのエラーはどうやって取得するんですか?
0262Name_Not_Found
2008/07/17(木) 19:44:11ID:yOfZNQT0AA 1 BBB
AA 4 BBB
AA 5 BBB
AA 3 BBB
VBScriptではどのような関数を使えばよいでしょうか?
0263Name_Not_Found
2008/07/18(金) 17:27:48ID:???組込関数には並べ替えが出来る物は無いから
しかし、サンプルは腐るほど転がってるから何も困らないだろう
コンポーネントなら並べ替え機能を有したものもあるし
0264Name_Not_Found
2008/07/18(金) 19:15:36ID:???何熱くなってんだ。そんな丸投げ質問は放置しとけよ。
0265Name_Not_Found
2008/07/26(土) 11:08:07ID:???awkでも使えれば楽勝だけど、Web製作板だしね。
ディクショナリオブジェクトで一旦全行を配列に突っ込んで、
それを読み出しながら、splitで真ん中の数字抜いて、ifで分けていくとか。
0266Name_Not_Found
2008/07/26(土) 15:47:18ID:???> それを読み出しながら、splitで真ん中の数字抜いて、ifで分けていくとか。
結局、二次元データのソートアルゴリズムの話になるわけで、板違い気味だよな。
ソート自体についても二次元データへの対応についても、アルゴリズムについては
既に確立されたものがいくつもあるあけで、今更ここで話題に挙げる程のことでもないし。
0267Name_Not_Found
2008/07/26(土) 16:54:29ID:???そもそもVBScriptのスレってここしか無いんだよね。
関連性のあるスレだとWSHとかVB6.0とかあるけど。
もっとも>>263がまだ見てるとは思えんが(w
0268Name_Not_Found
2008/07/31(木) 16:54:55ID:???InputBoxの自作は出来ないものでしょうか?
デフォルトのInputBoxは1行しか入力部が無く、改行も対応していないため若干不便です。
入力部を3行ほどの入力部の物を作りたいのですが、VBScriptの機能を超えているのでしょうか?
また、出来るなら入力部・出力部(以前入力したものを表示する)を分けて2段構えにしたいのですが、こちらも無理なのでしょうか?
0269Name_Not_Found
2008/07/31(木) 19:08:40ID:???0270Name_Not_Found
2008/08/01(金) 15:02:39ID:???回答ありです。大人しくInputBoxでガマンします・・・
0271Name_Not_Found
2008/10/24(金) 11:28:59ID:???test = "C;\Documents and Settings"
こんな風にコロンをセミコロンと間違っていた場合とか
ファイル名フォルダ名に使用できない文字(\ / : * ? " < > | )が
含まれたパスをFalseとしたい場合とかです
0272Name_Not_Found
2008/10/24(金) 12:15:16ID:???FileSystemObjectのexistsとか。
0273Name_Not_Found
2008/10/24(金) 12:53:27ID:???test = "C;\test.txt"
~~~
↑を
FileExists(test)で戻り値見るとFalseになるんだよね
On Errorに引っかかればよかったんだけど、普通にFalseになるから
パスとして誤っているからFalseなのかファイルとして存在しないから
Falseなのかが判断できない
0274Name_Not_Found
2008/10/24(金) 12:54:08ID:???正)
test = "C;\test.txt"
~~~
0275Name_Not_Found
2008/10/24(金) 19:35:41ID:???セミコロンに見えるのは気のせい?
0276Name_Not_Found
2008/10/24(金) 19:48:52ID:???0277Name_Not_Found
2008/10/24(金) 20:39:42ID:???ああ、すまんすまん。
実在しているパスかどうかは問題でなく、パスとしての文字列が正しいのかだったら
正規表現で判定すればいいだけだと思うけど、なんかまずいの?
0278Name_Not_Found
2008/10/24(金) 22:21:44ID:???0279Name_Not_Found
2008/11/19(水) 05:31:17ID:rtx9wZ5cそういう時はHTSを使うんだ。
0280Name_Not_Found
2008/11/25(火) 05:51:28ID:BrZxxCS24ヶ月前のレスに亀レスしてるアホか
0281Name_Not_Found
2009/02/02(月) 23:20:44ID:???VBSCRIPTは知っとくと何かと便利だわ!
0282Name_Not_Found
2009/11/07(土) 04:29:56ID:???> FileExists(test)で戻り値見るとFalseになるんだよね
え?
それで正解じゃないの??
0283Name_Not_Found
2009/12/20(日) 22:21:09ID:???よーするに正規表現後にFileExists
0284Name_Not_Found
2010/05/21(金) 20:58:19ID:4gzhTSC3開発経験がほとんどないのですが、来週からVBS+HTML(ASP)の開発を一人で任されることになってしまいました。
ちょっと焦ってパニックになりそうです。また分からないことがあった場合は色々と質問させて下さい。
VBSはデバッグが難しいと聞きいています。
FireFoxを使うと、ブラウザに直接エラー原因が表示されると聞きましたので、
私はその方法でデバッグしようと思っています。
みなさんはどのようにデバッグされているのでしょうか。
ちょっと調べてみたのですが、Visual Web Developer などを使用したら、
少しは開発が楽になりますか?
> ちょっと焦ってパニックになりそうです。
なんてかわいそう。
今どうしてるだろ。
0286Name_Not_Found
2011/10/27(木) 20:42:15.20ID:???今はもうScriptNiceGuyになってるさ
0288Name_Not_Found
2012/09/15(土) 11:27:03.58ID:???創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
創価死ね
0289Name_Not_Found
2012/10/28(日) 12:38:57.97ID:F4wYrQD8<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関係のプログラミングは初心者でわかりゃない。
エロい人教えてください。
0290Name_Not_Found
2012/10/28(日) 13:50:01.53ID:???0291Name_Not_Found
2012/11/11(日) 15:36:37.38ID:CHYVVgDNhtmlファイル内の<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が作成されないのです。
解決法をご教授いただけたら幸いです。宜しくお願いします。
0292Name_Not_Found
2012/11/17(土) 00:29:44.99ID:???対象ディレクトリに書き込み権限があるか確認。
あとひょっとしたらserver.createobjectにしなければいけなかったかも。
最新のiisだと他に何かあるかもしれない。
情報はもう少ない上、質問に答えてくれる人もなかなかいないかもしれないですが頑張って下さい。
0293Name_Not_Found
2012/12/25(火) 00:08:40.22ID:YKJiebSmCOMの相互呼び出しには対応していないようです
なにか方法ありませんか?
自分でラッパー作るしかない?
0294Name_Not_Found
2012/12/25(火) 06:14:18.32ID:???別に1から書くのではなく、既にある物をラップするくらい簡単な作業なんだからさ
0295Name_Not_Found
2013/04/03(水) 00:16:25.16ID:???新しいyahooのメアド作ったので今までにメールをくださった方
&メールを送った方にメアド変えますメールを送りたい。
しかし、俺は腐れ縁がたくさん(小中高+サークル+同期、同僚など1000人ほど)
おって手動はめんどい。
大事な人だけに送ろうとしても、下手したら同窓会の案内などをもらい損ねるかもしれん。
そこでプログラムくんで一斉送信したいのだが誰かソース教えてくれ。
条件:
・受信BOXと送信BOXにはいっているメールの送り主と宛先をすべてBCC欄に入れて送信できる。
・重複は省く。
・内容はテンプレでおk。
・開発環境が悪いので.jsか.vbsで。
0296Name_Not_Found
2013/08/04(日) NY:AN:NY.ANID:Qug4id4r0297Name_Not_Found
2013/08/14(水) NY:AN:NY.ANID:???0298Name_Not_Found
2014/02/04(火) 18:55:50.45ID:???■ このスレッドは過去ログ倉庫に格納されています