VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net

1デフォルトの名無しさん2017/06/28(水) 20:52:02.68ID:FEh7eDwE
ピラフ逃亡中?

465デフォルトの名無しさん2018/02/15(木) 00:10:32.37ID:HvtjjqnS
>>463
ばーか

466ミスターポポ ◆9Jro6YFwm650 2018/02/15(木) 07:28:13.33ID:R43pB1Wi
>>464
あざーす片山さんあざーす

467ミスターポポ ◆9Jro6YFwm650 2018/02/15(木) 07:29:06.24ID:R43pB1Wi
>>465
ギブか?おーん?

468デフォルトの名無しさん2018/02/15(木) 19:20:55.22ID:zgZp0zKl
Rubyはスレ違いだろ?
VBSにこだわらず好き放題やりたいならそういうすれ立てろよ

469ミスターポポ ◆9Jro6YFwm650 2018/02/15(木) 20:54:55.14ID:R43pB1Wi
じゃあなんですか、スレ違いの発言しちゃいけないとでも言うんですか

470ミスターポポ ◆9Jro6YFwm650 2018/02/15(木) 20:56:59.25ID:R43pB1Wi
Rubyというメガネを通してVBScriptを見ることで初めて見えるものってあると思う
そういうのを大切にしていきたい

471デフォルトの名無しさん2018/02/15(木) 21:25:35.06ID:zQePyX/K
ピラフって意外にねちねちしてて根に持つよね

472ミスターポポ ◆9Jro6YFwm650 2018/02/15(木) 21:59:15.18ID:R43pB1Wi
サバサバしてる方が良いわけ?
それベッドの上でも言える?
そこんとこよく考えて発言していただきたい

473デフォルトの名無しさん2018/02/15(木) 22:03:58.95ID:HvtjjqnS
>ピラフは、VBからはじめたので、Cのポインタのプログラムは、
> 組めないですが、まぁ、CASLのLEAとLDで組むようなものでしょうか。
>たとえば、自分が、マンガを読むとき、マンガの棚には、目的のマンガの本が
> あります。
> 現実は、あまくないです。マンガは、ないので、本屋にいって金で買い増す。
>さらに、さがせば、ポインタのポインタのようなもの・。
> 自分が辞書でことばの意味を調べることに似ていますが、
>ピラフは、20代でマンガをかったのは、10冊もないでしょう。
>クソバカ片山を辞書でひいても、のっていません。
>そんなのは、あたりまえで、ピラフは、辞書は、ひいていません。
>
>それでわ。

474デフォルトの名無しさん2018/02/15(木) 22:11:00.15ID:cI/nZB+a
>>472
ここはベッドの上でもないしピラフが好き勝手に振る舞えるところでもないよ(他の人なら可)

475ミスターポポ ◆9Jro6YFwm650 2018/02/15(木) 22:13:12.55ID:R43pB1Wi
>>473
なにこの怪文書
大丈夫なの? お薬飲んだ?

476ミスターポポ ◆9Jro6YFwm650 2018/02/15(木) 22:13:29.64ID:R43pB1Wi
>>474
はいNG

477デフォルトの名無しさん2018/02/15(木) 22:26:37.64ID:cI/nZB+a
>>475
つまらない煽りにも漏れなくレスしてしまうほど余裕がないんだろうね

478デフォルトの名無しさん2018/02/15(木) 22:31:40.17ID:HvtjjqnS
>天才白白のおめざめですぅー!!
> 今週は、なんとか代休とれそうですぅ!!
>それまで、こつこつゲーム制作ですぅ!!
> 今日は、ザコ編隊飛行のアニメパターンと
>美少女CGの完成がメインですぅ!!
>どんなのができるというわけなのかなぁー!!
>まようというわけなのかなぁー!!
> 人間ねぼけようかなぁー!!
>
>うわぁーーい!!
>
>           ______ _______
>           /          __ ____)
>     V     / でわですぅ!!   / ////  
> v( ^ー^)v <____________________)
>  | 白白 |
>  O   O

