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

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
垢版 |
2007/02/03(土) 17:49:47
素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ

（例○○を自動処理してくれるプログラム）
2012/03/13(火) 09:37:52.97
>>491
まず共通部分
<job id="main">
<script language="VBScript" src="test.vbs" />
<script language="VBScript">
fso = "Hello"
MsgBox Test() & vbCrlf & fso
</script>
</job>
2012/03/13(火) 09:39:40.86
次に、test.vbs部分Option Explicit無しバージョン
Function Test()
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function
2012/03/13(火) 09:43:32.86
こいつも、test.vbsでOption Explicit有りバージョン
Option Explicit
Function Test()
Dim fso, File
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function
2012/03/13(火) 21:41:15.30
散々蘊蓄垂れてこのレベルか
2012/03/13(火) 21:50:38.27
Option Explicit 云々以前の問題だな
2012/03/13(火) 21:51:41.48
なんと見苦しい負け惜しみw
2012/03/13(火) 22:25:08.04
>>493
＞Option Explicit無しバージョン
Option ExplicitよりもローカルのDimが無い事の方が影響大でしょ

＞ ローカルDim無しバージョン
とした方がよいのでは？

別にOption Explicitによりローカル宣言とグローバル宣言の優先度が
変わったとかじゃないし

「Option Explicit」の有無「だけ」による挙動の違いを説明できないと
2012/03/13(火) 22:29:53.10
Option Explicit
Function Test()
Dim File
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function

そんだけ言うなら、このパターンでも試してみたらw
2012/03/14(水) 19:42:16.87
やれやれ、「Option Explicit」の使い方をようやく理解したか？
まあ、なんで、そのエラーが出るのか理解出来て無いってほうが濃厚だなw
なんせ、VBScriptの変数に内部型があるとか言っちゃうぐらいだからなぁw
2012/03/14(水) 19:45:33.07
自身が勘違いしていた事には気付いたが、
最初に強気で蘊蓄かましてしまった手前、
引くに引けなくなって強がりを続ける465萌え
2012/03/14(水) 20:28:49.55
>>501
ぷぷぷっ
もう、技術的な話を出来ずに口先だけかよw
「俺は、MSX-BASIC1からBASICを使ってるんだ」って言う割には大した事は無いなぁ

間違っているなら指摘しなw
2012/03/14(水) 20:47:40.14
ところで、既に>>499を提示してからでも丸一日が過ぎようとしているのに、今更、ファイルをクローズしてないとか言わないよねw
2012/03/14(水) 21:55:18.55
おーい、沢山いるはずの>>501よーい
技術的な指摘まだかーい
最低限、>>498みたいな、間抜けな指摘はすんなよーw
2012/03/14(水) 23:04:31.90
もうそろそろ飽きてきた...
MSDNからのコピペ
－－－
Option Explicit ステートメント
スクリプト内のすべての変数に対して、明示的な宣言を強制します。

解説
Option Explicit ステートメントを使用する場合は、スクリプト内の他のステートメントより前に記述する必要があります。
Option Explicit ステートメントを記述した場合、変数は、Dim、Private、Public、ReDim などの各ステートメントで明示的に宣言する必要があります。宣言されていない変数名を使うと、エラーが発生します。
－－－
以上

ソースコードに、Option Explicitが記述されていると、変数の宣言は明示的に行わなければならない
つまり、>>493は、>>494に変更しなければエラーが出て実行できない

では、>>499で、変数fsoは明示的に宣言されていないのになぜOption Explicitはエラーを出さないのか
それは、グローバル変数としてOption Explicitの効果範囲外で暗黙的に宣言されているから
つまり、ローカル変数とグローバル変数が交じり合い、スコープが明確ではなくなって全ての変数が宣言済みなのでOption Explicitはエラーを出せなかった

この結果の意味するところは、Option Explicitは、スコープがあやふやな場合には、typoを検出する事は出来ない(>>499)
逆に、Option Explicitを宣言した状態で、スコープを明確にしデバッグすれば、プロシージャの独立性を保障する事ができる(>>494)

