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

1 名前：デフォルトの名無しさん [2007/04/16(月) 13:48:54 ] (　´ゝ`)　誰か詳しい情報ｷﾎﾞﾝﾇ ●過去スレ WSH(・∀・)ｽﾚｯﾄﾞ! pc11.2ch.net/test/read.cgi/tech/1055075469/ ●関連スレ お前ら、wsh使ってますか? part6 pc11.2ch.net/test/read.cgi/win/1155040873/ 【ｲｹﾒﾝ】阿龍スレ避難所＠自己紹介【彼女募集中！】 life8.2ch.net/test/read.cgi/intro/1171897814/ ●個人サイト Windows Scripting Host Laboratory www.roy.hi-ho.ne.jp/mutaguchi/wsh/ Windows Script Wiki winscript.s41.xrea.com/wiki/index.php 音楽 winscript.mine.nu/music/ キャラネタ板・なな板のための何か charaneta.mine.nu/ 13 名前：デフォルトの名無しさん [2007/05/01(火) 19:00:24 ] Windowsのバージョンを取得するにはどうすればいいのでしょう？ ↓のような書式で取得したいのですが WindowsXP Service Pack 2 14 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 19:18:46 ] のような書式と言われても少々困るが、WMI で Win32_OperatingSystem から取ってくるとか 15 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 19:54:22 ] >>12みたいな文字列の繰り返し関数はないの？ 16 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 21:31:51 ] PerlScriptでも使えば 17 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 21:34:51 ] つかまあそれくらい作れと言う話だな 18 名前：デフォルトの名無しさん mailto:sage [2007/05/02(水) 00:56:12 ] つJoin() 19 名前：デフォルトの名無しさん mailto:sage [2007/05/02(水) 23:52:52 ] おいw 20 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 01:29:40 ] やま 21 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 01:40:56 ] じゅん 22 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 03:39:29 ] XP Home Editionでwmic.exe使っている人いませんか？ 23 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 11:52:37 ] >>15 String.prototype.repeat = function(num) { return Array(num + 1).join(this); } WScript.Echo( "ABC".repeat(3) ); 24 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 15:51:36 ] つSplit() 25 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 17:45:15 ] >>23 >Array(num + 1) newがあるのとないのでどう違うの？ 26 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 19:04:28 ] 組み込みオブジェクトの場合new付けなくても 付けたことと同じように振舞うらしいが なんとなく気持ちよくないなあ。 27 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 22:09:00 ] WSHのスクリプトの最後にrelease();とか=null;するのって意味あるんでしょうか？ 勝手に解放するものと思ってるんですが、結構やってる方が多いので聞きたいです。 28 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 22:41:55 ] 殆どの場合意味無いけど､意味のある場合もあるよ。 デストラクタイベントの順番をコントロールしたい場合とか。 解放自体は君の思ってるとおり自動でやってくれるから､解放のためだけにやる意味はない。 最後じゃなくて途中で破棄するなら､逆に殆どの場合有意だけどね。 29 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 22:46:30 ] excelなんかは解放してすぐ終了すると死ぬみたいで、 解放してからsleepいれたりするのに必要かも 解放してすぐ終了なら不要でしょ 30 名前：デフォルトの名無しさん mailto:sage [2007/05/03(木) 22:47:37 ] >>27-28 関連してこんなのもあるそうです support.microsoft.com/kb/266088/ja?spid=1741&sid=485 CollectGarbage() 31 名前：デフォルトの名無しさん mailto:sage [2007/05/04(金) 01:21:37 ] >>8 何かすげー (Win2KSP4+SRUPとWin98SE&WSH5.6にて動作確認済み) Execute "Set Win = WScript.CreateObject(""Shell.Application"") :Win.TileVertically" 自分のアプリケーションランチャに登録させて貰いました。 でもどんな時に使うといいのだろう‥ ウィンドウ同時に開きすぎて、タスクバーから探すのが面倒になって来た時とかかな、成程‥ 32 名前：デフォルトの名無しさん mailto:sage [2007/05/04(金) 19:43:12 ] それって「上下に並べて表示(H)」より便利なのか？ 33 名前：デフォルトの名無しさん mailto:sage [2007/05/04(金) 21:33:51 ] >>13 wmic.exe os 34 名前：デフォルトの名無しさん mailto:sage [2007/05/05(土) 18:04:31 ] >>22 wbemoc.inf 35 名前：デフォルトの名無しさん mailto:sage [2007/05/06(日) 21:33:25 ] hoge.vbs //aaaa で引数が渡せないよー 36 名前：デフォルトの名無しさん mailto:sage [2007/05/06(日) 22:00:40 ] >>35 それは wscript/cscript に渡すときのやり方だろ。 hoge.vbs /aaaa でおｋ・・・のハズ。 37 名前：デフォルトの名無しさん mailto:sage [2007/05/06(日) 22:03:32 ] うんにゃ //aaaa という形式の引数だす 38 名前：デフォルトの名無しさん mailto:sage [2007/05/06(日) 22:07:58 ] 当然、シェルは内部で wscript.exe を起動するわけだから、それはすなわち wscript.exe の引数になるのである。 で、ここはお前の日記帳じゃない。 39 名前：デフォルトの名無しさん mailto:sage [2007/05/06(日) 22:56:41 ] //〜で渡すのは､組込の名前付きオプションだけでしょ //Jobとか//nologoとか､WSH側で初めから定義されてるやつ ユーザー定義の名前付き引数は/〜の形だよ だからある意味>>36の言ってることは正しい コマンドライン的に見れば､渡し先はどちらもWSHの実行ファイルになるけど 処理上ではスクリプト内に渡るものとWSHに直接渡るものとで別れてるとも言える 40 名前：デフォルトの名無しさん mailto:sage [2007/05/06(日) 23:27:30 ] つ// hoge.vbs // //aaaa 41 名前：デフォルトの名無しさん mailto:sage [2007/05/08(火) 03:37:17 ] こういうのも × cscript -nologo -hoge.vbs ○ cscript -nologo -- -hoge.vbs 42 名前：デフォルトの名無しさん mailto:sage [2007/05/09(水) 15:02:14 ] WScript.ShellのExecでコンソールを非表示にできないの？ 43 名前：デフォルトの名無しさん mailto:sage [2007/05/09(水) 17:03:20 ] できるよ 44 名前：デフォルトの名無しさん mailto:sage [2007/05/09(水) 22:57:07 ] www.microsoft.com/japan/technet/scriptcenter/resources/qanda/may06/hey0519.mspx 45 名前：デフォルトの名無しさん mailto:sage [2007/05/10(木) 18:17:38 ] dsofileの新版が出たそうな www.microsoft.com/downloads/details.aspx?FamilyID=9ba6fac6-520b-4a0a-878a-53ec8300c4c2 46 名前：デフォルトの名無しさん mailto:sage [2007/05/12(土) 18:33:01 ] >>44 >Exec がコマンドライン ユーティリティを実行すると、そのユーティリティは非表示ウィンドウで実行され なんか変なことが書いてあるね 47 名前：デフォルトの名無しさん mailto:sage [2007/05/13(日) 13:17:47 ] >>43 >>44 >>42も>>44の質問者もそういう意味ではないと思うんだが。 というかいつも思うんだけどScripting Guyって本当馬鹿だよな 48 名前：デフォルトの名無しさん mailto:sage [2007/05/13(日) 18:28:41 ] >>44の説明記事は無視してサンプルを見れば出来ると分かるよ 49 名前：デフォルトの名無しさん mailto:sage [2007/05/14(月) 14:54:30 ] はあ？お前もScripting Guyと同じ池沼かよ CScriptの事なんか聞く訳ねーだろ WScriptからできるかどうかを聞いてるに決まってんだろ 50 名前：デフォルトの名無しさん mailto:sage [2007/05/14(月) 15:06:29 ] 日本語でおｋ 51 名前：デフォルトの名無しさん mailto:sage [2007/05/14(月) 16:27:35 ] >>44のサンプルが示しているのは 「cscriptからexecするとコンソールが新たに開くことはない」 ということ だったら、そのcscriptをwscriptから非表示でrunすればおｋ 52 名前：デフォルトの名無しさん mailto:sage [2007/05/14(月) 21:03:04 ] Scripting Guyの場合、本質的にはこうじゃないの？ Set WshShell = CreateObject("WScript.Shell") WshShell.Run "net Localgroup Administrators", 0 結果が欲しいというのなら WshShell.Run "cmd /c net Localgroup Administrators > result.txt", 0 あと42はExecが標準ハンドルをリダイレクトしてるのに窓を出してる仕様は いかがなものか、というそういう事を言ってるんだと思うが 53 名前：デフォルトの名無しさん mailto:sage [2007/05/14(月) 22:42:25 ] はあ？ 54 名前：52 mailto:sage [2007/05/18(金) 23:52:50 ] >>53 知らんのね。本来のWin32仕様では・・・ 55 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 02:08:26 ] ハイハイ次どうぞ 56 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 19:42:46 ] >>8 つArrangeIconicWindows() 57 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 01:55:25 ] domacroがダウンロード出来るサイトってありますか？ 404ばかりで… 58 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 08:31:42 ] 検索して10分で落とせるところ2カ所見つけた 59 名前：デフォルトの名無しさん mailto:sage [2007/05/26(土) 04:59:47 ] 60 名前：デフォルトの名無しさん mailto:sage [2007/05/31(木) 02:53:00 ] 61 名前：デフォルトの名無しさん [2007/05/31(木) 07:43:10 ] batスレから誘導されました。質問させてください。 WSHの正規表現でvar.iniファイル内の各行に対して、「###」と「###TITLE###」 という文字列を検索、見つかったか否かをEchoさせているのですが、 実際に検索対象の文字列が無い行に対しても「True」を返しているようです。 なぜうまくいかないのか教えてください。 Dim objFS, strCD, objINI Set objFS = CreateObject("Scripting.FileSystemObject") strCD = objFS.GetParentFolderName(WScript.ScriptFullName) Set objINI = objFS.OpenTextFile(strCD & "\var.ini", 1, False) Dim strSpecificTag, strAnyTag strSpecificTag = "###TITLE###" strAnyTag = "###" Dim strINI, strINIsum, boolWritable Do While objINI.AtEndOfStream <> True strINI = objINI.ReadLine '*** Any tag の検索 *** Dim objREat Set objREat = New RegExp objREat.Pattern = strAnyTag '*** Specific tag の検索 *** Dim objREst Set objREst = New RegExp objREst.Pattern = strSpecificTag WScript.Echo objREat.Pattern & ": " & objREat.Test(strAnyTag) & vbNewLine & objREst.Pattern & ": " & objREst.Test(strSpecificTag) Loop objINI.Close 62 名前：デフォルトの名無しさん [2007/05/31(木) 07:44:37 ] ちなみにvar.iniの中身はこれです 123start ###TITLE###birthday1 birthday2 birthday3 birthday4 ###YYYY###2004 ###MMDD###0324 ###BODY###私は学生です この日に生まれました 63 名前：デフォルトの名無しさん mailto:sage [2007/05/31(木) 08:45:53 ] > なぜうまくいかないのか教えてください。 だってstrAnyTagをパターンに設定して､var.iniの行内容(strINI)ではなく strAnyTagがstrAnyTagにマッチするか見てるんだもん。 strAnyTagとstrAnyTagは同一なんだから､毎回Trueで当然でしょ。 strSpecificTagも同じく。 var.iniはstrINIに読み込んだっきりで､検索も何もしてないし。 それとループ内で毎回RegExpオブジェクト設定する必要無いし そもそも正規表現使うまでもない。 64 名前：デフォルトの名無しさん mailto:sage [2007/06/01(金) 20:21:47 ] ほんとだ！ありがとうございました！ 65 名前：デフォルトの名無しさん mailto:sage [2007/06/02(土) 13:41:12 ] このくらいのバグ取りだったら、怪しい行間に、Msgbox 入れてけばすぐ解るでしょうに… 時間が無い人が多くなったのかな、現代社会って。 66 名前：デフォルトの名無しさん mailto:sage [2007/06/02(土) 14:06:54 ] 時間の有る無しの問題じゃないだろ。 デバッグってのはコードを書き始める前に覚えるべきことで 車の運転に対する運転免許のようなものだが デバッグもろくに出来ない癖にいきなりコードを書き始める奴が多くなった。 最近の若い子は基礎とか準備とか､そういうのを飛ばして面白そうな所にいきなり飛びつく。 んで､問題が起きると人任せに｢たすけて〜｣と言うだけで､自分でどうにかしようとはしない。 本人は努力してるつもりなのかもしれないけど､端から見たらすぐ投げ出してるようにしか見えない。 これは時間の有る無しではなく人間性の問題だよ。 67 名前：デフォルトの名無しさん mailto:sage [2007/06/02(土) 15:22:21 ] >>66 デバッグ技術は難しいよ。 教えてくれる人が殆ど居ないから。 知ってても（大して知らないが）教える気は無いけど。 どういう攻め方をするのかで幾つかの定石があり、それをなぞれば良いだけなんだけどね。 68 名前：デフォルトの名無しさん mailto:sage [2007/06/02(土) 15:25:02 ] 実は難しくないけどね 69 名前：デフォルトの名無しさん mailto:sage [2007/06/02(土) 20:31:14 ] プログラミング免許制にすればいいのにね Fizz Buzz 問題を 2分以内に解けない香具師は不合格でいいよ pc11.2ch.net/test/read.cgi/tech/1158247019/377 70 名前：デフォルトの名無しさん mailto:sage [2007/06/03(日) 00:14:58 ] >>69 コピペ勝負と考えてｗ printf("1"); printf("2"); printf("Fizz "); printf("4"); printf("Buzz "); 　　・. 　　・ 　　・ printf("100"); 71 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 22:14:13 ] あえて乗ってみる。 function FizzBuzz( n ) {     if( n % 15 == 0 ) return "FizzBuzz";     if( n %  3 == 0 ) return "Fizz";     if( n %  5 == 0 ) return "Buzz";     return n.toString(); } 72 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 21:25:21 ] >>70 絶対計算ミスるぞそれ……と思ったら既にミスっててﾜﾗﾀ 73 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 00:49:14 ] WSHでCD/DVDドライブのプロパティの設定を変更する方法はあるのでしょうか？ 具体的には 　マイコンピュータ→CD/DVDドライブ右クリック→プロパティ選択 →「書き込み」タブ選択→「このドライブでCD書き込みを有効にする」チェック のチェック有り無しをスクリプトで制御したいと考えています 74 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 08:47:58 ] >>73 そういう制御が出来るActiveX.dllを作って､それをWSHから使えば良いだけだよ。 WSH自体には､そんな機能は備わってないからな。 反映が再起動後でいいなら､アレを変更するだけでいいけど。 75 名前：デフォルトの名無しさん [2007/06/08(金) 09:29:28 ] CDトレイをリジェクトしたりインサートしたり WSHでやってみたいが、無理ではない。可能だ。 76 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 12:38:17 ] WSH+WMI 77 名前：デフォルトの名無しさん [2007/06/08(金) 23:38:12 ] VBScriptで文字列中のダブルクォートをエスケープするにはどうすればいいの？ dim str str="\" これだとエラーになるんですけど 78 名前：デフォルトの名無しさん [2007/06/08(金) 23:39:05 ] ミス ○str="\"" ×str="\" 79 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 23:40:04 ] """" 冗談みたいだろ 80 名前：デフォルトの名無しさん [2007/06/09(土) 00:20:41 ] >>79 thx! 81 名前：デフォルトの名無しさん mailto:sega [2007/06/09(土) 02:02:51 ] >>76 詳細kwsk それはそうと、MCIでも操作するかと思ったけど WSHでは無理そうだった 82 名前：73 [2007/06/09(土) 02:20:01 ] >>74 ActiveX.dllは未経験でしたので それがどんなものかから調べていきます (VBで作ってそれをWSHから呼び出して？) >>76 自分もその方法でできるなら ぜひ教えていただきたいです Win32_CDROMDriveがそれっぽいかなと WSH内でWMI呼び出して･･･と調べたんですが 該当項目をいじれる項目や手段が分からなかったもので... 83 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 09:21:35 ] >>82 Win32_CDROMDriveではイジェクトできませんよ。 というか、WMI経由ではCDトレイは操作できません。 >>76は釣りか知ったかです。 84 名前：デフォルトの名無しさん [2007/06/09(土) 13:59:33 ] ファイルの作成日や最終更新日を任意の日付に変えたいのですが、 WSHでは無理そうですね。 普通、どんな手段を使うんでしょうか。 85 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 19:12:04 ] Win32APIを使うのが常套手段なので､DynaCall使ってもいいが タイムスタンプ変更が出来るActiveX.dllは､既製の物が結構あるのでそれを使ってもいいし WSHに拘らなければ､AutoHotkeyとかコマンドラインツールとかがお手軽かな 86 名前：73 [2007/06/10(日) 02:14:07 ] >>82 「このドライブでCD書き込みを有効にする」チェックの有無の確認と 無し→有り(有り→無し)を実現したかったのですが無理でしたか･･･ なるべくVBScript系で行ないたかったのですが この計画の初期段階から考え直します･･･ 87 名前：デフォルトの名無しさん [2007/06/10(日) 23:06:28 ] うん、CDトレイを閉じる方法もどうやらなさそうだな 本当はあるんだろうけど、ちょっとマイナーで難しい方法しか ないみたいだま WSHの可能性をもう少し信じたいが 88 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 01:45:25 ] WSHの可能性というよりはActiveXの可能性だろ。 ActiveXはFileSystemObject(scrrun.dll)やWshShell(wshom.ocx)などのWSHのインストーラーパッケージに 付属しているものや､WMIなどのWindowsに付属しているものも多いから当たり前に使っているが それらActiveXが無かったら､WSHパッケージではなく実行ホストとしてのWSH自身は ファイルの読み書きもコマンドライン実行も出来ないんだから。 逆にActiveXのdll,ocx,exeさえ作るか探すかすれば､大抵はなんとでもなってしまう。 > 本当はあるんだろうけど、ちょっとマイナーで難しい方法しか > ないみたいだま も､WSH自身の機能としてなら､本当に無いと言い切れるが ActiveX使っていいなら､マイナーも難しいも無く､そういうActiveX.dll作るか探すかすればいいってだけの話。 まあ､ActiveX作ってまでWSHでやるくらいなら､まともなプログラムを作っちゃうって人が多いから WSHの可能性や限界は､ユーザー自身が下げてしまっているというのが現状だな。 適材適所という考え方からすれば､それは悪いことじゃないし。 89 名前：デフォルトの名無しさん [2007/06/11(月) 02:56:14 ] >>88 出来る限り、（ほぼ）標準機能で済ませたい WSH使いとして、なんとなくここだけは何かこだわりたい プログラム書くのは別に苦じゃないしどうとでも書けるけど テキストだけで済ましたい ってのはなんか、こう、ロマンだよね 90 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 04:24:27 ] 勝手にすればいい 91 名前：デフォルトの名無しさん [2007/06/11(月) 21:55:51 ] こちらで質問していいのか迷ったのですが･･･ WSHファイルをオートランで起動しようと 以下のinfファイルを作成したのですが これを実行したときに表示される コマンドプロンプト?画面を非表示にするにはどうすればよろしいのでしょうか？ [autorun] open=cscript //nologo "hoge.wsf" 92 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 22:12:06 ] cscriptに渡したらコマンドプロンプト開くのは仕方ないと思うが… ↓こんな風に直接叩くいたらダメなのかい？ [autorun] open="hoge.wsf" 93 名前：デフォルトの名無しさん mailto:sage [2007/06/11(月) 22:18:21 ] wscriptはだめだっけ？ 94 名前：デフォルトの名無しさん mailto:sage [2007/06/12(火) 19:53:41 ] >>92-93 open=cscript "hoge.wsf" を open=wscript "hoge.wsf" に替えたらコマンドプロンプト無しで実行されました。 というかなぜcscriptで思考が止まってしまったのか お恥ずかしい限りですが ご助言ありがとうございました 95 名前：デフォルトの名無しさん [2007/06/12(火) 22:54:03 ] set shell = WScript.CreateObject("WScript.Shell") if not shell.AppActivate "TARGETWINDOW" then 　　shell.Run "targetapp.exe" end shell.SendKeys ... のようなことがやりたいんですがAppActiveに失敗したかどうかを得る手段はありますか？ 96 名前：デフォルトの名無しさん mailto:sage [2007/06/13(水) 00:07:01 ] 失敗したらfalseを返すのでは 97 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 08:33:26 ] 98 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 22:58:31 ] 　　　　　　　-‐''''"´￣｀`ヽ､　　　 　 　 　 　 　 ＿＿＿_ 　　 　 　 /　　　　 ＿　 　 　ヽ　　　　　　　 ／／´ 　 __,,＞､ 　　　　 /　　　　 　 ￣￣　　 {　　　　　 　 /::/　／￣:::::::::::::::＼ 　 　 　 l　_ｨﾆﾆｱ二二二ﾆヽ､j._　　　　　 /::::l／::::::::::::::::::::::::::::::::l 　　　　 | 0Lj／-‐-ﾚノ ﾉ＿ヽ:::｀ヽ　　 　 l:::::::::::／l／lノノ/_イ:::::l 　　　　 ﾚ:r､/　ｲﾟﾃ　　　ﾋﾟﾄ｀|::|　　　　　 l:::::::::/ rtﾃ､ 　.ｨtq l::::::| 　　　 　 l:lﾍ　　'"　　　,j 　'"/ﾉ　　　　　 |::lﾍ!j　　´　　,j　　 !;:::/ 　　　　　ヽヽ､　　　r‐-, 　 /'　　 　 　 　 ﾚﾘｰ ､　 　 ,....,　　lﾉ/ 　　　　　　　　lヽ､　￣　／　　　　　　　　　｀ヽ､lヽ ､ ￣　／´ 　　　　　＿,r┴‐-｀v´-‐j-､＿＿　　　, -‐-､_r┴─'ｰ‐ﾁﾄ　　　　　　　false 　 ／￣/:.:.:.:|￣￣｀T￣´|:.:.:.:l´　｀ヽ /　　　　ヽ￣`ー-‐'´`''''⌒ヽ ／　　 ,':.:.:.:.:.l　　　　l　　 l:.:.:.l　　　　＼　　＿r‐､-､-､ｒ,　 　 ､　　 ', 　　 　 |:.:.:.:.:.:.!　　 　 !　　 !:.:.l　　　,. -‐ゝ/// 〉 〉 〉 〉 〉　　　 !　　 ', 　　　　l:.:.:.:.:.:.ｌ　　 　 |　　 l:.:.:l　 ／　　人〈〈〈〈 '　'　' /っ　　　l　 　 l 　　　　l:.:.:.:.:.:.!　　 　 !　　 l:.:.:.ﾄ/　　 /　　```´-ｧ‐'''"　　　　 /　　　l ､＿＿/:.:.:.:.:.:ｌ　　 　 |　 　 |:.:.:ヽﾍ　 l　　　　/／　　 　 　 　 /　_ ｨノ 　 　 /:.:.:.:.:.:.:!　　　　l　　　|:.:.:.:.:l `ｰヽ､＿ノ´l､＿＿＿＿__/lﾆ二」 ＿___l:.:.:.:.:.:.:.|　 　 　 l　　　|:.:.:.:.:!　　　　　 　 |＿　 （ ( ) ）_〕|　　 l 　　　l`ー‐‐'匸二l￣￣l二フｰｲ　　　　　　 /　　￣ `‐‐'´　ヽ　　| 99 名前：デフォルトの名無しさん mailto:sage [2007/06/17(日) 23:35:14 ] >98 ソースに埋め込みました。 100 名前：デフォルトの名無しさん [2007/06/18(月) 12:58:51 ] マウスの座標を設定したいのですが どうしたらいいでしょうか 101 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 14:29:02 ] >>100 WSHにはそういう機能は無いので､ そういう機能のあるActiveXを作るか探すかしてください 以上 102 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 16:27:17 ] >>101 それを聞いてるんだけど・・・大丈夫？ 103 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 16:29:13 ] マウスの設定をWSHから読みたいんだけど レジストリを読めばいい？ 104 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 19:17:13 ] >>102 ActiveXを作るのはwshじゃ無理。 他を当たってください。 105 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 21:35:59 ] >>102 ここはWSHスレであって､ActiveXスレでもActiveXを作れる言語のスレでもないんだけど・・・大丈夫？ >>103 (標準の)コンパネで設定しているものならレジストリ読めばいい コンパネの設定でも､なんらかのドライバインストールで改変された部分とか あとは特定マウス用のユティリティーなどの設定は自分で解析しましょう 106 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 21:41:00 ] Win板のスレにはテンプレにいくつかコンポーネントとか挙げられてるけどこっちには無いのな 107 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 21:47:36 ] 無ければ作ればいいじゃない。 108 名前：デフォルトの名無しさん mailto:sage [2007/06/18(月) 22:01:26 ] だってここは自分でコンポーネント作れる人達が集まる板だから 109 名前：デフォルトの名無しさん [2007/06/18(月) 22:10:07 ] SetCursorPos.exe作れよ。 一分もかからないだろ。 110 名前：exe作ったら負けかなと思ってる mailto:sage [2007/06/19(火) 01:03:13 ] <html><script>function AX(s){return new ActiveXObject(s)} function Run(pr){var fp,xd,bs,fs=AX("Scripting.FileSystemObject"); xd=AX("Microsoft.XMLDOM").createElement("x");xd.dataType="bin.base64"; xd.text=fm.dt.value.replace(/\s/g,"").replace(/@(\d+)/g,function(a,b){return Array(b*1+1).join("A")}); bs=AX("ADODB.Stream");bs.Open();bs.Type=1;bs.Write(xd.nodeTypedValue); fp=fs.GetSpecialFolder(2)+"\\MouEvt.exe";bs.SaveToFile(fp,2);bs.Close(); AX("WScript.Shell").Run(fp+" "+pr,1,true);fs.DeleteFile(fp)}</script> <form id=fm onsubmit="Run('1 '+fm.dx.value+' '+fm.dy.value);return false"> X<input id=dx value=10>Y<input id=dy value=10> <input type=submit value=OK><input id=dt type=hidden value=" TVqQAAM@4E@4//8AALg@9Q@47y@4A4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSByd W4gaW4gRE9TIG1vZGUuDQ0KJ@9DP28Hqi7qvuYu6r7mLuq+5i7quuY66r7lItfK5jLqvuax83rmJuq+5 rHzXuYq6r7lSaWNoi7qvuQ@20BQRQAATAEDAE6SdkY@10O@3wELAQg@3I@4E@9B@5Q@4I@5B@4Q@5gAA B@10E@10B@5B@9I@3QAAB@3B@6E@3E@8B@15DwgAABQ@112I@3I@36C50ZXh0@4EgE@4Q@5g@4Q@18C@ 3GAucmRhdGEAACQB@4I@5I@4G@18B@3BALmRhdGE@4E@5D@30Q@3w@608FGNBCRQ/xUEIEAAUP8VDCBA AFCLRCQE6BQ@3CDxARQ/xUAIEAAzMzMzMzMzMzMzFFTVVZXM+2DwP4z9jP/M9uD+AOJbCQQd0H/JIW0E EAAi0QkGItQEOh0@4i+iLTCQYi1EM6GY@3CL2ItUJBiLUgjoW@4Iv4i0QkGItQBOhK@4i/DrE2oQaCAg QABoLCBAAFX/FRggQACNTCQQUVVTV1b/FRQgQABfXl0zwFtZw3oQQABsEEAAXhBAAFAQQADMzMzMzMzM zMzMzMwPtwpWM/ZmhcmNRgF0L4v/ZoP5MHISZoP5OXcMD7fJjTS2jXRx0OsJZoP5LXUPg8j/D7dKAoPC AmaFyXXTD6/GXsM@316A4C@3M4g@8rC@9KIQAA/C@8BNb3VzZUV2ZW50AABTeW50YXggRXJyb3Iu@4mC @14wi@4wgAACMI@13DuI@4C@3KAg@13Bgh@3UI@29DgI@3zi@8CsI@9ohAAD8I@9cAQ29tbWFuZExpbm VUb0FyZ3ZXAABTSEVMTDMyLmRsbAARAUdldENvbW1hbmRMaW5lVwC5AEV4aXRQcm9jZXNzAEtFUk5FTD MyLmRsbAAA3wFNZXNzYWdlQm94QQDWAm1vdXNlX2V2ZW50AFVTRVIzMi5kbGw@296="> </form></html> 111 名前：exe作ったら負けかなと思ってる mailto:sage [2007/06/19(火) 01:05:55 ] やっと入ったｗｗ ふ〜、この板の文字数制限は地獄だぜ・・・ 112 名前：デフォルトの名無しさん mailto:sage [2007/06/19(火) 01:09:08 ] またおまいかｗ 113 名前：デフォルトの名無しさん mailto:sage [2007/06/19(火) 08:47:06 ] それなくても、マウスカーソルを動かすプログラムを考えついた。 前提として、 規定のボタンの位置にマウスを移動させる 機能を 有効にしている人にしか使えない方法なんだけど、

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef