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

**デフォルトの名無しさん** · 2017/06/28(水) 20:52:02.68

ピラフ逃亡中?

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 22:52:49.62

完璧なコード出してくれたらポポももっと成長しなきゃって思えるけど
出してないじゃん

**デフォルトの名無しさん** · 2018/02/07(水) 22:56:47.33

何でこれがvbsで解けないと思うんだ？
単純な計算やん

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 22:59:41.97

>>426
解けることは炭鉱の人が示したよ、VBScriptで解けるよ
じゃあ炭鉱の人とは別の解を示してよ
単純だって言うくらいならできるでしょ
見栄張ってないことを証明して

**デフォルトの名無しさん** · 2018/02/07(水) 23:01:19.52

>>424
言ったそばからそれかよ
そろそろ取り巻きを装って発狂しねえかな

**デフォルトの名無しさん** · 2018/02/07(水) 23:06:59.24

意見をすればコード出せ
コードを出せばあっそ、よかったね

こいつの頭の中など見え透いてる

**デフォルトの名無しさん** · 2018/02/07(水) 23:10:12.54

ああ、解けることは納得してんのか
別解が欲しいだけ？

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 23:10:40.12

>>429
静かにして、いま集中してるから

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 23:11:35.76

>>430
それだけじゃないけどとりあえず別解示して

**デフォルトの名無しさん** · 2018/02/07(水) 23:14:11.64

>>431
取りあえず何かレスしないと気が済まない？
だったらお前がまず黙っててみろよ

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 23:15:49.85

>>433
いまポポが集中してるところでしょうが!!

**デフォルトの名無しさん** · 2018/02/07(水) 23:16:51.98

>>390に対して>>394だもんね
舐めくさってないかこのバカは

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 23:20:42.00

>>435
でもさあよくあるじゃん
是非うちで働きませんかと誘っておいて
出向いていったら弊社を志望した動機を教えてくださいって手合い
てめえが誘ってきたんだろうがという状況ですよ
なかなかおもしろいと思うんだよね
ユーモア理解してもらえると思ったんだけど

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 23:21:26.34

炭鉱夫のおっさんはわかってくれたと思うんだけど

**デフォルトの名無しさん** · 2018/02/07(水) 23:25:57.26

>>432
いきなりコードを出せってなんだｗ
お前は一体何を議論したいんだよ

**デフォルトの名無しさん** · 2018/02/07(水) 23:27:03.20

そんな弁解で正当化しようとしてんの？どうしようもないクズだね

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 23:39:49.72

>>439
ユーモアを理解せずコードも出せないお前の方がどうしようもないクズだよ

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 23:41:14.85

>>438
そういえばラピュタに出てくる親方も炭鉱夫じゃん
片山さんのことをラピュタのおっさんと呼ぶべきか
親方と呼ぶべきか迷うよね、まずそこから議論しよう

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/07(水) 23:44:46.27

>>426の人は単純な計算やんと関西弁まで使って大見栄きったんだから
別解示すことくらい朝飯前だと思うんで朝ごはんのおかずにしようと思うから
別解示してほしいの

**デフォルトの名無しさん** · 2018/02/07(水) 23:50:15.53

>>440
手前の不届きをユーモアだとかほんとクズだよね
これぞピッコロ、反省などできるわけありません

**デフォルトの名無しさん** · 2018/02/07(水) 23:52:48.31

さらには意見されたことが許せないのでいつも通りのコード出せ
なりふり構っている余裕などありません

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/08(木) 00:03:08.30

コード書けない人頑張ってるな

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/08(木) 00:04:13.81

でもちょっと静かにして欲しい寝てる人もいるんで時間考えて
頑張りたい気持ちはわかるから

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/08(木) 00:04:47.85

彼をこのスレの頑張り屋さんと呼ぶことにしようか

**デフォルトの名無しさん** · 2018/02/08(木) 00:10:43.45

寝てる人間がスレ見てうるさいなんて思うわけないだろ
そんな舐め腐った態度でコードを提示してくれるお人好しなんてまずいないよ

**デフォルトの名無しさん** · 2018/02/08(木) 00:18:38.91

そろそろ護衛してくれる取り巻きさんたち出てきてもいい頃じゃないの？

**デフォルトの名無しさん** · 2018/02/08(木) 06:07:29.21

頑張り屋さんうざいな
実のあること何も言ってないし
NGにしよ

**デフォルトの名無しさん** · 2018/02/08(木) 08:33:58.67

>>442
一番単純で素直な方法はなもう示されてるじゃないか。何故別解が欲しいのか？
お前は何の考えもなく、何か刺激を受けるコードに出会いたいだけだろ。