あれだ、>>498は目の付け所は良かったが、リファレンスぐらいは読んだほうが良いってこった
2012/03/15(木) 04:54:39.64
負け犬の連投・・・
2012/03/15(木) 08:42:06.70
>>506
まだやる気かw
頑張って反論よろしくw
2012/03/17(土) 10:04:12.29
>>462
変数shellがObject型w
間違いを指摘されたら、>>466で内部文字型と内部数値型では扱いが違うとかw

つまりあれかw
MsgBox "123"+4+"5"
はエラーなんだw
なんかカッケーなw
2012/03/17(土) 14:33:29.53
こんなとこまで来ちゃうお前らの為じゃねーよ
適当にやったけど動いたからいーや的思考な
困ったくんや困ったﾁｬﾝの為に書いてんだよOption Explicit
詳しい人が必ずメンテするとは限らないのがVB系の怖いとこで
2012/04/07(土) 09:29:55.75
こんなところに来ない人のための事をここに書いて意味あるんですか？
511デフォルトの名無しさん
垢版 |
2012/06/10(日) 17:05:31.39
2012/07/16(月) 00:40:56.77
今までUWSC（フリーソフト）を使っていましたが、最近、VBScriptを知り、同じような処理ができることを知りました。

VBScriptを勉強中です。
分からないことがあればよろしくね。
513デフォルトの名無しさん
垢版 |
2012/07/16(月) 01:26:02.69
だれか3000円上げるから
２４平均律の鍵盤プログラム作ってくれ～(T_T)
2012/07/16(月) 01:27:51.13
作曲するのに使います
音色はピアノ音だけでOKです
2012/07/16(月) 09:32:19.09
コンパイルしたプログラムなら3'000円でいいけど
ソース(ソース丸見えのVBS…というか鍵盤必要ならHTA)で欲しいなら150'000円
2012/07/16(月) 10:42:01.70
>>515
言葉の意味がよくわからないけど
3000円の方でお願いします
2012/07/16(月) 10:50:19.70
白鍵とか黒鍵は
ないようなもんなんで
ボタンがズラリと並んでるだけでOKです
Ｅの位置だけボタンにＥって書いてくれたらOKです
2012/07/16(月) 19:11:52.43
よくわからんけど初音ミクじゃだめなの？
2012/07/16(月) 19:47:57.27
リアルタイムで音を確認しないと何かね……確信持てないっていうか
シーケンスでやってその日は納得いっても
次の日に聞いたらアレ？って事ばかりなんで
2012/08/05(日) 23:38:48.37
煽り潰しですね
2012/08/27(月) 21:54:39.96
知恵袋にも登録したのですが、どうしても知りたいのでご教示お願い致します。
マクロを実行して、他のファイルのマクロまで編集できますか。
いろいろグーグルで調べたのですが、どうもヒットせず実行できそうにありません。
作成したいファイルは追記します。
１．エクセルファイル内にボタンフォームを作り（このファイルを便宜上、ファイル①とする）、ボタンフォームを押すと新しいエクセルファイルが作成される（このファイルを便宜上、ファイル②とする）。
２．次にファイル①から１．とは別のボタンフォームを押すと、「挿入＞図＞ファイルから」と同じ要領で画像を選択でき、②ファイル内のSheet1・セルA1に画像が貼り付けられる。
３．最後にファイル①に設置した１．と２．とは別のボタンフォームを押すと、ファイル②のVBScriptにスクリプトが書き込まれる（出来ればVBScriptをパスワード保護出来れば幸いです）。
という流れをファイル①のVBScriptなり、モジュール等を使って行いたいのです。
３にあるマクロは、上書き保存ができなくなるマクロのため、１の段階で保存ができると幸いです。
また、複数ファイルを処理する必要が有るため、同一ファイル名で保存しない仕様を求めています。
2012/08/27(月) 22:31:18.85
全部出来ますよ
但し、マルチな上にスレ違いなので、具体的な説明は伏せますが
523デフォルトの名無しさん
垢版 |
2012/08/29(水) 19:05:51.32
VB・・・・・Sなのか？
2012/08/30(木) 22:38:44.70
ExcelでVBS……

ワークシートにボタンに見せかけたオブジェクトを貼り、
押すとハイパーリンクで外部のVBScriptを実行する
とかならやった事がある
2012/08/30(木) 23:09:40.69
ExcelからVBSを呼ぶだけのパターンか

