VBSで便利なプログラムを作れスレ 2
1 :デフォルトの名無しさん :2018/10/13(土) 22:56:48.61 ID:X8llOrQa.net 素人丸出しお粗末で遅くてもいいので いますぐ使えるちょっぴり便利プログラムを作れ (例○○を自動処理してくれるプログラム) 前スレ VBSで便利なプログラムを作れスレ https://mevius.5ch.net/test/read.cgi/tech/1170492587/
804 :デフォルトの名無しさん :2019/08/23(金) 21:15:11.63 ID:MsAPSTJ/.net >>799-800 647 名前:名無しさん@お腹いっぱい。[sage] 投稿日:2019/08/23(金) 19:12:20.39 ID:nazcFACm 彡⌒ミ <`∀´> テストニダ _(__つ/ ̄ ̄ ̄/_ \/ / 包茎9cm君
805 :デフォルトの名無しさん :2019/08/24(土) 19:15:58.18 ID:3zyDgxge.net >>799-800 117 名前:Mr.名無しさん[] 投稿日:2019/08/24(土) 10:39:13.14 >>116 /ヽ,,)ii(,,ノ\ /(●)))(((●)\ /:::::⌒(__人__)⌒:::::\ ぱよぱよ在日ネカマンちん < ヽ il´ |r┬-|`li r > ネカちんぱよぱよちーん \ !l ヾェェイ l! / 千葉県じゃな〜いでお馴染みで〜す /⌒ヽゝ ノ~⌒ヽ | ,Y Y | | | 在 日 |. | | l | | | ヽ ネ / ノ ヽ ヽ / /ヽ シコシコシコシコ /\ \ / / ヽ )) (( / . ◇◆◇ ヽ . / ◇◆ ヽ / / \ ヽ ./ / \ ヽ ┃━━╋┏┓ ┣━┃━━╋┏┓ ┣━╋━━━ ┃ ┃ ┃┗┛ ┃ ┃ ┃┗┛ ┃ ┗━━┓ ┣┓ ┃┏━╋ ┏━╋┓┃┏━╋ ┏━╋┓ ┃━━━┃┃ ┃ ┗┗━┛ ┗━┛ ┗┗━┛ ┗━┛ ━━┛ ┃┗━┛¨
806 :デフォルトの名無しさん :2019/08/27(火) 00:44:53.53 ID:lW52+kgq.net >>799-800 26 名前:名無しさん@お腹いっぱい。[] 投稿日:2019/08/27(火) 00:33:00.64 ID:7wEDJH96 凄いな年がら年中毎日 一日中ずっと一人でネカマ自演してる童貞無職ニートボロ負け犬ジジイネギ男のネカマに 必死にメール送る負け犬童貞キモメンだらけw 早々にお手伝い幹事さんにお手伝いしてもらえた俺勝ち組だ
807 :デフォルトの名無しさん :2019/09/02(月) 21:42:06.71 ID:0WJYQ9Fr.net >>799-800 270 名前:デフォルトの名無しさん[] 投稿日:2019/09/02(月) 21:31:28.92 ID:qij/0ceW >>247 VB https://paiza.io/projects/ij82oWiswOxWM0VnAgVbWQ
808 :デフォルトの名無しさん :2019/09/04(水) 21:37:59.39 ID:0Ikeoqpy.net >>799-800 305 名前:デフォルトの名無しさん[] 投稿日:2019/09/03(火) 22:33:37.84 ID:dCTs9gWx >>257 VB https://paiza.io/projects/grWlkqU1Rb-dk-QNh69rRQ
809 :デフォルトの名無しさん :2019/09/05(木) 20:09:17.72 ID:bvRL5wwu.net >>799-800 331 名前:デフォルトの名無しさん[] 投稿日:2019/09/04(水) 23:25:42.22 ID:4CPx11+J >>313 VB https://paiza.io/projects/JW7K9hSmkAVtXbO3II21Nw 334 名前:デフォルトの名無しさん[sage] 投稿日:2019/09/05(木) 10:53:13.59 ID:Wm4c6P24 >>327 ,331-332 俺とは問題の解釈が違うようだ? 335 名前:デフォルトの名無しさん[] 投稿日:2019/09/05(木) 11:32:41.41 ID:JTGocygG >>334 そいつらはいつものアホやからスルーしなはれ
810 :デフォルトの名無しさん :2020/09/10(木) 23:19:47.52 ID:E/gIYbNc.net VBS の正規表現て ドルアンパサンドが機能するだろ? マッチした文字列を置換後のココに埋め込むやつ。 ヘルプになくて知らなかったからドハマりしたよ
811 :デフォルトの名無しさん :2020/09/11(金) 00:23:11.64 ID:/N5S3it9.net ∧∧ ミ _ ドスッ ( ,,)┌─┴┴─┐ / つ おわり. | 〜′ /´ └─┬┬─┘ ∪ ∪ ││ _ε3
812 :デフォルトの名無しさん :2022/02/22(火) 13:58:02.57 ID:+OsZtxdU.net vbsでwin10のPC(旧マイコンピュータ)を開くことは可能でしょうか? またショートカットキー入力(win+E)のvbsでも良いのですがwinキーがわかりません。 多分下記ではwinキーはできませんよね。 Option Explicit Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys("xxx")
813 :812 :2022/02/22(火) 14:20:33.37 ID:+OsZtxdU.net 普通に開けました。すみません。 Option Explicit Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") objWshShell.Run "explorer.exe"
814 :デフォルトの名無しさん :2022/02/22(火) 18:16:12.62 ID:ysWljmej.net 例えば、下のコードを書いた、test.vbs ファイルをダブルクリックして、 Ruby で、a.rb ファイルを実行できる CreateObject("WScript.Shell").Run "ruby ./a.rb", 0
815 :デフォルトの名無しさん :2022/03/26(土) 00:49:49.64 ID:kvP9XjIE.net VBSでパワポを非表示で開くとエラーになるのどうして? ExcelはFalse 出来るのに Set objPPT = CreateObject("PowerPoint.Application") objPPT.Visible = False
816 :デフォルトの名無しさん :2022/03/26(土) 06:52:10.04 ID:NhkQRxfw.net それ書かなきゃよくね?
817 :デフォルトの名無しさん :2022/03/26(土) 07:11:36.30 ID:kvP9XjIE.net 初期値がTrueらしいのよ
818 :デフォルトの名無しさん :2022/03/26(土) 08:38:58.69 ID:kvP9XjIE.net 自己解決 Set objPPT = CreateObject("PowerPoint.Application") ‘objPPT.Visible = False Const msoFalse = 0 Obj = ObjPPT.Presentation.Open(pptpath, , , msoFalse)
819 :デフォルトの名無しさん :2022/06/04(土) 14:24:29.43 ID:rqbG8x8a.net Accessに対してLoadFromTextをするとメッセージが出て鬱陶しい場合がある。 消す方法ありますかねえ? objApp.Docmd.SetWarning 0は効果ありませんでした
820 :デフォルトの名無しさん :2022/07/14(木) 08:09:05.85 ID:/D8hYc+T.net 終端装置の設定画面を自動操作してIPアドレスを毎日変えられるようにしました。 IEのWEBページからのメッセージの操作はマウス操作自動化ソフトのショートカットキーをセンドキーして何とか完璧に動くようになりました。 スケジューラーに頼らずにiniで作動時刻や作動間隔を指定できて、vbsを動かしてる最中でも設定変更を反映させられるようにしました。 IPアドレスが変わったら自動でお知らせメールが届くので、停電でIPアドレスが変わってもドメイン無しでIPアドレスでアクセスできて便利です。 プログラムは全くの素人なので作るのに何日もかかりましたが、vbsって便利ですね。 先人の知恵とその無償提供にただひたすら感謝です。
821 :デフォルトの名無しさん :2022/07/16(土) 20:28:34.71 ID:KShLcP5t.net Windwos のタイムスケジューラでvbs 実行すると 途中で止まるタスクが終わらない。 ある特定のとこで動かなくなってた。 以下のコマンドなんですけど、何が理由かわかりませんか? > Set xxx = Fso.OpenTextFile("C:\xxxx.txt", 1, False, 0)
822 :デフォルトの名無しさん :2022/07/16(土) 20:29:18.97 ID:KShLcP5t.net >>821 手実行だと、うまく動きます。
823 :デフォルトの名無しさん :2022/07/17(日) 05:04:19.66 ID:WgvrEhxC.net まあ、いやらしい!
824 :デフォルトの名無しさん :2022/07/17(日) 09:56:59.92 ID:g6zNtldT.net この程度で興奮しているのかい? ならここから始めようか Option Ecstasy
825 :デフォルトの名無しさん :2022/07/17(日) 14:10:50.12 ID:885G8LEt.net ファイル/フォルダのアクセス権限かも? 例えば、VSCode 内の端末から、 ruby a.rb みたいに、Ruby スクリプトを実行すると、 そのスクリプト内にファイル操作が書いてある場合、 そのプログラムにはアクセス権限が無いと、エラーが出る 実行するプログラムに、そのファイル/フォルダのアクセス権限を許可する必要がある OS のエラーログでも見てみれば? それで、どういうエラーか判別する
826 :デフォルトの名無しさん :2022/07/17(日) 15:29:02.31 ID:QiBhjgar.net KИTAはうざい 消えて
827 :デフォルトの名無しさん :2022/07/17(日) 16:09:33.19 ID:WgvrEhxC.net あわしろを先に何とかしたほうが良いのでは?
828 :デフォルトの名無しさん :2022/11/07(月) 14:27:24.24 ID:DfIiBFjeX 脱炭素って白々しい名目で利権丸出しで薄汚い税金配りまくっててクソウケルよな やってることは自閉隊に都心周辺まで桁違いの温室効果ガスまき散らすТ−4やらバンバン飛は゛させて、低周波騷音被害まて゛引き起こして, 四六時中猥褻か゛らみて゛逮捕されてるクソポリ公にグ儿グ儿威カ業務妨害へリ飛ばさせて望遠カメラて゛女風呂やらのそ゛き見さて,工ネ価格暴騰、 クソ羽田どころかクソ成田まで滑走路にクソ航空機にと倍増させて、世界中から非難されるテ口国家認定の称號化石賞連続受賞しなか゛ら、 税金て゛全國旅行支援もとい地球破壊支援た゛のGоΤо地球破壞だのやって盛大に温室効果カ゛スまき散らして氣候変動させて災害連發させて 核兵器が,すかしっぺにしか思えないほと゛の破壞活動を繰り返す世界最悪のテ口リスト自民公明に乗っ取られた腐敗テロ国家曰本 霞が関あたりにもう一発核落とさないと,恐らく戦前のような風潮の.このキチカ゛イどもの暴走か゛止まらんぞ [低周波騷音kwsk→https://www.env.go.jp/content/900405730.pdf ] 創価学會員は,何百萬人も殺傷して損害を与えて私腹を肥やし続けて逮捕者まで出てる世界最悪の殺人腐敗組織公明党を 池田センセ━か゛ロをきけて容認するとか本氣て゛思ってるとしたら侮辱にもほどがあるそ゛! hтТPs://i,imgur、сοm/hnli1ga.jpeg
829 :デフォルトの名無しさん :2022/12/09(金) 07:59:46.45 ID:5GeI+CXA.net 久しぶり、何年ぶりかなここ来るの 生きてる? 最近機械学習の勉強を始めたので、VBS使って下準備いろいろするわ しばらくいるからよろしくな
830 :デフォルトの名無しさん :2022/12/10(土) 16:47:20.18 ID:sHjU7qNe.net さて質問、wavファイルの正確な長さを知りたい、1秒以下の小数点単位まで ファイルのプロパティでは1秒単位までしか拾えず バイナリヘッダにも長さの情報はない windows media playerを使って取得する方法とかある?
831 :デフォルトの名無しさん :2022/12/11(日) 02:45:39.10 ID:08xatqWx.net WAVEってビットレート固定じゃないの? 圧縮して拡張子だけ.wavにしてるやつ? ファイル容量で分からん?
832 :デフォルトの名無しさん :2022/12/11(日) 09:37:57.57 ID:6buDrVW8.net ffmpegに付属するffprobeってのでwavの長さが出力されるみたいなので、それを使おうと思う でもWshShell.Execでやっても標準出力のデータが取れないんだけど、どうしたらいいんだ
833 :デフォルトの名無しさん :2022/12/12(月) 12:24:10.22 ID:GkD26MT/.net とりあえずこれで小数点以下のwavファイルの長さ取れたわ、ffprobe.exe必須 Dim sCmd, Exec, result sCmd = ws.CurrentDirectory & "\" & "ffprobe.exe -loglevel quiet -show_streams " & ws.CurrentDirectory & "\" & "hoge.wav" Set Exec = ws.Exec("cmd /c " & sCmd & " 2>&1 | findstr -i duration=") result = Split(Replace(Exec.StdOut.ReadAll, vbCrLf, ""), "=") WScript.Echo result(1)
834 :デフォルトの名無しさん :2022/12/13(火) 20:27:40.67 ID:BOGipya8.net vbsでエラーが発生した行数を得るには?
835 :デフォルトの名無しさん :2023/01/02(月) 10:17:23.27 ID:ZQn9NZuh.net office以外で無料でかつ、信頼されているcomオブジェクトでwinapiにアクセスできるものってない?
836 :デフォルトの名無しさん :2023/01/11(水) 16:31:27.76 ID:jp+OFUYZ.net winapi経由でキーダウンを検知するところまではできたのだけれど 押したキーの標準入力がついて来てしまうの、いらないのだけけれど どうしたら削除できますか
837 :デフォルトの名無しさん :2023/03/28(火) 22:16:36.04 ID:dpygnQVl.net ∧∧ ミ _ ドスッ ( ,,)┌─┴┴─┐ / つ おわり. | ~′ /´ └─┬┬─┘ ∪ ∪ ││ _ε3
838 :デフォルトの名無しさん :2023/04/04(火) 16:35:56.23 ID:vSpSLcg3.net VBSでADO RecordsetにCSVファイルを取り込むと電話番号の先頭のゼロが落ちるのな。 iniファイルを使わないと"0" & するしかないのかな?
839 :デフォルトの名無しさん :2023/04/06(木) 00:16:15.07 ID:hYGJaIME.net ダミーの文字型の文字を何行か紛れ込ませて、そのカラムは文字型だと思い込ませるとか?
840 :デフォルトの名無しさん :2023/04/10(月) 19:40:04.80 ID:YifXJ3Ct.net >>839 それだと元のデータがファイルリストだとダミーのファイルが必要になりますね。 そのうち、それがダミーなのを忘れて、なんかエラーを出しそうな予感が… いろいろとVBSの限界を感じる今日この頃。やっぱりpythonへ移るべきかなあ
841 :デフォルトの名無しさん :2023/05/27(土) 15:49:26.58 ID:6b5IxvdG.net VBSの最大且つ唯一のメリットは開発環境がインストール済みということだから、Pythonをインストール出来る環境であればそ」もありかと。 自分の職場はインターネットから切り離された環境なのでVBSかVBAくらいしか使ってない。PowerShellはやらず嫌いだけど。
842 :デフォルトの名無しさん :2023/05/27(土) 20:26:14.82 ID:lAqxcZlW.net ま、pythonに行くわ pythonはみんな使ってるから得るものが多い
843 :デフォルトの名無しさん :2023/05/28(日) 03:21:43.65 ID:wPIuZYuf.net >>838 Ruby では、オプションに変換関数・converter を指定できる require 'csv' input_csv = <<"EOT" 2022-10,あ,100 2023-01,い,200 EOT require 'date' # 月をDate 型へ、金額を整数型へ変換する proc = Proc.new do |field, field_info| case field_info.index # 列のインデックス when 0 then Date.strptime( field, "%Y-%m" ) when 2 then field.to_i else field # 処理なし end end options = { :converters => proc } CSV.parse( input_csv, options ).each { |row| p row } 出力 [#<Date: 2022-10-01 ((2459854j,0s,0n),+0s,2299161j)>, "あ", 100] [#<Date: 2023-01-01 ((2459946j,0s,0n),+0s,2299161j)>, "い", 200]
844 :デフォルトの名無しさん :2023/05/28(日) 03:22:27.58 ID:wPIuZYuf.net >>835 Ruby では、win32ole を使う require 'win32ole' fso = WIN32OLE.new( 'Scripting.FileSystemObject' ) p WIN32OLE.codepage #=> 65001, UTF-8
845 :デフォルトの名無しさん :2023/05/29(月) 16:34:12.97 ID:AvjLnKXj.net >>843 Rubyはつかったことないんですよねえ。 でも、教えてくれてありがとうございます。 暇なときにRubyで遊んでみますね。
846 :デフォルトの名無しさん :2023/05/29(月) 17:35:48.58 ID:M6W/ObnY.net いや、Rubyなんて使わん方がいい もう終わってるし、Web以外では使われていない
847 :842 :2023/05/29(月) 19:59:39.69 ID:D6yaSp/f.net Ruby はウェブ開発で、Ruby on Rails がほとんどだけど、 テキスト処理やツール開発にも良い Vagrant や、ログ収集基盤ソフト Fluentd、 Shopify のカスタマイズ用言語 Liquid、 GitHub の静的サイトジェネレーター Jekyll などはRuby製 Mastodon はRails 6。 PHP よりも可読性が高いから、Rubyに変わった YouTube で有名な雑食系エンジニア・KENTA は、 初心者のキャリアパスは、Rails → Go だけと言ってる 米国年収でも、Rails, AWS Solution Architect が13万ドル Ruby, Elixir : 9.3 万ドル Go : 8.9 Rust : 8.7 Go/Rust/Elixir の3大言語を超えた
848 :デフォルトの名無しさん :2023/05/29(月) 20:03:53.88 ID:M6W/ObnY.net 実際には使われていない それがRuby だからスレ違いの場所で必死になって宣伝する 関わってはいけません
849 :デフォルトの名無しさん :2023/05/31(水) 07:59:45.59 ID:pMbd5YB3.net batファイルからpython.exeを起動すればインストールされてなくても動くんだな もう戻ってこれんよ
850 :デフォルトの名無しさん :2023/09/01(金) 09:52:50.21 ID:1lmF9p+Sa クソ航空機は離着陸で莫大なCO2をまき散らすわけだが、テロ国家日本では欧州で禁止されてる名古屋一羽田なと゛の短距離をバンハ゛ン 飛ばして鉄道の30倍以上もの温室効果ガスまき散らすクソ航空機倍増させて、石炭火力発電倍増させる以上にイカレたテロ行為だわな どちらも環境負荷の小さな代替手段がいくつもあるわけだからな わさ゛わざクソ航空機倍増させて騒音に温室効果カ゛スにコロナにとまき散らして知的産業に威力業務妨害して壊滅させて 気候変動させて海水温上昇させて土砂崩れに洪水、暴風、猛暑、大雪にと災害連発させて、工ネ価格暴騰させて、 人を殺して国土破壊してマッチポンプ丸出しで私腹を肥やしてるのが人類に湧いた害虫公務員という史上最悪のテロリストな 他国へのミサヰ儿攻撃を非難する自民公明は、てめえらがやってる地球破壞こそが他国ヘのミサヰル攻撃以上の破壞活動て゛あって、 てめえらこそが人類にとっての脅威、まぎれもないテロリストだと自覚しろや (羽田)ttps://www.call4.jΡ/info.php?type=items&id=I0000062 , Τtρs://haneda-projecт.jimdofree.com/ (成田〕ttps://n-souonhigaisosyoudan.amebaownd.com/ (テロ組織)ttρs://i.imgur.com/hnli1ga.jрeg
851 :デフォルトの名無しさん :2023/07/10(月) 11:16:00.95 ID:A7l9QZwa.net 質問です。 Outlookを経由してメールファイルをリッチテキスト形式に変換するVBSを組んだのですが、 msgファイルを変換した場合は正常に動作するのに、 emlファイルを変換しようとした場合「***を開けません。ファイルは既に開かれているか、またはファイルを開くための権限がない可能性があります。」というエラーが出てしまいます。 コード:80030050 ソース:Microsoft Outlook と表示されています。 どうもApplication.CreateItemFromTemplate メソッド (Outlook)の部分でエラーになっているようなのですが…。 原因及び対策法お分かりになる方いらっしゃいませんか?
852 :デフォルトの名無しさん :2023/10/10(火) 09:42:52.20 ID:J1XGUWZB.net 非推奨になった言語は終わり
853 :デフォルトの名無しさん :2024/02/08(木) 17:58:08.82 ID:+aEBX7Oq.net >>0837 Schema.iniを書けばよろし
341 KB
新着レスの表示
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver 2014.07.20.01.SC 2014/07/20 D ★
本文 スレッドタイトル 投稿者