自分の考えを言葉にすることもできない無能が偉そうな事を言うな

**デフォルトの名無しさん** · 2018/02/08(木) 08:43:54.00

何これ?
ピラフの中の人面倒くさくなって別人格作ったのか?

**デフォルトの名無しさん** · 2018/02/08(木) 08:49:51.44

暗黒面に堕ち、ダース・ピラフ卿となったピラフには死を

**デフォルトの名無しさん** · 2018/02/08(木) 09:18:04.86

コード書けなくてピラフにバカにされまくってるお前ら哀れw

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/08(木) 10:37:04.91

Rubyで書いたよ。
https://ideone.com/6RHedT

**デフォルトの名無しさん** · 2018/02/08(木) 23:03:45.85

ははぁ。
「100bitのビット列を生成する。パターンは2^100通り」
「その中で、『1が10連続するパターンに一度でもマッチする』のは何通りか」
というお題だな。

そういう意味でコテのおっさん達は失格。

おっさん達の人格がアレとしてこのお題、ちょっと難しい。
強引にやれば解けるのは自明だけど。
元のブログの著者が「知り合いの数学者に『エレガントに』解いてもらった」てのが分からないなぁ。
紙上でサクッと出せるもんなんだろうか…。俺は思いつかない。

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/08(木) 23:12:40.74

エロティックに解いて欲しい

**デフォルトの名無しさん** · 2018/02/08(木) 23:31:12.76

>>457
お前は黙ってろ

**デフォルトの名無しさん** · 2018/02/08(木) 23:52:40.51

ぽぽちゃん
https://www.toysrus.co.jp/i/5/7/1/571890200ALL.jpg

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/09(金) 06:57:53.58

>>458
こわっ

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/14(水) 23:24:30.53

ぶんぶんはろーぶいびーえす

**デフォルトの名無しさん** · 2018/02/14(水) 23:42:53.08

ばーか

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/14(水) 23:59:49.15

>>462
これ、Rubyでよろ

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

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/15(木) 00:02:56.63

>>455

**デフォルトの名無しさん** · 2018/02/15(木) 00:10:32.37

>>463
ばーか

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/15(木) 07:28:13.33

>>464
あざーす片山さんあざーす

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/15(木) 07:29:06.24

>>465
ギブか？おーん？

**デフォルトの名無しさん** · 2018/02/15(木) 19:20:55.22

Rubyはスレ違いだろ？
VBSにこだわらず好き放題やりたいならそういうすれ立てろよ

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/15(木) 20:54:55.14

じゃあなんですか、スレ違いの発言しちゃいけないとでも言うんですか

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/15(木) 20:56:59.25

Rubyというメガネを通してVBScriptを見ることで初めて見えるものってあると思う
そういうのを大切にしていきたい

**デフォルトの名無しさん** · 2018/02/15(木) 21:25:35.06

ピラフって意外にねちねちしてて根に持つよね

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/15(木) 21:59:15.18

サバサバしてる方が良いわけ？
それベッドの上でも言える？
そこんとこよく考えて発言していただきたい

**デフォルトの名無しさん** · 2018/02/15(木) 22:03:58.95

>ピラフは、VBからはじめたので、Ｃのポインタのプログラムは、
> 組めないですが、まぁ、CASLのＬＥＡとＬＤで組むようなものでしょうか。
>たとえば、自分が、マンガを読むとき、マンガの棚には、目的のマンガの本が
> あります。
> 現実は、あまくないです。マンガは、ないので、本屋にいって金で買い増す。
>さらに、さがせば、ポインタのポインタのようなもの・。
> 自分が辞書でことばの意味を調べることに似ていますが、
>ピラフは、２０代でマンガをかったのは、１０冊もないでしょう。
>クソバカ片山を辞書でひいても、のっていません。
>そんなのは、あたりまえで、ピラフは、辞書は、ひいていません。
>
>それでわ。

**デフォルトの名無しさん** · 2018/02/15(木) 22:11:00.15

>>472
ここはベッドの上でもないしピラフが好き勝手に振る舞えるところでもないよ(他の人なら可)

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/15(木) 22:13:12.55

>>473
なにこの怪文書
大丈夫なの？お薬飲んだ？

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/15(木) 22:13:29.64

>>474
はいNG

**デフォルトの名無しさん** · 2018/02/15(木) 22:26:37.64

>>475
つまらない煽りにも漏れなくレスしてしまうほど余裕がないんだろうね

**デフォルトの名無しさん** · 2018/02/15(木) 22:31:40.17

