05/03/13 06:08:57
CDate()で変換できるのですか！
うーん、奇妙！
ビット数の関係でdoubleなのでは、とは思っていましたが・・・
WSH(VBScript?)のdoubleって何バイトでしたっけ？
どうもありがとうございました。
167:デフォルトの名無しさん
05/03/13 10:28:55
>166
64bit
168:デフォルトの名無しさん
05/03/13 18:28:40
>>166
8バイト
169:デフォルトの名無しさん
05/03/16 05:41:48
自分で作ったアプリを WSH で制御しようとおもったら，
あらかじめ決められたインターフェイスを持った COM オブジェクトにしないとダメってことですか？
ってことは， C# で作っているアプリを WSH で制御できるようにするのは難しい？
170:デフォルトの名無しさん
05/03/16 05:55:19
HWNDを元に考えられる限りの窓遠隔操作機能を持ったCOMを誰か作ってくれないかな。
171:デフォルトの名無しさん
05/03/17 09:34:26
DynaCall
172:デフォルトの名無しさん
05/03/20 05:27:53
私、VBSしかわからないんですが、DateオブジェクトってどうしてJSでしか使えないんですか？
173:デフォルトの名無しさん
05/03/20 10:38:22
>>172
使えますよ。
<job>
<script language="JScript">
dt = new Date();
</script>
<script language="VBScript">
MsgBox dt.toUTCString()
</script>
</job>
174:デフォルトの名無しさん
05/03/20 16:02:18
>>43
XULのこと？HTAとは激しく別物かと思いますよ
HTAは通常のDHTMLを使ったWebページと同じくscriptタグ中に埋め込まれた
JScriptやVBSを呼び出すことで動作を表現する。
XULはそれ自体がXML準拠の構文でプログラムの動作を記述したもので
Mozillaのコアエンジンを通して実行される
と解釈してるが
175:デフォルトの名無しさん
05/03/26 14:25:44
>>173
同じ例に汁。
176:デフォルトの名無しさん
05/04/03 14:18:22
>>173
1年前の書き込みにレスしてどうする
177:デフォルトの名無しさん
05/04/03 14:19:04
アンカーミス>>733→>>734
178:デフォルトの名無しさん
05/04/03 23:39:59
>177
いつへのアンカーなんだよｗ
179:デフォルトの名無しさん
05/04/04 08:56:57
このペースだと6年後くらいだな。
180:176
05/04/04 17:04:29
はずぃ>自分
181:デフォルトの名無しさん
05/04/05 23:58:34
取得した文字列の中身が全部 US ASCIIかどうかチェックしたいのですが、何かいい方法ないでしょうか？
CだとIsAscii()があるのですがWSHだとないので。。。。
182:デフォルトの名無しさん
05/04/06 13:13:55
>>181
アルファベットまたは数字、いくつかの記号
にマッチするか調べればいいんじゃない？
183:デフォルトの名無しさん
05/04/07 01:05:54
181だけど事故解決しました
面倒くさがらずに自分で作らないとだめだね
CHRつかうのとREGEXP使うのとどっちがパフォーマンスいいのかなあ
どぴゅ
184:デフォルトの名無しさん
05/04/09 00:02:19
( ﾟдﾟ)ノ ハイ！質問です！
msgbox 2^64
を実行すると
1.84467440737096E+19
と表示されます。
１５桁を超えるものは指数を使って表示されるようですが、整数で表示する事は出来ますか？
185:デフォルトの名無しさん
05/04/09 00:45:39
文字列に変換
186:184
05/04/09 00:50:30
>>185
文字列に変換は、Cstr() ですか？
Cstrは試して見ましたが、表示に変化はありませんでした。
それとも他の方法でしょうか？
187:デフォルトの名無しさん
05/04/09 01:43:09
多倍長整数使えよ
188:デフォルトの名無しさん
05/04/09 11:05:17
変換したら加工せにゃ
189:デフォルトの名無しさん
05/04/16 15:48:13
質問です。
あるﾌｫﾙﾀﾞ２つのファイルを比較します。
２つのﾌｫﾙﾀﾞの拡張子は例としてtxtとvbsです。
拡張子がちがう同じファイル名のファイルの
最終更新日時を比較します。ファイル名は大量の為特定できません。
比較してvbsのほうが日付が古ければ
ｴﾗｰとしてﾃｷｽﾄファイルに書き出す
という、vbsを作りたいのですがどなたかわかりますか？
190:デフォルトの名無しさん
05/04/16 16:23:36
>189
１．フォルダAとフォルダBがある。
（フォルダAには拡張子vbsのファイルが、フォルダBには拡張子txtのファイルが入っている）
２．フォルダAからファイルをひとつ取り出す
３．フォルダBから拡張子を除いた部分の名前が同じファイルを探す
４．フォルダAとフォルダBのファイルの更新日時を比較して、
フォルダAのファイルが古ければテキストファイルにエラーを出力。
５．フォルダAのファイルが無くなるまで２～４を繰り返す
こういうフローでいいならできる。
191:デフォルトの名無しさん
05/04/16 17:52:35
>>190
できたら作ってくれませんか？m(__)m
192:デフォルトの名無しさん
05/04/16 17:56:50
>>191
逝ってよし。
193:デフォルトの名無しさん
05/04/16 21:48:46
_,ノ‐''''''^^^¨¨¨⌒￣⌒^^''￢-､,_
._v-''¨｀ .,,vｰ─-､ .,,vｰ─-､ .¨'ｰu_
_ノ'″ ./′ ¨┐ .／ ﾞ┐ .ﾞ'┐
,／′ ./￣''''-￢,,,,__.ﾐ .i |,,,,＿＿_ ..） ﾞ＼
,/′ λ | （ ･ )| ｝ .¨'ｰu,, | ＼
./′ 八,､-ﾐ.ノ‐''''''^^￣./¨ﾚ .人,_ ミ
.,ﾉ′ ._ノＵ' ＼_ ._,rlﾄ冖へy _／ ¨'‐u .ﾞlr
.,i′ ／ｰ-v､.,,_ ¨^^¨´〔 〕.¨^^¨′ __.,､ ﾞ＼. ｛
〕 ./′ .⌒''''' ＼,,,,,,ノ′ v-ｰ'''¨ .λ ﾞ┐ ｝ ＿＿＿＿＿＿＿＿＿＿
| ﾉ .λ──ｰ ｝ __,,.,､v;（_）ｰ'' ｛..］ ／
| :| | | .! ｀ .｝｝ ＜ きがるにいってくれるなあ。
｝ .| .Ｕ-:;:冖^￣ .| ¨¨¨¨¨￣¨¨′ ﾐ｝ ＼
.| .｝ _,,,,,ｖｖl''''¨¨|^^⌒|¨¨''''lｖｖ,_ ｝ ￣￣￣￣￣￣￣￣￣￣
). . 〕 ,,､-v~| .| | | |''Ｔ＾i-,,_ /
.｛ ). ., r'z::''''~ﾞ(~~￣￣￣￣￣￣~~~`^^^^''''￢;;;＿ ﾉ
ﾐ. `i, , `'' /
ﾞ). `i, .,ﾉ λ
＼ }, ′ . ／ | |
. ＼ ＼ . ,／ ∪
（¨¨¨¨¨¨¨¨¨¨¨¨¨¨ﾞソ冖干ｱ^^^^^^^^^^^^^ｒ'′
／~~~~~~~~i￢冖'''''7′ ∨￢ｰｰz─-―「＼
/ _ﾉ 厂¨丁¨¨ﾌ .ﾐ､ ﾞ＼
194:デフォルトの名無しさん
05/04/17 16:22:30
質問です。
XPを使っているのですが、デスクトップからスタンバイに移行するのに
Dim objShell
Set objShell = WScript.CreateObject("Shell.Application")
objShell.Suspend
というコードを使えばできると書いてあったんですが、
スタンバイに移行できません。
このコードはXPでは使えないのでしょうか?
195:デフォルトの名無しさん
05/04/18 02:05:49
>>191
せっかくアルゴリズムまでは教えてくれてるんだからヘルプファイル読みながらでも
自分で作んなさいよ
196:191
05/04/20 11:13:48
行き詰まってつい・・・・。でも、なんとかできました。
190さん、ありがとう。
197:191
05/04/21 06:45:27
できたのですが、ファイルがたくさんある場合に今どれくらい
進んでいるのか進捗状況を表示させられたらいいと思っているのですが、
今何％進んでいるか(プログレスバー？)を表示させるには
どうすればいいですか？検索とかしてるんですが、みつかりません。
無理なんでしょうか？
198:デフォルトの名無しさん
05/04/21 07:12:56
>>197
プログレスバーは無理な希ガス
cscriptから起動させて、文字列出力させたら？
199:191
05/04/21 07:37:13
>198氏
朝早くありがとうございます。無理ですか・・・。
しかたないのであきらめます。
200:デフォルトの名無しさん
05/04/24 23:25:02
この文なんですが
mLocation = FindFromText( pos, html, "<td valign=""top""><strong>■", "</strong><br>", "" )
↑ ↑
矢印で示した部分のコンマに当てはまる文字列を変数posとhtmlにそれぞれ返すいうことですか？
201:デフォルトの名無しさん
05/04/24 23:53:46
>>200
書いたやつに聞けよ・・・
"<td valign=""top""><strong>■" と、 "</strong><br>" にはさまれている文字を
mLocation に返すみたいだが・・・
202:デフォルトの名無しさん
05/04/25 01:17:55
>201
そうだな
サンクス
203:デフォルトの名無しさん
05/05/08 14:40:39
すいません，VBScriptでレジストリ操作をしたいんですが，
あるレジストリキーが存在するかどうかを確認する方法はありますか？
RegReadで存在しない値を参照してエラーが出てしまうんですが
回避方法がわからないんです．
204:キー列挙ならWMIの方が楽だよ
05/05/08 15:02:33
>>203
On Error Resum Nextじゃダメ？
205:204
05/05/08 15:02:56
Resum→Resume
206:デフォルトの名無しさん
05/05/08 15:06:25
>>204
それはアレですよね，エラー無視．
最初はそれにしてたんですが
他の部分でエラー出たりすることもあるしどうかなぁ と．
というか，エラー無視で強引に進めるのって怖くありません？
207:デフォルトの名無しさん
05/05/08 15:09:39
ちなみにHTAを使って割りと複雑な操作をするんで
VBScript+HTAじゃないとダメっぽいです．
RegDeleteもサブキーがあるとエラーとかいう意味不明な仕様ですが
あれも何とかならんでしょうか。
今は oWsh.Run("reg delete "HKCR\.dat" /f) とこんな事をしてます．
でもreg.exeを使うと動作にタイムラグが・・・＿|￣|○
208:デフォルトの名無しさん
05/05/08 19:03:25
URLﾘﾝｸ(www.microsoft.com)
209:デフォルトの名無しさん
05/05/09 02:20:54
>>203
>>208 の手段でも良いし、条件分岐させれば良いだけじゃないのか。
210:デフォルトの名無しさん
05/05/09 03:00:18
>>208，209
そうですね，208ので全部消していくかな．
条件分岐っていうのは？
レジストリキーが存在するかどうかが調べられないのに
どう条件分岐させるんですか？
211:デフォルトの名無しさん
05/05/09 20:16:32
>>210
当初 >>203 で言っていた「あるレジストリキー」というのがいくらかでも
特定されたものであれば、レジストリキーの有無で条件分岐できるだろうと
いうこと。今回言っているように、どのようなキーが存在するかさえ不明で
あれば >>208 の示した手段がベター。
212:デフォルトの名無しさん
05/05/09 20:56:52
>206
エラーの出そうな操作の直後に
if err<>0 then
～
end if
でエラーの場合の動作を（msgboxとかexit doとか）。
213:デフォルトの名無しさん
05/05/09 23:32:34
>>211
すいません、レジストリキーの有無ってどうやって調べるんですか？
214:デフォルトの名無しさん
05/05/11 21:46:18
キーをオープンしてみれば分かる
215:デフォルトの名無しさん
05/05/11 21:46:36
>>213
そのくらい調べりゃすぐ分かるだろ
自分で調べろよ
216:デフォルトの名無しさん
05/05/14 10:59:37
すいません、キーはどうやってオープンすればいいのか…
217:デフォルトの名無しさん
05/05/14 18:33:51
キーを読み取ってみてエラーが発生したら分岐させる？
218:デフォルトの名無しさん
05/05/16 18:58:29
急速にスレの質が低下してまいりました
219:デフォルトの名無しさん
05/05/17 14:07:51
急速という割には、ペース遅すぎな希ガス
220:デフォルトの名無しさん
05/05/20 13:45:42
スレッドストッパーの俺様が来ましたよ
221:デフォルトの名無しさん
05/05/20 22:35:57
そこでｽﾚｯﾄﾞﾘﾊﾞｲﾊﾞｰの漏れ様の登場ですよ
222:デフォルトの名無しさん
05/05/20 23:09:32
そこでﾊｲﾊﾟｰｽﾚｯﾃﾞｨﾝｸﾞな俺様の登場ですよ！！
223:デフォルトの名無しさん
05/05/23 01:18:56
おまいらちっとはwsh使へ
224:デフォルトの名無しさん
05/05/23 23:05:05
いやぷぅ(~o~)
225:デフォルトの名無しさん
05/05/24 23:12:11
バッチファイルと違って、タスクマネージャくらいからしか強制終了できないのが辛い。
あとは時間指定ぐらいですかね？
でも、環境によって実行時間が違ってくるから時間による終了は入れたくないなぁ。
226:デフォルトの名無しさん
05/05/25 02:25:23
バッチで強制終了させりゃいいじゃん。
バッチでできんことはWSHにやらせて。
227:デフォルトの名無しさん
05/05/25 19:59:47
向き不向きを考えて使えって事か。
そりゃそうか。
バッチファイルで何行も同じようなこと書きたくないなぁと思って
vbsならスマートかな、と思ってやってみたんですた。
まぁコマンドプログラム呼び出すたびにアクティブなウインドウがそっちに移るんで
それも困ってたﾄｺなんでやっぱバッチのほうが向いてるかも
228:デフォルトの名無しさん
05/05/26 05:03:19
>225-227 cscript.exe もちゃんと使おうな
229:225=227
05/05/26 19:59:30
URLﾘﾝｸ(www.atmarkit.co.jp)
コマンドラインスクリプトのことかーーーー！！！
初めて知りました。
多謝でつ。
230:デフォルトの名無しさん
05/05/27 12:38:44
WSHは略だけど
CScriptも略してCSHとは言わんな
231:デフォルトの名無しさん
05/05/27 22:27:43
wshはwscript.exeの略じゃないし
232:デフォルトの名無しさん
05/06/01 13:26:13
JScriptでショートカットのファイルを吐き出したいです
どうすれば出来ますか？
233:デフォルトの名無しさん
05/06/01 14:11:25
>>232
URLﾘﾝｸ(www.microsoft.com)
234:デフォルトの名無しさん
05/06/01 15:51:26
>>233
ありがとう
235:デフォルトの名無しさん
05/06/01 18:24:40
一定の間隔をおいて標準入力をテキストファイルに出力するにはどーしたらいい？
おしえてー
236:デフォルトの名無しさん
05/06/01 22:30:52
>235
一定の間隔とは行間のことだと勝手に想像して書いてみる
んでもって言語の指定ないから勝手にJScript
var ROW_SPACES=1;
var a=WScript.StdIn.ReadAll().split("\r\n");
var f=new ActiveXObject("Scripting.FileSystemObject").CreateTextFile("outfile.txt");
for(var i=0;i<a.length;i++){
f.WriteLine(a[i]);
for(var c=0;c<ROW_SPACES;c++)f.WriteLine();
}
f.Close();
237:デフォルトの名無しさん
05/06/02 01:45:36
間隔っつったらやっぱ時間じゃねえの？
while (!WScript.StdIn.AtEndOfStream) {
WScript.StdOut.Write(WScript.StdIn.ReadAll());
WScript.Sleep(10000);
}
238:236
05/06/02 02:20:20
>237
標準入力→テキストファイル、ってあるから
多分行間じゃないかなあと予測した
逆なら劣化ページャみたいな物と予測したのだけど
あと StdIn.AtEndOfStream() は試したら
存在しないみたいでエラー出たから ReadAll()
239:デフォルトの名無しさん
05/06/02 03:24:38
時間だとすると標準入力をテキストファイルに出力するのに一定の間隔を空ける意味が良く分からん
240:236
05/06/02 15:24:26
>239
そう、私もそれが言いたかった、ごめん＿|￣|○
てか、StdIn.AtEndOfStream てプロパティだから
括弧付けると駄目なのね…逝って来る＿|￣|○
241:デフォルトの名無しさん
05/06/03 17:59:10
ひょっとしてこういうことがしたいのかも
do while True
do while (not WScript.StdIn.AtEndOfStream)
WScript.StdOut.Write(WScript.StdIn.ReadAll())
loop
WScript.Sleep(5000)
loop
242:デフォルトの名無しさん
05/06/05 17:59:02
>241
ReadAllなのにAtEndOfStreamを待つのか？
243:デフォルトの名無しさん
05/06/05 20:51:29
tail -f
みたいな動きをさせるためじゃないかな
244:デフォルトの名無しさん
05/06/10 09:57:18
「デヴァイスマネージャ」の
「USBルートハブ」を無効にして
再度，有効にするという操作を
WSH にしてみてください
245:デフォルトの名無しさん
05/06/10 12:35:24
msgbox "USBハブのコード抜け"
msgbox "抜いたらもう一回挿せ"
246:デフォルトの名無しさん
05/06/10 12:50:41
>>245
【ご主人様】メイドさんスクリプト【ご命令を】
ｽﾚﾘﾝｸ(tech板)
247:デフォルトの名無しさん
05/06/10 14:01:26
Private Sub Command1_Click()
Dim UsbSet As SWbemObjectSet
Dim Usb As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set UsbSet = Service.ExecQuery("Select * From Win32_USBHub")
For Each Usb In UsbSet
MesStr = MesStr + "USBハブの名前：" + Usb.Description + vbCrLf + _
"USBハブのデバイスID：" + Usb.DeviceID + vbCrLf
Next
MsgBox "USBハブの情報です。" + vbCrLf + _
vbCrLf + MesStr + vbCrLf + "ですよ。"
Set UsbSet = Nothing
Set Usb = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
248:デフォルトの名無しさん
05/06/10 14:03:22
Private Sub Command1_Click()
Dim UsbSet As SWbemObjectSet
Dim Usb As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set UsbSet = Service.ExecQuery("Select * From Win32_USBController")
For Each Usb In UsbSet
MesStr = MesStr & Usb.Name & vbCrLf
Next
MsgBox "USBコントローラの一覧です。" & vbCrLf & _
vbCrLf & MesStr & vbCrLf & "ですよ。"
Set UsbSet = Nothing
Set Usb = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
249:デフォルトの名無しさん
05/06/10 14:10:00
URLﾘﾝｸ(www.microsoft.com)
250:デフォルトの名無しさん
05/06/10 14:44:59
>>244
UWSC使ってみ
URLﾘﾝｸ(www.h7.dion.ne.jp)
251:デフォルトの名無しさん
05/06/15 10:03:13
ご存知の方いらしたらご指導お願い致します
var oShell = WScript.CreateObject("Shell.Application");
var oFolder = oShell.NameSpace("fURLﾘﾝｸ(192.168.*.**)保存/");
var desktop = oShell.NameSpace(0);
var objFolderItems = desktop.Items();
for(var i = 0; i < objFolderItems.Count; i++) {
var ofitem = objFolderItems.Item(i);
if(ofitem.Name == "日報.xls") {
oFolder.CopyHere(ofitem);
WScript.Sleep(6000);
break;
}
}
日報.xlsをサーバーにFTPを使ってコピーするプログラムを作成しました
前日の同名ファイルに上書きして毎日保存しているのですが
ファイルの上書き確認ダイアログが出てしまうの非表示にして自動的に
上書きしたいのですが、よろしくお願い致します。
252:デフォルトの名無しさん
05/06/15 10:17:31
ふつうにftpコマンド使った方がよくね？
253:デフォルトの名無しさん
05/06/15 10:47:54
>>252
というと確認ダイアログをちゃんと出したほうが良いということでしょうか？
一応、転送終了後にファイルの更新日時や内容を軽くchkしていますので
サーバー側で定期的に別フォルダにバックアップしているので、間違いで
上書きしてもとりあえず問題ないのです
objFolder.CopyHere vItem, [vOptions]
FOF_NOCONFIRMATION 0x0010 上書きしますかとか聞いてこなくなる
oFolder.CopyHere(ofitem, 0x0010);
oFolder.CopyHere(ofitem , 0x0010);
こんなのを見つけて直してみても直りませんね
254:252
05/06/15 11:35:37
>>253
いあ、ftpでファイルをアップするだけの用途なら、
-sオプション付けて、動作指定したファイル記述するだけで良さそうだなー
と思っただけ
255:デフォルトの名無しさん
05/06/15 12:30:00
なるほどそういう事でしたか、コマンドプロンプトでやるのでしょうか
wshで記述できるのでしょうか？
勉強不足でして、バッチファイルの作り方も危ういので
>>251
で晒したソースもよそ様のサンプルを使って作成したので理解度0に近いのです
256:デフォルトの名無しさん
05/06/15 13:08:51
コマンドプロンプトでもwshでも可能
ftpの-sオプションについては↓みれば大体分かると思う
URLﾘﾝｸ(www.atmarkit.co.jp)
257:デフォルトの名無しさん
05/06/15 20:02:10
その前に、ftpコマンドの成功、失敗の判定をスクリプトやバッチファイルでできるのか？
258:デフォルトの名無しさん
05/06/15 20:20:50
もう一回アクセスしてファイルの日付がアップロードした日時になってるかとか
サイズがローカルのものと同じになっているかとかをチェックすれば出来なくはない
259:251
05/06/16 10:07:09
報告遅くなりまして申し訳御座いません
それと皆様に助言頂き感謝しております。
ftpの-sオプションについて教えて頂いたサイトを目下勉強中ですが
構文エラーが出てしまいうまくいかない状況です。しばらくサンプルを
作成して試してみますので、どうしても分からなかったら又ご助言を
よろしく御願い致します
260:デフォルトの名無しさん
05/06/16 14:20:45
おしごとでWSH使ってるんですが、
WSHのファイルインクルードって vbs しかインクルードできんのですか？
<script langage=VBScript src="aaaaaaa.vbs"/>
これでWSHスクリプトをインクルードしようとすると最初のJOBタグでエラーになってこのやろうちくしょう。
vbsでファイルインクルードがあればいいんですが・・・。
261:デフォルトの名無しさん
05/06/16 18:48:58
langage
262:デフォルトの名無しさん
05/06/16 18:58:11
で、vbsのインクルードはできたのか？
日本語で質問してくれると助かる。
263:デフォルトの名無しさん
05/06/16 19:19:11
JScriptはほぼ同じ方法で取り込める
だがwsfを取り込むってのは出来ないハズ
wsfにコードを書くと再利用するときに困るから
私の場合、コードは全てvbsに書き、wsfは取り込むのみで使う
264:260
05/06/16 23:55:51
>>261
ちょっとあせってたのさ。
>>262
おいっす。落ち着きます。で。対象のvbsファイルをFileSystemObjectで開いて、
ReadAllメソッド使ってソースをひとつの変数に突っ込んでExecute関数で実行っていう方法なら見つかった。
vbsには正式なインクルードはないみたい。wsfにはあるけど。
↓詳しくは見てください。
URLﾘﾝｸ(www.trickpalace.net)
>>263
やっぱりそうなるのね orz
再利用できる共通コードの中で、別の共通コード使いたい場合で困りますよね。
265:デフォルトの名無しさん
05/06/17 05:46:46
まずはここの情報は全て押さえとくとヨロシ。
MS社員の有志というか暇というか。一応純正だからｗ
URLﾘﾝｸ(groups.msn.com)
FAQやDOWNLOADに情報満載。
266:デフォルトの名無しさん
05/06/17 13:24:19
>>265
Σ（ﾟдﾟlll）ｽﾞｶﾞｰﾝ。英語！？ｗｗｗ
（´∀｀；）ゝいやぁ。漏れ純正の日本人だから英語ﾀﾞﾒｽｗｗｗ
と思ったけど、FAQはクリックすればサンプルコード出てくるだけだからわかりやすいね。ｱﾘｶﾞﾀｽ
267:デフォルトの名無しさん
05/07/18 02:39:27
ﾎｽ
268:デフォルトの名無しさん
05/07/20 01:42:04
ﾎｼｭﾎｼｭ
269:デフォルトの名無しさん
05/07/25 22:41:51
ﾎｼｭﾎｼｭ
270:デフォルトの名無しさん
05/07/27 16:45:29
Windows2000にて
WSH使って、タスクスケジューラへ
自動的にタスクを追加するには
どうすればいいか御存知の方いますか？
昔、どこかで出来るような発言してる人がいたので
結構ググッたけど、見つからなかった・・・
271:デフォルトの名無しさん
05/07/27 17:22:24
XPだったらschtasks使えば楽そう
Win32_ScheduledJobはATコマンドと同等だったはずだし、
IScheduledWorkItemとかITaskScheduler辺りを使えばどーだろ・・・
272:270
05/07/28 15:13:25
>271
調べてみたけど、使い方よくわかんなかったので
ATコマンドで妥協しました。('A`)
XPはschtasksがあるからいいですね。
273:デフォルトの名無しさん
05/07/28 15:29:52
ATコマンドってモデムのアレですか？
274:デフォルトの名無しさん
05/07/28 15:36:55
>>273
釣りなのか、マジなのか、なんかの揚げ足取りなのか知らないけど
コマンドプロンプト開いて、「at /?」と入力してみれ
275:デフォルトの名無しさん
05/07/28 15:41:41
ああ、UNIXのat相当なんですね。大文字で書かれると分からんもんですね。
276:デフォルトの名無しさん
05/07/28 15:55:30
>>274
いや、モデムの方だろ
277:デフォルトの名無しさん
05/07/29 02:35:30
ｓｃｈｔａｓｋｓはユーザー権限でログオンしている時
管理者アカウントでタスクを実行しようとしても
拒絶されるから嫌いだ。
そのくせ10回に1回うまくいったりするあたり、
単なるバグなんじゃねぇかと。
278:デフォルトの名無しさん
05/07/31 12:46:54
>>277
うほっタイムリーなネタ
だから実行できなかったのか！
なんかいい解決方法ないのかな。
XPでATコマンドってまだ使えたっけ？
279:デフォルトの名無しさん
05/07/31 14:39:24
>>278
そう実行できない。
2002年から2003年にかけて死ぬほど検証したし
海外までググったしMSプレミアムサポートに問い合わせもした。
結局使えそうで使えないコマンドなんだわ。＜schtasks
XPでもATコマンドは使える。
ただ管理者アカウントでログオンしてないと
コマンドが受け付けられないので注意。
これはNT4時代からずっとそうなので諦めるしかない。
管理者アカウントでログオンするなら
schtasksだって使えるんだよね。。。
> なんかいい解決方法ないのかな。
これまで携わったプロジェクトでは
配布ソリューション(SMSやその類似品)を使って
バッチを配布して管理者権限でキックしたり、
管理端末から(ドメインAdminでログオン)から
目的の端末にリモート実行させたりしてた。
あとはスタートアップスクリプトに仕掛けたりとかそういう感じ。
あとはサーバーに「特定のテキストファイルがあれば
ファイル名と同名のユーザーの端末上でコマンド実行」
という趣旨の定期監視タスクを仕掛けておいて、
ユーザーがバッチを起動すると、
サーバー側で監視してるフォルダに
テキストファイルが作られるみたいな構成とか。
わずかな事やるのに結構遠回りしてるなぁ。orz
280:デフォルトの名無しさん
05/07/31 16:07:05
>>279
>海外までググったし
そうか。プログラミングのノウハウは国内にはあまり無いから
ググる時にも必ず「ウェブ全体」を選んでたけど
まだそういう時代じゃないんだな
281:デフォルトの名無しさん
05/07/31 16:26:33
>>280
や、失礼。
ググった結果(主に英語サイト)から
海外サイトを延々見てまわり、の方が正確。
お詫びして訂正します。ｺﾞﾒﾝﾁｬｲ。
どうでもいいがヘブライ語みたいなサイトも見たよ。
チンプンカンプンだっつーの。
282:デフォルトの名無しさん
05/08/04 22:35:08
（・∀・）ｱｹﾞ!!
283:デフォルトの名無しさん
05/08/06 22:53:34
WSHで起動中の特定の名前のウィンドウの
存在の有無を確認する方法ってありますか？
284:デフォルトの名無しさん
05/08/07 09:40:02
>>283
WMIでWin32_Processをクエリーするしかないんじゃねーの？
でもこの方法、WindowsXP以外はWMICoreのインスコが必要だったと思うが。
285:283
05/08/07 13:10:15
>>284
レスありがとうございます。自己解決しました。
VBScriptのappactivate("ウィンドウ名")=Falseで
判定することができました。
286:デフォルトの名無しさん
05/08/08 14:53:27
リンクリストみたいなコレクションありませんか？
ハッシュ(Scripting.Dictionary)と配列はあったのですが･･･。
やりたいことは、文字列をコレクションに溜め込んで、最後にJoinで一つの文字列にしたいのですが、
ハッシュだと溜め込むことはできそうですが、最後にJoinしたときに順番がバラバラになりそうで利用できません。
要素の追加にコストが掛からず、最後に文字列結合できるコレクションなどはないでしょうか。
287:デフォルトの名無しさん
05/08/08 16:55:07
>>286
Arrayではコストがかかりすぎるのでしょうか。
288:デフォルトの名無しさん
05/08/08 17:53:42
>>286
そりゃあデータ構造を考えれば普通に不可能だろう。
289:デフォルトの名無しさん
05/08/16 20:39:16
みんなデバッグ環境はナニを使ってる?
290:デフォルトの名無しさん
05/08/16 21:56:50
jsファイル ダブルクリックして
テキストファイル出力で変数の値みる
291:デフォルトの名無しさん
05/08/21 01:11:37
var WShell = new ActiveXObject("WScript.Shell");
WShell.Run("c:\\******\\hoge.exe");
のように実行ファイルを動かし、hoge.exeからJScriptの変数に何らかの値を代入することは可能でしょうか？
292:デフォルトの名無しさん
05/08/22 13:25:15
>>291
こんな感じでしょうか。
この例ではHello, world!の後の改行までsに代入されてしまってますが。
----------
D:\>type hello.js
print("Hello, world!");
D:\>type hello2.js
var WshShell = new ActiveXObject("WScript.Shell");
var oExec = WshShell.Exec("d:\\hello.exe");
var s = oExec.StdOut.ReadAll();
WScript.StdOut.Write("[" + s + "]");
D:\>jsc /nologo hello.js
D:\>hello.exe
Hello, world!
D:\>cscript //nologo hello2.js
[Hello, world!
]
D:\>
----------
293:デフォルトの名無しさん
05/08/22 13:49:53
>>289
//X オプション + VSでデバグ。
294:291
05/08/24 16:04:26
>>292
ありがとうございます。
解決しました。
295:286
05/08/30 16:39:36
>>287-288
レスありがとう。
やりたいことは Java のStringWriterクラスでしたが、
writeメソッドで受け取った文字列を溜め込んで、
toStringメソッドで結合して返すってことをやりたかったのです。
それで実際に Scripting.Dictionary で、試してみたら
Joinしたときに順番がバラバラになるかと思ったんですが、
追加した順番に文字列が結合されたので大丈夫でした。
なんかラッキーでした。ありがとう。
296:デフォルトの名無しさん
05/09/05 12:59:10
vbsやりはじめて３日目です
Subプロシージャに引数としてオブジェクトを渡したいのですが
渡されたオブジェクトのプロパティをSubプロシージャ内で参照しようとすると
オブジェクトがありませんと言われます
ぐぐってもVBの事例はいくつか出てきたのですがVBSの事例は見つけられませんでした
どのようにしたらいいんでしょう
297:デフォルトの名無しさん
05/09/05 19:38:27
>>296
書け
298:名無しさん＠そうだ選挙に行こう
05/09/11 00:41:35
>>11 >>12 >>16 おそらく、↓のスレのことだと思われ。
// Windows Script Host を使い尽くす //
URLﾘﾝｸ(pc3.2ch.net)
299:デフォルトの名無しさん
05/09/12 20:52:33
win板のwsh スレはどこ？
300:デフォルトの名無しさん
05/09/12 22:31:35
落ちたみたいね
301:デフォルトの名無しさん
05/09/13 00:27:09
おいっす。了解っす。
302:1/2
05/09/15 23:43:08
どなたかお知恵をお貸しください。
あるテーブルの抽出結果を、ADODB.Recordset.GetStringで文字列にする関数 strResults を、
VBSから呼び出してテキストファイルに保存しようとしました。
Dim sFS, strParam, oTS, strResultText, intResultLetters, i
strParam = WScript.Arguments(0)
strResultFName = WScript.Arguments(1)
Set appAc = CreateObject("Access.Application")
appAc.OpenCurrentDatabase "V:\・・・\GrepRecordsets.mdb"
strResultText = appAc.Run("strResults", strParam)
Set appAc = Nothing
Set sFS = CreateObject("Scripting.FileSystemObject")
Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True)
oTS.WriteLine "MS Access ファイルからの検索結果"
intResultLetters = Len(strResultText)
For i=100 To intResultLetters Step 100 ' デバッグのため分割して書き込む
MsgBox Left(strResultText,100) ' デバッグのための内容表示
oTS.Write Left(strResultText,100)
strResultText = Right(strResultText,intResultLetters - i)
Next
303:デフォルトの名無しさん
05/09/15 23:43:34
ここで、ある特定の文字が、MsgBoxでは表示されるものの、
書き込もうとした時点でコンソール上に以下のエラーが出てしまいます。
Microsoft VBScript 実行時エラー: プロシージャの呼び出し、または引数が不正です。
その文字とは、中華料理店の店名らしいのですが、
火 日 金
火火 日日 金金
テキストエディタ等で見ると ?晶? となりますが、MS Wordなどで見ると上記のような文字です。
このため、文字コード変換で改善するかと思い、nkfwin.exe なるツールではどうかとやってみたところ、
上記の文字を含むテキストファイルを nkfwin.exe の引数に指定したところ、
┌────────────┐
│16 ﾋﾞｯﾄ MS-DOS ｻﾌﾞｼｽﾃﾑ ×│
├────────────┤
│ C:\WINNT\System32\cmd.exe -
│ V:\・・・\nkfwin.exe
│ × -s -I TestKanji.txt
│ NTVDM CPU は不正な命令を検出しました。
│ CS:0000 IP:e2d7 OP:00 00 00 00
│
│ [ 強制終了(T) ] [ 無視(I) ]
└────────────┘
となってしまいました。
このような現象は、どう対処したらよいのでしょうか？
お教えいただけますと大変助かります。
OS : Windows NT 4.0 Access 2000, ADO 2.6, WSH 5.6
304:デフォルトの名無しさん
05/09/16 05:08:50
>Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True)
ここを
Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True, True)
にしたんじゃダメか？
出力内容がUNICODEになっちまうけど。
(SJISには無い文字コードみたいだからそうするしかないんだけどね。)
305:デフォルトの名無しさん
05/09/16 09:06:23
>>304
ありがとうございます！
あっさり出力できました！
大変助かりました。m(_ _)m
306:デフォルトの名無しさん
05/09/16 20:27:56
ユニコードの28977 焱 、
ユニコードの37995 鑫 と判明しました。
これらの文字を取り除いてメールで送れるテキストにする方法を探し中です。
307:デフォルトの名無しさん
05/09/16 23:13:23
報告です。
まず unicodeテキストとして保存し、
その後 フリーソフトの cherset converter で
→ ISO-2022-JP → Shift_JIS
で出来ました。
２段階でやったところ、通常 ? で置き換わるところ _ で置き換わっていました。
ありがとうございました。。
308:デフォルトの名無しさん
05/09/28 18:18:34
ここで聞くのが正しいのかも少々不安ですが
質問させてください。
前提：
プログラミングは大昔に20年ほど前にFORTRANいじったことがありますが
中途半端だった上にその後すっかりで、基本的に知識ゼロです。
要望：
・下記の事がWSHで実行可能か知りたい
・可能な場合は参考になるスレはどこにあるのか知りたい
・ヒントになるようなスクリプトがあれば手に入れたい
やりたいこと：
(WindowsXP上で動いているアプリケーションに対してです)
起動
1.任意の座標(固定)のcolorをチェックする
2.任意のcolorではない(または任意のcolorである)場合に
3.任意の座標をマウス(右)クリック(相当の信号?コマンド?送出)
終了までループ
座標系はやったことがないのでまるでわかりません。
ヒントを頂いて勉強もしたいのですがちょっと差し迫った事情が
あって時間もないので、どなたかお教えいただければ幸いです。
そんなのプログラム組めば簡単簡単・・・などとできもしないのに
大見得切るんじゃなかった。。。^^;
よろしくお願いします。
309:デフォルトの名無しさん
05/09/28 18:48:01
無理…だと思う。
310:デフォルトの名無しさん
05/09/28 21:37:52
>>308
俺もWSHじゃ無理だと思う。
Win32系のスレでAPIの使い方を訊きながら、C言語でコンソールアプリとして作ればそんなには難しくないと思うよ。
C言語のコンパイラは Borland C++ Compiler とか Microsoft Visual C++ toolkit 2003 とか無料のがあるからそれを使いね。
( Microsoft Visual C++ toolkit 2003 は別途PlatformSDKも入手しなきゃならんから Borland のほうが手軽かな？ )
311:デフォルトの名無しさん
05/09/28 21:42:27
宿題スレでやってもらうのがいいかも。
312:デフォルトの名無しさん
05/09/29 10:15:43
>>309
>>310
>>310
ありがとうございます。
そもそもWSHでは無理がありそうなのですね。
宿題スレも見てみます。
313:デフォルトの名無しさん
05/09/30 10:41:25
UWSCならデフォで出来るし
UWSC内でVBSとか使えるけどね
314:デフォルトの名無しさん
05/10/04 11:14:28
ネットワーク上にある約200台の端末の指定ファイルの最終更新日を一気に取得したいんですが、
電源が入っていない端末にアクセスすると処理が遅くなってしまいます。
315:デフォルトの名無しさん
05/10/04 11:38:29
そうですか
316:デフォルトの名無しさん
05/10/04 12:25:53
そうなんです
317:デフォルトの名無しさん
05/10/04 12:41:18
じゃあ電源が入ってるかどうか管理しておけばいいじゃない
318:デフォルトの名無しさん
05/10/04 14:16:06
そうですか?
319:デフォルトの名無しさん
05/10/04 21:22:51
このスクリプト簡単でおもしろいね。
知らない人に時間が来たらメモ帳開いて１秒間隔くらいで
「お・ま・え・は・明・日・死・ぬ」とか書いちゃったりして
おもしろーいｗ
きゃははｗ
320:デフォルトの名無しさん
05/10/04 23:12:28
そうですか
321:デフォルトの名無しさん
05/10/04 23:32:54
>>320
そんな素っ気ないレスじゃなくて、友人がいないに違いない >>319 に仲良くしてやれよ。
俺はくっだらなくも陰湿な >>319 なんか、まっぴらごめんだけどなｗ
322:デフォルトの名無しさん
05/10/05 00:34:44
そうだな
323:デフォルトの名無しさん
05/10/13 22:26:58
ネットワーク上の別のＰＣのデスクトップにメモ帳を立ち上げる
なんてこと、出来るのでしょうか？
324:デフォルトの名無しさん
05/10/13 23:17:10
>>323はマルチなので、以後放置で
お前ら、wsh使ってますか? part5
ｽﾚﾘﾝｸ(win板:73番)
325:デフォルトの名無しさん
05/10/14 14:05:25
>>323
NET SEND OtherPC メモ帳起動して
326:デフォルトの名無しさん
05/10/14 15:13:14
>>325
それいいな
327:デフォルトの名無しさん
05/10/14 22:52:22
>>323
\\自分のPC
\\相手のPC
\\相手のPC 上で、\\自分のPC の任意のフォルダを監視させるスクリプトaaa.vbs
を起動させておく。
もし、\\自分のPCに上の任意のフォルダに、メモ帳起動.txt というファイルが作られたら、
そのファイルを削除して、\\相手のPC上で、Wscript.Shell.Run "Notepad"を実行する。
というのが、一般的だが？
328:323
05/10/15 00:26:27
>>327
レスありがとでげす。
教えてくださった方法では、
別のイベント（別動作）をトリガーとして持たなくてはいけない点と、
\\相手のＰＣ上でaaa.vbsを実行しなくてはいけない点
が不満です。
上の２点を回避する方法はないのでしょうか？
329:デフォルトの名無しさん
05/10/15 01:33:37
\\相手のＰＣ上でbbb.vbsを実行すればいいと思うよ。
ってゆうかさー、その程度の応用もできないわけ？
330:デフォルトの名無しさん
05/10/15 08:29:52
schtasksとかatとか使えばいいだけのような
331:デフォルトの名無しさん
05/10/15 12:32:19
使い方が解りませんとか言い出してきそうな悪寒
332:デフォルトの名無しさん
05/10/15 22:42:07
スタートアップファイルに、aaa.vbs のショートカットファイルを入れておいても良いレベルでは？
結局、323の使用目的によって回答のレベルも可変なんだと思う。
さあ、話してごらん、使用目的を。
333:デフォルトの名無しさん
05/10/15 23:00:55
おまいら、マルチなので、以後放置ではなかったのか？
334:323
05/10/16 08:16:34
>>332
使用目的というわけではありませんが、
単純にメッセージを送信できれば問題ないです。
できれば日本語（2byte文字を）
XPとWin98SEでも使える方法を伝授くださいませ。
335:デフォルトの名無しさん
05/10/16 11:05:19
要するに、作って欲しいわけだ
336:デフォルトの名無しさん
05/10/16 15:00:36
NT系ならメッセージを送る方法があったはずだが…。WSHから使えるのかは知らないけど。
337:323
05/10/16 15:14:57
>>335
バレた！！
338:デフォルトの名無しさん
05/10/16 15:24:40
>>323
>>325
339:323
05/10/16 15:27:41
>>338
net send って、Win98でも使えるの？
340:デフォルトの名無しさん
05/10/16 16:01:55
なんだとこの野郎
341:デフォルトの名無しさん
05/10/16 17:00:02
>>339
一応、NT 系の net send と Win9x 系の winpopup は、
相互に送受信できる。
ただし、winpopup をスクリプトから制御できるかどうかは
知らん。
342:323
05/10/16 17:21:22
結局、相手PCがWin98系のときは、
\\相手のＰＣ上でaaa.vbs or bbb.vbsを実行しなくてはいけない
ということですか。。。
343:デフォルトの名無しさん
05/10/16 17:29:34
>342
自分のPCがNT系ならnet sendで送信すれば、
相手が98系ならwinpopupで受信してくれるんじゃないの。
344:323
05/10/16 17:49:18
>>343
winpopupを立ち上げるのに、aaa.vbs or bbb.vbsが必要ということでは。。。？
345:デフォルトの名無しさん
05/10/16 18:01:48
ヒント: スタートアップ (+ 必要なら、自動ログイン)
346:323
05/10/16 18:24:06
>>345
つまり、\\相手のPCにいちいち細工をしなくてはいけないということが
私のやりたい事には入ってないわけで。。。
347:デフォルトの名無しさん
05/10/16 18:36:53
348:デフォルトの名無しさん
05/10/16 18:38:37
結局何が目的なんだといいたくなるな
349:デフォルトの名無しさん
05/10/16 18:38:41
なんの設定もなく相手先のPCを操作できることを
専門用語でセキュリティーホールと言う
350:323
05/10/16 18:45:03
>>348
わかりずらい話につき合わせてしまって、ごめんなさい。
>>349
つまるところ、そういうことなんですね。
せきゅりてぇいがあるのはいかしかたないことですから、あきらめます。
最期に、もうひとつ。
\\自分のPC の任意のフォルダを監視させるスクリプト
（もし、\\自分のPCに上の任意のフォルダに、メモ帳起動.txt というファイルが作られたら、
そのファイルを削除して、）
はどのように記述すればよいのですか？
スマートな方法を教えてもらえませんか？
351:デフォルトの名無しさん
05/10/16 18:51:20
>>350
スマートな方法なんて、無理に決まってんだろ
352:デフォルトの名無しさん
05/10/16 19:17:25
>>350
>>348
>>325
353:デフォルトの名無しさん
05/10/16 19:52:21
>>350
while(true)
{
if( ファイルオブジェクトか何か.IsExist ) 処理;
Sleep(何秒か);
}
354:デフォルトの名無しさん
05/10/16 19:55:09
>350
相手側に何か仕込むなら、Winpopupをスタートアップに登録するだけの方が無難だと思われ。
355:323
05/10/16 23:05:51
みなさん、どうもありがとう。
>>354
相手側のPCが遠くて、私が直接作業出来ないんですぅ。
ついでに、驚かせたいってのもあるから、相手にやってもらうのも。。。ねぇ。
っていう理由なんですよ。。。
356:デフォルトの名無しさん
05/10/16 23:09:54
出来ないんですぅ。じゃねえよクソがッ！！！！！！
失せろこの頓馬！！！！！！！！！！！！！
357:デフォルトの名無しさん
05/10/16 23:25:08
>>356
kawaisouni...
358:デフォルトの名無しさん
05/10/17 00:59:54
> 驚かせたいってのもあるから、相手にやってもらうのも。。。ねぇ。
本当は何らかの不正行為をやるつもりだろ
そういうことをやろうとしてるけど、自分でやるだけの知識が無い奴は
決まって｢驚かせるだけ｣とか｢ジョークソフトを作るのに｣とか言い訳して
やり方を聞いてくる
どうせ口先だけじゃ如何様にも言い逃れは出来るけどね
359:デフォルトの名無しさん
05/10/17 01:23:03
スマートというか本当はコマンドライン一行でやる方法あるんだけどね。
何かマルチポストっぽいしクラッキングの片棒担ぐのも嫌なんで自分で調べな。
360:デフォルトの名無しさん
05/10/17 03:08:44
スタートアップやタスク、netsend などを使うことなく、同じドメインに属している
リモートクライアントで notepad.exe のプロセスを走らせるスマートな手段は実際、
あるにはある。でもなぁ、>>323 の目論んでいることが今一つ抽象的かつくだらない
目的のように思えてならないんだよな。結局何をしたいのよ？>>323
361:デフォルトの名無しさん
05/10/17 07:25:25
もういい加減スルー
362:デフォルトの名無しさん
05/10/17 15:05:22
すいません初歩的すぎて申し訳ないんですが、次のサンプルスクリプトをWSHへ書き換えたいんですが
パラーメータの渡し方がわかりません。
どなたか教えてください。
<object ID=NetMeeting CLASSID="CLSID:3E9BAF2D-7A79-11d2-9334-0000F875AE17">
<PARAM NAME = "MODE" VALUE = "DataOnly">
</object>
↓
Set NWobj = createobject("Netmeeting.App")
363:デフォルトの名無しさん
05/10/17 21:57:33
ほう。マルチですか。
364:デフォルトの名無しさん
05/10/18 00:05:36
>>359、360
323はWin98でやりたいと言ってるように見えるが？
365:デフォルトの名無しさん
05/10/18 09:46:45
糞ﾉｰﾄﾝ先生を強制的に黙らせる方法はありませんか？
友達にVBScript渡したら悪質なScript扱いされて実行止められた('A`)
366:デフォルトの名無しさん
05/10/18 11:20:37
良質なScriptはScriptBlockerを強制Offにしたりしません。
367:デフォルトの名無しさん
05/10/18 13:20:58
ﾜﾛﾀ
368:デフォルトの名無しさん
05/10/18 21:49:41
つーか最近無駄にセキュリティが高すぎる気がする。
そりゃ便利に何でも動くようにしたら、セキュリティに興味ない人が
どんどんウィルス感染するのは分かるんだけどさ。
最近のIEとか全然Script動かないじゃん。
ScriptどころかSVGとかも見れないし。
PC使えない人の問題を自動的に修復できるようにScript渡したいのに
Scriptも動かない動かせないんじゃどうしようもないですがな。
369:デフォルトの名無しさん
05/10/19 00:20:57
>>359
お～、それはすげーな。
でも、それって君の PC のセキュリティが低いだけだと
公言してるも同然で、アフォ丸出しだから止めたほうが
いいよ。
370:デフォルトの名無しさん
05/10/19 00:29:13
そうだそうだ
371:デフォルトの名無しさん
05/10/19 00:31:54
>>369
もちろんアカウントとパスワードは必要ですってば
372:デフォルトの名無しさん
05/10/19 00:37:46
>>371
(￣ー￣)ﾆﾔﾘｯ
373:デフォルトの名無しさん
05/10/19 00:54:35
>368
最近のPCならリモートデスクトップとかあるじゃん。
374:デフォルトの名無しさん
05/10/19 08:30:15
>>368
>Scriptも動かない動かせないんじゃどうしようもないですがな。
Nortonがブロックするなら許可すればいいだけじゃね
単に動くスクリプトをあなたが書けないだけでは?と煽ってみる
IEだって設定の問題でしょ
375:デフォルトの名無しさん
05/10/19 22:04:59
>>374
自分自身はちゃんと設定してるから動くよ。
他人に渡したときに動かないのが困る。
それも、「○○が動かなくなったから何とかしてくれ」
というのでScriptでファイル操作して自動的に解決するようにして送ったら
・メールから勝手に削除された
・なんとか受け取ったScriptは実行不能
（ﾉｰﾄﾝが止めているらしい）
・ﾉｰﾄﾝの設定は弄れない
とのことで結局どうしようもなくなった。
まぁScriptは自分の為に使うものってことなのかね？
376:デフォルトの名無しさん
05/10/19 23:17:44
>>375
見る限り全てノートンの所為
377:デフォルトの名無しさん
05/10/20 16:44:51
よくタクスバーにアイコンだけ表示されている常駐ソフト( 音量やハードウェアの取り外しなど )がありますが、
どうにかして、このアイコンをクリックしたときに出るメニューの文字列って取得できませんか？
378:デフォルトの名無しさん
05/10/20 17:14:36
マウスを置いたときに出るツールチップなら統一されてるから取得できるけど
出てくるメニューはプログラムの内部で任意に指定してるものだろ。
そんな不規則なものを取得できるのか?
379:右下の時計のことならタスクトレイだ
05/10/20 22:29:44
>>377
つーか最終的に何をしたいか賭けよ。
エクスプローラ（シェル）は落ちることがあるし、そうなったら
プログラムとしては動作しててもタスクトレイからは
アイコンが消えてしまうのはよくある。
WMIでWin32_Processをクエリーするのがセオリーだ。
380:デフォルトの名無しさん
05/10/20 22:37:30
>>377
>>378 が言う通りあのメニューはクリックした時に
プログラムが出してる。
だから、クリックするたびに違うこともあるし、プロ
グラムによってはメニューなんか出さずにいきなり設
定ダイアログをとかを出すやつもいる。
>>379 も書いてるけど、何のためにそんなことしたい
んだ？
381:デフォルトの名無しさん
05/10/20 22:51:09
379じゃないけど
いちいちマウス動かさないでメニューの文字を一覧したいからじゃない
382:デフォルトの名無しさん
05/10/20 23:01:19
>>381
m9(^Д^)ﾌﾟｷﾞｬー
383:377
05/10/21 01:32:39
>>378-381
>>379さんヒントありがとうございます。
Set ServiceSet = GetObject( _
"winmgmts:{impersonationLevel=impersonate}" _
).ExecQuery("select * from Win32_Process")
見たいなかんじでまずオブジェクトを取得して操作するみたいですね。
まずはタスクリストを得られるという感じなのかな・・・
やりたいことは、
httpdでスクリプトを起動して、外出先で常駐アプリの状態が知りたいんです。
いまのところ、httpdからcgiを起動して、perlプログラムからuwscスクリプトを起動して、
traypseというアプリケーションを通して、目的のタクストレイのアイコンをクリックするところまでできています。
（目的のアプリケーションのウィンドウハンドルまではわかっています）
uwscスクリプトでは、このときに出てくるメニューにアクセスできないために、
OLEオートメーションでなんとかならないかと思ったしだいです・・・
そこで詳しい方が多そうなこちらで質問させていただきました。
WMIには詳しくないので、もう少し調べてみます。
またヒントがあったらよろしくお願いします。m(_ _)m
384:デフォルトの名無しさん
05/10/21 23:22:39
> やりたいことは、httpdでスクリプトを起動して、
> 外出先で常駐アプリの状態が知りたいんです。
ねぇ、何でそれを最初に書かないの？
あと、その常駐アプリの名前は極秘なの？
385:デフォルトの名無しさん
05/10/22 15:32:35
PrintScreenアプリでデスクトップを丸ごとコピーした内容をFTPで送信。
Sendkeysでやるんならそんなもんか。
Winnyのウイルスみたいな動作なきがするけど気のせいか。
386:377
05/10/22 17:57:08
>>384
すみません
えっと、常駐させるアプリはnyです
外出先から動画やソフトのダウンロード状態を確認出来ないかな、と・・・
387:デフォルトの名無しさん
05/10/22 18:14:03
終わったな
↓次の話題をどうぞ
388:デフォルトの名無しさん
05/10/22 18:43:57
Select Case文だと、のちのち処理を拡張したい時に、文法に自由度がなさすぎて破綻しそうな場合について。
以下のようにしておくと、すっきりと処理できたので報告します。
For i=0 to 1
IF ～ Then : Exit For
IF ～ Then : Exit For
IF ～ Then : Exit For
IF ～ Then : Exit For
（ここにデフォルト処理）:Exit For
Next
IF文を、故意に、ネストさせないで使っているので、見た目的にもすっきり。
もっと良い方法があるという方は、ご指摘願います。
389:デフォルトの名無しさん
05/10/22 19:04:04
> Select Case文だと、のちのち処理を拡張したい時に、文法に自由度がなさすぎて破綻しそうな場合について。
Select Case使うときは処理を拡張してもSelect Caseで間に合う時だけだ
｢Select Case文が、のちのち処理を拡張したい時に、文法に自由度がなさすぎて破綻する｣なんてことはあり得ない
> For i=0 to 1
> IF ～ Then : Exit For
For～NextよりDo～Loopの方がまだマシだろ
それと｢：｣は要らなくないか?
390:デフォルトの名無しさん
05/10/22 20:28:56
> For i=0 to 1
For i = 0 To 0 の方がいいんじゃないか？
For I = 0 To 1 だと、なんかの時に２回回ることを想定し
てそうだ。
そもそも、For のは、余計な変数が必要だったりするから、
>>389 が言うように Do ～ Until True の方がいいと思う。
> IF文を、故意に、ネストさせないで使っているので、見た目的にもすっきり。
そもそも、
If ～ Then ～ ElseIf ～ Then ～ ... Else ～ End If
で大体間に合うし。
391:デフォルトの名無しさん
05/10/22 22:14:26
>>386
Winnyってメニューの文字列可変じゃないジャンｗ
392:388
05/10/22 23:07:51
>>389-390 貴重なご意見、回答ありがとうございます。
確かに、For i=0 から回しているので、2回ループするバグを出しそうですね。
あと、Do～Loop: Exit Doのほうが、変数要らなくてスマートですね。修正しようと思います。
＞それと｢：｣は要らなくないか?
Then のあとに実際は、何かの処理を入れています。いきなりExit Forしてる訳ではないです。
そもそもExit For要らないのでは？という疑問に対しては、「予期せずに、他のIF行を実行して
しまわないようにする為」のお守りとして付けた方がいいと思っています。
この処理を何に使用しているか、誰からも聞かれていないですが、一応書いておきます。
WSHのINPUT文を利用して、アプリケーションランチャーを作りました。なかなか快適です。
If Ucase(入力した値) = "MYDOC" Then Wscript.CreateObject("WScript.Shell").Run "C:\mydoc\": Exit For
とか、
If Ucase(入力した値) = "SLEIP" Then Wscript.CreateObject("WScript.Shell").Run """C:\Program files\～\Sleipnir.exe""": Exit For
とかいうように、使っています。
393:デフォルトの名無しさん
05/10/22 23:22:13
それこそ入力値は必ずinputboxの戻り値なんだからselect case使うべきだろ
等価比較演算で、一方が固定(inputboxの戻り値)なのが分かり切っているのに
select caseを避ける理由って何だ?
｢WSHのINPUT文を利用して、アプリケーションランチャー｣で、入力値以外の何を評価すると言うの?
394:392
05/10/22 23:36:40
>>393 実は、電卓としての機能も持たせていて、
InputBoxの中身が、登録されたキーワード以外の時は、Eval( )で、計算機に早変わりするというものです。
（現在、キーワードもどきの文字列を送ると、Evalしてしまうので、エラーで落ちたりする事もよくありますが、特にErr処理していません）
他にも便利機能を拡張するかも知れないので、SelectCaseよりも条件分岐しやすい処理系にしたいと思って、
>>388 のように書いてみました。
395:394
05/10/22 23:42:18
元ネタ & プログラムの原型は、以下のスレです。
WSHで数学をするスレ
ｽﾚﾘﾝｸ(math板:29番)
URLﾘﾝｸ(science3.2ch.net)
の29スレめの簡易電卓.vbs より。
396:デフォルトの名無しさん
05/10/22 23:45:17
でも結局動作の振り分けは｢InputBoxの中身(戻り値)が｣なんでしょ
ならcase elseで処理させればいいじゃん
どう機能拡張しようと、｢InputBoxの中身(戻り値)｣で動作を分岐させるなら
select caseで間に合わなくなることは無いわけだが
397:394
05/10/23 00:02:49
>>396
現状の使用では、Select Caseで、全く問題なさそうですね。
また、変なネタかプログラムができたら、レスします。（＾＾）
その時は、またコメントよろしくお願いします。
他に、機能拡張するとしたら、何かありますか？とか聞いたりして‥
InputBoxで、IEみたいに、途中まで入力した文字列の補完って
できないですよね？
398:デフォルトの名無しさん
05/10/23 00:13:40
標準のinputbox自体では出来ないけど、
例えば末尾に"..."と入れたら入力補完するとか規則を決めて、
inputboxのの戻り値がright(,3)="..."だったら、補完リストから部分一致を検索して
もう一度inputboxを表示するとかはできるだろうな
399:397
05/10/23 00:20:38
φ（．．）メモメモ．．．
400:ハーピィ
05/10/23 23:12:32
E・∇・ﾖﾉｼ ＜400ｹﾞｯﾄ♫
401:デフォルトの名無しさん
05/11/05 10:18:19
モバイルでプログラム【NS BASIC/CE】
ｽﾚﾘﾝｸ(mobile板)
NSBASIC/CEはWSHを知ってるならほぼ使えるよ！
PDAであるWindowsCE上（実質シグマリやjornadaでないときついが。）でもデスクトップでも
開発が可能。
手のひらで自分の作ったアプリが動く喜び！最新Ver6.02は、EXE化されたものに好きな
アイコンをつけられるのでほとんどスクリプトと分からない。
NS Basic/CEは、WindowsCEにRuntimeを導入してその上で動く。
最新のWM5にも対応しており､日本語版も出ているし､日本語サポートもいるので安心だ。
402:デフォルトの名無しさん
05/11/05 10:19:38
よかったら購入してユーザーにならないか？ 俺もユーザーになったばかりなんだ。
日本サポートに確認をしたんだが、WEBでユーザー登録していただいて、その後、日本語サポートに連絡を
くれたら、無料Ver6（最新版）にアップデートできるそうだ。
FACTORY SABOT
501 Maritaimu 9-9 Higashimaikochou, Tarumi-ku, Kobe, Japan
Phone(078)787-3602 Fax(078)787-3619
URLﾘﾝｸ(www.sabot.co.jp)
sales@sabot.co.jp
MobilePLAZA
6-3-7-1F Sotokanda, Chiyoda-ku, Tokyo, 101-0021 Japan
Tel 03-3834-0315
URLﾘﾝｸ(www.mobileplaza.co.jp)
で買える。URLﾘﾝｸ(www.nsbasic.com) が公式なんだが
DEMO版で試すことができるから、WSHのソースを貼り付けてみるといい。実質WSHだから。
シャープのW-ZERO3のCOMコントロールでPHSに信号を送り電話がかけられることがシャープより
確認が取れてるから今度出るWM5にも対応してる。
どだ？さみしいから仲間になってくれないか？NSBASICがほぼWSHというのを知らない人が
多いんで宣伝してすまそ
403:デフォルトの名無しさん
05/11/05 10:26:28
あ、このWEBでユーザー登録して日本語サポートにメールくれたら
最新のをというのは
Ver5を買っても、無料でユーザー登録した時点の最新Verアップが可能と言うことなんだ。
お前ら、wsh使ってますか? part5 にも貼ったので両方覗いてる人にはすまんかった
404:デフォルトの名無しさん
05/11/06 10:42:40
以前、H;/PCで、Embedded VBを少し使ってたけど、少しVBに似てるってだけで
なかなか使いづらかった。コントロールの数が少なくて。
WSHよりも更に、機能が少ないんじゃないかって感じた。
NS BASICか‥、どうなんだろう、その実力はいかに‥
405:デフォルトの名無しさん
05/11/07 11:12:04
DEMO版があるよ。WSHのソースがほぼそのまま画面周りは修正しなくては行けないが
使えるのでソースぺたぺた貼り付けて動き具合を試してみてはいかがかな？
国内ではほとんどユーザーがいないが、海外ではNSBASIC/CE掲示板は
思い切りにぎわってる。
まずPDAスペックがあがったため、そこそこのスピードで動くようになったのも
大きいと思う。
コントロールの数もかなり増え､WSHとほぼ同じように使える。
はっきり言ってVer3のころなどへぼかった。4、5、6になるにつれ進化していってる。
Palm版のNSBASICもそうなんだが、なんとか使えだしたのはどちらもVer4ぐらいから
じゃないかな？
俺も始めたばかりなんで少しでも仲間が欲しい。なにせWSH入門を読んでるレベルだからだ
406:デフォルトの名無しさん
05/11/23 02:13:33
ﾎｼｭ
407:デフォルトの名無しさん
05/11/27 19:13:55
Set objShell = WScript.CreateObject("WScript.Shell")
colEventSource = objShell.RegRead("・・・・・・・・・")
としてレジストリをしらべようと思っているのですが、
レジストリのフォルダ構造を調べるにはどうしたらよいのでしょうか？
（HKEY_CURRENT_USER\Software の下に何が入っているか知りたいなど・・・）
知っているかたがいましたら教えてください。
408:デフォルトの名無しさん
05/11/27 19:31:11
regedt32.exe
regedit.exe
409:デフォルトの名無しさん
05/11/27 19:48:12
>>407
WshShellのメソッドで出来ることは、値を読んだり書き換えたり消したりくらいで
サブキーの列挙とかは出来ないので、キー構造を取得したければDynaCall使ってAPI呼ぶか、
自分でCOM作るかだな。
まあ作らなくても探せばあるかもしれないけど、この板の住人ならこの程度は作った方が早いだろ。
410:デフォルトの名無しさん
05/11/27 19:52:04
ふつうWMI使う
411:407
05/11/27 20:49:32
>>409>>410
レスありがとうございます
WMIを使って解決出来ました。DynaCallは面白いと思うので、何かのときに利用したいと思います。
（以下作ってみたスクリプト）
Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer("","root\default")
Set Reg = Service.Get("StdRegProv")
Reg.EnumKey &H80000001,"Software", SubKeys
For Each Key In SubKeys
WScript.Echo Key
Next
412:デフォルトの名無しさん
05/11/29 22:54:41
スクリプトそのものとは関係ないんですが、ちょっと困った現象が
起きているので誰か力を貸してください。
WScript.Echo "test"
という１行だけのスクリプト(test.vbs)を作って、
コマンドプロンプト上で
cscript //nologo test.vbs
と実行します。すると、標準出力に
test
と当然出力されます。
そして処理は終わってるはずなんですが、
そのまま5-10秒くらいプロンプトに戻ってきてくれません。
何の後始末をしているのか知りませんが、＾Cも無視されます。
どのような原因が考えられるでしょうか。
413:412
05/11/29 23:10:31
一応その他の情報を。
OSはWindows Server 2003
試したこと。
・引数なしでcscriptを実行
使い方が表示されてすぐ戻ってきました。
・エラーを含むスクリプトを実行
エラー情報が表示されて、5-10秒待たされます。
試そうとしていること
・JScriptのファイルを実行
・正常に動くマシンとスクリプトエンジン/WSHのバージョンを比較してみる。
414:デフォルトの名無しさん
05/11/30 02:39:03
cscript //nologo
だけだったら？
415:デフォルトの名無しさん
05/11/30 22:04:13
>414
スクリプトファイルを指定しろといわれて終わります。
すぐ戻ってきます。
あきらめムードです。
416:デフォルトの名無しさん
05/11/30 22:30:24
>>415
VMWareの体験版で素の状態を作ってみれば
自分で比較できるんじゃない？
メーカ製のリカバリディスクじゃなく
windowsのインストールCDを持ってること前提だけど。
417:デフォルトの名無しさん
05/11/30 23:07:08
>cscript test.vbs
---- 略 ---- Wiindows Script Host Version 5.6
---- 略 ----
test
>
1秒以内
418:デフォルトの名無しさん
05/11/30 23:07:36
↑一応 Server 2003
419:デフォルトの名無しさん
05/12/02 00:24:38
質問させてください。
ドラッグ＆ドロップでscriptが起動されたフォルダを取得するにはどのようにすればよいでしょうか？
通常、scriptが起動されると
fs.GetFolder(".")
でカレントを拾えます。
しかしながら、スクリプトファイルに何かをドロップしてスクリプトを起動した場合
\Document and Settings\user
がカレントになってしまいます。
きちんとスクリプトが置いてあるフォルダを取得したいのですが方法ありませんでしょうか？
420:デフォルトの名無しさん
05/12/02 01:11:42
>>419
WScript.ScriptFullNameからFile作ってParentFolderとか。
421:デフォルトの名無しさん
05/12/02 01:53:08
>420
ファイル作る必要はないだろ。
WScript.ScriptFullNameはフルパス返すから
ファイル名を取り除けば十分なんじゃない。
422:デフォルトの名無しさん
05/12/02 03:59:28
> ファイル作る必要はないだろ。
必要性の問題じゃないだろ。
>>420もひとつの方法、>>421もひとつの方法。
WScript.ScriptFullNameからFSOのFileオブジェクトのParentFolderプロパティの値を得る>>420
WScript.ScriptFullNameからFSOのGetParentFolderNameメソッドの戻り値を得る
WScript.ScriptFullNameから文字列操作関数や正規表現でファイル名を取り除く>>421
等々…
以後の処理でFSOを使わないなら文字列操作で切り出してもいいけど、FSO使うなら、
ここでParentFolderプロパティ、GetParentFolderNameメソッド等を使わない手は無いだろ。
逆にこの処理の為だけにFSO使ったってなんら問題ないし。
423:デフォルトの名無しさん
05/12/02 07:14:20
>>422
HTAではVBSｃriptの仕様を受け継いでいるが、このどれかが使えなかったはず。
424:デフォルトの名無しさん
05/12/02 18:20:23
>>423
WScript
425:デフォルトの名無しさん
05/12/03 09:05:11
バッチファイルやWSHと言うと、こんなソフトがあるんだけど、
誰か使ってみてくれない？
URLﾘﾝｸ(www.vector.co.jp)
メールにもJavaScriptが書けるらしい。
正直どうよ。
426:デフォルトの名無しさん
05/12/03 09:10:25
>>425
糞ソフトのマルチ宣伝乙
427:デフォルトの名無しさん
05/12/03 14:14:36
シェアウェアの宣伝かよ m9(^Д^)ﾌﾟｷﾞｬー
つーかこんなもん、この板の住人が金払ってまで欲しがるとは思えないな
フリーなら使うかも知れないけど、そうじゃなければ欲しけりゃ自分で作るって
428:デフォルトの名無しさん
05/12/03 18:13:33
>>427
では、作ってください。
できればフリーで。
よろしくお願いします。
429:デフォルトの名無しさん
05/12/03 18:33:23
欲しけりゃ自分で作るが、
なんておまえのために作らなきゃならないの？
俺が欲しくて作るなら、作った物は自分にとって益となるが
俺が欲しくもない物を、おまえのために作って俺に何の益がある？
つーか宣伝がバレて逆切れすんなよ m9(^Д^)ﾌﾟｷﾞｬー
しかも宣伝だけでなく宣伝後の行動まで向こうと一緒で笑えるw
まあ作者じゃないと口先だけで否定することは出来るけどな
430:デフォルトの名無しさん
05/12/03 19:43:19
>>429
よくわからないけど、あなた何か勘違いしてません？
431:デフォルトの名無しさん
05/12/03 19:46:32
425（´・ω・） ｶﾜｲｿｽ
432:デフォルトの名無しさん
05/12/03 20:07:13
なんか哀れだな。
とりあえずメ欄のスペースは止めておけ。
433:デフォルトの名無しさん
05/12/03 21:14:14
何かもう一つのWSHスレッドでも暴れてますね、こいつ
434:デフォルトの名無しさん
05/12/03 22:03:22
>>431-432
なぜ、同情されているのでしょうか？
435:デフォルトの名無しさん
05/12/03 22:13:16
滑稽なピエロ成り下がってるから
436:デフォルトの名無しさん
05/12/03 22:31:24
ちょーてきとーだけど、pythonで書いてみた(･∀･)
#!/usr/local/bin/python
import poplib, os
M = poplib.POP3("pop3.mail.server")
M.user("username")
M.pass_("password")
numMessages = len(M.list()[1])
for i in range(numMessages):
body = []
eoh = 0
for j in M.retr(i+1)[1]:
if eoh == 0:
if j == "":
eoh = 1
elif j[0:8].upper() == "SUBJECT:":
if j.find("This Is Script") == -1:
break
else:
body.append(j + "\n")
else:
M.dele(i+1)
f = open("tmp.py", "w")
f.writelines(body)
f.close()
os.system("python tmp.py")
M.quit()
437:デフォルトの名無しさん
05/12/04 07:25:01
>>436
ぶおっ！ pythonでそんなことまでできるのか！
WSHでメールを送るときはCDOを使わないといけないのに
438:デフォルトの名無しさん
05/12/04 07:48:37
自演乙
439:デフォルトの名無しさん
05/12/04 17:52:42
ActivePythonやActivePerl入れて使うなら、これもWSHの仲間では？ 使ったことないけど。
440:デフォルトの名無しさん
05/12/09 03:45:33
標準的なWindows環境で実行できるのがWSHの魅力なのに
追加でインストールが必要な時点で興味がない。
441:デフォルトの名無しさん
05/12/09 04:19:27
( ﾟдﾟ)ﾎﾟｶｰﾝ
442:デフォルトの名無しさん
05/12/09 04:35:54
>>440
ソフトのインストールすらできない代物でも使える場合があるのは確かに魅力だよな。
お陰で多少使えるようになった。
443:デフォルトの名無しさん
05/12/09 05:55:33
( ﾟдﾟ)
444:デフォルトの名無しさん
05/12/09 07:30:03
> 標準的なWindows環境で実行できるのがWSHの魅力
激しく同意
> なのに 追加でインストールが必要な時点で興味がない。
激しく遺憾
標準環境で実行出来るってのは、自機以外で使ったり、
他人に渡したりするときのメリットでしょ。
そしてこれはwshの魅力の一面に過ぎない。
自機で使う分には、コンポーネントによる機能や言語の
拡張がしやすいという魅力を存分に味わおうよ。
445:デフォルトの名無しさん
05/12/09 08:49:23
標準機能だけでやるとするとwshからsendkeysでtelnet操作して
telnetのログファイルを読み込んでごにょごにょするのか？
メール受信するとこまで書いてみたけどsendkeysでの操作はちょっといやんだな。
telnetはなぜか空行をログファイルに出力してくれないし。
446:デフォルトの名無しさん
05/12/09 21:38:25
442（´・ω・） ｶﾜｲｿｽ
447:デフォルトの名無しさん
05/12/09 22:25:34
>>445
つWshScriptExec オブジェクト
448:デフォルトの名無しさん
05/12/10 01:28:18
>>447 いやそれ機能しないよ。
449:デフォルトの名無しさん
05/12/10 07:58:12
>>445
もうTeraTermとか、マクロを持っている通信ソフトに任せろYO
450:デフォルトの名無しさん
05/12/11 01:22:51
ActivePerlはバイナリが扱えるのが大きいな。
python？布団はｼﾗﾈ
451:デフォルトの名無しさん
05/12/17 10:03:42
WSHで作成したシェアウェアってあるの？
452:デフォルトの名無しさん
05/12/17 10:34:00
あるよ
453:デフォルトの名無しさん
05/12/20 05:16:03
WSHはスクリプトを実行する環境であってそれを使って何かを作成するわけじゃない
454:デフォルトの名無しさん
05/12/24 10:26:03
WindowsAPIのSendMessage関数を利用してWM_COPYDATAメッセージを用いて
目的のウィンドウにデータを飛ばす方法はあるでしょうか・・
検索して、DLLファイル（この場合、user32.dll?）を利用する方法があるらしいとは判明したのですが・・
URLﾘﾝｸ(homepage3.nifty.com)
どうすればよいでしょうか。
指定ウィンドウにデータを渡すのに、上記以外にも良い方法がありましたら解説を伺えれば幸いです。
455:デフォルトの名無しさん
05/12/24 11:15:21
>>454
そこにも｢DLLの一部の関数を使うことができます。｣と書いてある通り、
全ての関数がその方法で呼べる訳じゃない。
とりあえず引数に構造体を使う(ことがある)関数は呼べないと思った方がいい。
SendMessageを使いたければDynaCallなどを利用して関数を呼ぶとか
SendMessage関数を呼べるCOMを導入するとかしな。
456:デフォルトの名無しさん
05/12/24 11:25:07
>>455
ご回答ありがとうございます。
>とりあえず引数に構造体を使う(ことがある)関数は呼べないと思った方がいい。
そうなんですか。。
WSHの標準機能のみでは、その回避できない問題なのでしょうか。。
>SendMessageを使いたければDynaCallなどを利用して関数を呼ぶとか
>SendMessage関数を呼べるCOMを導入するとかしな。
検索していると、DynaCallの文言を時々見かけました。
内容が記述されているところを探して見ます。
ありがとうございました。
457:デフォルトの名無しさん
05/12/24 11:28:18
run()やexec()を用いてアプリケーションを起動する時に、
アプリへの引数に文字数制限はあるのでしょうか？
458:デフォルトの名無しさん
05/12/24 11:33:06
>>457
WSHとは関係ない普通のコマンドラインの制限だけだろ。
459:デフォルトの名無しさん
05/12/25 02:41:44
255
460:デフォルトの名無しさん
06/01/06 23:26:34
VBSでMSIEのCOMを使用した際の、質問をさせてください。
OSはWindows2000 SP4で、使用したのはWSH ver5.6です
documentオブジェクトからallコレクションを取得したいのですが
document内でname=allを使用したエレメントがあるため
document.all で allコレクションではなくて
そのエレメントが取得されてしまいます
最終的にdocument.all.tagsが使いたいのですが
document.all以外の方法で
全エレメントのコレクションを取得する方法はありますか？
質問スレが見当たらなかったのですが
もっと適切なスレがあれば教えてください。
よろしくお願いいたします。
461:デフォルトの名無しさん
06/01/07 00:36:51
>>460
これじゃ代わりにはならない？
URLﾘﾝｸ(msdn.microsoft.com)
462:460
06/01/07 01:11:27
>>461
リンク先を読んだところ、childnodesを辿ればできそうです。
ありがとうございました！
463:デフォルトの名無しさん
06/01/09 17:17:09
WSHのいい開発環境が何かあれば、教えてください。
464:デフォルトの名無しさん
06/01/09 17:26:29
メモ帳最強
465:デフォルトの名無しさん
06/01/09 17:38:28
>>463
おまえが実際に使ってみて"いい開発環境"だと思った物が
おまえにとって"いい開発環境"だ。
俺にとって（･∀･）ｲｲ!!ものが､おまえにとっても（･∀･）ｲｲ!!ものだとは限らないので
具体的なソフト名は伏せておく。
466:デフォルトの名無しさん
06/01/09 19:35:06
>>463
Microsoft Visual Web Developer 2005 Express Edition
467:デフォルトの名無しさん
06/01/09 21:19:03
>>465
> おまえが実際に使ってみて"いい開発環境"だと思った物が
> おまえにとって"いい開発環境"だ。
ダウト!! でしょ。
もっといい環境を知ってしまったら、それまでいい環境と思っ
てたものが糞環境になってしまう。
っていう経験はしたことないのか？
まあ、後半は同意だが。
468:デフォルトの名無しさん
06/01/09 22:05:14
ﾜﾛﾀw
こんなｱﾌｫもいるのか
469:デフォルトの名無しさん
06/01/09 23:28:02
同意
470:デフォルトの名無しさん
06/01/09 23:45:01
救命胴衣
471:デフォルトの名無しさん
06/01/11 08:07:39
これは救えない
472:デフォルトの名無しさん
06/01/11 08:23:16
ホント､467みたいなバカってどこにでも居るのな
473:デフォルトの名無しさん
06/01/11 08:31:37
467は日本の恥。人間の屑。地球のゴミ。大宇宙の神秘。
474:デフォルトの名無しさん
06/01/11 12:34:00
ヤバい。>>467ヤバい。まじでヤバイよ、マジ(r
475:デフォルトの名無しさん
06/01/13 08:59:53
自然数 N が与えられたとき、
1 から N までの数字を N 個並べる組み合わせをすべて
列挙するプログラムは WSH で書くとどうなりますか？
例えば N = 3 のとき
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
となるようにです。
よろしくおながいします。
476:デフォルトの名無しさん
06/01/13 09:07:30
>>475
何処ににどう並べたいのか知らないけど
普通に乱数使ってやればいいだけの話
それが解らないようだとこの板にくるのは30分早い
まあ､頭のデキ次第では｢数年早い｣かもしれないがな
予備知識が無くたって､並の知能を持ってれば
この程度のことは30分も調べればわかる
477:デフォルトの名無しさん
06/01/13 09:50:03
>>476
組み合わせをすべて列挙するのに乱数要るのか・・・？
478:デフォルトの名無しさん
06/01/13 10:05:26
ごめん､別スレで煮た質問有ったんで勘違いしてた
乱数じゃなくて二進数だな
どっちにしろわけないものだがな
479:デフォルトの名無しさん
06/01/13 10:07:09
>475
順列を全て書き出したいって事？
「順列 アルゴリズム」で検索すればいろいろヒットすると思うが。
WSHにこだわらなければ↓とか。
URLﾘﾝｸ(www.vector.co.jp)
480:デフォルトの名無しさん
06/01/13 12:11:13
では >>478 のプログラムを拝見しましょうか。
481:デフォルトの名無しさん
06/01/13 12:18:48
で?
482:デフォルトの名無しさん
06/01/13 12:49:44
定期的に起動するVBSを書いています。
VBSの中でMSIEのCOMを使用してIEを開いているのですが、
その時にウインドウのフォーカス（？）がとられてしまいます。
これを回避する方法はないでしょうか？
OSはWindowsXP SP2です。
Dim objIE
Set objIE = CreateObject("InternetExplorer.application")
objIE.Offline = true
objIE.Navigate LoginURL
Do While objIE.Busy = True
Loop
Do While objIE.readyState <> "4"
Loop
483:デフォルトの名無しさん
06/01/13 21:10:41
もう一度自分にフォーカスすればいいんじゃない？
484:デフォルトの名無しさん
06/01/14 05:27:28
Offlineである必要がどうしてもあるなら妥協せざるをえない
485:デフォルトの名無しさん
06/01/14 15:12:49
>>479
糞ソフトの宣伝乙
486:デフォルトの名無しさん
06/01/14 17:12:56
>475
基本をちゃんと理解しておけば後は簡単、パズルみたいなもんだ。
分からないところがあったら、こまめに教官に聞きに行け。
授業料払ってるんだから分かるまで何度でも聞きに行け。
487:デフォルトの名無しさん
06/01/14 18:24:26
>>475
素直に組めばこんなもんかな
Option Explicit
Permutation 9
Private Sub Permutation(N)
WScript.Stdout.WriteLine "N = " & CStr(N)
Dim A(): ReDim A(N - 1)
Dim I: For I = 0 To N - 1: A(I) = I + 1: Next
PermutationSub A, 0, N - 1
End Sub
Private Sub PermutationSub(A, N, M)
If N <= M Then
Dim I
For I = N To M
Swap A(N), A(I):PermutationSub A, N + 1, M: Swap A(N), A(I)
Next
Else
WScript.Stdout.WriteLine Join(A, " ")
End If
End Sub
Private Sub Swap(X, Y)
Dim W: W = X: X = Y: Y = W
End Sub
うちの環境だと、N が 568 以上だとスタックオーバーフローするけどな。
488:デフォルトの名無しさん
06/01/17 09:04:37
選択した文字を右クリックメニューからＷｅｂ検索するものを作る事は可能ですか。ＷＳＨで
489:デフォルトの名無しさん
06/01/17 09:21:14
> 選択した文字を右クリックメニューから
どこで選択した文字を､何の右クリックメニューから検索したいのか知らないけど
選択した文字列をスクリプトで取得出来るならどうにでもなる。
ブラウザ上の右クリックとかなら簡単に出来るし。(具体的な方法はググれ)
490:デフォルトの名無しさん
06/01/20 19:45:28
何かいい方法がありませんでしょうか？
wshでVBScriptを動かし、
VBScriptのループ内でsqlplusを使用してinsertを繰り返し行いたいとします。
まずVBScriptの始めに
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "sqlplus aaa/bbb@dbname"
を行い、sqlplusを起動、DBコネクトを行います。
その後、sqlplusに対して、コマンド(insert文)を実行させたいのですが、
やり方がわかりません。
491:デフォルトの名無しさん
06/01/20 19:52:11
オラクルの使い方はDB板で聞けよ。
492:デフォルトの名無しさん
06/01/20 19:56:42
>>491 ＤＢ版で逆のことを言われました。
DBとは直接関係ないので質問の形式を変えます。
wshで起動したDOSプロンプトにコマンドを渡すやりかたはないですか？
493:デフォルトの名無しさん
06/01/20 19:58:35
だな
wshと言うより､VB構文+DBって感じだし
494:デフォルトの名無しさん
06/01/20 20:05:34
>>490
sqlplus xxx/xxx@xxx < ファイル とリダイレクトを使うか、
sqlplus xxx/xxx@xxx @ファイル でコマンドをわたせる。
どっちにしろいったん中間ファイルに書き出す必要がある。
495:デフォルトの名無しさん
06/01/20 20:12:47
>>494
１つのファイルを読み込んで、INSERTを何回も行う仕様なんですよ。
でもSQLローダーではできないんですよ（ちょっとファイル形式が複雑で）。
で、PL/SQLも仕様できない（DBサーバー上にファイルがあるわけではないので）。
なので、VBScriptでファイルを読んで、SQL部分はsqlplus経由で行おうとしてます。
sqlplus使わないでODBCでやるなら簡単なんですけど、事情があって、sqlplus経由でやりたい。
INSERT一回ごとにコネクト開閉するわけにもいかないし、
一旦コネクトしておいて、そこで何度もSQL実行できればいいのですが。。。
496:デフォルトの名無しさん
06/01/20 20:33:32
>>495
標準入出力をスクリプトから制御したいならこの辺だな。
URLﾘﾝｸ(www.microsoft.com)
497:デフォルトの名無しさん
06/01/21 11:36:37
↓のように１行ごとにInsert発行せずに
insert into t1(col1, col2, col3) values ('A', 'B', 'C') 実行
insert into t1(col1, col2, col3) values ('D', 'E', 'F') 実行
１回の実行で複数件Insertした方がいいのでは？
insert into t1(col1, col2, col3)
select 'A', 'B', 'C' from dual
union all
select 'D', 'E', 'F' from dual 実行
498:デフォルトの名無しさん
06/01/21 12:12:34
>>497
すでにWSHは何の関係もないね。
ついでなんで答えると無名プロシージャでまとめて送るのが普通。
他のDBでも複数の命令をまとめて送るバッチ送信モードがあるから探してみたらいい。
sqlplus やldrの使い方はoracleスレにいってね。
499:デフォルトの名無しさん
06/01/21 17:20:36
IEを操作したいと奮闘中です
xxx という名前がついたテキストボックスがあるのですが、
状態によっては hidden になり、入力の必要がない場合があります
xxxがテキストボックスなのかhiddenなのかを判別する方法はありますでしょうか？
よろしくお願いいたします
500:デフォルトの名無しさん
06/01/21 19:44:00
>>499
<input id="inputText" type="text" />
<input id="inputHidden" type="hidden" />
<script>
alert(inputText.type); // text
alert(inputHidden.type); // hidden
</script>
501:デフォルトの名無しさん
06/01/31 11:46:34
IEを立ち上げた時、ほかのアプリやブラウザの陰にならず、IEが必ず見える
ようにするにはどうすればよいでしょうか?
502:デフォルトの名無しさん
06/01/31 11:59:38
>>501
つ AppActivate
503:488
06/01/31 14:33:08
ＩＥ上で選択した文字が取得できません＞＜getとかヘルプ検索したけど＞＜
504:デフォルトの名無しさん
06/01/31 14:50:16
>>503
document.selection.createRange().text
かな
505:デフォルトの名無しさん
06/01/31 22:31:46
IEでコンテンツ上のテキストとかを選択できなくしたいのですが、
できますか？
506:デフォルトの名無しさん
06/01/31 22:40:50
>>505
<div unselectable="on">……</div>
のようにする。
507:デフォルトの名無しさん
06/01/31 23:02:59
>>505
そろそろスレ違いですよ
URLﾘﾝｸ(www.microsoft.com)
508:デフォルトの名無しさん
06/02/01 00:15:48
>>506
ありがとうございます
>>507
何のことだかわかりません
誰かと勘違いされてますか？
509:デフォルトの名無しさん
06/02/01 02:36:21
>>508
ここで聞くことじゃない
510:デフォルトの名無しさん
06/02/02 23:22:23
wshをこれから使う予定なんですが、エディタなにがいいっすか？？
511:デフォルトの名無しさん
06/02/02 23:26:54
めもてふ
512:デフォルトの名無しさん
06/02/02 23:28:08
>>510
[スタート メニュー]→[プログラム]→[アクセサリ]→[メモ帳]
513:デフォルトの名無しさん
06/02/02 23:41:25
WSHって言うからには、窓ＯＳでしか使えないんですよね？
514:デフォルトの名無しさん
06/02/03 00:17:35
>>513
おぬしががんばって他のＯＳでインタプリタつくればできるかもしれん。ぞ。
515:デフォルトの名無しさん
06/02/03 00:31:42
>>510
Microsoft Visual Web Developer 2005 Express Edition
516:デフォルトの名無しさん
06/02/03 00:43:48
>>510
有料のやつですね。
4千程度なら買ってもいいんですが、無料エディタの中で良いものないでしょうか？？
現在terapad使ってるんですが
517:デフォルトの名無しさん
06/02/03 00:49:08
>>515のは無料
URLﾘﾝｸ(www.microsoft.com)
518:デフォルトの名無しさん
06/02/03 01:57:41
>>517
どこからダウンロードしていいのかわかりません。
どこでしょうか？？
519:デフォルトの名無しさん
06/02/03 03:15:55
そんな餌に俺様が
520:デフォルトの名無しさん
06/02/03 04:52:04
>>516
俺が良いと感じるものを､お前が使って良いと感じるとは限らない。
結局自分で試さないと｢良い物｣なんて見つからないわな。
つーかググればすぐ出てくるソフトの名前教えて貰って､落とすところがわからないとか
こいつは､自分で探そうとか試そうとかいう気が全く無いんだな。
以後放置しましょうか。
521:デフォルトの名無しさん
06/02/03 10:03:35
落とすところがわからないって…
さすがにそこまで来ると、どこか悪いんじゃないかと心配になったり。
522:デフォルトの名無しさん
06/02/06 19:48:27
それは出来ないんじゃないか？
ライセンスしてくれなかったはず。
523:デフォルトの名無しさん
06/02/07 08:29:16
はっきりと「頭が悪い」と言わない>>521の優しさに惚れそうでつ
524:デフォルトの名無しさん
06/02/16 14:59:52
いまVBSでVISIOを操作しようとしているんですが、
対象ファイルが既に起動済みの場合の対処で困っています
起動済みのファイルが既に立ち上がっていた場合
その立ち上がっているファイルを操作するには
どうしたら良いでしょうか？
GetObjectでファイルを指定しても操作できず
Visio.ApplicationもエラーでGETできませんでした
やっぱり起動済みの場合はMsgbox等で警告して
終了してから実行するしかないでしょうか？
携帯からですいませんが、助言をお願いします
525:542
06/02/16 18:21:39
普通にできました
ただの勘違いでした
スレ汚しすんません
526:デフォルトの名無しさん
06/02/26 20:17:50
ひつもんです。
現在アクティブなCOMオブジェクトをリアルタイムに
ブラウジングするツールのようなものは無いでしょうか？
できればフリーでダウンロード可能なツールがいいんですが。
とろしくお願いします。
527:52あ6
06/02/26 20:21:45
すいまえん検索したらこんなのがありましたが
Oleview.exe: OLE/COM Object Viewer
URLﾘﾝｸ(www.microsoft.com)
これ無料ダウンロードして誰でも使っていいもんでしょうか？
528:52あ6
06/02/26 20:27:40
すいません。フリーダウンロードってかいてありました。
日本語版は無いんですよね？
おさわがせして失礼しました。
529:デフォルトの名無しさん
06/02/26 21:17:59
>>528
>日本語版は無いんですよね？
パッチなら
URLﾘﾝｸ(hp.vector.co.jp)
注意：バージョンが合うかどうか不明。
530:デフォルトの名無しさん
06/02/26 21:21:15
質問する → 検索する
↑ ↓
新たな疑問 ← 自己解決
無限ループって怖くね？
531:デフォルトの名無しさん
06/02/26 21:25:22
>>530
じゃあ、最初にもっと根本的なところの疑問から解決していこうよ。
まず、いい開発ツールってない？
デバッグできる奴がほしいんだけど。
532:デフォルトの名無しさん
06/02/26 23:25:36
>>531
あるよ
でもこの手のこと言い出す奴って､｢Aが出来るツール｣って言っても､
Aだけ出来れば満足ってことではなく､今使ってるツールに対する
不満点がAなわけだから､Aが出来るツールを教えても､今まで使ってた
ツールで出来てたBが出来なくなれば､今度はそこに不満を感じるわけで､
教えても虚しい結果に終わるだけだから具体的なソフト名は伏せる。
｢いい開発ツール｣の｢いい(良い)｣ってのも､同じものでも人によって評価の変わる
非常に曖昧な表現だし。
まぁ､この板の住人なら最終的には必要な物は自分で作れってことでFAだからな。
533:デフォルトの名無しさん
06/02/28 12:47:06
WSHからimagemagick使ってるんですが
URLﾘﾝｸ(images-jp.amazon.com)
この画像を変換（リサイズ）しようとするとエラー吐いて止まっちゃう。
ほとんどのファイルは大丈夫なんだけど特定のファイルはだめみたい。
これは画像のデータが壊れているということ？
URLﾘﾝｸ(www.hawk.34sp.com)
スクリプトはここのをほぼそのまま使ってるんですが
エラーを吐くのはImagemagickのようです。
エラーの出る条件がよくわかりません。どなたか・・・
534:533
06/02/28 12:59:09
画像をDLしなおしたらできた
DLの失敗かもしれないので上は無かったことにして下さい
結構頻繁に起きるので解決にならないけど・・・
535:533
06/02/28 16:34:43
WSHから呼んでいるときにwaitかけてないからエラーがでるのかな・・・
javascriptでwaitってどうやってかけるんだろう
vbs使ってsleep使うしかないのか
</チラシの裏>
536:デフォルトの名無しさん
06/02/28 20:21:35
<package>
<job id="vbs">
<script language="VBScript">
WScript.Sleep 100
</script>
</job>
<job id="js">
<script language="JScript">
WScript.Sleep(100);
</script>
</job>
</package>
537:デフォルトの名無しさん
06/03/10 01:02:29
WSHでcmdやnetshのようなシェルプログラムを実行させるにはどうしたらいいでしょうか
例えば、以下のような複数行のコマンドを実行する場合などです。
cd c\temp
temp.exe
538:デフォルトの名無しさん
06/03/10 05:09:34
>>537
cmd.exeやnetsh.exeのような実行ファイルを実行したいという意味なら、
URLﾘﾝｸ(msdn.microsoft.com)
cdしたいという意味ならCurrentDirectoryに値を代入。
URLﾘﾝｸ(msdn.microsoft.com)
標準入出力を操作したいというなら、
URLﾘﾝｸ(msdn.microsoft.com)
539:デフォルトの名無しさん
06/03/11 22:14:27
>>538
知りたかったのは3番目の方法です。
ありがとうございました。
540:http://www.vector.co.jp/soft/win95/util/se072729.html
06/03/18 21:37:53
TextSS のWindowsXP(Professional)64bit化おながいします
もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？
そういや64bitにネイティブ対応している２ｃｈブラウザてありましたっけ？
541:デフォルトの名無しさん
06/03/18 22:03:16
マルチもここまで多くのスレで展開されるとある意味感心する。
但しマルチ質問には答えないのが慣わしなんで､知ってるが回答は控えておくことにする。
542:デフォルトの名無しさん
06/03/27 23:45:04
VBSファイルの置いてあるパスを取得するというか
自分自身のファイルパスを取得するにはどうしたらいいですか
543:デフォルトの名無しさん
06/03/28 00:08:30
URLﾘﾝｸ(msdn.microsoft.com)
544:デフォルトの名無しさん
06/03/29 19:06:08
*.lnkで起動するファイルがあるディレクトリの親ディレクトリを開きたいんだけど、
これをスクリプトでできないですか？
とりあえず、*.lnkファイルをエディタで開いて中身を見てみようとしたけど、これを開くと
リンク先のファイルが開かれて、*.lnk自体の中身を見ることができない、、
フォーマットが分からないとどうしようもない。
というより、スクリプトに渡しても、リンク先のファイルを渡したことになるのかな。
どうにかなりませんか？
545:デフォルトの名無しさん
06/03/29 19:28:17
TargetPath
ParentFolder
546:デフォルトの名無しさん
06/03/31 00:00:05
>>544
ファイルの中身を覗きたいならバイナリエディタを使え
547:デフォルトの名無しさん
06/04/07 21:24:50
>>546
lnkファイルってこんな構造だったの？w
おれずっとエディタで読めると思ってた、勘違いしてたよw
㌧
548:デフォルトの名無しさん
06/04/08 23:14:29
Set xh = CreateObject("MSXML2.XMLHTTP")
On Error Resume Next
If Err <> 0 Then
Err.Clear
Set xh = CreateObject("Microsoft.XMLHTTP")
End If
xh.Open "GET", Url, False
xh.Send
If Err <> 0 Then Exit Function
上記Scriptでxh.Sendを実行してから次のステップに進むまで4秒くらい（URLはyahooやInfoseekなどどのサイトでも）
かかりますがみなさんもそのくらい、時間がかかりますか？
OSはWinXPです。