VBSで便利なプログラムを作れスレ

1 名前：デフォルトの名無しさん [2007/02/03(土) 17:49:47 ] 素人丸出しお粗末で遅くてもいいので いますぐ使えるちょっぴり便利プログラムを作れ （例○○を自動処理してくれるプログラム） 2 名前：デフォルトの名無しさん mailto:sage [2007/02/03(土) 17:52:27 ] ずるしてらくしてかれいに２げっとかしらかしら〜 3 名前：Windows厨&rlo;ｗｗｗね死はCAM。すでXUNILチンアやや [2007/02/03(土) 17:54:41 ] ２ｃｈ自動書き込みスクリプト・・・　　　　はVBSなんかじゃなくちゃんとしたプログラムが既にあちこちに存在するか 4 名前：デフォルトの名無しさん mailto:sage [2007/02/03(土) 18:14:33 ] >>1が後から何食わぬ顔で制作依頼する糞スレか 5 名前：デフォルトの名無しさん mailto:sage [2007/02/03(土) 22:14:50 ] TechNetのHey, Scripting Guy!でも読むとか 6 名前：デフォルトの名無しさん mailto:sage [2007/02/04(日) 04:38:30 ] >>3 自動書きこみをする機能がそもそもまともじゃない 7 名前：デフォルトの名無しさん mailto:sage [2007/02/08(木) 22:08:15 ] 日経ソフトウェアだったかに乗ってたのですが　動きません　助けて KETA = inputbox("何文字のパスワードを作りますか？","パスワードを生成","8") If KETA < 1 Then MsgBox "文字数は0以上でなくてはなりません" End If PASS_WRD = "A B C D E F G H J K L M N P Q R S T U V W X Y Z " MOJISYU_A = MsgBox("アルファベットの小文字を使いますか？",vbYesNo) If MOJISYU_A = vbYes Then PASS_WRD = PASS_WRD + "a b c d e f g h i j k m n p q r s t u v w x y z " End If MOJISYU_B = MsgBox("数字を使いますか？",vbYesNo) If MOJISYU_B = vbYes Then PASS_WRD = PASS_WRD + "2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 " MOJISYU_C = MsgBox("記号を使いますか？",vbYesNo) If MOJISYU_C = vbYes Then '記号 PASS_WRD = PASS_WRD + "! # $ % & ? - _ ~ @" End If '指定された条件で配列を作成 PASS_STR = Split(PASS_WRD) MAX = Ubound(pass_str) 8 名前：7 mailto:sage [2007/02/08(木) 22:08:56 ] 続き '指定された桁数のパスワードを作成 For i=0 To KETA - 1 Randomize X = abs(Int((0 - MAX) * Rnd)) PASS = PASS + PASS_STR(X) Next InputBox "パスワードが完成しました","生成完了！",PASS 9 名前：デフォルトの名無しさん mailto:sageEndIfが一つ足りない [2007/02/09(金) 01:15:14 ] >7 どう動かないんだ。 エラーメッセージが出るならエラーメッセージを貼れ。 10 名前：デフォルトの名無しさん mailto:sage [2007/02/09(金) 01:18:01 ] BASICって何でここまで読む気が起こらないんだろう 11 名前：デフォルトの名無しさん mailto:sage [2007/02/09(金) 01:22:38 ] >>10 構文が冗長だから 12 名前：デフォルトの名無しさん mailto:sage [2007/02/09(金) 02:01:47 ] まぁ、COBOLの冗長さには勝てないがな 'VB For I = 1 To 10 Next *COBOL PERFORM VARYING I FROM 1 BY 1 UNTIL I <= 10 END-PERFORM 13 名前：デフォルトの名無しさん mailto:sage [2007/02/09(金) 10:20:33 ] >12 間違えてる。UNTILならI>10だ 14 名前：デフォルトの名無しさん mailto:sage [2007/04/29(日) 02:58:52 ] >>10 字下げが取れちゃってるのも一因ではないだろうか、この場合。 15 名前：wol.wsf mailto:sage [2007/06/03(日) 10:59:59 ] <job> <script language="vbscript" src="./computer.class"/> <script language="vbscript"> Option Explicit Const COMPUTERS = 3 Const DEFAULT_WAKEUP = 2 Dim objComputers() ReDim objComputers(COMPUTERS) Dim intNum, i, strHostnames For i = 0 To COMPUTERS 　　Set objComputers(i) = New Computer Next objComputers(0).setComputer "xxxxxxxxxxxx", "chitose" objComputers(1).setComputer "yyyyyyyyyyyy", "tomoyo" objComputers(2).setComputer "zzzzzzzzzzzz", "ayanami" objComputers(3).setComputer "wwwwwwwwwwww", "maya" For i = 0 To COMPUTERS 　　strHostnames = strHostnames & i & ":" & vbTab & objComputers(i).GetHostname & vbCrLf Next intNum = InputBox(strHostnames, "WakeOnLan", DEFAULT_WAKEUP) objComputers(intNum).Wakeup For i = 0 To COMPUTERS 　　Set objComputers(i) = Nothing Next </script> </job> 16 名前：computer.class [2007/06/03(日) 11:03:50 ] Option Explicit Class Computer 　　Private pHostname 　　Private pMACAddr 　　Public Sub setComputer(strMACAddr, strHostname) 　　　　pMACAddr = strMACAddr 　　　　pHostname = strHostname 　　End Sub 　　Public Sub WakeUp 　　　　Dim WSHShell 　　　　Set WSHShell = WScript.CreateObject("WScript.Shell") 　　　　WSHShell.Run "wol.exe " & pMACAddr 　　End Sub 　　Public Function GetHostname() 　　　　GetHostname = pHostname 　　End Function End Class これを同じフォルダに入れておく→ttp://www.gammadyne.com/cmdline.htm#wol vbsもWOLもやってみると意外とできるもんだ。 17 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 23:41:38 ] VBSでダイアログを表示させることってできないものかな？ 構造体は使えないはいろいろと細かいところで制約が多い。。 18 名前：デフォルトの名無しさん [2007/06/27(水) 11:51:05 ] VBSについての質問です WINDOWSからSolarisにFTP接続してファイルを取得するVBスクリプト。 ・　/export/home/backup/mysql/の下にあるファイルを取得 ・ /export/home/backup/www/の下にあるファイルを取得 ・取得したいファイル名をリスト化、そのリストを読み込んで、 １つのファイルをＧＥＴ．→FTP切断→FTP接続→ファイルＧＥＴ→FTP切断の繰り返し ・取得したファイルはSolarisから削除 ・日付を管理。最新のを５つだけ残す。一番ファイルを削除 こういったＶＢＳはどうつくればいいんでしょうか？ 19 名前：デフォルトの名無しさん mailto:sage [2007/06/27(水) 23:06:22 ] >>18 ここれは便利なスクリプトを作ってくれとお願いするスレじゃなくて、 自発的に自分が書いた物を晒すスレのような気がするんだが。 漏れの場合は、取得したいファイル名を変数にしてして、毎回 FTPスクリプトを生成して実行する方法にしてる。 ちなみにアカウント情報はcsvにしてるが平文で書いてるので 取り扱いに注意してる。PASVが使いたい場合はGNU版を 使う事。 どっちかっつーとWSHスレ向きｼﾞｬﾈ？そのまま質問しても罵倒 されるだけだと思うけど。 20 名前：デフォルトの名無しさん [2007/06/28(木) 09:04:40 ] 漏れの場合は、取得したいファイル名を変数にしてして、毎回 FTPスクリプトを生成して実行する方法にしてる。 上司にも同じこと言われましたね、。 なんとなくイメージできても、いざ作るとなると難しくて… どう作ったらいいのかわからないですね。 21 名前：デフォルトの名無しさん mailto:sage [2007/06/28(木) 09:43:15 ] >>20 じゃーまず、ここに取得したいファイル名が固定のFTPスクリプトを 生成するVBSを書いてみてよ。 22 名前：デフォルトの名無しさん [2007/06/28(木) 10:19:50 ] open itsol01 i1125 i1125 get /export/home/backup/mysql/mysql_&YYYYMMDD&.tar.gz loop quit と書いたテキストファイルをコマンドプロンプトで実行したら、指定したﾌｧｲﾙは取得できました。 23 名前：デフォルトの名無しさん mailto:sage [2007/06/28(木) 21:12:15 ] >>22 日本語不自由な人？ 24 名前：デフォルトの名無しさん mailto:sage [2007/06/29(金) 01:24:58 ] 何この糞スレ・・・ 低脳にスレ立てさせんなよ・・・ 25 名前：VBSって面白いのか？ [2007/07/22(日) 23:29:16 ] みんな高度なプログラムかくね このくらいでいいんじゃね？ ’びびらせるログオンメッセージ書き込むプログラム？ msgb = InputBox("ビビらせるログオンメッセージ指定") If msg <> "" Then Set WshShell = WScript.CreateObject("WScript.Shell") Call WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "ここにメッセージでも", "REG_SZ") Call WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", msgb, "REG_SZ") WshShell.Popup("終了") Else MsgBox("書き込みキャンセルしました") End If 26 名前：VBSって面白いのか？ [2007/07/22(日) 23:32:39 ] 訂正　×ここにメッセージでも　○メッセージ まあなんでもいいんだが・・。 27 名前：VBSって面白いのか？ [2007/07/22(日) 23:36:33 ] これ便利じゃねえなそれに遊び心だな。 誰かウイルススレでもしよう・・・・。 28 名前：デフォルトの名無しさん mailto:sage [2007/07/29(日) 00:14:47 ] 質問なんだけど s = 1 test = Array("test") Set xmlHttp = WScript.CreateObject("Msxml2.SSLHTTPS.3.0") For i = 0 To s xmlHttp.open "POST", "test", False xmlhttp.setRequestHeader "Referer", "test" xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send "test="+test(i)+"" Next で、https://には対応できない？ Set xmlHttp = WScript.CreateObject("Msxml2.SSLHTTPS.3.0") を書き換えればいいのかな？解る方書き換え方おせーてください For i = 0 To s xmlHttp.open "POST", "https://www.livly.com/reg/rekeep.php?", False xmlhttp.setRequestHeader "Referer", "https://www.livly.com/reg/rekeep.php?" xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send "kid="+kid(i)+"&+pname="+pnames(i)+"&iname="+iname(i)+"&nname="+nname(i)+"&pprofile="+pprofile(i)+"&iprofile="+iprofile(i)+"&entry="+entry(i)+"" Next 29 名前：名無し [2007/08/08(水) 20:23:43 ] 無理でもない 30 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 17:05:13 ] CreatoShortcutで NumLock状態の1をショートカットキーに適用したいのですが Hotkey="Num 1" Hotkey="NumLock 1" どちらでもできません 直接作成は無理なのでしょうか？ 31 名前：デフォルトの名無しさん mailto:sage [2007/08/12(日) 20:21:53 ] 俺もNumlockは悩んだ なんとかいうAPI使って実行ファイル作ったけど無理だった 敗北の想い出が蘇る 32 名前：デフォルトの名無しさん mailto:sage [2007/08/14(火) 20:56:42 ] 最終的にVBA使ったりするんだよな…… VBS単体だと操作の自動化は不便 33 名前：デフォルトの名無しさん mailto:sage [2007/09/06(木) 20:53:01 ] こんばんは。 C#からVBSのFunction呼び出そうしてるんですが 複数の値を返すことができません。 教えてください。 34 名前：デフォルトの名無しさん [2007/09/06(木) 20:54:08 ] C#側からvbsを走らせるときにC#側のFor文だと処理するたびに vbsが走るのでだめでした。 vbs自体が複数値を返す処理をするためにはどのようにすればよいでしょうか。 値は、Excelのセルからとります。 35 名前：デフォルトの名無しさん mailto:sage [2007/09/06(木) 22:08:15 ] 俺が考え付く方法は次の2つ。 1. そのVBScriptの内容をC#へ書き換える。 2. VBScriptをC#プログラム内でホストする。 36 名前：デフォルトの名無しさん [2007/09/06(木) 22:13:43 ] >>35 は１は実行済みですけどVBSにも全く一緒のコードを書くことになって かなり冗長的なコードになるんですよ。 2もしたが取り出すとき複数の値をとるほうほうが不明です。 37 名前：デフォルトの名無しさん mailto:sage [2007/09/06(木) 22:27:49 ] 配列を返せばいいのでは？ それが無理なら、C#から戻り値を受け取るオブジェクトを渡すってのはどう。 38 名前：デフォルトの名無しさん [2007/09/06(木) 22:33:48 ] >>37 配列を返すって考えましたけどVBScriptのリターン文ってありませんよね。 関数名 = 処理 ↑こんな感じがリターン文なのかな。 39 名前：デフォルトの名無しさん mailto:sage [2007/09/06(木) 22:40:58 ] そう。関数内では関数名と同名の変数が存在する。 型は関数の戻り値の型と同じ（と言ってもVBSは常にVariantだが）。 関数を抜けるときにその変数に入っていた内容が戻り値になる。 これはVB系一般で通用する文法。 40 名前：デフォルトの名無しさん [2007/09/06(木) 23:14:36 ] なるほどね。けど、関数名と同名の変数が定義されてるって時点で 配列とか返せないと思うんですがいかがでしょう。 41 名前：デフォルトの名無しさん mailto:sage [2007/09/07(金) 00:01:51 ] >>40 思うって言われてもなぁ 42 名前：デフォルトの名無しさん [2007/09/07(金) 00:05:36 ] >>41 情報量が少ないから断定的な判断はできないんですよ。 43 名前：デフォルトの名無しさん mailto:sage [2007/09/07(金) 00:10:31 ] >>40 Array関数で配列を作れる。 その戻り値を関数名の変数に代入すれば 配列を返す関数の出来上がり。 44 名前：デフォルトの名無しさん mailto:sage [2007/09/07(金) 00:11:37 ] >>42 調べるのも大事なことだが、試すのだって大事なことだぞ msgbox a()(2) function a() dim b() redim b(10) b(2)=100 a=b end function こんな感じで出来ない？ 45 名前：デフォルトの名無しさん [2007/09/07(金) 00:13:35 ] おおきにおおきに、明日試してみる。 しかし、型なしには驚いた・・・ 46 名前：デフォルトの名無しさん mailto:sage [2007/09/07(金) 12:14:52 ] BASICなめんな 47 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 00:52:34 ] 型がない訳じゃなく実行時バインディングで表に出てこないだけ 48 名前：デフォルトの名無しさん [2007/11/01(木) 17:26:59 ] JavaScriptなら<script src=a.js VBSなら<script src=a.vbs ですか？ 49 名前：デフォルトの名無しさん mailto:sage [2007/11/01(木) 18:21:37 ] >>48 ああ拡張子はなんでもいいが typeなりlanguage書こうぜｗ それとタグは閉じような 気になってしょうがないｗ 50 名前：デフォルトの名無しさん [2007/11/02(金) 13:45:30 ] PPPOEをVBSで切断できないですかね？ ２つプロバイダ登録してあって、ショートカットで無理やり接続はできたのですが、 なぜだか切断の時に１％くらいの確率で失敗します。 （slect case　でやって、引数を保持しているのですが何故か極まれに間違えます） タスクトレイの接続の所では、何処に繋がっていても切断できますので、せめてこれが 呼び出せればSENDKEYSでなんとかなるんですが… 51 名前：デフォルトの名無しさん [2007/11/02(金) 15:42:00 ] JavaScriptでの o = new Option(); をVBScriptに書き直すとどうなりますか？ 52 名前：デフォルトの名無しさん [2007/11/03(土) 01:48:36 ] ↓デバッグおねがいします <form id="fm"> <input name="t1" value="てすと"> </form> <script language="VBScript"> Function bt_onClick() MsgBox Eval("t" & CStr(1) & ".value") End Function </script> <button name="bt"></button> 53 名前：デフォルトの名無しさん mailto:sage [2007/11/04(日) 12:45:31 ] >>52 "fm.t" 54 名前：デフォルトの名無しさん mailto:sage [2007/11/04(日) 13:13:19 ] プリンタの管理ユーティリティにある自動電源ONオプションをタスク スケジューラで週一自動実行したいんですけど、VBSで可能でしょうか？ 55 名前：デフォルトの名無しさん [2007/11/18(日) 23:11:59 ] HTMLのVBSで <a href="javascript:f();void(0)"> というJavaScriptをVBSで書けますか？ 56 名前：デフォルトの名無しさん mailto:sage [2007/11/18(日) 23:30:00 ] MsgBox "<a href=""javascript:f();void(0)"">" 57 名前：デフォルトの名無しさん mailto:sage [2007/11/19(月) 00:18:24 ] >>55 修辞がおかしいので>>56見たいに言われるわけだが・・・ 58 名前：デフォルトの名無しさん mailto:sage [2007/11/19(月) 17:32:58 ] 拡張子を.htaにしてみるとか 59 名前：デフォルトの名無しさん [2007/11/26(月) 08:03:28 ] BASP21でダウンロードソフトを作ろうと思っているんですが、 FTPだとFTPサーバーの名前を知らないとアノニマスでも接続できませんよね？ どうすれば良いのでしょうか？ 60 名前：デフォルトの名無しさん mailto:sage [2007/11/26(月) 16:00:11 ] >>59 たとえばスーパーに買い物に行きますよね でもスーパーの住所を知らなければ買い物できませんよね？ どうすれば良いのでしょうか？ 61 名前：59です [2007/11/26(月) 20:59:22 ] Iriaとかのダウンロードソフトはどうしてるんでしょうか？ HTTPからでもダウンロード可能なようですが、全くやり方が不明です。 勉強中の身でして、質問が多くなりますが、お願いいたします。 ＞６０ そのスーパーの住所の調べ方を伝授してください お願い致します 62 名前：デフォルトの名無しさん mailto:sage [2007/11/26(月) 23:58:17 ] プロトコルの勉強をしましょう… 63 名前：デフォルトの名無しさん mailto:sage [2007/11/27(火) 00:06:54 ] >>61 そこらへんのダウンロードソフトはユーザにURLの入力を求めているだろ。 64 名前：デフォルトの名無しさん mailto:sage [2007/11/27(火) 03:27:14 ] >>61 IPアドレスは32bitしかないんだから、総当たりで！ 65 名前：59です [2007/11/27(火) 08:04:28 ] 皆さんご返信ありがとうございます VBSでこのスレッドを落とす場合 .Connect("pc11.2ch.netのＦＴＰサーバー", "ユーザー（anonymousでいける？）", "パス") で繋いで .GetFile("pc11.2ch.netのＦＴＰサーバー/1170492587/*.*", "c:\dowsodata"） となると思いますが、 ここのＦＴＰのサーバー名が解らないと何ともなりませんよね。 62＞とりあえずWiki逝って来ます。金曜日の休みに本屋にの行きます！ 63＞ＦＴＰのＵＲＬでなくてもダウンできるので不思議なんです 64＞そんなことやってたんですか！？ 試しにftp://pc11.2ch.net/をＩＥでやってみたら「ファイル名が正しくないか許可してないぞ！！」 と怒られました。 ギコナビとか、巷にあふれる２ＣＨツールが許可もらってやっているように 思えませんので（失礼…）何かしら打開策があると思うのですが 66 名前：デフォルトの名無しさん mailto:sage [2007/11/27(火) 08:53:03 ] >>65 ftpが許されてないからです。 httpなら許されてるから、まずはそこから。 67 名前：デフォルトの名無しさん mailto:sage [2007/11/27(火) 09:23:50 ] >>65 > Connect("pc11.2ch.netのＦＴＰサーバー", "ユーザー（anonymousでいける？）", "パス")  > で繋いで  > .GetFile("pc11.2ch.netのＦＴＰサーバー/1170492587/*.*", "c:\dowsodata"）  > となると思いますが、  いいえ違います pc11.2ch.netのFTPサーバなんてありません 68 名前：デフォルトの名無しさん mailto:sage [2007/11/27(火) 14:48:35 ] 全員がこの後に及んでスレ違いと言い出さないのは、 あまりの事にあきれ果てているから？ >>59 釣られたのかもしれないが、マヂレスしておくと君の考えて いる事は全くの見当違い。 ttp://www5e.biglobe.ne.jp/~aji/3min/index.html ここのFTP、DNS、HTTPの所でも読んでくれ。 で、理解したら、これ以上聞かないでね。 69 名前：59です [2007/11/28(水) 08:57:51 ] すみません、質問を変えます！ <a href="*.dat">download</a> を、ＶＢＳで書くとどうなりますか？ （ダウンロードしますか？と言うダイアログが出ます） ＶＢＳで書いてる途中なのでできれば全部ＶＢＳで書きたいんです。 皆さんいろいろ教えていただいてありがとうございました ＦＴＰはファイル交換、ＤＮＳはネット接続の中間、ＨＴＴＰはＨＴＭＬを見るため 位の感覚で覚えていましたので、どうやってファイル転送機能なしでファイル転送するんだろう？ ドメイン（biglobe.ne.jp）の部分が同じなので探す方法があるのかと思い、質問しました。 興味が出ましたので、細かく調べようと思いますが、解らないところは「ネットワーク板」で 訊けばいいんですよね？ 70 名前：デフォルトの名無しさん mailto:sage [2007/11/28(水) 13:45:34 ] >>69 ネットワークの勉強ついでにVBSとかクライアントスクリプトも調べて来い 質問の意図が分からなさ過ぎる きっと用語を正しく理解していない > 興味が出ましたので、細かく調べようと思いますが、解らないところは「ネットワーク板」で  > 訊けばいいんですよね？  責任もてないので、「はいそうです」とは言わない 調べられなければ調べられるまで調べつくせ 71 名前：59です [2007/11/28(水) 20:59:50 ] >70 すいません、知りたかったのはＩｒｉａなどのＨＰを丸ごとダウンロードしてくるソフトが どのようにダウンロードをしているのかを知りたかったんです。 よく考えたらこの命令は単純にアドレス指定してアクセスするだけですね、 ちょっとやってみます。 72 名前：デフォルトの名無しさん mailto:sage [2007/11/28(水) 22:39:14 ] >>71 知らないのは罪では無い。 だが、知らないという事を盾にして、初歩的な事を人に聞きまくるのは迷惑。 >すいません、知りたかったのはＩｒｉａなどのＨＰを丸ごとダウンロードしてくるソフトが こんな事は最早ネットワークすら関係無い。通信技術板で聞こう物なら、 即氏ねと言われてもおかしくない。 初歩的なhtmlを知っていてIriaを使っていれば、どういう仕組みで丸ごと ダウンロードしているのか、一般的な知能を持っていればわかるはず。 まず人に聞くな。自分で考えろ。 73 名前：デフォルトの名無しさん mailto:sage [2007/11/28(水) 23:44:16 ] 待て、しかして希望せよ 74 名前：デフォルトの名無しさん mailto:sage [2007/11/29(木) 02:24:51 ] >>72 html知っててもhttpの仕組みがわかるわけ無いだろ。 >>59 「XMLHTTP VBS」あたりでググればいくらでもサンプル出てくる。 でも、VBSでリストだけ作ってダウンローダーに渡すのがいろんな意味でおすすめ。 75 名前：59です [2007/11/29(木) 07:20:59 ] ＞72 ありがとうございます、貴方のおっしゃっているように、私のやろうとしている事は ネットワークとはあまり関係がありませんね。 ＞74 XMLHTTPですね、ありがとうございます。 タグ辞典読んだり、「ＶＢＳ　ダウンロード」とか組み合わせてググっても それに対応出来そうな命令が全く出てこなかったんで、困っておりました。 これでやっと点が線で繋がりました！！ 76 名前：デフォルトの名無しさん [2007/11/30(金) 10:37:58 ] 間違えてVB.NETのスレで聴いてしまったのですが、こちらでお聴きすべきでした。 WshShellオブジェクトでURLショートカットファイルを作成する際にファイル内容 に不足があることがわかりました。 例として、たとえばマイクロソフトのサイト www.microsoft.com/japan/msdn/architecture/ などに対して作成すると、IEで作成した場合に作成される処の [DOC_pagetools] XMLUSERDATA__Size=･････ XMLUSERDATA=･････ USERDATAURL=･････ という部分が作成されていませんでした。そしてこの部分がないと、クリック して実行してもIEで表示できないことがわかりました。どうも実行に際して 不可欠の内容のようでした（これはユーザーの同定等を行っているのでしょうか）。 こうした部分をWshShellオブジェクトのCreateShortcutメソッドで作成する ことは不可能でしょうか。可能とした場合はどのようにすればよいでしょうか？ なにとぞよろしくお願いします。 77 名前：デフォルトの名無しさん mailto:sage [2007/11/30(金) 19:49:02 ] >>76 [InternetShortcut]しかないけど開けるよ？ ファイルに.urlつけてないとかじゃないの？ 78 名前：デフォルトの名無しさん mailto:sage [2007/11/30(金) 20:58:14 ] ドメインユーザーのSID（S-x-x-x....） から、ユーザーID（Domain\UserID）を知りたいんだけど、 ActiveDirectoryにどんな方法でアクセスすれば良いですか？ ADSIを使うっぽいのですが、いまいちわかりません。 79 名前：76 [2007/12/03(月) 23:26:26 ] >>77 ご指導ありがとうございます。 おっしゃってくださったことから、今もう一度やってみましたら確かに 今度は動作致しました！ 昨日やったときはページが移動しなかったのですが、IE系のトラブルか何か が重なっていたのかもしれません・・・、お手数おかけしてすみません。 ご指導ありがとうございました。 80 名前：デフォルトの名無しさん [2007/12/08(土) 06:36:58 ] >>56 だめだ。それは結局JavaScriptを使っているから。 HTML内にVBSオンリーで同等の機能を実装してくれ。 81 名前：デフォルトの名無しさん mailto:sage [2007/12/08(土) 12:09:40 ] >>80 え？>>55はJavaScriptをVBSで書けるかどうか聞いてるじゃん 82 名前：デフォルトの名無しさん mailto:sage [2007/12/08(土) 15:04:43 ] >>81 VBSが分からないから日本語に着目して自己満足ですか。 はいはい、あなたは正しく理解し、適切な回答をなさいました。 キミにはたぶん質問者が知りたがっていることを回答するのは無理だね。 >>57は漢字が間違ってるし。 83 名前：デフォルトの名無しさん mailto:sage [2007/12/08(土) 19:01:24 ] >82 わざと誤字を扱うのがネラーの習わし 84 名前：デフォルトの名無しさん mailto:sage [2007/12/09(日) 01:08:07 ] >>82 hrefでjavascript関数の後にvoid(0)って一体どんな意味か教えて 85 名前：デフォルトの名無しさん mailto:sage [2007/12/09(日) 01:34:04 ] >>84 developer.mozilla.org/ja/docs/Core_JavaScript_1.5_Guide:Operators:Special_Operators#void 86 名前：デフォルトの名無しさん mailto:sage [2007/12/09(日) 11:29:05 ] >>85 いや、void(0)単体の意味じゃなくて、「f()の後に」void(0)を置く意味が知りたいんだ 87 名前：デフォルトの名無しさん mailto:sage [2007/12/09(日) 12:09:11 ] void(0)を付けないでブラウザのアドレスバーに打ち込んでみるとわかるよ 88 名前：デフォルトの名無しさん mailto:sage [2007/12/09(日) 12:50:58 ] つけてもつけなくても変わらんよ 89 名前：デフォルトの名無しさん mailto:sage [2007/12/10(月) 12:02:32 ] >>86 何を期待してるのかわからんが， とりあえず「f()の後にvoid(0)を置く意味を知りたい」という要求の原因を教えてもらおうか 90 名前：デフォルトの名無しさん mailto:sage [2007/12/10(月) 21:56:53 ] ああ、説明できないならもういいよ お疲れさん 91 名前：デフォルトの名無しさん mailto:sage [2007/12/10(月) 21:59:04 ] とりあえずプログラム板もID付けて欲しいぜ・・・ 92 名前：デフォルトの名無しさん mailto:sage [2007/12/11(火) 18:08:58 ] void(0);だけじゃ何の効果も示さないみたいな f();は今のところ自端末じゃ何も設定されてなくて voidの()内に後でチェックコードでも書くとか？ 今は何を作るか知られたくないから意味のないコードしか書いてないとか 93 名前：デフォルトの名無しさん mailto:sage [2007/12/14(金) 10:35:11 ] 360: 2007/06/16 11:58:31 ??? [sage] みんな最後にvoid(0)やfocus()を付けるのはなんでだぜ？ 361:ぼけなす 2007/06/16 12:12:44 P+YI6MXb >>360 Location Bar 本来の機能が邪魔することがあるから. 全体を function として記述してもうまくいくようだ. 94 名前：デフォルトの名無しさん mailto:sage [2007/12/14(金) 22:03:54 ] だからアドレスバーに打ち込んでみるとわかるって言ったのに 95 名前：デフォルトの名無しさん mailto:sage [2007/12/15(土) 06:34:39 ] 条件が揃わないとわからないんじゃね 96 名前：デフォルトの名無しさん mailto:sage [2007/12/17(月) 11:54:28 ] Excelの2003と2007がインストールされた環境で、以下のVBSを実行すると2007が起動します。 2003を起動するには、どう書けばいいんでしょう？ Set ExcelObj = CreateObject("Excel.Application") ExcelObj.WorkBooks.Add() ExcelObj.Visible = True 97 名前：デフォルトの名無しさん mailto:sage [2007/12/17(月) 13:01:46 ] それってWindowsの設定の問題じゃないの？ xlsファイルを2003のExcelで動作するように設定すれば動くんじゃない？ 98 名前：デフォルトの名無しさん mailto:sage [2007/12/18(火) 01:05:13 ] >>97 すいません。説明不足でした。 常に2003を起動したいわけではなく、2003と2007を必要に応じて使い分けたいのです。 そういう区別はVBSでは無理なんでしょうか？ あと、regmonでVBS実行中に参照されるレジストリを調べてみたところ、どうやら HKCR\Applications\excel.exeを見て、起動するアプリを決定しているようでした。 つまり、>>96のような書き方では最後にインストールしたバージョンしか起動できないのです。 99 名前：デフォルトの名無しさん mailto:sage [2007/12/18(火) 02:12:08 ] 2003はたぶん Excel.Application.9 で，2007はしらね ttp://support.microsoft.com/kb/240794/ja 100 名前：デフォルトの名無しさん mailto:sage [2007/12/18(火) 04:06:22 ] >>99 ありがとうございます。さっそく調べてみたところ、 2000 → 9 2002 → 10 2003 → 11 2007 → 12 のように対応していることがわかりました。そこでプログラムを Set ExcelObj = CreateObject("Excel.Application.11") と修正してみたのですが、これではまだ2007が起動してしまいます。 もう少しオブジェクトの扱い方を調べる必要があるようです。 101 名前：デフォルトの名無しさん mailto:sage [2007/12/18(火) 12:07:56 ] >>100 ヒント：参照設定 102 名前：デフォルトの名無しさん mailto:sage [2007/12/18(火) 21:32:07 ] support.microsoft.com/kb/292491/ja 103 名前：デフォルトの名無しさん mailto:sage [2007/12/19(水) 03:29:22 ] いっその事、キーボードマクロで 104 名前：デフォルトの名無しさん mailto:sage [2007/12/19(水) 07:02:16 ] >>101 MSOライブラリを複数登録するんでしょうか？ 別バージョンのMicrosoft Office Object Library、Microsoft Excel Object Libraryを参照設定から 追加しようとしたのですが無視されてしまいました。 エラーも出ず、追加も出来ず、よくわかりません。 >>102 excel /regserverを実行してみたところ、Officeのインストーラーが起動してシステムの設定をすべて書き換え、 確かにデフォルトのアプリケーションもオブジェクトも切り替わりました。 が、この方法ではいちいちインストーラーが起動するということで、見栄えがよくありませんし、 時間もかかりすぎてしまいます。元に戻す手間もありますし。 >>103 最終的にはウィンドウを出さずに裏でこっそり処理をさせたいので、(>>96のプログラムの3行目が 存在しないイメージです) 単純にショートカットからExcelを起動して最小化、みたいな処理は、 できれば避けたいのです。後出しですみません。 もう少しヒントを、よろしくお願いします。 105 名前：デフォルトの名無しさん mailto:sage [2007/12/19(水) 21:46:15 ] いや、無理でしょ 106 名前：デフォルトの名無しさん mailto:sage [2007/12/21(金) 15:02:41 ] 「2003に致命的な問題が見つかりますた」と言って強引に2003をアンインストールして2007のみの環境にしる 107 名前：デフォルトの名無しさん mailto:sage [2007/12/24(月) 06:18:21 ] 光の速さでキー入力して絵画をキャンセル 108 名前：デフォルトの名無しさん mailto:sage [2007/12/24(月) 15:32:02 ] ぐぐったら、なんか酷いことが書いてある。　　、、無理なんじゃね？ support.microsoft.com/kb/292491/ja 109 名前：デフォルトの名無しさん mailto:sage [2007/12/24(月) 15:35:09 ] あ、既出でやんの。　 (office2000以降)CLSIDが共通だって事は、 オートメーションでバージョンを指定することは出来ない　ってことじゃねえの？ 110 名前：デフォルトの名無しさん mailto:sage [2007/12/24(月) 16:17:15 ] ディレクトリからコマンダー権限でエクシア起動！ 111 名前：デフォルトの名無しさん mailto:sage [2007/12/24(月) 16:25:44 ] なるほど、希望バージョンのExcel.exeを先に起動しておいてからGetObjectすればよいのかな？ 112 名前：デフォルトの名無しさん mailto:sage [2007/12/25(火) 19:44:14 ] 希望バージョンではない方が既に起動されていても大丈夫？ 113 名前：デフォルトの名無しさん mailto:sage [2007/12/25(火) 23:04:38 ] 何をアクティブにして何をさせたいか ちょっとした選択ミスがすべてを台無しにする事もある 目的と干渉によるけどやりたいなら自己責任で 114 名前：デフォルトの名無しさん [2008/02/11(月) 06:52:56 ] 突然質問ですが… プログラムに汎用性を持たせるために、一部の変数を外部ファイル化したんですが、 どうすればよいのでしょうか？ 実行専用ファイルを作って、その中で変数専用ファイルとメインファイルをPublic変数で繋いで 走らせる事も考えたのですが、できますでしょうか？ って言うかＶＢＳってinclude無いんですか？ 115 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 12:09:25 ] >>114 wsfというものがあってですね 116 名前：デフォルトの名無しさん [2008/02/11(月) 23:26:24 ] ini ファイルみたなのをつくって、フツーにopenして読み込めばいいじゃん。 117 名前：壱壱四 [2008/02/12(火) 07:24:04 ] 115-116 ありがとうございました。 あとはググって調べます 118 名前：デフォルトの名無しさん mailto:sage [2008/03/06(木) 09:58:25 ] EventQuery.vbs の使い方で教えてください。 というか、挙動不審なんです。 cscript eventquery.vbs /V /FI "ID EQ 564 AND DATETIME GE 03/06/08,12:00:00AM AND USER NE NT AUTHORITY\SYSTEM" /FO CSV /L ↑こういうのを書いたんですが、フィルタ条件のエラーになります。 上記の３つの条件を個別に単発で書けばそれぞれ　ちゃんと動くんですが ３つまとめるとダメみたいで・・・。 そういう仕様なんでしょうか？ 何か書き方にクセがあるんでしょうか？ 119 名前：デフォルトの名無しさん mailto:sage [2008/03/08(土) 12:41:44 ] んなVBSは知らんけどパラメータがtasklistコマンドくせぇな 120 名前：デフォルトの名無しさん [2008/04/08(火) 00:03:03 ] Excelで、セルに入力された文字列のうち、ある部分だけの色を変える、という処理をVBSで行いたいです。 たとえば「A1」のセルに「VBSで便利なプログラムを作れスレ」と入力してあった場合、 そのうちの『プログラム』だけをフォント赤色に変更する、というような感じです。 セル内の文字列すべてだとできるのですが、セル内の文字列の一部分だけを変更する方法を思いつきません。 ExcelのVBAだとCharactersオブジェクトが使えてたけど、これはVBSでは使えないのでしょうか？　（←うまいきませんでした） なにかいいアイデアあったら、誰か教えてください･･･ 121 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 00:48:23 ] エラー処理してないんで適当に。 偉い人添削ぷりーず Option explicit Const TARGET_WORD = "プログラム" Dim XL, XLBook, XLRange Set XL = CreateObject("Excel.Application") Set XLBook = XL.workbooks.open("C:\Documents and Settings\デフォルトの名無しさん\デスクトップ\book1.xls") Set XLRange = XLBook.sheets(1).Range("A1") Dim TargetChr Set TargetChr = XLRange.characters(Instr(XLRange.value, TARGET_WORD),len(TARGET_WORD)) If Instr(XLRange.value, TARGET_WORD) > 0 then TargetChr.Font.ColorIndex = 3 End if XLBook.save XLBook.close Set XLBook = nothing XL.quit 122 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 13:55:16 ] よーし、素人丸出しで質問させてくだされ！ とあるＣＳＶファイルがあります。エクセルで展開すると６０項目のセルがあります。 その項目で不要項目があるので、消す作業を自動で処理することを考えてます。 ******************************************************* Set objEXCEL = CreateObject("Excel.Application") Set objBOOK = objEXCEL.Workbooks.open("指定場所と指定.CSV") objEXCEL .Visible = true myExcel.Range("B:D").Select myExcel.Selection.Delete myExcel.Cells(1,1).Select ******************************************************** サンプルやエクセルマクロ記録などしてそれらを参考にやってみました。 対象CSVは相対パスで指定してあります。 でも、相対パス指定した行でＥＲＲになります。 ＣＳＶを相対パスで指定して不要項目を削除するには、上記スクリプトを どのように変更すればいいでしょうか？ 123 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 16:00:05 ] そこは絶対パスで指定できるように考えよう 124 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 16:18:19 ] >>123 レスありがとう。 結局、相対パスはできないということですね。 125 名前：120です mailto:sage [2008/04/08(火) 23:27:32 ] >>121 ありがとう。書いてもらったのを参考にして思う通りのものができました。 CharactersオブジェクトのStartとLengthの指定の仕方をまちがってたようです。 任意のフォルダを選択すると、コマンドプロンプトのTREEコマンドみたいな枝？罫線＋選択フォルダ以下すべてのサブフォルダ名 OR ファイル名を Excelに書き出す、というのを作ってたんですが、その出力内容のうち、サブフォルダ名の部分だけを色変えたかったのです。 126 名前：120です mailto:sage [2008/04/08(火) 23:28:08 ] >>122 相対パスとるより絶対パスとるほうが簡単だと思うんだけど･･･？ Excel使うの前提のようなので、こういうのはどうかな。 ******************************************************* Option Explicit Dim strFilePath strFilePath = GetFilePathDialog() msgbox strFilePath '-------------------------------- ' 選択したファイルのパスを取得 '-------------------------------- Function GetFilePathDialog() Dim objExcel Dim strFile Set objExcel = CreateObject("Excel.Application") strFile = objExcel.GetSaveAsFilename("", "CSV(カンマ区切り) (*.csv),*.csv") If strFile = False Then Exit Function GetFilePathDialog = strFile Set objExcel = Nothing End Function ******************************************************* 127 名前：122 mailto:sage [2008/04/09(水) 13:06:21 ] >>126 必ず相対パスでないとだめってわけではないのだけど。 クライアントで取り込んだＣＳＶを編集する為なのね。 まあ、やり方で回避できるのだけど。。。 このコードも活用させていただきますです。 ありがとう。 128 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 01:19:36 ] >>122 パスがわからないのならドラッグ＆ドロップすればいいじゃない、牛丼がないのなら豚丼をたべればいいじゃない。 >>126 そのファンクションいただき。でもエクセルObjectがないと使えないのかー。 129 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 02:21:36 ] GetOpenFileNameとGetSaveFileNameでぐぐれば、タブンさんぷるでてくるぞ。 APIだからエクセルいらない。 130 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 16:40:35 ] >>128 通常Ｗｅｂから配布しているＣＳＶを加工する為に、ＶＢＳを クライアント配布で色々考えてた。 >>126氏の指摘通りエクセル操作が前提で。 ＞パスがわからないのならドラッグ＆ドロップすればいいじゃない、 それも、そうだと思った強風、豪雨の午後でした orz ＞牛丼がないのなら豚丼をたべればいいじゃない。 メタボはいかん。 131 名前：デフォルトの名無しさん mailto:sage [2008/04/20(日) 22:38:51 ] こんにちは。メッセージボックスの[OK]ボタンが押されるのを待たずに次の処理を 実行させたいときはどうするのでしょうか？ [OK]ボタンが押されなくても複数のメッセージボックス（？）を表示させたいのですが … 132 名前：デフォルトの名無しさん [2008/04/20(日) 23:39:08 ] >>131 ２箇所に同じ質問書くと嫌われるよ。マナー違反。今後気をつけな。 133 名前：デフォルトの名無しさん mailto:sage [2008/04/21(月) 00:21:17 ] 3箇所ならOK。 134 名前：デフォルトの名無しさん mailto:sage [2008/04/21(月) 20:15:02 ] ジミーペイジもそんな事言ってたな 135 名前：デフォルトの名無しさん mailto:sage [2008/04/22(火) 11:02:10 ] >>134 じみへんは？ 言ってないかｗ 136 名前：デフォルトの名無しさん mailto:sage [2008/05/01(木) 22:03:51 ] 初心者なんですけどいいですか？ VBSで二進法の数を十進法にして表示させるプログラムを教えてください。 137 名前：デフォルトの名無しさん [2008/05/01(木) 23:48:07 ] ２進数の仕組みがわかってりゃ簡単だよ。 手計算するのと同じことをＶＢにやらせればいいだけ。 頭から１文字ずつ取り出して、×２していくだけだろ。 msgbox unko("10101101") Function unko(ByVal str)    ret = 0    For i = 1 To Len(str)      ret = ret * 2 + CInt(Mid(str, i, 1))    Next    unko = ret End Function 138 名前：デフォルトの名無しさん mailto:sage [2008/05/01(木) 23:52:39 ] それ計算違うｗ 139 名前：デフォルトの名無しさん mailto:sage [2008/05/01(木) 23:54:10 ] ・・・と思ってら合ってるっぽいスマソ 140 名前：デフォルトの名無しさん mailto:sage [2008/05/02(金) 00:25:00 ] 助かりました〜 ありがとうございます。 141 名前：デフォルトの名無しさん [2008/05/03(土) 11:12:12 ] なんかClntの所でエラー表示が出るんですが(^^; 142 名前：デフォルトの名無しさん mailto:sage [2008/05/03(土) 11:41:22 ] >>141 Valに直しとけ 143 名前：たわし [2008/05/03(土) 13:27:56 ] 発投稿っす。どうぞよろしく。 二進法の数を十進法にして表示させるプログラムもう少し簡単にできませんか 144 名前：デフォルトの名無しさん mailto:sage [2008/05/03(土) 13:29:00 ] ゆとりアラーム 145 名前：たわし [2008/05/03(土) 13:36:42 ] そこを何とかお願いいたします 146 名前：デフォルトの名無しさん mailto:sage [2008/05/03(土) 20:23:26 ] 137よりどう簡単にするんだ 147 名前：デフォルトの名無しさん [2008/05/03(土) 21:46:23 ] 142＞ありがとうございます しかしValでも型が一致しませんとでるんですが 148 名前：デフォルトの名無しさん mailto:sage [2008/05/03(土) 22:43:18 ] >>147 お前さんがとてつもない馬鹿で何一つ知らない情報弱者だから こちらは超能力者にならざるを得ないのをとりあえず理解してくれ。 それを前提とした上で「パソコンでマウスを動かそうとした」とこから 「Valでも型が一致しませんとでる」までの経緯を お前さんが認識してる「馬鹿」に分からせるように説明しろ。 149 名前：デフォルトの名無しさん [2008/05/04(日) 01:47:23 ] パソコン上でマウスを動かそうとし、動かしメモ帳を起動して137のプログラムをまずメモ帳に入力し、Clntをそれ以外いじらずValに変更した後、.vbsで保存して、実行しようとするとエラー表示されます 150 名前：デフォルトの名無しさん mailto:sage [2008/05/04(日) 01:58:49 ] 数値で渡してるなｗ 151 名前：デフォルトの名無しさん mailto:sage [2008/05/04(日) 06:09:59 ] >>149 ValをCIntに戻して再実行してみろ。 CIntに戻したときのエラー表示の中で「文字が正しくありません。」 という文言があるのなら、全角スペースが原因。 行の先頭のスペースを全部削除してから再実行してみろ。動くはず。 >>142 CIntをValに直してもよけいに動かなくなるだけ。 VBでは動いても、VBSでは動かん。 >>150 1行目の10101101を文字列ではなく数値で渡しているって想定か？ 別に数値で渡しても、勝手に型変換されて動くよ。 152 名前：デフォルトの名無しさん mailto:sage [2008/05/04(日) 06:18:31 ] >>151 数値で桁が多すぎると(浮動少数表現に変わるから？)エラーでるよ 153 名前：デフォルトの名無しさん [2008/05/04(日) 12:33:44 ] やっぱりうまくいきません 型が一致しません"Clnt"とでます パソコンが2000だからとかそういうわけでしょうか あと素人丸だしですみませんが、一行目の10101101ってどういう意味ですか？ 154 名前：デフォルトの名無しさん mailto:sage [2008/05/04(日) 12:37:01 ] もうそのネタ飽きた 155 名前：デフォルトの名無しさん [2008/05/04(日) 16:39:54 ] ↑ そもそも「二進法」の意味がわかっとらんだろ？ 156 名前：デフォルトの名無しさん [2008/05/04(日) 17:22:21 ] ところが2歩進んだと思ってたのに気が付いたら下がっていたという。 157 名前：デフォルトの名無しさん [2008/05/04(日) 19:25:19 ] 2進数はわかってますが 158 名前：デフォルトの名無しさん mailto:sage [2008/05/04(日) 22:40:33 ] >>152 すまんが、前提として10101101をそのままとしていた。 確かに桁が増えたらエラーになる。 16桁か17桁くらいが区切りのはず。 ちなみに浮動少数表現ではなく、対数表現な。 >>153 指摘が間違ってた。 いいか、Clntが間違いだ。CIntだ。 2文字目は小文字のL(エル)ではなく、大文字のI(アイ)だ。 ついでにいうと、二進法で表現した数値を二進数と言うんだ。 159 名前：デフォルトの名無しさん [2008/05/05(月) 03:45:40 ] この会話・・・ぜったい２進数がわかってないな。 160 名前：デフォルトの名無しさん mailto:sage [2008/05/05(月) 04:16:03 ] シュールストレミングうめえ 161 名前：デフォルトの名無しさん [2008/05/05(月) 17:06:00 ] すいませんXPでやったらできました そこで入力した二進数を十進数に変えるプログラムはどうやるんですか？ 162 名前：デフォルトの名無しさん mailto:sage [2008/05/05(月) 17:20:48 ] 二進数も十進数も見た目が違うだけで中味は同じ だから変換は必要ない 163 名前：136 mailto:sage [2008/05/05(月) 17:27:22 ] なんか変な流れ作っちゃってすまん というか>>161なぜそこに戻る？ 164 名前：デフォルトの名無しさん [2008/05/05(月) 17:39:30 ] inputboxをどこにいれりゃいいのかわかりませｎ 165 名前：デフォルトの名無しさん [2008/05/06(火) 12:29:27 ] おまい、ぜったいぜったい、ぜぇ〜〜ったい２進数がわかってないだろ。 166 名前：デフォルトの名無しさん mailto:sage [2008/05/06(火) 14:22:30 ] おまいら暇だな〜 ﾓﾚﾓﾅ〜ｗ 167 名前：デフォルトの名無しさん [2008/05/06(火) 15:42:50 ] ｖｂｓで１６進数を表示。たとえば msgbox &hFE とすると、結果は 254 と表示されます。 ほんとは FE のはずです。 こういうバグがあるから気をつけたほうがいいよ。 168 名前：デフォルトの名無しさん mailto:sage [2008/05/06(火) 15:47:27 ] それはバグ・・・・とは思えないのだが。本来の仕様と違うとか？ 169 名前：デフォルトの名無しさん mailto:sage [2008/05/06(火) 17:18:09 ] >>168 変態度かぁ 170 名前：デフォルトの名無しさん [2008/05/06(火) 17:59:41 ] 意味わからん FEって表示したいのなら msgbox "FE" って書きゃいいじゃん。 自分で &h つけておいて、何言ってんだろ？ msgbox hex(&hfe) でもいいけど 171 名前：デフォルトの名無しさん [2008/05/06(火) 18:31:12 ] 数値の&HFE と 文字列の"FE" の違いすらわからんヤツがおるのか。 172 名前：デフォルトの名無しさん mailto:sage [2008/05/06(火) 21:58:28 ] >>160 くせぇ！ 今頃臭いが伝わってきたよ 173 名前：デフォルトの名無しさん mailto:sage [2008/05/11(日) 04:40:36 ] ●6月にマネージャパン、月刊アスキー、週刊アスキーの3誌が賞金総額2000万円の「シストレFXグランプリ」を開催 system-trading.jp/news/index.php?cID=3 [シストレFXグランプリとは] クリック証券が提供するFXのデモ取引環境を利用して、システムトレードにチャレンジできるFX取引のグランプリです。 お客様ご自身で作成したシステムトレードの機能を評価する「シストレソフト部門」とトレード収益を競う「トレード部門」の2部門構成となっております。 ●5月22日より登録受付開始、6月2日よりグランプリ開始の予定。賞金総額2000万円。 　　デモトレードの優勝者には賞金三百万円がプレゼントされます。 ▼トレード部門 初期資産500万円で、デモ取引のトレード収益を競っていただきます。 ●www.fx-gp.com/about/ ▼賞金総額 ■社長特別賞（シストレソフト買取価格） 10,000,000円 ●シストレソフト部門賞　1位300万円　2位100万円　3位50万円 ●トレード部門賞　1位300万円　2位100万円　3位50万円 ●前期MVP賞　50万円 ●後期MVP賞　50万円 174 名前：デフォルトの名無しさん mailto:sage [2008/05/11(日) 13:31:12 ] コピペ君って馬鹿だな、まで読んだ。 175 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 04:14:05 ] InputBox関数使って、入力値を得たいんですが、 255バイト以上の入力値って無視されるのでしょうか？ 解決策があれば教えてください。。 InputText = InputBox("文字列を入力してください") Dim Fs Set Fs=CreateObject("Scripting.FileSystemObject") Set newFile = Fs.CreateTextFile("0000test0000.txt",True) newFile.WriteLine(InputText) 176 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 09:13:27 ] ユニコードで２５４文字+CR+LFの、最大値を超えています。 177 名前：デフォルトの名無しさん [2008/06/17(火) 22:19:12 ] VBScriptを使って、HTTPステータスコードを取得する方法を探しています。 ある任意のWeb画面に対してスクリプトでリクエストを行い、HTTPステータスコード(200 ok 等)を 取得する方法はありますでしょうか。 どなたかご存知の方がいらっしゃいましたら、ご教授下さい。 178 名前：>>177 mailto:sage [2008/06/17(火) 22:24:08 ] すいません。スレ違いだった為、WSHのスレに移します。 179 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 14:20:45 ] vbsで、フロッピーのフォーマットを確認なしで実行 する命令ありますか？A:\固定で。 180 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 18:20:54 ] >>179 何で確認しなくていいのか？ 181 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 20:40:04 ] VBSにはファイルにアクセスする命令すらありませんよ 182 名前：デフォルトの名無しさん mailto:sage [2008/06/21(土) 07:38:22 ] それを言うならC言語にもファイルにアクセスする命令は無いな 183 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 09:45:08 ] ここまで便利そうなコードが殆どない件・・・ 184 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 11:24:47 ] >>183が便利そうなコードを書きまくるそうです＞＜ 185 名前：デフォルトの名無しさん mailto:sage [2008/07/27(日) 01:18:22 ] とりあえずExcelAddinをインスコするコードとかlnk右クリックでリンク先ディレクトリ表示とか あるけど需要あるか？ 186 名前：デフォルトの名無しさん mailto:sage [2008/07/30(水) 21:22:27 ] test1.bin test2.bin test3.bin これらファイルを選択状態にして、VBSファイルにD&Dすると、 ファイル名順にソートして、１つのファイルに結合するには、どうしたら良いのでしょうか？ １つのファイルを、指定サイズに自動分割するVBSはできたのですが、 その逆のことができるVBSファイルを作りたい。。。 ADODB.Recordset ADODB.stream　あたりを使えば可能？ 187 名前：デフォルトの名無しさん mailto:sage [2008/07/30(水) 21:26:24 ] copy /b 188 名前：デフォルトの名無しさん mailto:sage [2008/07/30(水) 21:38:44 ] >>185 参考にさせていただきた 189 名前：デフォルトの名無しさん mailto:sage [2008/08/13(水) 09:09:42 ] CIM_DataFileクラスを用いて、ファイルの各種情報を取得したいのですが、 「説明」のプロパティを取得するときに指定するプロパティ名が分かりません。 具体的には、例えばソリティア（C:\WINDOWS\system32\sol.exe）を 右クリックして表示されるプロパティの「バージョン情報」タブの２行目に 「説明：Solitaire Game Applet」と表示されますが、この値を取得したいのです。 ファイルバージョンなどは、「Version」プロパティで取得できております。 ご存知の方、ご教示お願い致します。 190 名前：デフォルトの名無しさん mailto:sage [2008/08/13(水) 18:30:02 ] 189です。 カキコするところ間違えたみたいなので、移動します。スミマセン。 191 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 21:29:36 ] >>186-187 作ってみた。 sdir = "C:\temp\" '出力先フォルダ soutfb = "output.bin" '出力ファイル名 set osh = createobject("wscript.shell") 'シェルオブジェクト set ofs = createobject("scripting.filesystemobject") 'ファイルオブジェクト set oarg = wscript.arguments '引数オブジェクト stmpf1 = "temp1.txt" '一時ファイル stmpf2 = "temp2.txt" '一時ファイル 'ドラッグ＆ドロップしたファイル名を一時ファイルに格納 set out = ofs.createtextfile(sdir & stmpf1, true) for each s in oarg 　　out.writeline s next out.close 192 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 21:31:54 ] （つづき） 'ファイル名のリストをソートして一時ファイルに格納 osh.run "cmd /c sort " & (sdir & stmpf1) & " > " & (sdir & stmpf2), 0, true set oin = ofs.opentextfile(sdir & stmpf2) s = oin.readline 'バイナリファイルのコピー ofs.copyfile s, (sdir & soutfb) do until oin.atendofstream 　　s = oin.readline 　　osh.run "cmd /c copy /b " & (sdir & soutfb) & "+" & s & " " & (sdir & soutfb), 0, true loop oin.close '一時ファイルの消去 ofs.deletefile sdir & stmpf1 ofs.deletefile sdir & stmpf2 msgbox "OK" ↑以上、実行時は行頭の空白を半角に。 193 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 22:04:23 ] copyは性能的にしょうがないかもしれんがsortぐらい自前でやれよｗ 194 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 21:13:21 ] VBSにて、SNMP情報の取得を考えてるんですが、 wsnmp32.dll　を利用することはできないんでしょうか？ dynwrap.dll　というラッパー？も使えないのでしょうか 195 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 18:59:35 ] set shell32 = createobject("shell.application") set fso = createobject("scripting.filesystemobject") function recyclebin(pathname) > path = fso.getparentfoldername(pathname) set there = shell32.namespace(path) set submenus = there.items.item(fso.getfilename(pathname)).verbs I = 0 for each method in submenus if strcomp(method, "削除(&D)") = 0 then submenus.item(I).doit() end if I = I + 1 next end function recyclebin wscript.arguments(0) ファイルやフォルダをドラッグアンドドロップすると、 ごみ箱に移すスクリプト。deletefile とかは 永遠に消えちゃうので不安だ．．．。 196 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 19:01:10 ] すまん、>　は、なし。 197 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:05:24 ] それ、ごみ箱のショートカットと比べてどう便利なの？ 198 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:32:26 ] ファイルをドラッグアンドドロップていうのは サンプル動作のためで、 関数をスクリプト内で deletefile の代わりに使います。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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