俺は逆にVBSからExcel.Applicationを使って
Excelブックを操作するってことを結構やるな

「ExcelでVBS」ではなく、「Excel"を"VBSで操作」ってこった

ExcelからVBSを呼ぶくらいなら、そのVBSを標準モジュールなどに取り込んで
わざわざ外部のVBS呼ばずに内部実行するし
526デフォルトの名無しさん
垢版 |
2012/08/31(金) 10:20:07.61
ってか、VBSならふつうそうでしょ
2012/08/31(金) 10:21:36.68
だよな
>>524がなんんか面倒くさいことやってるだけで
2012/09/01(土) 22:37:19.11
一応、マクロを無効にしたExcelからでも実行できるというメリットはあるけど
2012/09/02(日) 18:43:55.29
officeのマクロはjsに移行するよ
おまえらの書いたVBSなんて保守したくないし、頼むからせめてjsで書いてくれ
2012/09/02(日) 19:19:43.98
webで使う場合はjsに軍配挙がるけど
wshやテキストエディタのマクロとかはvbsがいいな

つーかvbsの前に、jsしか使えないバカを淘汰して欲しい
vbsしか使えないバカも同じくね
2012/09/02(日) 20:05:38.74
>>529
VBSの保守をしたくないんじゃなく、VBSを保守する能力が無いの間違いだろ？
2012/09/03(月) 19:06:20.84
VBSにはプログラム言語としての長所は微塵もないよ
既に言語からもユーザーからも加齢臭とか腐敗臭とか漂わせている
533デフォルトの名無しさん
垢版 |
2012/09/03(月) 19:20:10.07
>>532
Win32 APIの呼び出しができればいんだけどね
もう絶望的かな
2012/09/04(火) 10:26:00.19
言語なんてなんでもいいよ
2012/09/23(日) 11:02:10.28
SFC miniかExcel経由で行けるけどキモいよな
しかし生のVBSからwin32api呼べたら怖くてエロサイト行けなくなる
2012/10/13(土) 09:50:15.66
いまメモ帳で頑張ってるんだけど、
("text").Value = rnd
このtextに乱数の直前に文章を入れたいんだけどどうすればいい？
必要なら全文載せる
2012/10/13(土) 09:53:17.73
3行目を読み返せ。
2012/10/13(土) 10:43:46.18
乱数の直前に文章を入れる？

単純に　& で連結したらいいと思うが…

msgbox "文章"　& rnd
539537
垢版 |
2012/10/13(土) 10:55:59.62
＞このtextに乱数の直前に文章を入れたいんだけどどうすればいい？
乱数の直前に、このtextに文章を入れたいんだけどどうすればいい？
540デフォルトの名無しさん
垢版 |
2012/10/13(土) 11:01:38.99
ありがとうございます
2012/10/21(日) 07:59:37.35
CreateObjectのIEでブラウザの操作を自動化するスクリプト作っててサイトへのログインは自動化できたんだけど、
その後のページにあるボタンを押す動作ができなくて行き詰まってる…

流れとしては
1.　ID、PWを入力してログインボタンを押す
2.　TABキー15回+ENTERでボタンを押す
　　　(ページが切り替わる)
3.　TABキー15回+ENTERでボタンを押す　←ここからうんともすんとも言わない

1、2は処理に成功してるんだけど、3が何も起こらない(エラーも表示されない)
3が動作しない原因はなんなんだぜ？
2012/10/21(日) 08:18:06.54
そこのソース撮ってくれ。
2012/10/21(日) 09:09:12.73
'1.ログイン
.document.all.Item("userId").Value = MemID
.document.all.Item("passWd").Value = UsrPass
.document.all.Item("btnLogin").Click
While .Busy Or .ReadyState <> 4
Wend
'2.切断
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 4
Wend
'3.接続
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 4
Wend