479ミスターポポ ◆9Jro6YFwm650 2018/02/15(木) 22:40:49.77ID:R43pB1Wi
>>478
カワイイ(//ω//)

480デフォルトの名無しさん2018/02/15(木) 22:57:12.97ID:HvtjjqnS
>Rubyistの人いるー?
>
>エレガントな解法、エレファントな解法 〜モンテカルロ法を添えて〜
>http://note.mu/issei_y/n/n882e9f77e8bd
>
>これどう?このお題Rubyならどう解く?

481デフォルトの名無しさん2018/02/16(金) 04:37:34.73ID:UeJm4Cbf
「交通事故」でも過労死 裁判所が画期的な和解勧告
http://news.yahoo.co.jp/byline/konnoharuki/20180209-00081434/
いよいよ「働き方改革」が法案審議に
http://business.nikkeibp.co.jp/atcl/report/16/021900010/012500060/
「ルール違反の残業には罰則を」安倍政権が成立を目指す「働き方改革関連法」を事前予習!
http://headlines.yahoo.co.jp/hl?a=20180125-00010003-abema-bus_all
長時間労働の是正へ「特別チーム」 厚労省、全国に設置
http://headlines.yahoo.co.jp/hl?a=20180125-00000010-asahi-soci
週休三日制のメリット、デメリットを考える
http://dime.jp/genre/476977/
「週休3日制」で社員から悲鳴? 一方で支持された「気分で出勤制度」とは
http://dot.asahi.com/aera/2016032300229.html?page=2
残業時間を自動記録!iOS向けアプリ「残業証拠レコーダー」リリース
GPSで自動記録、弁護士監修で証拠能力高く
http://news.livedoor.com/lite/article_detail/13125505/

482デフォルトの名無しさん2018/02/16(金) 14:19:30.97ID:zn59WJDb
再起動したときにメールを送信するものを作っています
http://www.atmarkit.co.jp/ait/articles/0405/22/news017.html
これを参考に以下にようにしてみたのですが
★転送においてサーバーに接続できませんでした。
と表示されます
★[安全性の低いアプリの許可:有効] をgmail上で設定しています
問題点がありましたらご指摘ください

Set oMsg = CreateObject("CDO.Message")
oMsg.From = "hoge@gmail.com"
oMsg.To = "hoge@gmail.com"
oMsg.Subject = "Test"
oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.gmail.com"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
oMsg.Configuration.Fields.Update
oMsg.Send

483デフォルトの名無しさん2018/02/16(金) 14:21:11.14ID:zn59WJDb
再起動したときにメールを送信するものを作っています
http://www.atmarkit.co.jp/ait/articles/0405/22/news017.html
これを参考に以下にようにしてみたのですが
★転送においてサーバーに接続できませんでした。
と表示されます
★[安全性の低いアプリの許可:有効] をgmail上で設定しています
問題点がありましたらご指摘ください

Set oMsg = CreateObject("CDO.Message")
oMsg.From = "hoge@gmail.com"
oMsg.To = "hoge@gmail.com"
oMsg.Subject = "Test"
oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.gmail.com"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
oMsg.Configuration.Fields.Update
oMsg.Send

484ミスターポポ ◆9Jro6YFwm650 2018/02/16(金) 21:59:16.25ID:PUEkZrZs
>>483
認証の情報が必要なんじゃないかと

↓こちらでどう?

VBScriptのCDO.MessageでGmailアカウントを使用したメール送信
http://itmemo.net-luck.com/vbscript-mail/

485デフォルトの名無しさん2018/02/17(土) 08:56:07.63ID:WaYsCacy
>>484
ありがとうございます
この方法でメールを送ることはできました
あとは自分でPC起動時に自動で実行できるかテストしてみます
ありがとうございました

486デフォルトの名無しさん2018/02/18(日) 22:42:08.95ID:N1gpoj9U
http://zakii.la.coocan.jp/enumeration/52_cointoss.htm
確率だろうとは思ったけど、漸化式は思いつかなかった。

487ミスターポポ ◆9Jro6YFwm650 2018/02/21(水) 22:45:09.17ID:DKFUidIG
ご査収ください

Sub Bubblesort(ary, fst, lst)
  If fst < lst Then
    Call MoveLast(ary, fst, lst)
    Call Bubblesort(ary, fst, lst - 1)
  End If
End Sub

Sub MoveLast(ary, fst, lst)
  If fst < lst Then
    Call MoveLast(ary, fst, lst - 1)
    Call Exchange(ary(lst - 1), a(lst))
  End If
End Sub

Sub Exchange(a, b)
  If a > b Then
    Dim t
    t = a
    a = b
    b = t
  End If
End Sub

488デフォルトの名無しさん2018/02/22(木) 08:02:06.00ID:fzcPxoTK
vbs単体でストップウォッチみたいなの作るのって不可能?
msgboxじゃ処理止まるしなあ。
複数ファイルを非同期で走らせるとか、hta使うかしないと無理かな。
powershell では作れそうだが。

489デフォルトの名無しさん2018/02/22(木) 09:16:34.62ID:f/Ljiqe+
開始の時刻を記録して
入力があった時刻を記録して
差を計算すれば良いような
何をやりたいのかよくわからんが

490デフォルトの名無しさん2018/02/22(木) 11:43:11.76ID:MNjiZXQp
>>488
無理矢理やるならpopupがある
実用になるかは知らないけど

491デフォルトの名無しさん2018/02/22(木) 18:07:56.06ID:fzcPxoTK
>>489
時間計測は出来るけど、それを例えば1秒毎に表示を更新してカウントダウンみたいなのをやる方法が分からなくて。

>>490
ポップアップってのがあるのか。けど閉じたり開いたりするのはちょっとうざったいなあ

492片山博文MZ ◆T6xkBnTXz7B0 2018/02/22(木) 18:19:09.39ID:bw7NPixR
>>491
キャリッジリターン(CR)コードを使えば、コンソールで一行更新できる。

493デフォルトの名無しさん2018/02/22(木) 19:00:38.20ID:2+xwAIXD
>>492
それじゃ単なる時計だよ
ストップウォッチだからスタートはいいとしてストップボタン(ボタンでなくてもいいけど)をどうするかが問題
標準だとHTAが無難だと思う

494デフォルトの名無しさん2018/02/22(木) 20:58:27.59ID:45CkAVud
>>492
なるほど、もう少し詳しく教えてください。
ストップウォッチと書いたけれど、それでやりたいことは実装できそう。

vbsダブルクリックからコンソールに出力はどうすれば?

495片山博文MZ ◆T6xkBnTXz7B0 2018/02/22(木) 21:05:12.88ID:bw7NPixR
>>494
ショートカットでcscriptから起動するようにすれば、コンソールが出てくる。

496デフォルトの名無しさん2018/02/22(木) 21:06:38.51ID:XPN6kdE8
>>494
cscript.exeで起動して、
wscript.echo time & vbcr
を送り返すでいいのかな

497デフォルトの名無しさん2018/02/22(木) 21:12:34.79ID:XPN6kdE8
>>494
crでは出来なさそう

498デフォルトの名無しさん2018/02/22(木) 21:19:32.19ID:XPN6kdE8
>>494
一行更新は出来ないね
後カウントダウンは出来るけど、キー入力できないので停止が出来ない
何がしたいかはっきりしないのでなんとも言えないけど、GUI欲しいなら素直にhtaで書いた方がいいと思う

499片山博文MZ ◆T6xkBnTXz7B0 2018/02/22(木) 21:21:39.78ID:bw7NPixR
行更新できないのか。。。すまぬ。cscriptがちょっと悪さしてるのかな?

500デフォルトの名無しさん2018/02/22(木) 21:49:27.75ID:XPN6kdE8
>>499
何だろうね
echoってwritelineと同じかもと思ってstdout.writeでやってみたけど、横に繋がるだけで一行更新は出来ないみたい

501デフォルトの名無しさん2018/02/22(木) 21:54:14.07ID:45CkAVud
みなさんありがとうございます。

具体的に言うと、測定機器があってその出力結果の処理に既にvbsを使っています(ドラッグ&ドロップが凄く便利)。
でその前の測定のときに時間を計測する必要があるのですが、いつもスマホのタイマーやストップウォッチを使っているので、そのvbsに機能を付加できないかと思った次第です。

htaもいいのですがファイルが2つになるので、できれば一つで実現出来ないかなと。

502片山博文MZ ◆T6xkBnTXz7B0 2018/02/22(木) 22:02:13.23ID:bw7NPixR
おそらく標準出力ではないのだろう。

503片山博文MZ ◆T6xkBnTXz7B0 2018/02/22(木) 22:06:36.90ID:bw7NPixR
もしくはフィルターが入ってるのだろうか。

504デフォルトの名無しさん2018/02/22(木) 22:12:30.09ID:XPN6kdE8
>>501
複数行出てもいいならこんな感じでいいんじゃないのかな

Const Cdt = 5
Dim Tm,T1
If MsgBox("カウントダウンを開始します。",vbOKCancel+vbInformation) <> vbOK Then WScript.Quit
Tm = Timer
Do
T1 = Cdt - (Timer - Tm)
WScript.Echo Round(T1,1)
If T1 <= 0 Then Exit Do
WScript.Sleep 50
Loop

505デフォルトの名無しさん2018/02/22(木) 22:20:03.32ID:K6gwUVsb
Ruby でも、ストップウォッチは困る

Rubyから、Selenium WebDriver で、わざわざ、ブラウザを起動して、
jQuery で操作してるのは、漏れぐらいかw

何をやっているのか、よく分からない

506片山博文MZ ◆T6xkBnTXz7B0 2018/02/22(木) 22:26:02.75ID:bw7NPixR
vbCRで行更新は問題なかったが、WScript.Echoが最後に改行する問題があるようだ。

WScript.Echo "aa" & vbCR & "ab"

507片山博文MZ ◆T6xkBnTXz7B0 2018/02/22(木) 22:31:01.12ID:fAW7dU6s
これでOK。

Dim fso, conout
Set fso = CreateObject("Scripting.FileSystemObject")
Set conout = fso.CreateTextFile("CONOUT$")
conout.Write vbCr & "TEST1"
conout.Write vbCr & "TEST2"
conout.Close

508ミスターポポ ◆9Jro6YFwm650 2018/02/22(木) 23:10:06.13ID:YcYRar81
>>499
FSOならイケたような

Const StdOut = 1

Dim FileSystem
Set FileSystem = CreateObject("Scripting.FileSystemObject")

Dim Stream
Set Stream = FileSystem.GetStandardStream(StdOut)

Call Stream.Write(vbCr & "hoge")
Call Stream.Write(vbCr & "fuga")

509ミスターポポ ◆9Jro6YFwm650 2018/02/22(木) 23:12:27.36ID:YcYRar81
Call WScript.StdOut.Write(vbCr & "hoge")
Call WScript.StdOut.Write(vbCr & "fuga")
これで普通にできたわワロス

510ミスターポポ ◆9Jro6YFwm650 2018/02/22(木) 23:13:05.69ID:YcYRar81
>>505
じゃあこれ、Rubyでよろ

エレガントな解法、エレファントな解法 〜モンテカルロ法を添えて〜
https://note.mu/issei_y/n/n882e9f77e8bd

511デフォルトの名無しさん2018/02/22(木) 23:40:40.27ID:pWXFDnT3
>>510
ばーか

512デフォルトの名無しさん2018/02/23(金) 06:52:00.58ID:dbA3VkU0
>>504
カウントダウンタイマーとストップウォッチの区別もつかない人は絡んでくるなよ...

513デフォルトの名無しさん2018/02/23(金) 07:17:30.02ID:rFyc7Zoy
いやみなさん参考になりました。
cscriptからの実行で最低限の欲しい機能は実装できそうです。
それ以上望むときはhtaなど使ってみます。
どうもありがとうございました。

514デフォルトの名無しさん2018/02/23(金) 07:21:34.16ID:Dwffe7iV
>>512
本人がタイマーって書いてるだろ
オマエこそ絡んでくるな

515デフォルトの名無しさん2018/02/23(金) 09:08:03.36ID:KMmRjme2
>>499
ごめんなさい
vbsedit上で試してた…
cmdでやったら普通にいけました

新着レスの表示
レスを投稿する