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

1 名前：デフォルトの名無しさん [03/06/08 21:31] (　´ゝ`)　無ので立ててみた。 誰か詳しい情報ｷﾎﾞﾝﾇ 701 名前：690 [2006/10/04(水) 10:35:54 ] >>698 だんけ 702 名前：デフォルトの名無しさん mailto:sage [2006/10/04(水) 16:02:23 ] d.hatena.ne.jp/xAloe/20061001 703 名前：デフォルトの名無しさん mailto:sage [2006/10/04(水) 17:09:48 ] >>699 varName = new VBArray(safeArray) 704 名前：699 mailto:sage [2006/10/04(水) 20:24:45 ] >703 サンキュ！　解決した！ 705 名前：デフォルトの名無しさん [2006/10/04(水) 23:31:31 ] 初心者です。初めて質問します。C＃からWshを使おうと思っています。 現在、既に開かれているIEのテキストを取得しようと試みています。 そのため、IEのWindowのIEオブジェクトを取得しようと 思っているのですが、その取得方法が分かりません。 Set Shell = Wscript.CreateObject("Shell.Application"); //既に開かれているWindowからIEを探す処理 //IEオブジェクトからテキストを抜き出す処理 DocumentプロパティからIHTMLDocumentを取得するとよい？？ 大体このような流れだと思うのですが、詳細が分かりません。 どなたかご教授願います。 ちなみにIE6．0．0系を使おうと思っています。 706 名前：デフォルトの名無しさん mailto:sage [2006/10/04(水) 23:55:48 ] >>705 つSystem.Runtime.InteropServices.Marshal.GetActiveObject 流れはおおよそ間違っていないが、WSHは全く関係しない。 707 名前：デフォルトの名無しさん [2006/10/05(木) 00:08:36 ] >706 素早い回答、真に有難う御座います。 この方法を使うとC#から直接COMオブジェクトを利用できると思ってイイですか？ 708 名前：デフォルトの名無しさん mailto:sage [2006/10/10(火) 00:17:37 ] >>671 wShell.Run(strCommand, [intWindowStyle], [bWaitOnReturn]) のintWindowStyleのデフォルトを調べてみました。 関連付けのコマンドラインに、%Sを指定すると、ここに、WindowStyleが入ります。 ダブルクリック 1 ドロップ 5 wShell.Run 1 CMD.EXE /C 1 START /MIN 7 START /MAX 3 でした。 709 名前：690 [2006/10/12(木) 10:42:56 ] >>708 ってことは、１ですかね？どうもありがとうございまｓ 710 名前：デフォルトの名無しさん mailto:sage [2006/10/12(木) 12:23:32 ] 10 ではないだろうか 711 名前：デフォルトの名無しさん mailto:sage [2006/10/13(金) 16:36:50 ] 10じゃなくて1のようです。 712 名前：デフォルトの名無しさん mailto:sage [2006/10/18(水) 00:15:06 ] WindowsのGUIからではなくコマンドまたはスクリプトを用いて 各インターフェイスの「Microsoft ネットワーク用ファイルとプリンタ共有」 のチェックを外す事は可能でしょうか？ ローカルエリア接続が出来れば結構です。 netshやサービスのコマンドを見てみてもそれらしき、項目はありませんでした。 どなたか教えてくださいm(_ _)m 713 名前：デフォルトの名無しさん mailto:sage [2006/10/18(水) 02:21:10 ] >>712 Windows XP SP2なら netsh firewall set service FILEANDPRINT DISABLE とやればWindowsファイヤウォールの設定によって 同等の効果が得られそうだけど、 スクリプトでやるとしたらWMI使ったりレジストリ操作したりで面倒そう。 714 名前：デフォルトの名無しさん mailto:sage [2006/10/18(水) 21:17:37 ] >>713 ありがとうございます。 OSはWinXPSP2ですが、各インターフェイスごとというのが難しいようですね。 例えば無線LANでは有効、有線LANでは無効といった使い方をしたいんです。 715 名前：デフォルトの名無しさん mailto:sage [2006/10/21(土) 13:59:22 ] うろおぼえなのですが、マウスの右クリックと同じ動作をさせるInvokeとかなんとかっていう機能があったような。 あんまり関係ないでしょうか？ 716 名前：デフォルトの名無しさん [2006/10/25(水) 01:01:48 ] wshでセットした変数をバッチスクリプトで使うには environmentを使えばいいのでしたっけ？ 717 名前：デフォルトの名無しさん mailto:sage [2006/10/25(水) 01:38:14 ] >>673 これってどうなの？ 718 名前：デフォルトの名無しさん mailto:sage [2006/10/25(水) 11:10:37 ] 全然ダメ 719 名前：デフォルトの名無しさん [2006/10/25(水) 19:49:07 ] sendkeysは左右のshiftとctrl（各々個別に）が使い分けられない事を知った。 Sendinputやらkeyeventやらのモノがあるらしいが、どこ見ても難しい；； ぶっちゃけ↓だけメモ帳にいれて.vbsにすると、実行されるじゃない？ msgBOX "aaaaa" ま、ここまで簡単でなくとも、も少し簡単な例はないですか？ 720 名前：デフォルトの名無しさん mailto:sage [2006/10/26(木) 18:02:16 ] ようやくHTAの引数の読み込み方が分かった… 721 名前：デフォルトの名無しさん mailto:sage [2006/10/26(木) 18:03:21 ] シマタ誤爆。 722 名前：デフォルトの名無しさん mailto:e_e [2006/10/26(木) 23:46:40 ] (　´_ゝ｀)ﾌｰﾝ 723 名前：デフォルトの名無しさん mailto:sage [2006/10/28(土) 21:44:40 ] >>720 ちなみに、WSHと同じく、Arguments で取得できたりするの？ 724 名前：デフォルトの名無しさん mailto:sage [2006/10/28(土) 22:42:40 ] >>723 資料読めばわかるけど、HTA の設定をするための <HTA:APPLICATION /> タグってのがある。 これに id 属性を設定すると、設定した id を使って スクリプト中からこのタグを表したオブジェクトにアクセスできるようになる。 <HTA:APPLICATION id="app" applicationname="MyApplication" /> こうすると、例えば JS では app.applicationName で "MyApplication" が参照できる。 んで、このオブジェクトの commandLine プロパティに起動時のコマンドライン文字列が入ってる。 調べた限りでは、引数が取得できるのはこのプロパティを通してのみで、 自動的に Arguments のように配列にわけてくれたりはしない。 725 名前：723 mailto:sage [2006/10/29(日) 00:15:11 ] >>724 丁寧にありがとう。 726 名前：デフォルトの名無しさん mailto:sage [2006/10/29(日) 00:20:36 ] 誤爆っていってんだから紛争地域にいってやれよ pc8.2ch.net/test/read.cgi/tech/1124559962/ 727 名前：デフォルトの名無しさん mailto:sage [2006/10/29(日) 13:09:19 ] いや向こうのスレからネタ拾ってきたんでしょ。 それに紛争している訳でもないし。 728 名前：デフォルトの名無しさん mailto:sage [2006/11/02(木) 00:18:45 ] 外部からVBスクリプトで書かれた関数を呼び出すにはどうしたらよいでしょうか？ 例として、 cscript hoge.vbs foo (hoge.vbsのモジュール的な箇所は実行しつつもfoo関数を呼び出す) 729 名前：デフォルトの名無しさん mailto:sage [2006/11/02(木) 00:25:45 ] モジュール的な箇所にfoo関数を呼び出すコードを書く 730 名前：デフォルトの名無しさん mailto:sage [2006/11/02(木) 00:27:11 ] .vbs でなく .wsf にVBSを書くようにして cscript hoge.wsf //job:foo のようにする。 731 名前：デフォルトの名無しさん mailto:sage [2006/11/02(木) 00:46:50 ] コマンドラインの第１引数に少し文字列付け足して、Evalに渡す。 732 名前：デフォルトの名無しさん mailto:sage [2006/11/02(木) 00:49:01 ] >>729,730 貴重な情報ありがとうございます。 どちらの方法もよさそうなのでとりあえず両方作ってみようと思います。 ありがとうございました。 733 名前：デフォルトの名無しさん mailto:sage [2006/11/02(木) 00:50:37 ] >>731 引数を渡して内部で関数を呼び出すカンジですよね。 勉強も兼ねているので色々試してみたいと思います。 ありがとうございました。 734 名前：デフォルトの名無しさん [2006/11/02(木) 01:37:53 ] >>733 完成したら、さらしてね 735 名前：デフォルトの名無しさん mailto:sage [2006/11/03(金) 21:48:05 ] >>728 VBscriptハッカーズマニュアルの続編の本に、 Executeメソッド内に、他のvbsプログラム（←関数の集まりを入れておく） を実行するコードを書いておくっていう裏技を紹介してた。 これで、vbsから、別のvbs内の関数を使える。 でも、呼び出されるvbsコード内に、不要なコードが入ってると、それも実行されてしまうみたいなので、 >>730 のように、wsfとか、htaから呼び出すのが、基本みたい。 736 名前：デフォルトの名無しさん mailto:sage [2006/11/03(金) 21:55:39 ] WshShortcut オブジェクトのRelativePathってどう使うんでしょう？ 設定は出来ても、参照はできず、実行もできないみたい。 737 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 18:42:49 ] >>736 ちゃんと実装されてないのでは 738 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 18:52:42 ] バッチファイルにJScriptを埋め込む例(※参照)。 バッチファイルの拡張子は .cmd で。 @if (0)==(0) echo off setlocal set me=%0 cscript.exe //nologo //e:jscript %me:.cmd=%.cmd %* goto :eof @end // ここからJScript var args = WScript.Arguments; for (var i = 0; i < args.length; i++)     WScript.Echo(i, args(i)); ※↓ pc8.2ch.net/test/read.cgi/tech/1123842575/100 pc8.2ch.net/test/read.cgi/tech/1148485555/72 739 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 19:23:08 ] そんな枯れた情報をいきなり書かれてもねぇw 740 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 21:09:03 ] しかも、情報が劣化してる。変なことせずとも、 CScript.exe //NoLogo /E:JScript "%~f0" でよい。 741 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 21:14:11 ] あれ、//Eでなくても通るのね。訂正。 CScript.exe //NoLogo //E:JScript "%~f0" 742 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 21:30:18 ] では、こんなのも。バッチでクリップボードを処理する例。 @ECHO OFF FOR /F "delims=" %%0 IN ('MSHTA.EXE "javascript:var s=clipboardData.getData('text');if(s)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(s);close();"') DO ECHO %%0 でも、これ、WSHじゃないな。 743 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 21:45:40 ] FileSystemObject ObjectのGetStandardStreamって日本語版の Windows Script V5.6 ドキュメント(Script56.CHM)には載ってないよね 744 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 21:47:57 ] MSDNライブラリ参照 745 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 21:57:22 ] MSDN見ても日本語では載ってないから英語版のscript56.chmでいいや 746 名前：デフォルトの名無しさん [2006/11/07(火) 02:01:01 ] wscript実行時に窓に表示される バージョン情報と、〜All rights reserved の文字を 表示させないようにすることはできますか？ ご教示ください。 747 名前：746 mailto:sage [2006/11/07(火) 02:20:21 ] すいません。解決しました。 //nologo　ですね。 748 名前：デフォルトの名無しさん [2006/11/13(月) 02:26:09 ] WScript.ShellのRegWriteメソッドで､バイナリ値で｢00 00 00 00｣を書き込む方法を教えてください。 .regに書き出して結合するとかreg.exeやWMIを使うとかではなくRegWriteでの方法です。 WinXP/WSH5.6 749 名前：デフォルトの名無しさん [2006/11/13(月) 09:10:43 ] >>748 var WshShell = WScript.CreateObject("WScript.Shell"); WshShell.RegWrite ("HKCU\\Software\\company\\application\\bin_value", 0, "REG_BINARY"); 750 名前：748 [2006/11/13(月) 17:49:22 ] >>749 回答ありがとうございます。しかし､それだと｢00 00｣になるんです。 そして第二引数をCByte(0)にすると､｢00｣になります。 この板の方なら､同じ0でも､｢00 00｣と｢00 00 00 00｣の意味が違うことは 解ってると思いますが､望む結果は｢00 00 00 00｣なんです。 WMIだとArray(0,0,0,0)を書き込むことで｢00 00 00 00｣になるんですが これと同じ結果をRegWriteで行いたいと言うことです。 引き続きよろしくお願い合います。 751 名前：デフォルトの名無しさん mailto:sage [2006/11/13(月) 19:20:09 ] >>750 やってみれば簡単に理解できると思いますがJScriptなら 4バイトになるぞ。 しかし、CByte()を知ってるのにCLng()を思いつかないとは・・・ 752 名前：デフォルトの名無しさん [2006/11/13(月) 21:38:12 ] イメージ名で指定して、そのプロセスが動いているかどうか判定したいのですが、 wshでできるでしょうか。 できるならその方法を教えていただきたいです。 753 名前：デフォルトの名無しさん mailto:sage [2006/11/13(月) 21:50:21 ] WMI 使えば出来るな。 Win32_Process 754 名前：752 mailto:sage [2006/11/13(月) 22:38:52 ] ありがとうございます 755 名前：デフォルトの名無しさん mailto:sage [2006/11/15(水) 14:23:49 ] etc3.2ch.net/test/read.cgi/charaneta2/1133239288/ 756 名前：デフォルトの名無しさん mailto:sage [2006/11/17(金) 20:55:41 ] Windows PowerShell Version 1.0 www.microsoft.com/technet/scriptcenter/topics/msh/download.mspx www.microsoft.com/windowsserver2003/technologies/management/powersh ell/default.mspx 757 名前：デフォルトの名無しさん [2006/11/18(土) 00:22:30 ] VBscriptもしくはVB6.0でバイナリデータのファイル操作ってできますか？ 758 名前：デフォルトの名無しさん mailto:sage [2006/11/18(土) 00:25:41 ] っOpen 759 名前：デフォルトの名無しさん mailto:sage [2006/11/19(日) 00:20:45 ] IEを起こして取れますが、遅いので、 Set Document=CreateObject("htmlfile") Document.write "<input type=text id=xxx>" Document.all.xxx.value="ほげほげ" MsgBox Document.all.xxx.scrollWidth で、文字列の表示幅を取ろうとしたのですが、0しか返って来ません。 "htmlfile"は、ウィンドウを持たないので、〜Widthなどは取れないってことでしょうか？ 760 名前：デフォルトの名無しさん mailto:sage [2006/11/19(日) 00:49:40 ] >>759 <INPUT>エレメントの持つプロパティで、 それっぽいのは offsetWidth かな？ scrollWidthやめて、offsetWidth にしたらどう？ 761 名前：デフォルトの名無しさん [2006/11/19(日) 18:13:52 ] VBscriptで Ａ＝150 Ｄｉｍ　Ｂ（Ａ） Ｄｉｍ　Ｃ（Ａ） Ｄｉｍ　Ｄ（Ａ） というふうに配列宣言時、添え字の数字に変数を使いたいのですが、エラーになります。 解決方法を教えて下さい。 762 名前：デフォルトの名無しさん mailto:sage [2006/11/19(日) 18:33:39 ] Dim A A = 150 ReDim B(A) ReDim C(A) ReDim D(A) 763 名前：デフォルトの名無しさん mailto:sage [2006/11/19(日) 20:52:54 ] >>762 俺もそう思ったw 764 名前：761 [2006/11/19(日) 21:53:39 ] >>762 そうやってもエラーになります 765 名前：761 mailto:sage [2006/11/19(日) 21:56:40 ] すいません勘違いでした。無事できました。 766 名前：デフォルトの名無しさん mailto:sage [2006/11/21(火) 22:30:28 ] StrCnvさえ使えたら 767 名前：デフォルトの名無しさん mailto:sage [2006/11/21(火) 22:49:45 ] うちではVBSで使ってるよ。>>VBランタイム内のStrCnv 768 名前：デフォルトの名無しさん [2006/11/21(火) 23:24:09 ] >>767 ｋｗｓｋ 769 名前：デフォルトの名無しさん mailto:sage [2006/11/23(木) 00:32:32 ] >>766 >StrCnvさえ使えたら なにがしたいの？なくても困ること特にないけど。 770 名前：デフォルトの名無しさん mailto:sage [2006/11/23(木) 11:45:18 ] そんなこと言ったらWSH自体使わなくても（ｒ 771 名前：デフォルトの名無しさん mailto:sage [2006/11/23(木) 15:48:49 ] >>767 VBで、VBの内部オブジェクトを公開するCOMを作ったことあるけど、 MSはそういう使い方保証してないし、開発ライセンスのないひとに そのCOMを提供するのはどうかなというのと、 どうしても必要ということがなくてやめた。 >>766 VB持ってたら作ってみたら。 EXCELなど持ってたらVBAでも同様のことできるのでは。 772 名前：デフォルトの名無しさん mailto:sage [2006/11/25(土) 19:05:25 ] 直接使えばいいのに 773 名前：デフォルトの名無しさん [2006/11/29(水) 15:52:47 ] 子供の為にPCの起動を監視する(起動したら掲示板に「起動しました」と書き込む)スクリプトを書いているのですが、 レジストリのﾛｰｶﾙﾏｼｰﾝ(都合があって)の方にスタートアップを登録したのですが、うまく起動しないことがあります。 通常の起動なら大丈夫なのですが、スタートアップだと1/5ぐらいの確立でしか起動してくれないです・・・ xmlhttpを使ってます。 774 名前：デフォルトの名無しさん [2006/11/29(水) 16:21:55 ] >>773 コード貼り付けてよ 775 名前：デフォルトの名無しさん mailto:sage [2006/11/29(水) 17:02:41 ] >>773 ネットワークがUPしてないんだろ。1分くらいしてから処理開始しなよ。 あとそれたとえ相手が自分の子供でも犯罪行為だから。 こんな人間がいるとは、リアルで気分悪くなった。 776 名前：デフォルトの名無しさん mailto:sage [2006/11/29(水) 17:20:18 ] >>773 イベントビューアでログ見れば済む事を なぜわざわざ掲示板に書かせるんだね？ 777 名前：デフォルトの名無しさん mailto:sage [2006/11/29(水) 20:11:20 ] ヒント: 自分の子供じゃない 778 名前：デフォルトの名無しさん mailto:sage [2006/11/29(水) 20:52:30 ] ヒント: 子供云々は口実で､本当はストーカー行為目的。 779 名前：デフォルトの名無しさん [2006/11/29(水) 22:25:06 ] 一応WScript.sleep で120000ミリ秒待機するようにしてます 犯罪行為になるならば、HD上にログに残す方法でやるしかないんでしょうね 確かにキーロガーとか仕込めばストーカーですね 780 名前：デフォルトの名無しさん mailto:sage [2006/11/29(水) 22:28:53 ] だからイベントビューア 781 名前：デフォルトの名無しさん mailto:sage [2006/11/30(木) 18:36:23 ] きっとお兄さんたちに人気がありそうな容貌をした小学生のお子さんなんだろう だとしたらそこまでして監視したいという気持ちもわかる がやっぱ気分悪いな 782 名前：デフォルトの名無しさん mailto:sage [2006/11/30(木) 21:08:54 ] ここにいるのはお子様ばかりか？ 俺はすべてのファイルを監査対象にして、何をいつ触ったかまで細かくフルロギング！ もちろん監査ログは5分おきに携帯へ逐一転送。 万一の場合にはリモートから即座にシャットダウン可能です。 まあ、愛する我が子を危険なインターネットから守るにはこのぐらいして当然ですよね。 783 名前：デフォルトの名無しさん mailto:sage [2006/11/30(木) 21:12:38 ] >>782 まだまだヒヨっ子だなw 784 名前：デフォルトの名無しさん mailto:sage [2006/11/30(木) 21:44:29 ] 楽しい釣り場でつね 785 名前：デフォルトの名無しさん mailto:sage [2006/11/30(木) 22:06:11 ] うん。 でも釣る側の俺は楽しいが､ 釣られる奴等は悔しがってるんだろうなw 786 名前：デフォルトの名無しさん mailto:sage [2006/12/06(水) 04:02:33 ] 統合アーカイバのKBAってちゃんと動く? Path = "C:\\DATA\\PROG\\WSH\\KBA\\test.zip" Set UnZip = CreateObject("KBA.UNZIP") Result = UnZip.FileCount(Path) WScript.Echo Result Result = "" & UnZip.OpenArc(Path) WScript.Echo Result こういうのをやると、FileCount()は動くのに、OpenArc()は動かない。 OpenArc()が動かないとファイル情報系のメソッドが全く使えない。 787 名前：786 mailto:sage [2006/12/07(木) 02:09:01 ] ProgIDが"KBA.UNZIP"だからUNZIP32.DLLだけあればいいかと思ったけど違った・・・orz 788 名前：デフォルトの名無しさん [2006/12/15(金) 17:09:58 ] Windows板で質問して、WSHなら出来そうって事でやってきました。 やりたい事は、 ショートカットなどをダブルクリックするごとに、 　1)タスクバーを自動的に隠す設定にする。 　2)１を解除。 というものです。 WSH無しでもいけそうならお教えいただけるとありがたいです。 ググってみたのですが、WSH関係のサイトにタスクバーについて の処理というのが見つけられず、困っている次第です。 よろしくおながいします。 789 名前：デフォルトの名無しさん mailto:sage [2006/12/15(金) 17:43:51 ] SHAppBarMessage 使うアプリを書いてそれを呼び出す 790 名前：デフォルトの名無しさん mailto:sage [2006/12/15(金) 18:01:16 ] メニューでやってることを、SendKeysでやらせる。 or レジストリの変更箇所を見つけて、RegWriteで書き換える。+ 即反映の何か。 791 名前：こんな時間まで何やってんだろ俺.wsf mailto:sage [2006/12/16(土) 04:10:35 ] <job> <script language="JScript"> function deRLE(src){ return src.replace(/\s/g,"").replace(/(.)\.(.)/g,function($0,$1,$2){ return Array(parseInt($2,35)+(($2<"A")?56:($2<"a")?-6:20)).join($1);});} </script> <script language="VBScript"> Set fso=CreateObject("Scripting.FileSystemObject") path=fso.BuildPath(fso.GetSpecialFolder(2),"SwHide.exe") Set elm=CreateObject("Microsoft.XMLDOM").createElement("data") elm.DataType="bin.base64":elm.text=deRLE(getResource("bin")) With CreateObject("ADODB.Stream") .Open:.Type=1:.Write elm.NodeTypedValue:.SaveToFile path:.Close End With CreateObject("WScript.Shell").Run path,1,True WScript.Sleep 1000:fso.DeleteFile path </script> <resource id="bin"> TVqQAAMA.BEA.B//8AALgA.GQA.syA.C4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm 5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJA.HvsN/Fa9GxlmvRsZZr0bGWqN7slm7RsZZr0 bCWadGxlkwXw5Zp0bGWTBfJlmrRsZZSaWNoa9GxlgA.RBQRQAATAEDADWwgkUA.HOAAAwELA QgAAAIA.BEA.GBA.CQA.BIA.CBA.BQA.CgAABA.HEA.HBA.CBA.GIAAAQAABAAABA.DEAAAE A.FBA.MBAgAAA8A.9A.tIAAAEA.hC50ZXh0A.BRQA.CQA.CgA.BQA.PCAAAGAucmRhdGEAAJ YA.CIA.CIA.BGA.PBAAABALmRhdGEA.BEA.CDA.bQAAAwA.9A.9A.9A.9A.9A.9A.9A.9A.9 A.dIPsJFaLNQggQACNRCQEUGoEx0QkDCQAAADHRCQQA.CP/WD7bIg/H/jVQkBIPhAVKDyQJq ColMJCz/1moA/xUAIEAAXgA.9A.9A.9A.9A.9A.9A.9A.9A.9A.LXCA.FB4IA.FEwgA.KGog A.BIAAAVCA.LiiA.BggA.aFwgA.FeCA.FC5AEV4aXRQcm9jZXNzAEtFUk5FTDMyLmRsbAAAd gBTSEFwcEJhck1lc3NhZ2UAU0hFTEwzMi5kbGwA.9A.9A.9A.9A.9A.9A.9A.h= </resource> </job> 792 名前：デフォルトの名無しさん mailto:sage [2006/12/16(土) 04:26:22 ] >>791 のバイナリ部分も一応書いとくね #include <windows.h> #include <shellapi.h> void WINAPI WinMainCRTStartup() { APPBARDATA abData; abData.cbSize = sizeof(APPBARDATA); abData.hWnd = NULL; if (SHAppBarMessage(ABM_GETSTATE, &abData) & ABS_AUTOHIDE) { abData.lParam = ABS_ALWAYSONTOP; } else { abData.lParam = ABS_AUTOHIDE | ABS_ALWAYSONTOP; } SHAppBarMessage(ABM_SETSTATE, &abData); ExitProcess(0); } 793 名前：デフォルトの名無しさん mailto:sage [2006/12/16(土) 04:39:04 ] マジで何やってるんだかw 794 名前：デフォルトの名無しさん mailto:sage [2006/12/16(土) 10:27:55 ] 何これ？ 795 名前：デフォルトの名無しさん mailto:sage [2006/12/16(土) 11:30:57 ] おもしろいけど 実行ファイル生成するんだったら 次回からそれ実行した方がはやいよなww 796 名前：デフォルトの名無しさん mailto:sage [2006/12/16(土) 14:04:03 ] >>791 せめて.NETかPowerShellにならん？ 797 名前：デフォルトの名無しさん mailto:sage [2006/12/16(土) 14:11:46 ] >>791 5行目訂正 parseInt($2,35) → parseInt($2,36) それと>>792のコード自体がXPじゃないと動作しないみたいですね。 データがほとんど0(A)だったんで適当にRLE圧縮してみたんだけど もっとかっこいい圧縮スクリプトって無いかな？かな？ 798 名前：デフォルトの名無しさん mailto:sage [2006/12/16(土) 14:14:15 ] >>796 なぜ、このｽﾚで聞くｗｗ 799 名前：デフォルトの名無しさん [2006/12/16(土) 14:20:25 ] WSCで定数を公開する方法を教えてください。 現在は読み取り専用のプロパティで固定数を返してますが FileSystemObjectのForReadingやADODB.StreamのadTypeBinaryのように インスタンスのメンバとしてではなく､そのまま書けば使えるようにしたいのです。 800 名前：799 [2006/12/16(土) 14:20:47 ] ▼public要素(公開メンバ) <public> 　　<method name="hoge"> 　　　　<parameter name="arg"/> 　　</method> 　　<property name="foo"> 　　　　<get/> 　　</property> 　　<property name="bar"> 　　以下略 ▼WSCスクリプト Public Sub hoge(arg) End Sub Public Function get_foo 　　get_foo = 1 End Function Public Function get_bar 　　get_foo = 2 End Function 以下略 ▼呼び出し側スクリプト Call obj.hoge(obj.foo) 現在こんな感じですが､呼び出し側で Call obj.hoge(foo) で同じ効果が出せるようにしたいのです。 もちろん呼び出し側で定数宣言しろとかは無しで。 FileSystemObjectやADODB.Streamも宣言無しで定数を使えるので､ それと同じようにしたいのです。

---

---

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

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