>>542
これでいいかな？
なぜか「3.接続」を実行できないんよ（´・ω・`）
2012/10/21(日) 09:32:48.54
ＷＳＨ には、こんな使い方もあるんだ！
While
  WScript.Sleep 100
Wend
とかの時間間隔入れてみれば？
http://www.atmarkit.co.jp/fwin2k/operation/wsh05/wsh05_04.html
2012/10/21(日) 10:04:09.14
>>544
ありがとう！できたよ！
↓ReadyStateを3とSleep 1000を組み合わせたらなぜかいけたｗｗ

'ログイン
.document.all.Item("userId").Value = MemID
.document.all.Item("passWd").Value = UsrPass
.document.all.Item("btnLogin").Click
While .Busy Or .ReadyState <> 4
Wend
'切断
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 3
Wend
'接続
WScript.Sleep 1000
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 3
Wend
2013/01/05(土) 10:19:06.02
Explorerを起動して任意のフォルダ（ドライブ）を指定で起動する。
その際、n階層下のフォルダまで自動的に展開した状態で開いて欲しい。

通常　　　　→　これを　→　　1階層指定で展開済み起動
d:[+]フォルダＡ　　　　　　　d:[-]フォルダＡ
　[+]フォルダＢ　　　　　　　　　[+]子フォルダ1　　　　←孫フォルダ（2階層下は存在してても展開しない）
　[+]フォルダＣ　　　　　　　　　　 子フォルダ1
　　　　：　　　　　　　　　　　　[-]フォルダＢ
　　　　　　　　　　　　　　　　　　　　：

ドライブルートから1階層下までの固定展開する機能は必須です。
可能ならば起点がドライブルート固定では無くて、パス指定で起点となるフォルダの指定と
自動展開する階層数が1階層で無くソースで指定する箇所があれば出来れば最高に嬉しいです。
2013/01/05(土) 11:27:15.02
ここは作ってくれって頼む場ではなく
こんな便利なの作ったけどどうよ？って作ったモノを晒す場だぞ

まあ>>546程度のことは多機能ファイラならコマンドやマクロで出来るので
完成したとしても晒してくれなくて結構だがな
548デフォルトの名無しさん
垢版 |
2013/05/04(土) 00:22:48.17
>>547 は？スレタイ読め
2013/05/06(月) 18:32:10.90
アンカーがズレてるぞ

それともスレの趣旨を理解してないおバカさんかな？
550デフォルトの名無しさん
垢版 |
2013/05/31(金) 02:33:30.04
>>547
エクスプローラでやるから意義があるんだろ
ってか4ヶ月もたつのに反応してくんなや
正確悪すぎてきもい
551デフォルトの名無しさん
垢版 |
2013/05/31(金) 19:26:22.45
えっ？ってなったった
552デフォルトの名無しさん
垢版 |
2013/06/14(金) 11:40:12.42
> 4ヶ月もたつのに反応して
るのは>>548だなw
553桃白白 ◆9Jro6YFwm650
垢版 |
2013/06/23(日) 00:49:56.40
　　　　|┃三　　　　 ∩＿＿＿∩
　　　　|┃　　　　　 | ノ　　　　　 ヽ
　　　　|┃　≡　 　/　　●　　　● |　　＜あどうも、こんばんわー！
＿＿__.|ミ＼＿＿_|　　　　( _●_)　 ミ
　　　　|┃=＿＿＿　　　　|∪|　　　＼
　　　　|┃　≡　　　）　　　ヽノ　　　人 ＼ ガラッ
2013/06/23(日) 10:09:22.10
会社で入力するのめんどいからいろいろVBSで自動化してる。
会社の規則的にやばいので、今はやってないけど自動的にWindowsにログインするようにしてた。
555桃白白 ◆9Jro6YFwm650
垢版 |
2013/06/24(月) 23:09:44.12
CsvをHTMLのTableに変換しちゃう
https://friendpaste.com/2qcYhFP5yiauSE5lk3DlRa
2013/06/26(水) 21:08:23.54
CSVファイルをドラッグ&ドロップで読み込んで、
2行目の先頭3文字を抽出してください
2013/07/01(月) NY:AN:NY.AN
VBSってどんなプログラム作れるの？
2013/07/02(火) NY:AN:NY.AN
COM使わなきゃ大したことは出来ないが
COM使えば大抵のことは何でも出来る

まあ組み込みCOMだけじゃまだ貧弱だが
COMは優秀なものが腐るほどあるし、自分で作ることも出来る
COM使えばGUIだって作れるし、
WinAPIだってNET Frameworkの全てだって使える
2013/07/04(木) NY:AN:NY.AN
WMIが便利そうだけど、あまりにも書籍などが少ない
2013/07/04(木) NY:AN:NY.AN
書籍なんか無くても、ネット上の情報だけで事足りるけどな

余程頭が悪くなければ・・・
2013/07/05(金) NY:AN:NY.AN
暇がある人は時間かけてネットの情報探せばいいさ
その暇を惜しむから、まとめて書籍にしてくれと思うわけで
2013/07/05(金) NY:AN:NY.AN
暇ってw
まとめてWMIの情報載ってるページに行き着くのに10秒とかからんだろ？
あとはサイト内検索とページ内検索を駆使すれば、書籍の目次からページを辿るより早いし

それすらも出来ないようなレベルだと、WMIを使いこなすのは無理じゃね？
2013/07/05(金) NY:AN:NY.AN
まとめてって言葉の真意が伝わってないな
情報を集める事だけがまとめる事じゃないぞ
2013/07/05(金) NY:AN:NY.AN
もちろん
565桃白白 ◆9Jro6YFwm650
垢版 |
2013/07/05(金) NY:AN:NY.AN
戦士は胸に一つのバブルソートを抱く
桃白白ブレイブストーリーである。

順番を維持したまま、重複行を除去しちゃう。
https://friendpaste.com/4hvzoL2l8p8kQjoyQiUpUt
2013/07/06(土) NY:AN:NY.AN
>>565
このサイトのセキュリティ証明書には問題がありますｗｗ
って表示されるの。白桃おじさん、他のサイトがいいよ。
567桃白白 ◆9Jro6YFwm650
垢版 |
2013/07/06(土) NY:AN:NY.AN
>>566
friendpasteを例外に追加しちゃったらいいよ。たぶんブラウザの設定で
できるはずだから。見た？桃白白ブレイブストーリーのコード見た？
感想とかある？とてもすてきなコードですねとかそういう感想ある？
あとこれ桃白白。
http://livedoor.blogimg.jp/robosoku/imgs/d/f/df309cbc.jpg
2013/07/06(土) NY:AN:NY.AN
>>567
バブルソートってやつじゃないのね
よくわかんない
簡単に解説ちょうだい
569桃白白 ◆9Jro6YFwm650
垢版 |
2013/07/06(土) NY:AN:NY.AN
>>568
つまりこういうことなの。
http://uploda.cc/img/img51d78f6be12a6.png
2013/07/06(土) NY:AN:NY.AN
>>565と、Scripting.Dictionaryを使った方法(コードは十数行)で
10万行の重複削除の処理時間を比べてみた

>>565　　　　　　　　　１９０５．６８６秒
Scripting.Dictionary　　　　０．１７８秒

これが、初期状態では入ってないCOMを使った方法と比べて遅いってだけなら
いくら遅くても「新たにCOMをインストールせずに実行できる」って点がメリットになるけど
初期状態で入っていて「新たにCOMをインストールせずに実行できる」Scripting.Dictionaryを
使った方法より遅いのでは、何のメリットも無い

Cとかのまともな言語なら、ライブラリやコンポーネントを使った方法より劣っていても、アルゴリズムの
勉強や研究用として多少は価値あるかもだが、VBSではそういう方向の価値も無いし、完全にゴミ

VBS覚えたてでコード書くのが楽しくて仕方ない時期の初心者さんに言っても無駄かもだが
もう少し適材適所ってものを考えられるようになった方がいいかもな
571桃白白 ◆9Jro6YFwm650
垢版 |
2013/07/06(土) NY:AN:NY.AN
>>570

　　　　　　　　　　　 ,､-'"　,､-';;;;;;;;;;;;;;;;;;;;;;;｀''‐-､　　　　　　 ﾞ､､
　　　　　　　　　 ,､-'　,､-'";;;;;;;;;ノ;;;;''-､;;;;;;;;;;;;;;;;;;;｀''‐-､＿＿ノ;;;＼
　　　　　　　　／ ,､-'"::;;;;;;,､-'";;;;;;;;;;;;;;;｀''- ､_;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;/ヽ;;;;＼
.　　　　　　　 f_／;;;;;;;､-ﾆ';;;;;;､-‐ ''''""""''''‐-二､''‐-､＿__,ﾉ､　＼;;;ヽ
.　　　　　　　 |;;;;;;;;,､ﾆ'";;､-'"　　　　　　　　　　　｀"ﾆ､;;;;;;;;;;;;;;＼/;＼;;',
.　　　　　　　 |,-,ﾆ '::/, -─　　　　　　　　　 .,､-─-ﾞ､-'､;;;;;;;;;;;､-､ﾉ;;;;)!　　　　ええっ！？
.　　　 　　　　Y::::::::/ .,､ -─- ､　　　　　　／／/:::::::::＼ ';;;;;;/;;;;;;;;ヽノ
　　　　　　　　|::::::;'　/:／/::::::::::ヽ '"""'' .､|:::l　/::::::::::::::::ト|;;;;|;;;;;;;O;;;;';ヽ
　　　　　　　　ヽ:::|.　|::l　l::::::::::／,,　　 .,-､.＼:::::::::::::::::::ノ　|;;;|;;;;;;;;;;;;;;;;';;;|
　　　　　　　　 |::::|￣ヾ;;;;;;;;;;;;/ /_|　　 ヽJ　 ﾞ､── '"　　|;;;|;;;;;;;;;;;;;/;;;;;フ＿＿
　　　　　　　 /|::::/.　　　,､_,､ヽ,　　 ＿＿＿ノ~"ヽ'l　　　　|:;;ﾞ;;;;;0;;;:';;- '-"
　　　　　　　 | |::;'.　　　 l;;;;;;;;;;;-'""~＿＿,,,｀ヽ;;;;;;ノ　　　　|::;;;;;ヾ=;/''"
　　　　　　　 V:::|　　　　　　,､-,'二──---､)　　　　　　./:;;;;;;;;;;;;/-────
　　　　　　　 ｀|:|!　　　　 ,､'ヽ'"　　 ＿　　　　　　　　　 _/:;;;;;;;;;;;;/　　　＿＿＿_
　　　　　　　　|:|;',　　　　 ｀"　　　　::::::　　　　　　 ,､-'"/:;;;;;;;;;／-─ '"
　　　　　　　　|:|;;＼　　　　　　　　　　　　　　,､-'"　 ／二フ
　 　　　　　 　|:|;;;;;;;｀' .､　　　　　　　　_,､-‐'"-'",､-'"￣
　　　　　 .　　|:|;;;;;;;;;;;;/ ＞.､　　,､-‐'",､-‐'"　／＿,,,､---──-- ､,,__
　　　　　 　　|:|;;;;;;;;;;/ /　　-｀'"　,､-'　　　.／-'"　　　　　　　　　　　　｀"'-､
　　　　　　　 ||;;;;;;;;;/ .ヽ ､__,､-‐'"　,　 _,､-'"
572桃白白 ◆9Jro6YFwm650
垢版 |
2013/07/06(土) NY:AN:NY.AN
標準入力のデータを幅優先でソートしちゃう。
https://friendpaste.com/12zqzWvuMdK5jQ7XHnrSiu
573桃白白 ◆9Jro6YFwm650
垢版 |
2013/07/06(土) NY:AN:NY.AN
>>570
　 　 　＿＿＿＿
　 　 / ⌒　　⌒　 ＼
　　./( ―） （　●）　 ＼
　 /::⌒（_人＿）⌒::::: 　|
　 |　　　 ー　　　　　 　.|
　 ＼ 　　 　　　　　　／
2013/07/06(土) NY:AN:NY.AN
悔しいけれど論理的な反論が出来ない時にAA使う癖はまだ直らないんだな
2013/07/07(日) NY:AN:NY.AN
>>569
丁寧にありがとう！
直接ではなくわざわざインデックスを用いるメリットがわからないや！
576桃白白 ◆9Jro6YFwm650
垢版 |
2013/07/07(日) NY:AN:NY.AN
最初のテキストファイルにない行を出力しちゃう。
https://friendpaste.com/12zqzWvuMdK5jQ7XHohGyz
2013/07/08(月) NY:AN:NY.AN
白桃もう夏休みか
先に宿題を片付けた方がいいよ
578デフォルトの名無しさん
垢版 |
2013/07/14(日) NY:AN:NY.AN
WMIってADの鯖側で動かさないと他のクライアントの情報って取って来れないよね？
2013/07/15(月) NY:AN:NY.AN
権限さえあればそんなことはなかったはず
2013/08/08(木) NY:AN:NY.AN
；ｐ；
2013/10/04(金) 01:20:43.19
テキストファイルから最終行を読み出して表示したら文字化けしてやがる
ADODB.Streamなんて使ったことねーよ…
このページの最後のやつと
http://netlog.jpn.org/r271-635/2010/06/vbscript_csv_lastline.html
この文字コード変換
http://blog.goo.ne.jp/fukuriko/e/a40eb03d587d572f1389b24d17c60526
これくっつければできるんだろうけど、もうわかんねぇ…久々にやろうとすると無理だ
582桃白白 ◆9Jro6YFwm650
垢版 |
2013/12/04(水) 19:18:04.29
　　 　　　/ﾞﾐヽ､,,___,,／ﾞヽ
　　 　　　i ノ　　 川　｀ヽ'
　　 　　　/　｀　・　 ． ・　i､
　　 　　彡,　　 ミ(_,人_)彡ミ　　　にゃーん
　∩, 　/　ヽ､,　　 　　　ノ
　丶ニ|　　　 '"''''''''"´　ﾉ
　　　　∪⌒∪"￣￣∪
583桃白白 ◆9Jro6YFwm650
垢版 |
2013/12/08(日) 19:45:03.23
CIE2000による色の近似
https://friendpaste.com/yEAHgTkQMKg7EVEAOYO3V

参考画像
http://i.imgur.com/HoHVgoA.png
2013/12/15(日) 04:33:33.24
tes
585桃白白 ◆9Jro6YFwm650
垢版 |
2013/12/22(日) 21:09:18.87
パステルカラーを出力
https://friendpaste.com/1pWEO8f9PLMXDM5wKMXZqS
2013/12/23(月) 00:18:09.78
相変わらず無駄が多い、、、
587桃白白 ◆9Jro6YFwm650
垢版 |
2013/12/28(土) 12:55:53.24
Friendpaste - CRC32
https://friendpaste.com/5VYChrRpLWhzDP8OJSR7UV
2013/12/28(土) 15:44:49.45
どっかから集めたコードを切り貼りして大文字化しただけのものなんて
価値無しなので貼らなくていいよ
2013/12/28(土) 20:15:22.96
'# Baidu IMEがインストールされているかチェックして、インストールされていれば、アンインストーラーを起動するバッチを作ったよ
'# メモ帳に以下の内容を貼り付けて「baidu_check.vbs」というファイル名で保存。
'# 「baidu_check.vbs」をダブルクリックして【Baidu IME】がインストールされているかチェック
2013/12/28(土) 20:16:46.43
Option Explicit
'#--------------------------------------
' 管理者になーる
Dim WMI, OS, Value, Shell
do while WScript.Arguments.Count = 0 and WScript.Version >= 5.7
Set WMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set OS = WMI.ExecQuery("SELECT *FROM Win32_OperatingSystem")
For Each Value in OS
if left(Value.Version, 3) < 6.0 then exit do
Next

Set Shell = CreateObject("Shell.Application")
Shell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ uac", "", "runas"
WScript.Quit
loop
'#--------------------------------------
Dim objShell, ret
Set objShell = CreateObject("Wscript.shell")
Dim winName: winName = "【Baidu IME】インストールチェック"
On Error Resume Next
If IsNull(objShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Baidu\")) Then
ret = objShell.Popup("このパソコンには【Baidu IME】はインストールされていません。", , winName, vbOKOnly Or vbSystemModal)
Else
On Error GoTo 0
ret = objShell.Popup("このパソコンには【Baidu IME】がインストールされています。" & vbCrLf & _
"【Baidu IME】をアンインストールしますか？" & vbCrLf & _
"(【猫耳】に泣きつかれても断固アンインストール！！)", , winName, vbYesNo Or vbSystemModal)
Select Case ret
case 6 objShell.Exec(objShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Baidu IME\UninstallString"))
case else WScript.Quit
End Select
End If
2013/12/30(月) 10:44:04.20
>>589
>>590

Baidu IMEが「入力情報送信しない」でもサーバーに情報を集めていた件の対応か。
すばらしい。
あれって、アン・インストールが普通の手順ではできないって聞いたが。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況