WSH(・∀・)ｽﾚｯﾄﾞ! Part 2

WSH(・∀・)ｽﾚｯﾄﾞ! Pa ..

714:デフォルトの名無しさん
08/02/11 14:26:29
>>713
レスありがとうございます。

strDrv = strCurrent & "driver\install.bat"
↑これで、カレントディレクトリ\driver\install.bat がstrDrv に入ります。
その後
objWshShell.Run strDrv
で、今までは出来ませんでした。なのでこれを" " で囲みます
objWshShell.Run "strDrv"
しかしこうすると、strDrvと言う文字列を起動しようとしてしまい、strDrvが変数として扱われず
単なる文字列として扱われるため動作しません。
objWshShell.Run ""strDrv""
として、"をエスケープしてみてもだめ～　とか考えてたら

strDrv = strCurrent & "driver\install.bat"
strDrv = """" & strDrv & """"
WScript.Echo strDrv
objWshShell.Run strDrv
これでいけました。最初の"が文字列の開始、中2つの"が文字列としての純粋な"を表し
(""で"を単なる文字列としてエスケープ)、最後の"が文字列の終了を表すダブルクォート・・・
結局 """" となり、非常に分かりにくいというか、混乱する形になったのですが、こんなもんなんでしょうか？

715:デフォルトの名無しさん
08/02/11 14:47:54
こんなもんです

716:デフォルトの名無しさん
08/02/11 16:13:45
>>714
Python がお勧め

717:デフォルトの名無しさん
08/02/11 16:15:22
strDrv = Chr(18) & strDrv & Chr(18)

718:デフォルトの名無しさん
08/02/11 17:42:26
>Set f = fs.GetFolder(".")
>objShell.Run f.path & "\script\var.bat"

objShell.Run ".\script\var.bat"

719:デフォルトの名無しさん
08/02/11 18:10:32
>>716
>>712

720:デフォルトの名無しさん
08/02/11 23:38:48
>>714
Ｃ言語やjavaだって "\"" みたいな、「たいへん分かりにくい混乱する表記」
になるから、こんなもんです。

もし、コードをスッキリさせたかったら、

Const QQ = """"
strDrv = QQ & strDrv & QQ

もしくは

strDrv = Q( strDrv )

Function Q(ByVal str)
　　Return """" & str &""""
End Function

みたいな方法がありますよ。（自分は後者をよくつかう）

721:デフォルトの名無しさん
08/02/12 01:25:32
Chr(34)は？

722:デフォルトの名無しさん
08/02/12 07:40:18
"自分は後者をよくつかう"って､使えるの､それ？

723:デフォルトの名無しさん
08/02/12 16:41:25
うん

724:デフォルトの名無しさん
08/02/12 16:56:37
＞みたいな

コードはイメージです

725:デフォルトの名無しさん
08/02/12 20:18:12
>>724
実際のコードとは異なる場合があります。

726:デフォルトの名無しさん
08/02/12 20:24:57
>>722
使えない

727:デフォルトの名無しさん
08/02/12 23:32:48
使わない

728:デフォルトの名無しさん
08/02/12 23:43:08
使われない

729:デフォルトの名無しさん
08/02/13 00:07:38
こんばんです。１つ質問させてください。

vbsでプログラムを組んでいるのですが、vbs親プログラムからvbs子プログラムを
起動は出来ないのでしょうか？
～～～～～vbs親プログラム内～～～～～～～～～
Set objWshShell = WScript.CreateObject("WScript.Shell")
strCmdLine = "sub_program.vbs str01 str02 "
objWshShell.Exec(strCmdLine)

この記述で「sub_program.vbs」を引数２つ与えて起動できると思うのですが出来ません。
尚、コマンドプロンプトで[sub_program.vbs str01 str02]実行すると正常に起動します
修正点がありましたらお教えいただけないでしょうか。

730:デフォルトの名無しさん
08/02/13 00:16:04
>>729
strCmdLine = "cscript sub_program.vbs str01 str02 "
または
strCmdLine = "wscript sub_program.vbs str01 str02 "
と記述する必要がある。

コマンドプロンプトでは、"たまたま" cscriptまたはwscriptが省略できる。

731:729
08/02/13 00:23:32
>>730
ありがとうございました。無事起動すること出来ました。
コマンドプロンプトでは"たまたま"省略可能なんですか・・・

732:デフォルトの名無しさん
08/02/13 07:49:15
という事はExplorerでアイコンをダブルクリックすれば起動するのも"たまたま"だね。

733:デフォルトの名無しさん
08/02/13 08:13:26
//H:でたまたまを切り替えられる。

734:デフォルトの名無しさん
08/02/13 09:19:40
どう考えても>>721が正解

735:デフォルトの名無しさん
08/02/13 16:36:06
たまたまだけど、これもできる
strCmdLine = "sub_program.vbs str01 str02 "
objWshShell.Run(strCmdLine)

736:デフォルトの名無しさん
08/02/13 21:57:32
>>735
おまえ､何も解ってないな

737:デフォルトの名無しさん
08/02/14 00:12:08
そうだな、解るように言ってやれ

738:デフォルトの名無しさん
08/02/15 21:53:59
var fso= WScript.CreateObject("Scripting.FileSystemObject");
var d = fso.GetDrive(fso.GetDriveName("Q:\\"));
if(d.IsReady){ ...

とやってDVD-ROMドライブが準備できているかどうか調べているのですが、
DVDを入れて認識している最中にIsReadyが実行されるとウィンドウズ自体が数秒止まってしまいます
バックグラウンドで動かしていてもフォアグラウンドアプリまで停止してしまうので困っているのですが
これを回避するにはどうしたらいいのでしょうか？

739:デフォルトの名無しさん
08/02/15 22:14:09
FSOで問題あるときはShell.Applicationを使ってみるのが定石

740:デフォルトの名無しさん
08/02/16 06:37:35
ドアラグッドウィルドームに立つ!
再生：654,421 | コメント：123,256 | マイリスト：20,510
URLﾘﾝｸ(www.nicovideo.jp)

凄い勢いで踊るドアラ
再生：482,525 | コメント：28,129 | マイリスト：17,837
URLﾘﾝｸ(www.nicovideo.jp)

ドアラが異端になった経緯
再生：424,284 | コメント：36,521 | マイリスト：9,417
URLﾘﾝｸ(www.nicovideo.jp)

ドアラーズブートキャンプ
再生：241,338 | コメント：18,996 | マイリスト：7,229
URLﾘﾝｸ(www.nicovideo.jp)

741:デフォルトの名無しさん
08/02/16 13:36:40
>>738
ドライブ認識動作中にエクスプローラとかでドライブにアクセスしても凍るから
アクセスするタイミング悪いと凍るのは仕様じゃね？

>>739
Shell.ApplicationにIsReadyはないけどな

742:デフォルトの名無しさん
08/02/16 17:20:40
Shell.Applicationで取れる情報で変化するものを見つければ？

743:デフォルトの名無しさん
08/02/18 16:30:09
Sub プロシージャとFunction プロシージャの違いって
Function プロシージャが戻り値を返すのに対してSub プロシージャが値を返さないって言うだけですか？

744:デフォルトの名無しさん
08/02/18 16:51:11
End XXX
Exit XXX
がちがう

745:デフォルトの名無しさん
08/02/18 19:34:19
>>744
End Sub
End Function
が違うって言うのは分かりますし、Functionの場合のみ Function名 = 値　で値を返す事が出来る
のも分かりますが(Javaで言うコンストラクタに値代入したらreturn文みたいな振る舞いすんのな）

Exit Sub　Exit Function　というのがあるのですか？それはいったいどういう・・・？
単に終わらせるだけですか？　呼び出し元に戻りますか？

746:デフォルトの名無しさん
08/02/18 21:25:12
Javaなんかのreturnみたいにプロシージャの呼出元へ戻るだけ。

747:デフォルトの名無しさん
08/02/18 21:50:22
>>745
ヘルプも見れないのか

748:デフォルトの名無しさん
08/02/19 22:10:48
WSH(拡張子.vbsのファイル)で
カレンダを表示するプログラムを作成しました。

出力はMsgBoxでしてます。
こんなかんじ
MsgBox strResult, , "カレンダ"

これを、携帯電話からも実行できるようにしたいと考えました。
携帯のカレンダがあるじゃないかと言われると困るのですが・・・
便宜上カレンダと言っているだけで、実際は他の物を出力するので。
イメージ的にはカレンダというと一番伝わりやすいので・・・。

で、そのアイディアとして、サイト上に掲載すればいいと考えました。
携帯のブラウザからそのサイトにアクセスした際に.vbsで作ったのと同じような出力が
得られれば良いのですが、これを実現するのに簡単な方法は無いでしょうか？
今のところ私に考え付くのは JavaScriptを勉強してJavaScriptに書き直して
やるぐらいかなぁと思っているのですが、そんな事しないとやっぱ出来ませんか？
そうなると関数とか文法とかいろいろ勝手が違うでしょうから覚え直しですかね？・・。
.vbsファイルの出力のWeb版を作りたいみたいな感じです。よろしくお願いします。

749:デフォルトの名無しさん
08/02/19 22:16:13
携帯もまだJavaScriptは実行できないぞ。

ASPと言って、Windowsサーバ上でVBScriptやJScriptをCGIのように実行する環境があった。
お前が欲しいのはきっとそれに違いない。

問題は、世間がASP.NETへ移行しつつあるということ。
ASP.NETはC#とかVB.NETとかを使うまた別物。

750:デフォルトの名無しさん
08/02/19 23:00:35
>>749
.vbsファイルを携帯に渡しても実行できるわけないし、じゃあ現状だと携帯でコレを実現
するのは難しいんでしょうか？

仮に携帯で実現するのが難しいとして、ブラウザに実装･･と言うか
第三者がWebブラウザでアクセスしてきた時に表示するようなのは
JavaScriptになりますかね？

751:デフォルトの名無しさん
08/02/19 23:01:39
すれ違い
よそへいけ

752:デフォルトの名無しさん
08/02/19 23:02:43
それって、なんか実行時に入力するパラメータあるんかな？
ないんならタスクマネージャで定期的に実行して、
TXTかHTMLに出力したのをサーバに自動アップするような環境をつくって、
携帯でそれを見に行けばいいような気がするが。

753:デフォルトの名無しさん
08/02/19 23:12:23
>>752
おお！なんか凄いアイディア聴けた！
えっとですね、1日に1回更新されるので、1日に1回実行してやればいいですね。
後はそれをTXT・・・には出来るのかなぁ・・・　ああ、そうか MsgBoxじゃなくてFileに出力
してやればいいんだ・・・　ああ、HTMLからそのTXTにリンクを貼るってのもありだし、
HTMLの中にそのTXTの内容を直接埋め込むのもありか！凄い！なるほど！
ちょっと試行錯誤してみます。ありがとうございましたっ！

754:デフォルトの名無しさん
08/02/19 23:27:45
>>752
ありがとうございました！

Dim objFso, txtFile
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set txtFile = objFso.OpenTextFile("hogehoge.txt", 2, True)
txtFile.Write strResult
txtFile.Close
Set txtFile = Nothing
Set objFso = Nothing

こんなコードで生成できました！後はこの.txtファイルにHTMLでリンク貼れば完璧！
本当にお世話になりました～

755:デフォルトの名無しさん
08/02/19 23:57:23
>>753-754
ただのテキストを吐き出すついでにHTMLにすればいいんじゃないの？

756:デフォルトの名無しさん
08/02/20 00:29:27
>>755
いやーそれが、やろうと思ったのですが、出来なくて・・・。
やろうと思ったらかなり大変だと思いますが、簡単に出来るもんでしょうか？

757:756
08/02/20 00:30:22
Replace strOutStrings, vbCrLf, "<br>"
とかやって、改行を<br>に置き換えようとかやってみたんですが、うまくいきませんでした。

758:デフォルトの名無しさん
08/02/20 00:47:19
>>756
With txtFile
　　 .Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""URLﾘﾝｸ(www.w3.org)"">"
　　 .Write "<html lang=""ja"">"

...

End With
こんな感じで書き出せばいいだけだろ。

>>757
そのテキストをpre要素の中に入れてしまうというのはどうだ？

759:デフォルトの名無しさん
08/02/20 00:47:33
Dim objFso, txtFile
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set txtFile = objFso.OpenTextFile("hogehoge.htm", 2, True)
txtFile.Write "<HEAD><TITLE>うんこやろ～</HEAD></HEAD>"
txtFile.Write "<BODY>"
txtFile.Write "<CENTER>なんか文句あっか！</CENTER>"
txtFile.Write "</BODY>"
txtFile.Close
Set txtFile = Nothing
Set objFso = Nothing

760:デフォルトの名無しさん
08/02/20 00:51:57
そういえばむかし、こんなんやってたな。

10 OPEN "INDEX.HTM" FOR OUTPUT AS #1
20 PRINT #1,"<HEAD><TITLE>ハナクソ</TITLE></HEAD>"
30 PRINT #1,"<BODY>"
40 PRINT #1,"<CENTER>うんこちんちん！</CENTER>"
70 PRINT #1,"</BODY>"
90 CLOSE #1
100 SYSTEM

これを N88BASIC.EXE /T:RUN"HOGE.BAS" で定期的に動かして
コンテンツを更新してた。
古きよき時代。

761:756
08/02/20 16:22:22
>>758
それやろうとしたんですが、HTMLファイル中の" を ""と置き換えないといけないのが面倒でした。
HTMLって意外と"を使いますし。
それに.txtファイルに出力してしまって HTMLからリンクを貼るだけの方がとても楽だったので・・。

それにしてもWithステートメントかぁ、ヘルプを見て初めて知りましたが、こんな便利なのが
あったんですね。今までだったら txtFile. を何度も書かないといけなかったのに、これを知った
おかげで完全修飾しなくてすむからもっとコードが楽にスッキリかけそうです。ありがとうございます。

＞そのテキストをpre要素の中に入れてしまうというのはどうだ？
これもまた素晴らしいアイディアだと思います。考え付きませんでした。
確かにそれなら簡単ですね。なるほどなるほど・・・。
しかしどうして>>757のコードで改行が <br> に置き換わらないのでしょうか？

>>759
＞txtFile.Write "<HEAD><TITLE>うんこやろ～</HEAD></HEAD>"
この行</HEAD>が2個あります。</TITLE>の間違いでしょうか(内側のHEAD)

>>760
へぇ・・・そんな時代があったんですかぁ～・・・。

762:デフォルトの名無しさん
08/02/20 16:34:20
Replaceは結果を戻り値に返すからこう使わないといけないはず。
strOutStrings = Replace(strOutStrings, vbCrLf, "<br>")

""がうざいのは、
ダブルクォーテーションではなくシングルクォーテーションを使うとか、
（属性はシングルでいい。でもDOCTYPEはわからない）
先頭（head要素が終わるまでくらい）をテキストに用意しておいて、
txtFileの頭にそれを書き出すとかでどう。
.Write objFso.OpenTextFile("c:\header.txt", 1).ReadAll

763:デフォルトの名無しさん
08/02/20 16:46:23
＞HTMLって意外と"を使いますし。

ならJScriptつかえよ
HTMLタグをつけるメソッドもあるし

764:デフォルトの名無しさん
08/02/20 17:58:02
>>763
DOMのことならVBScriptからでも使えるだろ。

765:デフォルトの名無しさん
08/02/20 18:18:23
Stringオブジェクトのことだろ

766:デフォルトの名無しさん
08/02/20 18:45:06
でもあまり使えるメソッドがないな

767:デフォルトの名無しさん
08/02/20 19:49:38
HTMLタグをつけるメソッドを付けた奴は、きっと浮かれ過ぎていたんだろうな。
後でcreat以上に恥ずかしい思いをしたに違いない。

768:デフォルトの名無しさん
08/02/20 20:09:23
JScriptだから好きなメソッドが追加できるよ
.quote()なんてのもいいんじゃね

769:デフォルトの名無しさん
08/02/20 20:15:50
anchor(anchorString), big(), blink(). bold(), fixed(),
fontcolor(colorVal), fontsize(intSize), italics(), link(linkstring),
small(), strike(), sub(), sup()
確かに今更これらを使う気にならない

770:756
08/02/20 22:51:33
>>762
＞strOutStrings = Replace(strOutStrings, vbCrLf, "<br>")
あ、なるほど、確かにそうだ・・・失敗失敗・・・。

＞先頭（head要素が終わるまでくらい）をテキストに用意しておいて、
txtFileの頭にそれを書き出すとかでどう。

なるほどねぇ・・・参考になります。

>>763
JScript使った事無いので全然知りません。

>>769
が言っている事がさっぱり分からない・・・

771:デフォルトの名無しさん
08/02/20 23:13:16
俺もJScriptは使わないけど、ヘルプはあるんでJScriptのヘルプより抜粋。

> anchor メソッド参照
> link メソッド| String Object メソッド | String Object プロパティ
>
> 対象: String オブジェクト
> 必要条件
> バージョン 1
> String オブジェクトに格納されている文字列の前後に HTML の NAME 属性を指定する <A> タグを挿入します。
>
> strVariable.anchor(anchorString)
> 引数
> strVariable
> 必ず指定します。String オブジェクトの名前またはリテラルを指定します。
> anchorString
> 必ず指定します。アンカータグの NAME 属性に挿入する文字列を指定します。
> 解説
> anchor メソッドを呼び出すと、String オブジェクトから名前付きアンカーが作成されます。anchor メソッドの使用例を次に示します。
>
> var strVariable = "これはアンカーです";
> strVariable = strVariable.anchor("Anchor1");
> 2 つ目のステートメントの実行後、変数 strVariable は次の値になります。
>
> <A NAME="Anchor1">これはアンカーです</A>
> このメソッドの実行時には、<A> タグが既に元の文字列内にあるかどうかの確認は行われません。

後の関数も似たようなもんだろ。さすがにこれはどうかね・・・

772:デフォルトの名無しさん
08/02/23 10:32:49
BASP21のSpaceメソッドほどではない。

# あれは馬場さん自身「作者の無知からくる全くのゴミメソッド」なんておっしゃってたな...

773:デフォルトの名無しさん
08/02/23 10:43:06
｜BASP21メソッド編
｜　1. BASP21のSpaceメソッドはなんであるの
｜　　　えーとこれは、作者の無知からくる全くのゴミメソッドです。
｜　　　HTML でスペースをあけるのに全角のスペースを使うことがありますが、
｜　　　IMEでなぜか入力できなかったから（IMEのプロパティが半角スペースになっていただけ）。
｜　　　たぶん、誰も使ってないと思いますがどうでしょう。

babaq さんオッチョコチョイ杉ﾜﾛﾀ

せっかくだから今度どこかで無理矢理にでも使ってあげようっと

774:デフォルトの名無しさん
08/02/23 12:50:03
あれはあれで便利だからなくさないで欲しい

775:デフォルトの名無しさん
08/02/23 13:30:14
吉岡照雄のOn Error Resume Nextの正しい使い方とやらを読んだんだが、
こんな面倒なことをしないといけないのか・・・

776:デフォルトの名無しさん
08/02/23 15:11:12
>>775
On Error Resume Nextの正しい使い方教えて～

777:デフォルトの名無しさん
08/02/23 15:23:10
Subプロシージャを毎回作るのはいいけど、さらに複数行の時は入れ子。。。
Subプロシージャだらけになって大変すぎ

778:デフォルトの名無しさん
08/02/23 16:39:25
ファイルの日付をデータベース(ACCESS)に格納できねぇーー

strSQL = "INSERT INTO Log " & _
" (Name " & _
" ,Date " & _
" ,SIZE) " & _
"VALUES ('" & fol.Name & "'" & _
" ,#" & fol.DateCreated & "#" &_ '←ここがおかしいらしい
" ," & fol.Size & ")"

なんか
『Insert into ステートメント　の　構文エラーです』
とか出るんだけどなにがおかしいのか・・・

779:デフォルトの名無しさん
08/02/23 17:27:26
文字列にフォーマットし直してから渡せ

780:デフォルトの名無しさん
08/02/23 18:51:51
はぁー？

781:デフォルトの名無しさん
08/02/23 18:55:22
問題はそのフォーマットだろ

782:デフォルトの名無しさん
08/02/23 19:22:20
SQLの構文に合った書式に変換されるとは限らないってこった。
一旦、年月日時分秒をバラバラにして、構文に合わせた書式に作り替えればいい。
書式は自分で調べてくれ。

783:デフォルトの名無しさん
08/02/23 20:40:43
#mm/dd/yyyy hh:mm:ss#
で渡すといいよ。VBScriptはFormat関数ないから面倒だ。

784:デフォルトの名無しさん
08/02/23 21:39:48
コードそのままで[地域のプロパティ] を変更するといいよ

785:デフォルトの名無しさん
08/02/23 22:21:37
capicom.dllが再頒布可能かどうかが調べてもさっぱり分からないんだが

786:デフォルトの名無しさん
08/02/23 22:31:22
WSHってマウスクリックも出来ないし、.SendKeysメソッドで日本語扱えないしで
やっぱりAutoHotKeyには到底かなわない？

787:デフォルトの名無しさん
08/02/23 22:40:13
>>785
URLﾘﾝｸ(www.microsoft.com)
このパッケージには、CAPICOM 2.1.0.1 の再頒布可能なファイルとそのサンプルが含まれています。

788:デフォルトの名無しさん
08/02/23 22:47:45
>>787
そこだけみると、間違いなく再頒布可能なファイル=CAPICOM.dllな気がするんだが、
DLしてライセンス(英語)を読むと、
再頒布可能なのは、REDIST.TXTに記載されたものと書いてあるが、
REDIST.TXTなんてどこにもない・・・

ググってもググってもはっきりどこにも書いてないorz

789:デフォルトの名無しさん
08/02/23 23:40:10
>>788
URLﾘﾝｸ(msdn2.microsoft.com)
ここだと「再配布可能な CAPICOM ActiveX control」と表現してる。
Platform SDK で CAPICOM で ActiveX control なのは capicom.dll しかないので限定できる。

The Platform SDK contains CAPICOM samples, API documentation, and the redistributable CAPICOM ActiveX control.

というか考えすぎと思う。
再配布して意味のあるものは capicom.dll しかないんだし。

790:デフォルトの名無しさん
08/02/23 23:43:07
>>779
#とか'とか何度もやったし
>>781
Accessに設定したフォーマットは、yyyy/mm/dd hh:mm:ssで、
DateCreatedも書式一緒だからそのままにした
>>782,783

Dim day, m, n, strDt, strEd
strDt = "2090/02/23 00:00:00"
day = Split(strDate, " ")
m = Split(day(0),"/")
n = Split(day(1), ":")
strEd = m(1) & "/" & m(2) & "/" & m(0) & " " & n(0) & ":" & n(1) & ":" & n(2)
WScript.Echo strCom

煩雑だ
>>784
[英国]とか[米国]でもダメだけどorz

フィールド名にDateはダメだったの？
Dateから日付に直したらできたよ
ふぉぉぉぉぉっふぉおおおっ！！

791:デフォルトの名無しさん
08/02/24 00:08:27
>>789
確かにそういうことですね。私の考えすぎでした。

これで、capicom.dllを一緒に配布できるってことか。
一緒に配布している例が見あたらなくって、
どうしてMicrosoftからDLさせるところばっかりなんだろう？と、思ってました。

どーもです。

792:デフォルトの名無しさん
08/02/24 00:26:28
>>791
>どうしてMicrosoftからDLさせるところばっかりなんだろう？と、思ってました。

これについてはセキュリティリスクが関係すると思う。

同梱は可能であっても、同梱してしまうとバグやセキュリティ問題で capicom が更新されたとき、
企業責任として製品自体の更新版を出すことを検討しなければならない。
別途ダウンロードさせる場合にはそれは必要ない。

793:デフォルトの名無しさん
08/02/24 02:28:06
>>786の質問に答えてくだされ・・・・

794:デフォルトの名無しさん
08/02/24 02:34:26
そうです、WSHはうんこです。AHKの足元にも及びません。AHKが最高です。よかったね。

795:デフォルトの名無しさん
08/02/24 09:26:00
AHK >>>>>>>>>>>>>>>>>>>>> マウス操作がデフォでできない言語

こんな定義でおｋ？AHKってどんだけ凄いんだよ（ｗ

796:デフォルトの名無しさん
08/02/24 09:40:34
全盛期のAHK伝説でも貼る流れか？

797:デフォルトの名無しさん
08/02/24 10:05:09
AHKは本当に凄いですよ？AHKにWSHが勝てる点って　デフォルトでWindowsに入ってる
標準環境っていうぐらいじゃないですかね？

798:デフォルトの名無しさん
08/02/24 10:24:06
デフォルトでWindowsに入ってる標準環境＞＞＞（越えられない壁）＞＞＞インストール

799:デフォルトの名無しさん
08/02/24 13:03:14
AHKのおかげで身長が２ｍ伸びました

800:デフォルトの名無しさん
08/02/24 13:06:38
AHKから受信料の請求がきましたが、どうすればいいのでしょうか

801:デフォルトの名無しさん
08/02/24 13:29:44
>>800
テレビの横に古いパソコンを置いて「これはパソコンモニタです」って言い張れ。

802:デフォルトの名無しさん
08/02/24 13:43:11
>>786 >>793 >>797
暇でネタ振ってるんだと思うけど、それならそれで以下を回答してくれ。

・WSHとは何か、具体的に。
・どのように比較してその結論に達したか。

803:デフォルトの名無しさん
08/02/24 15:12:23
Ａ　ア
Ｈ　ホ
Ｋ　か？

804:797
08/02/24 16:47:52
>>802
WSHとはWindows Script Hostingの事で、拡張子 .vbsのファイルにして実行できる
Windowsのスクリプト(Batとは違うのだよ、Batとは！)です。
Linuxで言うShell Scriptみたいなものかと思っています。

比較は、やはりマウスクリックですね。操作の自動化をしたいので、GUIアプリケーションを操作
する際に、Alt + Key みたいな感じにキーが割り当てられてない、クリックでしか出来ない操作を
自動化しようとするときにWSHだと無理なんですよ。
それと .SendKeysメソッド。日本語を送信できないなんて論外です。

その点AHKなら日本語も送信できるしマウスクリックも出来るし、記述が簡単(インスタンス生成
とか面倒な事しなくても簡単な記述でいい、ただし引数の多さがたまに傷かな)な所が良いと思います。

こんな感じでしょうか？

805:デフォルトの名無しさん
08/02/24 17:22:37
WSHはオートメーションオブジェクトの操作がメインだったりする。
他のアプリの制御はアウトプロセスサーバとして制御してくれ、って方針。
Perlが標準入出力の扱いに最適化されているように、
ATKはGUIアプリの操作シミュレートによる制御に最適化されている、と。
ATKはWMIの制御やりにくいから糞、とか言われても困るだろ？

806:797
08/02/24 17:52:35
>>805
1行目、2行目、5行目の貴方の言っている事がスキルの低い私には理解できません・・・。
意味が分からないです・・・。すみません。

807:デフォルトの名無しさん
08/02/24 17:56:37
操作自動化の方法論が違うから総合的な比較はできないってこと
GUI操作のシミュレートならそりゃそれように作られたもの使うのが当然
WSHはそういう用には作られてないもの

808:デフォルトの名無しさん
08/02/24 18:06:30
＞それと .SendKeysメソッド。日本語を送信できないなんて論外です。

日本語が送れるVBのSendKeysと送れないVBSのSendKeysは、
仕組み上でどういう違いがあるのでしょうか？

809:デフォルトの名無しさん
08/02/24 18:13:14
直接Win32API呼び出してるかどうかじゃね

810:デフォルトの名無しさん
08/02/24 18:15:12
Win32API呼び出さないで、SendKeys作れるの？

811:デフォルトの名無しさん
08/02/24 18:22:31
つかってるAPIがちがうんだろ

812:802
08/02/24 21:37:27
>>804
WSHというのは、スクリプト言語からWindows操作をする為の手段(WSHオブジェクト)
の提供と、そのスクリプト言語をデフォルトではVBScriptとJScriptを内包している。

君の比較しているのはVBScriptのようだけど、これは>>805の言っている通り
WSH以外のオブジェクトにもアクセスできる。例えば、IEやEXCEL、WMI....etc
こういう事はAHKでは、どうやるの？

というか、よく見たら>>807が結論出してるね。
GUI操作だけで比較したら、その機能に特化しているAHKが優れているが、
それは総合的な比較じゃないでしょ。理解できた？

813:797
08/02/24 23:23:04
>>812
なるほど、適材適所でWSHもWSHが得意な場面で使えばAHKより使い勝手いいんだ・・・。

814:デフォルトの名無しさん
08/02/24 23:59:03
質問させてください。

ファイルが書き込み不能かどうかを検出するにはどうすればよいでしょうか？
リードオンリ属性ではなく、ファイルを削除するとき稀に出てくる
「ほかのプログラムが使用しているため削除できません」ってやつの状態です。

815:デフォルトの名無しさん
08/02/25 00:01:04
>>814 自己レス。
try仕込むだけでよかったのね orz

816:デフォルトの名無しさん
08/02/25 01:18:15
>>812
> こういう事はAHKでは、どうやるの？
AHK用ActiveXモジュールを使えば良いだけ

逆にWSHでのポインティング操作などは
そういう機能を提供するCOMを使えば良いだけ

このレベルのことなら､やり易さに違いはあっても
結果的に"出来ること"ではWSHもAHKも大差ない

ポインティング操作に限って言えば
WSHは最初からWindowsに入っているが､ポインティング操作機能は後付けになる
AHKはWindowsに対して後付けで入れないと使えないが､ポインティング操作は最初から備えてる
ってだけの違い

817:797
08/02/25 02:18:45
>>816
なんか凄くお詳しいですね・・なるほど、参考になります。
構文とかの簡単さはどちらの方に軍配が上がりますか？
情報量の多さでいくと、WSHの方が色々なところで解説されているだろうし
メジャーだと思います。

AHKはもっと普及してれば敷居低くなるのになぁと思ったり。

818:デフォルトの名無しさん
08/02/25 02:49:55
AHKS

819:デフォルトの名無しさん
08/02/28 09:15:26
FileSystemObjectのTextStreamオブジェクトのReadAllメソッドって
サイズ0のテキストファイルに対して実行するとどうしてエラーになるのかよくわからん
長さ0の文字列返せばいいのに
なんで？

あとVB6でFileSystemObjectのGetParentFolderNameメソッドを使うと親フォルダ名のみだけど
VBScriptだと親フォルダのフルパスが返ってくるけどこれもなんでだろ？
同じFileSystemObjectでもVB6が使ってるのは別物なの？
なんで？

820:デフォルトの名無しさん
08/02/28 20:06:21
ReadやReadLineとの仕様の一貫性かも

DLLは同じなの？

821:デフォルトの名無しさん
08/02/28 21:57:16
ReadAll()する前にAtEndOfStreamを調べなきゃならないようですね

var ForReading = 1, ForWriting = 2;
var Fso = new ActiveXObject("Scripting.FileSystemObject");
var f = Fso.OpenTextFile("null.txt", ForReading);
if (! f.AtEndOfStream)
　　 WScript.StdOut.Write(f.ReadAll());
f.Close();

822:デフォルトの名無しさん
08/02/28 22:01:31
たぶん、めんどくさかったんだと思う

823:デフォルトの名無しさん
08/03/01 23:17:11
WindowsXP、つまり最新のWSH 5.6だと使えるメソッドでもWindows2000、つまりWSH 5.6未満だと
使えないメソッド(例えば Execメソッドとか・・・)やプロパティがありますよねぇ？

それらを調べたいのですが、何を見ればそういうことがまとまって書かれてありますか？
WSHのヘルプファイルを見てみたのですが、見つけきれませんでした。

やりたい事はWindows2000のWSHを5.6にバージョンアップせずにWindows2000でもXPでも
動作するスクリプトを書きたいのです。だから予めどのメソッドが動作しないとか、
引数が違うとかそういうことを把握しておきたいのです。

824:デフォルトの名無しさん
08/03/01 23:46:07
5.6のヘルプのバージョン情報

825:デフォルトの名無しさん
08/03/01 23:47:24
ただし、障害は載ってないからなぁ

826:デフォルトの名無しさん
08/03/02 08:26:53
最新は5.7よ

827:デフォルトの名無しさん
08/03/02 13:02:12
＞やりたい事はWindows2000のWSHを5.6にバージョンアップせずにWindows2000でもXPでも
＞動作するスクリプトを書きたいのです。

いまさらやめとけ　それに2.0じゃたいしたことはできねー

828:デフォルトの名無しさん
08/03/02 16:42:46
>>825
5.0と5.1の挙動の違いすら、5.6のヘルプのバージョン情報だけでは分からなかったからなぁ・・・

829:デフォルトの名無しさん
08/03/19 11:24:42
5.7なんてあったっけ

830:デフォルトの名無しさん
08/03/19 12:40:52
>>829
最近出た。Vistaに標準搭載で、上から2000, XP, 2003英語版がダウンロード可。
URLﾘﾝｸ(www.microsoft.com)
URLﾘﾝｸ(www.microsoft.com)
URLﾘﾝｸ(www.microsoft.com)

831:デフォルトの名無しさん
08/03/19 15:47:18
ちがいは？

832:デフォルトの名無しさん
08/03/20 03:21:19
0.1

833:デフォルトの名無しさん
08/03/20 03:37:06
>>831
不具合修正・セキュリティパッチの統合もあるが、
JScriptで大量のオブジェクトが生成された時のGC高速化がメインかと。
dramaticallyとまで書かれているあたり、結構凄いのかもしれない。

834:デフォルトの名無しさん
08/03/20 19:20:03
Msxml2.XMLHTTPなんだけど
readyState=2や3の時、status取得できる？
4にならないとエラーになるんだけどこれ普通？

Msxml2.ServerXMLHTTPなら2や3でできるんだよね・・・
最近IEがおかしくなってきてるので
どっか壊れてるんだろうか・・・？

XP SP2+IE6

835:デフォルトの名無しさん
08/03/29 00:32:37
IEとalertがとじれません＞＜

836:デフォルトの名無しさん
08/03/29 02:02:27
すれちがい

837:デフォルトの名無しさん
08/03/29 02:09:26
IE.Quit

838:デフォルトの名無しさん
08/03/29 15:04:13
Exec("iexplore.exe").Terminate

839:デフォルトの名無しさん
08/03/29 17:42:24
>>775-776
これ、気になるんですけど…

840:デフォルトの名無しさん
08/03/29 17:59:25
どんまい

841:デフォルトの名無しさん
08/03/29 18:41:22
ん？検索すれば出てくるだろ？

842:デフォルトの名無しさん
08/03/29 19:05:52
>>841
あれがベストなのか？

843:デフォルトの名無しさん
08/03/29 19:10:55
.wsfに読み込む.vbsファイルの一部の関数を非公開にするのってどうやるの？
.vbs内部だけで使える関数を作りたいんだけど・・・

844:デフォルトの名無しさん
08/03/29 19:13:42
できない
代替するなら
wsc
class
かな

845:デフォルトの名無しさん
08/03/29 19:18:08
>>842
ベストなのを教えて

846:デフォルトの名無しさん
08/03/29 23:13:48
無理言うな、それが出来れば質問しないだろ？

847:デフォルトの名無しさん
08/03/29 23:45:48
>>843
Sub xxx_aaa()
とかで凌げ

848:デフォルトの名無しさん
08/03/30 00:02:50
エラーが起きたら即終了でダイアログが出ないようには
どうすればよろしいでしょうか？

849:デフォルトの名無しさん
08/03/30 00:07:35
try {
　　 ……
}
catch (e) {
　　 WScript.Quit();
}

850:デフォルトの名無しさん
08/03/30 00:37:04
On Error Resume Next

851:デフォルトの名無しさん
08/03/30 02:51:51
アニメ「めぐみ」ダウンロードページ
URLﾘﾝｸ(www.rachi.go.jp)

852:デフォルトの名無しさん
08/03/30 04:16:32
>>850 は即終了しないだろ？

853:デフォルトの名無しさん
08/03/30 13:45:44
vbeはwsfでは読み込めないのか…

854:デフォルトの名無しさん
08/03/30 16:10:59
んなことはない

855:デフォルトの名無しさん
08/03/30 17:01:16
vbsをvbeにエンコードしてから、読み込む側のコードの読み込み部分を
<script language="VBScript" src="./hoge.vbs" />
から
<script language="VBScript" src="./hoge.vbe" />
のようにしたんだが、

エラー: ステートメントがありません。
ソース: Microsoft VBScript コンパイルエラー

になってしまって、あきらめていた。"VBScript"の部分を適切なものに変更すればいいのか？
wsfの説明を読んでも分からない…教えてください。

856:デフォルトの名無しさん
08/03/30 17:02:55
VBScript.Encode

857:デフォルトの名無しさん
08/03/30 17:06:38
>>850
Try
　...
Catch ex As Exception
　WScript.Quit
End Try

858:デフォルトの名無しさん
08/03/30 17:10:18
で、できた。今までできないと思っていたのに…

いろいろ実験に使っていたファイルを使ってやってみたんですが、
vbeファイルの中にPrivate Subと宣言した関数(実験なのでそのままPrivateSubという名前)
を使おうとすると

エラー: 型が一致しません。: 'PrivateSub'
ソース: Microsoft VBScript 実行時エラー

となるんですが、これはたまたまですかね？それともPrivateの効果なのか・・・
vbsを読み込んでいた時はエラーは起こらなかったんですが。

859:デフォルトの名無しさん
08/03/30 18:49:01
>>848 //B

860:デフォルトの名無しさん
08/03/30 19:10:00
>>858
君は>>843かな？

Private(Public)宣言はオブジェクト(クラス)外に公開するか否かの宣言なので
インクルード(wsfのscript要素のsrc属性指定)した場合は関係ないよ

きっと偶々というよりプロシージャ名間違い等、君のミスだろう
プロシージャ名間違いなら、読み込みでエラーにはならないが呼び出しではエラーになるし

一応確認してみたが、vbs内でPrivate宣言したSubプロシージャを
そのvbsをインクルードしたwsf内で呼んでみたが、きちんと実行された

861:デフォルトの名無しさん
08/03/30 19:21:47
VBScriptでなく、JScriptにすれば？

function a(){
WScript.Echo('a');
b();
function b(){
WScript.Echo('b');
}
}
a();
b();//エラー

862:デフォルトの名無しさん
08/03/31 22:40:14
MsgBoxをModelessに出して、後で閉じる方法を教えてください

863:デフォルトの名無しさん
08/04/01 00:41:20
WshShell.Run "MsgBox.vbs"

864:デフォルトの名無しさん
08/04/01 22:03:55
あるサイトに含まれている文字列をカウントして出力する、
VBscript（HTA）を、作成しているのですが、
実際に試してみると、以下のダイアログが出現してしまいます。

「このスクリプトの実行を中止しますか？」
このページのスクリプトが、IEの実行速度を落としています。

このまま実行を続けても検索結果となる数字が出力されません。
この場合、どうしたらよいのでしょうか？
以下に、該当する処理を載せます。
strSerch = document.u_list.key.value
i = 0
If strSerch="" Or strSerch=" " Then
'検索フォームに何も入っていないとき
Else
Do While InStr(webtext,strSerch) '検索キーワードでサイト検索
i = i+1 '検索回数カウント
Loop
End If

865:デフォルトの名無しさん
08/04/01 22:22:47
>>864
無限ループにならないようにすると良いのです

866:デフォルトの名無しさん
08/04/01 23:30:32
ひどいロジックだな。
最近は「フローチャート」とか書かなくなったせいか
こんなのが増えたな。

867:デフォルトの名無しさん
08/04/01 23:37:41
フローチャートなんて日本で「マイコン」が出だした頃でも既に有用性が
否定されていたぞw

868:デフォルトの名無しさん
08/04/01 23:50:25
↑
言うと思った。バカの一つ覚えｗ

それは、ある程度、論理的な思考ができるヤツがいう事だよ。
>>864 みたいに未熟なヤツは、フローチャートから入らないとダメ。
今からやろうとすることを、目に見えるカタチにしてまとめる。
これは大事なことだよ。

>>867は後輩を育てられないタイプだな。

869:デフォルトの名無しさん
08/04/02 00:15:04
i = UBound(Split(webtext,strSerch)) + 1 '検索キーワードでサイト検索検索回数カウント

870:デフォルトの名無しさん
08/04/02 00:58:45
found = 0
i = 0
Do
found = InStr(found+1,webtext,strSearch,vbTextCompare)
i = i + 1
Loop While found
i = i - 1

初心者だけど同じ関数で無理やりやってみた。>>869みたいに綺麗に逝きたい…

871:デフォルトの名無しさん
08/04/02 01:10:39
あー、でもこれ"aaaaaaaaaaaa"から"aaa"を検索したいときどう解釈するべきなんだろ。
>>870では10回、>>869では4回？

872:デフォルトの名無しさん
08/04/02 01:16:13
あれ？検索文字列を区切りにしたなら検索された数は要素数-1でないの？
UBoundに+1する必要ないような。

873:デフォルトの名無しさん
08/04/02 02:35:03
i = Len(webtext) - Len(Replace(webtext,strSerch,Mid(strSerch,2)))

874:デフォルトの名無しさん
08/04/03 00:59:23
カッコつけて恥かいちゃったね

875:デフォルトの名無しさん
08/04/03 02:22:25
(恥)

876:ﾄﾞｼﾛｳﾄ
08/04/03 11:45:22
>>870-872が自分のレスだけど、それ以外の人にも、わかってる人は
罵倒レスじゃなくてなんでダメポなんか書いて欲しいな。
スレ見てても参考にならんわ。

>>873は何したいのかわけわかめなんだけど。
i=全文字数-(ヒットした数x(検索文字列の字数-2))　でいいんかな？
この2はどこから出たのやら？
もしかして>>871に対するレスか？

877:ﾄﾞｼﾛｳﾄ
08/04/03 11:54:33
連レスすまん。
カキコした瞬間に勘違いに気づいた。

webtextで検索文字列にマッチした部分を検索文字列の2文字目以降で全置換
→全文字数がマッチした回数x1文字減るから減った数をカウントすればマッチ数がわかる

でOK？

878:デフォルトの名無しさん
08/04/03 17:49:57
i = (Len(webtext) - Len(Replace(webtext,strSerch,""))) / Len(strSerch)

879:デフォルトの名無しさん
08/04/03 17:54:58
found = 1 - Len(strSerch)
i = - 1
Do
found = InStr(found+Len(strSerch),webtext,strSearch,vbTextCompare)
i = i + 1
Loop While found

880:デフォルトの名無しさん
08/04/03 18:28:22
ここ、PC初心者板じゃないよね?

881:デフォルトの名無しさん
08/04/03 18:34:37
>>880
ちがうよ
スレタイも読めないの？

882:デフォルトの名無しさん
08/04/03 18:35:29
何が言いたい？
煽るなら死ぬ気でやれよ

883:デフォルトの名無しさん
08/04/03 18:36:15
っちょ
うざいな

884:デフォルトの名無しさん
08/04/03 18:51:50
>>880
凄いなぁ！尊敬。アッタマいい！かっこいい。
（などと言われてみたい。。。てか？

885:デフォルトの名無しさん
08/04/03 18:54:16
>>880は例の基地外

886:デフォルトの名無しさん
08/04/03 18:57:19
>>864
正攻法はRegExpだろ？

887:デフォルトの名無しさん
08/04/03 19:17:17
>>880 にもチャンスをやろうよ
RegExp使ったコード書いてみ？

888:デフォルトの名無しさん
08/04/03 19:21:46
i = UBound(Split(webtext,strSerch))

すでに答えが出てるだろ。

889:デフォルトの名無しさん
08/04/03 19:38:52
>>868
あのなあ。。

フローチャートってのは「プログラミング言語以外で処理内容を表現するツール」
いうなれば「プログラマ以外の人間の方を向いたツール」であって（だから今でも
ユーザーズマニュアル等には時々出てくる）プログラマが思考の整理に使う道具ではないんだよ。

もう30年も前から言われていることだが、フローチャートってのは
複雑性を縮減する機能が全くないだろう。
ただベタに処理をチャートで表現しただけだからな。
だったらそんなもの書いてる暇があったらとっととコード書けってw

こんな人間が後輩の育成とか釣りではなく言ってるならどんだけ馬鹿なんだよw
っていうかこんな人間に「育成」される人が可哀想だ。

890:デフォルトの名無しさん
08/04/03 19:42:38
>>887
正規表現で指定したい場合なら、何の変哲もないが

With New RegExp
.Pattern = strSerch
'.IgnoreCase = False
.Global = True
found = .Execute(webtext).Count
End With

でいいんじゃね？
IgnoreCaseプロパティは必要に応じて指定すれば良し
>>871の場合の結果は後者

891:kuchigakusaiossan
08/04/04 11:47:41
すいません、スレ異かな。ＷＳＨの言葉だけで来ました。
悩んでます。だれか教えぇぇぇぇ～～て

ＥＸＣＥＬ2003　ＶＢＡで　
　URLﾘﾝｸ(www.happy2-island.com) あたりに
　　　WScript.Sleep 5000　　っていうのがさりげにつかってありますが
　　　オブジェクトが必要ですというエラーが出ますうううぅぅぅぅぅ
　私はどうすればいいのでしょうか。
　悩みと疲労で歯槽膿漏がますますひどくなりますうううぅぅぅ
ぐぐると以下の同じような人もいます。だれか愛の手を
win32のsleepとかはなしで、Wscript.echo もつかいたいし
　
＞Excel VBA質問スレ Part5
878 ：デフォルトの名無しさん：2008/03/02(日) 23:54:52
物凄く基本的な事で申し訳ないのですが・・・、処理待ちでスリープを掛けたく、
　WScript.sleep (250)
と記述していますが、エラー424 オブジェクトが必要ですというエラーが出るのです。

何か参照設定が足りないんでしょうか。。

879 ：デフォルトの名無しさん：2008/03/02(日) 23:56:42
ググれよ・・・

880 ：デフォルトの名無しさん：2008/03/03(月) 00:01:10
>>878
WScript.exeを参照設定しろー

892:デフォルトの名無しさん
08/04/04 16:05:48
すれちがい

893:デフォルトの名無しさん
08/04/04 17:04:30
ぐぐれもん

894:デフォルトの名無しさん
08/04/04 17:05:30
WScript.exeを参照設定しろ

895:デフォルトの名無しさん
08/04/04 19:36:53
実際問題としてVBAならDeclareが一番楽だと思うんだ

896:デフォルトの名無しさん
08/04/04 21:11:06
Application.Waitのほうが簡単

897:デフォルトの名無しさん
08/04/04 21:15:39
>>887

898:デフォルトの名無しさん
08/04/05 02:12:04
>>889
後輩つぶし必死だなｗｗｗ
そんなに若者に追い越されるのが怖いのかい？

＞そんなもの書いてる暇があったらとっととコード書け

で書いたのが、>>864 だよ。
キミは後輩にこんなコードを書かせて満足してるんか？

899:デフォルトの名無しさん
08/04/05 03:26:18
いいぞもっとやれ

900:デフォルトの名無しさん
08/04/05 04:37:18
よそでやれ

901:kuchigakusaiossan
08/04/06 14:14:28
>>891 自己レスですぅ
誤った解釈は、URLﾘﾝｸ(www.happy2-island.com) はVBAじゃなくWSHのスクリプトそのもらしい。
URLﾘﾝｸ(www.atmarkit.co.jp)
から考えましたが
Wshスクリプトないでは　wscriptは暗黙にオブジェクト化されそのまま参照可能である
VBAからはwscript そのもののオブジェクト化はエラーになる
Dim WSH
Set WSH = CreateObject("WScript")　←　エラーになる
WSH標準オブジェクトはオブジェクト化できる
Dim WSH
Set WSH = CreateObject("WScript.shell")
WSH.Run ("sleep 3")
WSH.Run ("echo test")
　　↑　はOK　sleep echo は意味ありませんが
以上の事で混乱していたみたいです
なぜVBAからWscriptのオブジェクト化ができないのか？回避策は？などは
誰か～～　知ってる人おらんか。。。。。。　ヨロシク

902:デフォルトの名無しさん
08/04/06 14:30:59
だいたいそういうこと。
WScriptオブジェクトはwscprit.exe/cscript.exeがスクリプトへ与えるもので、
その大半はスクリプトを実行したときでいないと意味を成さない。

例えば、WScript.SleepならVBではWin32 APIのSleep関数を使えばいいという具合に別の方法がある。

903:デフォルトの名無しさん
08/04/06 16:24:34
スレ違い
【OLE】オートメーション総合スレ【ActiveX】
ｽﾚﾘﾝｸ(tech板)l5

次ページ