>天才白白のおめざめですぅー！！
> 今週は、なんとか代休とれそうですぅ！！
>それまで、こつこつゲーム制作ですぅ！！
> 今日は、ザコ編隊飛行のアニメパターンと
>美少女ＣＧの完成がメインですぅ！！
>どんなのができるというわけなのかなぁー！！
>まようというわけなのかなぁー！！
> 人間ねぼけようかなぁー！！
>
>うわぁーーい！！
>
> 　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
> 　　　　　　　　　　/　　　　　　　　　＿＿ ____）
> 　　　Ｖ　　　　 /　でわですぅ！！　　　/ ////　　
> ｖ（＾ー＾）ｖ　＜＿＿＿＿＿＿______________）
> 　｜白白｜
> 　Ｏ　　　Ｏ

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/15(木) 22:40:49.77

>>478
ｶﾜｲｲ(//ω//)

**デフォルトの名無しさん** · 2018/02/15(木) 22:57:12.97

>Rubyistの人いるー？
>
>エレガントな解法、エレファントな解法～モンテカルロ法を添えて～
>http://note.mu/issei_y/n/n882e9f77e8bd
>
>これどう？このお題Rubyならどう解く？

**デフォルトの名無しさん** · 2018/02/16(金) 04:37:34.73

「交通事故」でも過労死　裁判所が画期的な和解勧告
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/

**デフォルトの名無しさん** · 2018/02/16(金) 14:19:30.97

再起動したときにメールを送信するものを作っています
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

**デフォルトの名無しさん** · 2018/02/16(金) 14:21:11.14

再起動したときにメールを送信するものを作っています
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

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/16(金) 21:59:16.25

>>483
認証の情報が必要なんじゃないかと

↓こちらでどう？

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

**デフォルトの名無しさん** · 2018/02/17(土) 08:56:07.63

>>484
ありがとうございます
この方法でメールを送ることはできました
あとは自分でPC起動時に自動で実行できるかテストしてみます
ありがとうございました

**デフォルトの名無しさん** · 2018/02/18(日) 22:42:08.95

http://zakii.la.coocan.jp/enumeration/52_cointoss.htm
確率だろうとは思ったけど、漸化式は思いつかなかった。

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/21(水) 22:45:09.17

ご査収ください

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

**デフォルトの名無しさん** · 2018/02/22(木) 08:02:06.00

vbs単体でストップウォッチみたいなの作るのって不可能？
msgboxじゃ処理止まるしなあ。
複数ファイルを非同期で走らせるとか、hta使うかしないと無理かな。
powershell では作れそうだが。

**デフォルトの名無しさん** · 2018/02/22(木) 09:16:34.62

開始の時刻を記録して
入力があった時刻を記録して
差を計算すれば良いような
何をやりたいのかよくわからんが

**デフォルトの名無しさん** · 2018/02/22(木) 11:43:11.76

>>488
無理矢理やるならpopupがある
実用になるかは知らないけど

**デフォルトの名無しさん** · 2018/02/22(木) 18:07:56.06

>>489
時間計測は出来るけど、それを例えば1秒毎に表示を更新してカウントダウンみたいなのをやる方法が分からなくて。

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

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 18:19:09.39

>>491
キャリッジリターン(CR)コードを使えば、コンソールで一行更新できる。

**デフォルトの名無しさん** · 2018/02/22(木) 19:00:38.20

>>492
それじゃ単なる時計だよ
ストップウォッチだからスタートはいいとしてストップボタン（ボタンでなくてもいいけど）をどうするかが問題
標準だとHTAが無難だと思う

**デフォルトの名無しさん** · 2018/02/22(木) 20:58:27.59

>>492
なるほど、もう少し詳しく教えてください。
ストップウォッチと書いたけれど、それでやりたいことは実装できそう。

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

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 21:05:12.88

>>494
ショートカットでcscriptから起動するようにすれば、コンソールが出てくる。

**デフォルトの名無しさん** · 2018/02/22(木) 21:06:38.51

>>494
cscript.exeで起動して、
wscript.echo time & vbcr
を送り返すでいいのかな

**デフォルトの名無しさん** · 2018/02/22(木) 21:12:34.79

>>494
crでは出来なさそう

**デフォルトの名無しさん** · 2018/02/22(木) 21:19:32.19

>>494
一行更新は出来ないね
後カウントダウンは出来るけど、キー入力できないので停止が出来ない
何がしたいかはっきりしないのでなんとも言えないけど、GUI欲しいなら素直にhtaで書いた方がいいと思う

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 21:21:39.78

行更新できないのか。。。すまぬ。cscriptがちょっと悪さしてるのかな？

**デフォルトの名無しさん** · 2018/02/22(木) 21:49:27.75

>>499
何だろうね
echoってwritelineと同じかもと思ってstdout.writeでやってみたけど、横に繋がるだけで一行更新は出来ないみたい

**デフォルトの名無しさん** · 2018/02/22(木) 21:54:14.07

みなさんありがとうございます。

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

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

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 22:02:13.23

おそらく標準出力ではないのだろう。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 22:06:36.90

もしくはフィルターが入ってるのだろうか。

**デフォルトの名無しさん** · 2018/02/22(木) 22:12:30.09

>>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

**デフォルトの名無しさん** · 2018/02/22(木) 22:20:03.32

Ruby でも、ストップウォッチは困る

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

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

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 22:26:02.75

vbCRで行更新は問題なかったが、WScript.Echoが最後に改行する問題があるようだ。

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

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 22:31:01.12

これでOK。

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

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/22(木) 23:10:06.13

>>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")

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/22(木) 23:12:27.36

Call WScript.StdOut.Write(vbCr & "hoge")
Call WScript.StdOut.Write(vbCr & "fuga")
これで普通にできたわワロス

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/22(木) 23:13:05.69

>>505
じゃあこれ、Rubyでよろ

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

**デフォルトの名無しさん** · 2018/02/22(木) 23:40:40.27

>>510
ばーか

**デフォルトの名無しさん** · 2018/02/23(金) 06:52:00.58

>>504
カウントダウンタイマーとストップウォッチの区別もつかない人は絡んでくるなよ...

**デフォルトの名無しさん** · 2018/02/23(金) 07:17:30.02

いやみなさん参考になりました。
cscriptからの実行で最低限の欲しい機能は実装できそうです。
それ以上望むときはhtaなど使ってみます。
どうもありがとうございました。

**デフォルトの名無しさん** · 2018/02/23(金) 07:21:34.16

>>512
本人がタイマーって書いてるだろ
オマエこそ絡んでくるな

**デフォルトの名無しさん** · 2018/02/23(金) 09:08:03.36

>>499
ごめんなさい
vbsedit上で試してた…
cmdでやったら普通にいけました

**デフォルトの名無しさん** · 2018/02/23(金) 14:08:48.49

VBSで非同期ってできるんだっけ？

**デフォルトの名無しさん** · 2018/02/23(金) 17:23:16.42

>>516
他のvbs呼び出し時に指定できるはず

**デフォルトの名無しさん** · 2018/02/23(金) 22:24:35.02

じゃVBSでwebsocketはできる？

と、むちゃぶりをしてみる

**デフォルトの名無しさん** · 2018/02/24(土) 14:14:40.12

>>518
winsock ocxはCOMだから使えるだろ

**デフォルトの名無しさん** · 2018/02/27(火) 00:14:14.65

>>519
ocx は基本 VBScript からは使えない。

**デフォルトの名無しさん** · 2018/02/27(火) 08:27:28.58

そうなの?

**デフォルトの名無しさん** · 2018/02/27(火) 18:28:38.01

>>520
VBScript から WinSock を使おうとするとオブジェクトは作れても上手く動かない。
ocx は画面の部品だから VBScript から使えなくても仕方がない。
また、使えたとしても VBScript から操るのはライセンス違反にあたるんだよなぁ。
ググれば分かるよ。

**デフォルトの名無しさん** · 2018/02/28(水) 08:44:15.01

>>522
Wscript.CreateObjectでインスタンスを作ると使えるらしいが。
mswinsock.ocxの単体配布はライセンス違反だがvbのダミーアプリを作って配布は大丈夫なのでは?

**デフォルトの名無しさん** · 2018/02/28(水) 21:16:35.24

>>523
技術的、ライセンス（単体配布ではなくデザインライセンス）的にダメな理由は大体以下。
http://nonsoft.la.coocan.jp/Chinamini/20100001/20100305.html
https://stackoverflow.com/questions/6348907/vbscript-jscript-networking-connect-either-udp-or-tcp
https://support.microsoft.com/ja-jp/help/318597/you-receive-an-error-message-you-do-not-have-a-license-to-use-this-con

よって、VB6.0 の開発ライセンスを持っていて、コマンドとして作って、それを VBScript から Exec する分には合法だと思うよ。
「Mswinsck.ocx の COMオブジェクトをコードから直接覗く行為」≒「開発行為、もしくはスクリプトからの直接使用」が駄目だと解釈したけどね。

ちなみに、PowerShell なら好きなポートから TCP し放題。
あーもうこっちでいいやと思った。