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

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

[前50を表示]
500:デフォルトの名無しさん
12/03/12 20:26:55.78 .net
入力補完じゃなくてコピペって・・・・・
それこそ何十年前だよって話だなw

程度が知れてきたぜ

501:デフォルトの名無しさん
12/03/12 20:44:07.58 .net
うはっ、入力補完機能のあるエディタ使ってて、変数名のtypoがプログラム制作上の重要課題ってw
あれだな、うちのメモ帳の方が、あんたの開発環境よりも上って事だなw
この10数年の間、変数名のtypoなんて起きた事ねぇもんw

502:デフォルトの名無しさん
12/03/12 20:56:31.62 .net
この子、相手が一人だと思ってるのかな？
俺は変数名のtypoがプログラム制作上の重要課題なんて一言も言ってないんだが
必死になりすぎて周りの現実が見えてないんだね

大勢に嘲笑されているという現実が・・・・・

503:デフォルトの名無しさん
12/03/12 21:10:17.75 .net
うはっw
とうとう、「俺はtypoなんて言ってねぇ」とか言い出しちゃいましたよ
このお方w

504:デフォルトの名無しさん
12/03/12 21:13:40.15 .net
入れ食い

505:デフォルトの名無しさん
12/03/12 21:20:02.41 .net
そもそもプロシージャとグローバルで名前重複なんて、可読性が低くて
絶対保守したくない類のソース。機械が読めても人が読みにくい。
Option Explicit以前にその時点で根本的に間違っていると思う。

それ以前に最近は「グローバル変数自体原則禁止、明示的に引数で渡すべき」
とか言われる事も多くて、高度情報処理試験の午前問題にもあったり。
ま、あくまで「原則」なんでグローバル変数を使わざるを得ない場合もあるが
独立性が低下するので再利用性が低下するのは避けられない。

つまりはスコープの違いをOption Explicitでどうこうして再利用性を上げようとする
のは方針自体が間違っている。

引数のオーバーヘッドに関しても昔はともかく今はPCの性能が十分高いので
高速策よりも安全策というか保守性を取る方が多いし。

VBSの場合は短い事もあり汎用的に使うfsoとかはグローバルな事も多いけど。

506:デフォルトの名無しさん
12/03/12 22:18:26.28 .net
>>488
馬鹿か
なんの為のスコープ分けだ
もう一度、構造化プログラムについて習いなおせ

互いのスコープが引数と戻り値のみでのみデータの受け渡しをする限り、互いの内部の処理は気にする必要は無いの

そして、VBScriptの場合は、グローバルスコープへ直接コーディングをする可能性があるから、Option Explicitによるコードの再利用性の保障が必要なんだっつうの

507:デフォルトの名無しさん
12/03/12 22:31:33.94 .net
Option Explicit「みんな！私のために争わないで！」

508:デフォルトの名無しさん
12/03/13 06:14:50.44 .net
>>489
らちが明かないから何かサンプル上げて説明してみて

509:デフォルトの名無しさん
12/03/13 09:37:52.97 .net
>>491
まず共通部分
<job id="main">
<script language="VBScript" src="test.vbs" />
<script language="VBScript">
fso = "Hello"
MsgBox Test() & vbCrlf & fso
</script>
</job>

510:デフォルトの名無しさん
12/03/13 09:39:40.86 .net
次に、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

511:デフォルトの名無しさん
12/03/13 09:43:32.86 .net
こいつも、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

512:デフォルトの名無しさん
12/03/13 21:41:15.30 .net
散々蘊蓄垂れてこのレベルか

513:デフォルトの名無しさん
12/03/13 21:50:38.27 .net
Option Explicit 云々以前の問題だな

514:デフォルトの名無しさん
12/03/13 21:51:41.48 .net
なんと見苦しい負け惜しみw

515:デフォルトの名無しさん
12/03/13 22:25:08.04 .net
>>493
＞Option Explicit無しバージョン
Option ExplicitよりもローカルのDimが無い事の方が影響大でしょ

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

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

「Option Explicit」の有無「だけ」による挙動の違いを説明できないと

516:デフォルトの名無しさん
12/03/13 22:29:53.10 .net
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

517:デフォルトの名無しさん
12/03/14 19:42:16.87 .net
やれやれ、「Option Explicit」の使い方をようやく理解したか？
まあ、なんで、そのエラーが出るのか理解出来て無いってほうが濃厚だなw
なんせ、VBScriptの変数に内部型があるとか言っちゃうぐらいだからなぁw

518:デフォルトの名無しさん
12/03/14 19:45:33.07 .net
自身が勘違いしていた事には気付いたが、
最初に強気で蘊蓄かましてしまった手前、
引くに引けなくなって強がりを続ける465萌え

519:デフォルトの名無しさん
12/03/14 20:28:49.55 .net
>>501
ぷぷぷっ
もう、技術的な話を出来ずに口先だけかよw
「俺は、MSX-BASIC1からBASICを使ってるんだ」って言う割には大した事は無いなぁ

間違っているなら指摘しなw

520:デフォルトの名無しさん
12/03/14 20:47:40.14 .net
ところで、既に>>499を提示してからでも丸一日が過ぎようとしているのに、今更、ファイルをクローズしてないとか言わないよねw

521:デフォルトの名無しさん
12/03/14 21:55:18.55 .net
おーい、沢山いるはずの>>501よーい
技術的な指摘まだかーい
最低限、>>498みたいな、間抜けな指摘はすんなよーw

522:デフォルトの名無しさん
12/03/14 23:04:31.90 .net
もうそろそろ飽きてきた...
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は目の付け所は良かったが、リファレンスぐらいは読んだほうが良いってこった

523:デフォルトの名無しさん
12/03/15 04:54:39.64 .net
負け犬の連投・・・

524:デフォルトの名無しさん
12/03/15 08:42:06.70 .net
>>506
まだやる気かw
頑張って反論よろしくw

525:デフォルトの名無しさん
12/03/17 10:04:12.29 .net
>>462
変数shellがObject型w
間違いを指摘されたら、>>466で内部文字型と内部数値型では扱いが違うとかw

つまりあれかw
MsgBox "123"+4+"5"
はエラーなんだw
なんかカッケーなw

526:デフォルトの名無しさん
12/03/17 14:33:29.53 .net
こんなとこまで来ちゃうお前らの為じゃねーよ
適当にやったけど動いたからいーや的思考な
困ったくんや困ったﾁｬﾝの為に書いてんだよOption Explicit
詳しい人が必ずメンテするとは限らないのがVB系の怖いとこで

527:営利利用に関するLR審議中＠詳細は自治スレへ
12/04/07 09:29:55.75 .net
こんなところに来ない人のための事をここに書いて意味あるんですか？

528:デフォルトの名無しさん
12/06/10 17:05:31.39 .net

529:デフォルトの名無しさん
12/07/16 00:40:56.77 .net
今までUWSC（フリーソフト）を使っていましたが、最近、VBScriptを知り、同じような処理ができることを知りました。

VBScriptを勉強中です。
分からないことがあればよろしくね。

530:デフォルトの名無しさん
12/07/16 01:26:02.69 .net
だれか3000円上げるから
２４平均律の鍵盤プログラム作ってくれ～(T_T)

531:デフォルトの名無しさん
12/07/16 01:27:51.13 .net
作曲するのに使います
音色はピアノ音だけでOKです

532:デフォルトの名無しさん
12/07/16 09:32:19.09 .net
コンパイルしたプログラムなら3'000円でいいけど
ソース(ソース丸見えのVBS…というか鍵盤必要ならHTA)で欲しいなら150'000円

533:デフォルトの名無しさん
12/07/16 10:42:01.70 .net
>>515
言葉の意味がよくわからないけど
3000円の方でお願いします

534:デフォルトの名無しさん
12/07/16 10:50:19.70 .net
白鍵とか黒鍵は
ないようなもんなんで
ボタンがズラリと並んでるだけでOKです
Ｅの位置だけボタンにＥって書いてくれたらOKです

535:デフォルトの名無しさん
12/07/16 19:11:52.43 .net
よくわからんけど初音ミクじゃだめなの？

536:デフォルトの名無しさん
12/07/16 19:47:57.27 .net
リアルタイムで音を確認しないと何かね……確信持てないっていうか
シーケンスでやってその日は納得いっても
次の日に聞いたらアレ？って事ばかりなんで

537:デフォルトの名無しさん
12/08/05 23:38:48.37 .net
煽り潰しですね

538:デフォルトの名無しさん
12/08/27 21:54:39.96 .net
知恵袋にも登録したのですが、どうしても知りたいのでご教示お願い致します。
マクロを実行して、他のファイルのマクロまで編集できますか。
いろいろグーグルで調べたのですが、どうもヒットせず実行できそうにありません。
作成したいファイルは追記します。
１．エクセルファイル内にボタンフォームを作り（このファイルを便宜上、ファイル①とする）、ボタンフォームを押すと新しいエクセルファイルが作成される（このファイルを便宜上、ファイル②とする）。
２．次にファイル①から１．とは別のボタンフォームを押すと、「挿入＞図＞ファイルから」と同じ要領で画像を選択でき、②ファイル内のSheet1・セルA1に画像が貼り付けられる。
３．最後にファイル①に設置した１．と２．とは別のボタンフォームを押すと、ファイル②のVBScriptにスクリプトが書き込まれる（出来ればVBScriptをパスワード保護出来れば幸いです）。
という流れをファイル①のVBScriptなり、モジュール等を使って行いたいのです。
３にあるマクロは、上書き保存ができなくなるマクロのため、１の段階で保存ができると幸いです。
また、複数ファイルを処理する必要が有るため、同一ファイル名で保存しない仕様を求めています。

539:デフォルトの名無しさん
12/08/27 22:31:18.85 .net
全部出来ますよ
但し、マルチな上にスレ違いなので、具体的な説明は伏せますが

540:デフォルトの名無しさん
12/08/29 19:05:51.32 .net
VB・・・・・Sなのか？

541:デフォルトの名無しさん
12/08/30 22:38:44.70 .net
ExcelでVBS……

ワークシートにボタンに見せかけたオブジェクトを貼り、
押すとハイパーリンクで外部のVBScriptを実行する
とかならやった事がある

542:デフォルトの名無しさん
12/08/30 23:09:40.69 .net
ExcelからVBSを呼ぶだけのパターンか

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

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

ExcelからVBSを呼ぶくらいなら、そのVBSを標準モジュールなどに取り込んで
わざわざ外部のVBS呼ばずに内部実行するし

543:デフォルトの名無しさん
12/08/31 10:20:07.61 .net
ってか、VBSならふつうそうでしょ

544:デフォルトの名無しさん
12/08/31 10:21:36.68 .net
だよな
>>524がなんんか面倒くさいことやってるだけで

545:デフォルトの名無しさん
12/09/01 22:37:19.11 .net
一応、マクロを無効にしたExcelからでも実行できるというメリットはあるけど

546:デフォルトの名無しさん
12/09/02 18:43:55.29 .net
officeのマクロはjsに移行するよ
おまえらの書いたVBSなんて保守したくないし、頼むからせめてjsで書いてくれ

547:デフォルトの名無しさん
12/09/02 19:19:43.98 .net
webで使う場合はjsに軍配挙がるけど
wshやテキストエディタのマクロとかはvbsがいいな

つーかvbsの前に、jsしか使えないバカを淘汰して欲しい
vbsしか使えないバカも同じくね

548:デフォルトの名無しさん
12/09/02 20:05:38.74 .net
>>529
VBSの保守をしたくないんじゃなく、VBSを保守する能力が無いの間違いだろ？

549:デフォルトの名無しさん
12/09/03 19:06:20.84 .net
VBSにはプログラム言語としての長所は微塵もないよ
既に言語からもユーザーからも加齢臭とか腐敗臭とか漂わせている

550:デフォルトの名無しさん
12/09/03 19:20:10.07 .net
>>532
Win32 APIの呼び出しができればいんだけどね
もう絶望的かな

551:デフォルトの名無しさん
12/09/04 10:26:00.19 .net
言語なんてなんでもいいよ

552:デフォルトの名無しさん
12/09/23 11:02:10.28 .net
SFC miniかExcel経由で行けるけどキモいよな
しかし生のVBSからwin32api呼べたら怖くてエロサイト行けなくなる

553:デフォルトの名無しさん
12/10/13 09:50:15.66 .net
いまメモ帳で頑張ってるんだけど、
("text").Value = rnd
このtextに乱数の直前に文章を入れたいんだけどどうすればいい？
必要なら全文載せる

554:デフォルトの名無しさん
12/10/13 09:53:17.73 .net
3行目を読み返せ。

555:デフォルトの名無しさん
12/10/13 10:43:46.18 .net
乱数の直前に文章を入れる？

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

msgbox "文章"　& rnd

556:537
12/10/13 10:55:59.62 .net
＞このtextに乱数の直前に文章を入れたいんだけどどうすればいい？
乱数の直前に、このtextに文章を入れたいんだけどどうすればいい？

557:デフォルトの名無しさん
12/10/13 11:01:38.99 .net
ありがとうございます

558:デフォルトの名無しさん
12/10/21 07:59:37.35 .net
CreateObjectのIEでブラウザの操作を自動化するスクリプト作っててサイトへのログインは自動化できたんだけど、
その後のページにあるボタンを押す動作ができなくて行き詰まってる…

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

1、2は処理に成功してるんだけど、3が何も起こらない(エラーも表示されない)
3が動作しない原因はなんなんだぜ？

559:デフォルトの名無しさん
12/10/21 08:18:06.54 .net
そこのソース撮ってくれ。

560:デフォルトの名無しさん
12/10/21 09:09:12.73 .net
'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.接続」を実行できないんよ（´・ω・`）

561:デフォルトの名無しさん
12/10/21 09:32:48.54 .net
ＷＳＨには、こんな使い方もあるんだ！
While
　　WScript.Sleep 100
Wend
とかの時間間隔入れてみれば？
URLﾘﾝｸ(www.atmarkit.co.jp)

562:デフォルトの名無しさん
12/10/21 10:04:09.14 .net
>>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

563:デフォルトの名無しさん
13/01/05 10:19:06.02 .net
Explorerを起動して任意のフォルダ（ドライブ）を指定で起動する。
その際、n階層下のフォルダまで自動的に展開した状態で開いて欲しい。

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

ドライブルートから1階層下までの固定展開する機能は必須です。
可能ならば起点がドライブルート固定では無くて、パス指定で起点となるフォルダの指定と
自動展開する階層数が1階層で無くソースで指定する箇所があれば出来れば最高に嬉しいです。

564:デフォルトの名無しさん
13/01/05 11:27:15.02 .net
ここは作ってくれって頼む場ではなく
こんな便利なの作ったけどどうよ？って作ったモノを晒す場だぞ

まあ>>546程度のことは多機能ファイラならコマンドやマクロで出来るので
完成したとしても晒してくれなくて結構だがな

565:デフォルトの名無しさん
13/05/04 00:22:48.17 .net
>>547 は？スレタイ読め

566:デフォルトの名無しさん
13/05/06 18:32:10.90 .net
アンカーがズレてるぞ

それともスレの趣旨を理解してないおバカさんかな？

567:デフォルトの名無しさん
13/05/31 02:33:30.04 .net
>>547
エクスプローラでやるから意義があるんだろ
ってか4ヶ月もたつのに反応してくんなや
正確悪すぎてきもい

568:デフォルトの名無しさん
13/05/31 19:26:22.45 .net
えっ？ってなったった

569:デフォルトの名無しさん
13/06/14 11:40:12.42 .net
> 4ヶ月もたつのに反応して
るのは>>548だなw

570:桃白白 ◆9Jro6YFwm650
13/06/23 00:49:56.40 .net
　　　　|┃三　　　　 ∩＿＿＿∩
　　　　|┃　　　　　 | ノ　　　　　ヽ
　　　　|┃　≡　　/　　●　　　● |　　＜あどうも、こんばんわー！
＿＿__.|ミ＼＿＿_|　　　　( _●_)　ミ
　　　　|┃=＿＿＿　　　　|∪|　　　＼
　　　　|┃　≡　　　）　　　ヽノ　　　人＼ガラッ

571:デフォルトの名無しさん
13/06/23 10:09:22.10 .net
会社で入力するのめんどいからいろいろVBSで自動化してる。
会社の規則的にやばいので、今はやってないけど自動的にWindowsにログインするようにしてた。

572:桃白白 ◆9Jro6YFwm650
13/06/24 23:09:44.12 .net
CsvをHTMLのTableに変換しちゃう
URLﾘﾝｸ(friendpaste.com)

573:デフォルトの名無しさん
13/06/26 21:08:23.54 .net
CSVファイルをドラッグ&ドロップで読み込んで、
2行目の先頭3文字を抽出してください

574:デフォルトの名無しさん
13/07/01 NY:AN:NY.AN .net
VBSってどんなプログラム作れるの？

575:デフォルトの名無しさん
13/07/02 NY:AN:NY.AN .net
COM使わなきゃ大したことは出来ないが
COM使えば大抵のことは何でも出来る

まあ組み込みCOMだけじゃまだ貧弱だが
COMは優秀なものが腐るほどあるし、自分で作ることも出来る
COM使えばGUIだって作れるし、
WinAPIだってNET Frameworkの全てだって使える

576:デフォルトの名無しさん
13/07/04 NY:AN:NY.AN .net
WMIが便利そうだけど、あまりにも書籍などが少ない

577:デフォルトの名無しさん
13/07/04 NY:AN:NY.AN .net
書籍なんか無くても、ネット上の情報だけで事足りるけどな

余程頭が悪くなければ・・・

578:デフォルトの名無しさん
13/07/05 NY:AN:NY.AN .net
暇がある人は時間かけてネットの情報探せばいいさ
その暇を惜しむから、まとめて書籍にしてくれと思うわけで

579:デフォルトの名無しさん
13/07/05 NY:AN:NY.AN .net
暇ってw
まとめてWMIの情報載ってるページに行き着くのに10秒とかからんだろ？
あとはサイト内検索とページ内検索を駆使すれば、書籍の目次からページを辿るより早いし

それすらも出来ないようなレベルだと、WMIを使いこなすのは無理じゃね？

580:デフォルトの名無しさん
13/07/05 NY:AN:NY.AN .net
まとめてって言葉の真意が伝わってないな
情報を集める事だけがまとめる事じゃないぞ

581:デフォルトの名無しさん
13/07/05 NY:AN:NY.AN .net
もちろん

582:桃白白 ◆9Jro6YFwm650
13/07/05 NY:AN:NY.AN .net
戦士は胸に一つのバブルソートを抱く
桃白白ブレイブストーリーである。

順番を維持したまま、重複行を除去しちゃう。
URLﾘﾝｸ(friendpaste.com)

583:デフォルトの名無しさん
13/07/06 NY:AN:NY.AN .net
>>565
このサイトのセキュリティ証明書には問題がありますｗｗ
って表示されるの。白桃おじさん、他のサイトがいいよ。

584:桃白白 ◆9Jro6YFwm650
13/07/06 NY:AN:NY.AN .net
>>566
friendpasteを例外に追加しちゃったらいいよ。たぶんブラウザの設定で
できるはずだから。見た？桃白白ブレイブストーリーのコード見た？
感想とかある？とてもすてきなコードですねとかそういう感想ある？
あとこれ桃白白。
URLﾘﾝｸ(livedoor.blogimg.jp)

585:デフォルトの名無しさん
13/07/06 NY:AN:NY.AN .net
>>567
バブルソートってやつじゃないのね
よくわかんない
簡単に解説ちょうだい

586:桃白白 ◆9Jro6YFwm650
13/07/06 NY:AN:NY.AN .net
>>568
つまりこういうことなの。
URLﾘﾝｸ(uploda.cc)

587:デフォルトの名無しさん
13/07/06 NY:AN:NY.AN .net
>>565と、Scripting.Dictionaryを使った方法(コードは十数行)で
10万行の重複削除の処理時間を比べてみた

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

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

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

VBS覚えたてでコード書くのが楽しくて仕方ない時期の初心者さんに言っても無駄かもだが
もう少し適材適所ってものを考えられるようになった方がいいかもな

588:桃白白 ◆9Jro6YFwm650
13/07/06 NY:AN:NY.AN .net
>>570

　　　　　　　　　　　 ,､-'"　,､-';;;;;;;;;;;;;;;;;;;;;;;｀''‐-､　　　　　　ﾞ､､
　　　　　　　　　 ,､-'　,､-'";;;;;;;;;ノ;;;;''-､;;;;;;;;;;;;;;;;;;;｀''‐-､＿＿ノ;;;＼
　　　　　　　　／ ,､-'"::;;;;;;,､-'";;;;;;;;;;;;;;;｀''- ､_;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;/ヽ;;;;＼
.　　　　　　　 f_／;;;;;;;､-ﾆ';;;;;;､-‐ ''''""""''''‐-二､''‐-､＿__,ﾉ､　＼;;;ヽ
.　　　　　　　 |;;;;;;;;,､ﾆ'";;､-'"　　　　　　　　　　　｀"ﾆ､;;;;;;;;;;;;;;＼/;＼;;',
.　　　　　　　 |,-,ﾆ '::/, -─　　　　　　　　　 .,､-─-ﾞ､-'､;;;;;;;;;;;､-､ﾉ;;;;)!　　　　ええっ！？
.　　　　　　　Y::::::::/

589: .,､ -─- ､　　　　　　／／/:::::::::＼ ';;;;;;/;;;;;;;;ヽノ　　　　　　　　|::::::;'　/:／/::::::::::ヽ '"""'' .､|:::l　/::::::::::::::::ト|;;;;|;;;;;;;O;;;;';ヽ　　　　　　　　ヽ:::|.　|::l　l::::::::::／,,　　 .,-､.＼:::::::::::::::::::ノ　|;;;|;;;;;;;;;;;;;;;;';;;| 　　　　　　　　 |::::|￣ヾ;;;;;;;;;;;;/ /_|　　ヽJ　ﾞ､── '"　　|;;;|;;;;;;;;;;;;;/;;;;;フ＿＿　　　　　　　 /|::::/.　　　,､_,､ヽ,　　＿＿＿ノ~"ヽ'l　　　　|:;;ﾞ;;;;;0;;;:';;- '-" 　　　　　　　 | |::;'.　　　 l;;;;;;;;;;;-'""~＿＿,,,｀ヽ;;;;;;ノ　　　　|::;;;;;ヾ=;/''" 　　　　　　　 V:::|　　　　　　,､-,'二──---､)　　　　　　./:;;;;;;;;;;;;/-──── 　　　　　　　｀|:|!　　　　 ,､'ヽ'"　　＿　　　　　　　　　 _/:;;;;;;;;;;;;/　　　＿＿＿_ 　　　　　　　　|:|;',　　　　｀"　　　　::::::　　　　　　 ,､-'"/:;;;;;;;;;／-─ '" 　　　　　　　　|:|;;＼　　　　　　　　　　　　　　,､-'"　／二フ　　　　　　　|:|;;;;;;;｀' .､　　　　　　　　_,､-‐'"-'",､-'"￣　　　　　 .　　|:|;;;;;;;;;;;;/ ＞.､　　,､-‐'",､-‐'"　／＿,,,､---──-- ､,,__ 　　　　　　　|:|;;;;;;;;;;/ /　　-｀'"　,､-'　　　.／-'"　　　　　　　　　　　　｀"'-､　　　　　　　 ||;;;;;;;;;/ .ヽ､__,､-‐'"　,　 _,､-'"

590:桃白白 ◆9Jro6YFwm650
13/07/06 NY:AN:NY.AN .net
標準入力のデータを幅優先でソートしちゃう。
URLﾘﾝｸ(friendpaste.com)

591:桃白白 ◆9Jro6YFwm650
13/07/06 NY:AN:NY.AN .net
>>570
　　　＿＿＿＿
　　 / ⌒　　⌒　＼
　　./( ―）（　●）　＼
　 /::⌒（_人＿）⌒::::: 　|
　 |　　　ー　　　　　　.|
　＼　　　　　　　　／

592:デフォルトの名無しさん
13/07/06 NY:AN:NY.AN .net
悔しいけれど論理的な反論が出来ない時にAA使う癖はまだ直らないんだな

593:デフォルトの名無しさん
13/07/07 NY:AN:NY.AN .net
>>569
丁寧にありがとう！
直接ではなくわざわざインデックスを用いるメリットがわからないや！

594:桃白白 ◆9Jro6YFwm650
13/07/07 NY:AN:NY.AN .net
最初のテキストファイルにない行を出力しちゃう。
URLﾘﾝｸ(friendpaste.com)

595:デフォルトの名無しさん
13/07/08 NY:AN:NY.AN .net
白桃もう夏休みか
先に宿題を片付けた方がいいよ

596:デフォルトの名無しさん
13/07/14 NY:AN:NY.AN .net
WMIってADの鯖側で動かさないと他のクライアントの情報って取って来れないよね？

597:デフォルトの名無しさん
13/07/15 NY:AN:NY.AN .net
権限さえあればそんなことはなかったはず

598:デフォルトの名無しさん
13/08/08 NY:AN:NY.AN .net
；ｐ；

599:デフォルトの名無しさん
13/10/04 01:20:43.19 .net
テキストファイルから最終行を読み出して表示したら文字化けしてやがる
ADODB.Streamなんて使ったことねーよ…
このページの最後のやつと
URLﾘﾝｸ(netlog.jpn.org)
この文字コード変換
URLﾘﾝｸ(blog.goo.ne.jp)
これくっつければできるんだろうけど、もうわかんねぇ…久々にやろうとすると無理だ

600:桃白白 ◆9Jro6YFwm650
13/12/04 19:18:04.29 .net
　　　　　/ﾞﾐヽ､,,___,,／ﾞヽ
　　　　　i ノ　　川　｀ヽ'
　　　　　/　｀　・　．・　i､
　　　　彡,　　ミ(_,人_)彡ミ　　　にゃーん
　∩, 　/　ヽ､,　　　　　ノ
　丶ニ|　　　 '"''''''''"´　ﾉ
　　　　∪⌒∪"￣￣∪

601:桃白白 ◆9Jro6YFwm650
13/12/08 19:45:03.23 .net
CIE2000による色の近似
URLﾘﾝｸ(friendpaste.com)

参考画像
URLﾘﾝｸ(i.imgur.com)

602:デフォルトの名無しさん
13/12/15 04:33:33.24 .net
tes

603:桃白白 ◆9Jro6YFwm650
13/12/22 21:09:18.87 .net
パステルカラーを出力
URLﾘﾝｸ(friendpaste.com)

604:デフォルトの名無しさん
13/12/23 00:18:09.78 .net
相変わらず無駄が多い、、、

605:桃白白 ◆9Jro6YFwm650
13/12/28 12:55:53.24 .net
Friendpaste - CRC32
URLﾘﾝｸ(friendpaste.com)

606:デフォルトの名無しさん
13/12/28 15:44:49.45 .net
どっかから集めたコードを切り貼りして大文字化しただけのものなんて
価値無しなので貼らなくていいよ

607:デフォルトの名無しさん
13/12/28 20:15:22.96 .net
'# Baidu IMEがインストールされているかチェックして、インストールされていれば、アンインストーラーを起動するバッチを作ったよ
'# メモ帳に以下の内容を貼り付けて「baidu_check.vbs」というファイル名で保存。
'# 「baidu_check.vbs」をダブルクリックして【Baidu IME】がインストールされているかチェック

608:デフォルトの名無しさん
13/12/28 20:16:46.43 .net
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

609:デフォルトの名無しさん
13/12/30 10:44:04.20 .net
>>589
>>590

Baidu IMEが「入力情報送信しない」でもサーバーに情報を集めていた件の対応か。
すばらしい。
あれって、アン・インストールが普通の手順ではできないって聞いたが。

610:デフォルトの名無しさん
13/12/30 12:32:45.86 .net
>>591
URLﾘﾝｸ(blog.livedoor.jp)

611:桃白白 ◆9Jro6YFwm650
13/12/30 19:16:53.07 .net
　　∠Y"´ﾞﾌ
　 ;'　ゝ‘,,ェ）　あけおめー
　;　'(,,ﾟ∀ﾟ)
　ﾞ;（ﾉ　　 ';）
　ヾ,;'　　 ';
　　''∪''∪

612:デフォルトの名無しさん
14/02/03 17:06:44.36 .net
このスレも桃白白の遊び場みたいだから有効利用しようね

613:デフォルトの名無しさん
14/02/07 16:22:51.04 .net
このスレも桃白白の遊び場みたいだから有効利用しようね

614:デフォルトの名無しさん
14/02/08 19:19:41.23 .net
このスレも桃白白の遊び場みたいだから有効利用しようね

615:デフォルトの名無しさん
14/02/09 02:22:56.15 .net
でも桃白白は有効なコード書けないけどね

オナニーで自分ではスゴいつもりらしいコードは何度も晒してるけど
バグだらけか、皆当たり前に使ってる手法かのどちらかで
有効利用できるようなものを書いた試しがない

まあ超初心者の質問に対しては、有効な回答をしたこともあったけど
ちょっと質問のレベルが上がると、まったく答えられないし

616:デフォルトの名無しさん
14/03/08 17:13:17.17 .net
どんだけ桃白白に劣等感感じてんだよｗさらしあげｗ

617:デフォルトの名無しさん
14/03/08 17:23:56.33 .net
ＮＡＯの気まぐれ独り言:他人を下げる
URLﾘﾝｸ(adviser70.ti-da.net)

世の中には、自分の自信やプライド、存在価値や存在意義を保つために“他人を下げる”ことをする人がいます。
(他人を下げるとは、他人をバカにしたり、見下したり、軽視することです。)
コレが良い悪いという話は置いといて、この“他人を下げる”行為について今日は考えてみました。
僕は“他人を下げる”ことは、人間の“自己防衛本能”の一種だと思っています。
人間はとても繊細な生き物ですからね。
特に、自信やプライドは傷つきやすく壊れやすいものですから、皆、それを必死に守ろうとします。
(ただし、本物の自信やプライドは簡単には傷つきませんし、壊れません。)
また、存在価値や存在意義は人によって違い、何が正解という明確な“答え”がなく、自分を保つのには自分自身の強い意志や独自の価値観が必要となります。
でも、強い意志や独自の価値観なんて、そう簡単に得れるものではありません。
だから、“他人を下げる”んです。
だから、自分が傷つかないように、また自分を保つために“他人を下げる”んですよ。

618:デフォルトの名無しさん
14/03/08 17:28:12.18 .net
Twitter / jack69xz: 他人を下げることしか自分を上げれないならもう同列以下でいいじ ...
URLﾘﾝｸ(twitter.com)

他人を下げることしか自分を上げれないならもう同列以下でいいじゃん～つまんねえ奴だな～

619:デフォルトの名無しさん
14/03/08 17:31:52.18 .net
否定しない生き方 - 院長ブログ「幸せってなぁに？」
URLﾘﾝｸ(blog.goo.ne.jp)

人と比べる生き方をすれば、自分が上がるか、相手が下がるかのどちらかになります。

自分が上がるのは大変ですが、他人を下げる事は簡単です。

こういう心理が働いて、無意識で相手の足を引っ張ったり、相手を否定する発言をしてしまうのではないでしょうか？

長い時間かけて身についた悪い癖は、同じぐらいそれを取り除くのに時間がかかります。

620:デフォルトの名無しさん
14/06/14 10:19:12.75 3GqQ9q9L.net
>>602
> 拾いモノ。通常はSendToフォルダ経由またはD&Dでファイルを指定する

しばらく、VBSコードから遠ざかっていたけど、

これって、単に、SendToやDDで指定したファイルの.GetAbsolutePathName()
をクリップボードに格納するだけ？？？

単にそれだけ？？？
それだけで、こんなに長く直感的でないコードとなるのが VBS なのか？

621:デフォルトの名無しさん
14/06/14 11:23:29.55 0SKI+ryl.net
もともとVBSにはクリップボード操作機能は無いからね

たかが
> それだけで、こんなに長く直感的でないコードとなるのが VBS
なのではなく、
どんな言語でもサポートされていないことをなんとかして実現しようとすれば
直感的とは言えないコードになるのは仕方のないこと

逆に言えば、コードが長く複雑になることを許容すれば
サポート外の機能さえ実現方法があるのがVBS

まぁ、直感的に使える機能だけを使ったコードしか書いたことの無い人には
理解できない世界かも知れないが

622:デフォルトの名無しさん
14/06/14 13:36:12.22 1ymPxb6J.net
うろ覚えだが>>602は昔のWindows95やWindowsNT4.0でも正常に動く命令しか使われてなかった気がする
(少なくとも俺のWindows7＋IE11では正常に動いたし、//uオプション付で起動すればUnicodeファイル名も問題なく扱える)
それ以外の方法(例えば URLﾘﾝｸ(www.vector.co.jp) のようなフリーソフト)で
同じ事をやろうとすると、どうしてもOS毎の互換性をもっと気にする必要があるから心情的に手を出しづらいかも知れない

623:Westrip ◆cFyu7DKD9w
14/11/25 15:39:40.09 +Ehd3ZDh.net
「コンピュータ連続運用時間計測」
(常駐型ではない。ローカルグループポリシーエディターおよびイベントビューアを使えるPC環境でないと無意味)
以下のテキストファイルを適当な名前で保存し、拡張子を.txt→.vbsに変えると使える
使い方や注意点などはテキスト内に書いてあるので、必ず読む事
URLﾘﾝｸ(alp.jpn.org)　(このアップローダは1年4～5ヶ月くらい持つようだ)

624:デフォルトの名無しさん
14/12/19 12:40:35.66 dKKXcASW.net
Explzh(フリーのアーカイバ)とExplzh用FTPクライアントアドオンの両方をインストール済の環境において
FTP接続ダイアログ表示を自動化するスクリプト
元々どっかのブログで拾ったものに手を加えて、Explzhのインストール先をレジストリから取得する方式に変えた
そのためインストール先に関係なく、そのまま使える

Dim WS,strPath,strExe
Set WS=WScript.CreateObject("WScript.Shell")
strPath = WS.RegRead("HKEY_CURRENT_USER\Software\Pon\Explzh\Folders\ExplzhDir")
strExe = "EXPLZH.EXE"
WS.Run Chr(34) & strPath & strExe & Chr(34)
WScript.Sleep 500
WS.AppActivate strExe
WScript.Sleep 500
WS.SendKeys "^l"
Set WS=Nothing
WScript.Quit()

625:デフォルトの名無しさん
14/12/19 23:20:35.24 adO/IJZB.net
妹に入れますねん

626:デフォルトの名無しさん
14/12/20 09:05:52.58 m+ssCFWe.net
>>607
このスレに来てまでExplzhの作者をからかうとは何て奴だ

627:デフォルトの名無しさん
14/12/25 03:24:30.28 lscuhgwk.net
' 0.1秒単位で好きな時間ウェイトをかけるスクリプト
Option Explicit
Dim WshShell, lngSec, corAg
Set WshShell = CreateObject("WScript.Shell")
Set corAg = WScript.Arguments
'
lngSec = 10 ' 引数省略時は待ち時間を1秒(＝10×100ミリ秒)とする
If corAg.Count > 0 Then lngSec = corAg(0)
lngSec = CLng(Trim(lngSec)) * 100
WScript.Sleep lngSec
'
Set WshShell = Nothing
Set corAg = Nothing
WScript.Quit()

628:デフォルトの名無しさん
15/01/04 10:55:13.06 wMzfWTLi.net
何処が便利なの？

629:デフォルトの名無しさん
15/01/04 15:44:01.03 k/mKj4Vo.net
DOSコマンドで実行できるんでしょ
普通は１秒単位でしかできないから

630:デフォルトの名無しさん
15/01/05 10:54:40.07 Ez8c83Yt.net
sleep.exeは同名フリーソフトまたは別売りリソースキット内の物を使うしかない
timeoutコマンドはVista以降のWindowsにしか搭載されてない上に、1秒単位でしか待ち時間を指定できない
>609なら古いWindows95などでも(WSHがあればの話だが)そのまま実行できたはず

631:デフォルトの名無しさん
15/01/06 00:12:40.29 kEk+oN5g.net
まんどくさいなぁ・・・オレならこうする
echo wscript.sleep 3000 >temp.vbs & cscript temp.vbs

あと、１秒単位のラフなsleepなら、pingを流用するのが定石じゃなかろうか

632:デフォルトの名無しさん
15/01/19 22:34:01.04 XQ8dBSiC.net
ブロックスコープをやりたいのだが
Rem Blockscope.vbs
Option Explicit
Sample
Function Sample()
Dim I
I = 10
I = Used
Msgbox Typename(I) 'Variant()
Rem I = 20 'Error at Erase I
Rem Set I = Nothing 'Error at Erase I
Erase I
End Function
Function Used()
Dim J()
Used = J
End Function

人力でErase I てのがバカっぽい
なんとかなりませんか

633:マッハ五等
15/02/26 00:43:19.72 DaJNGHwl.net
【カワイイ】海外メディアが報じた美人過ぎる議員候補者　美しい国ニッポン！なぜこんなに議員候補者が可愛いのか？と話題に【KWAII】

URLﾘﾝｸ(www.youtube.com)

634:デフォルトの名無しさん
15/04/16 07:32:59.78 UIJv8RFa.net
june styleの広告解除するバッチ書いて

635:ピラフ
15/04/25 17:57:16.27 KZvIujNC.net
>>614
ローカル変数宣言したら負けただと思うよ
Option Explicit
Sample ""
Function Sample(I)
　I = Used
　Msgbox Typename(I)
End Function
Function Used()
　Used = Array()
End Function

636:デフォルトの名無しさん
15/05/14 08:23:07.90 TbUpA8Wq.net
システムの起動が、通常起動なのか、再起動なのかの識別する方法を考えています。
今のところ、ログオフからログオンまでの時間の違いにより識別する方法しか発想できませんです。
しかしこの方法は、100％確実でないので、他の方法があればヒントをお願いします。

637:デフォルトの名無しさん
15/05/17 23:40:50.31 wdkXHT83.net
つまり、電源を切ったか、切らなかったか、ってことかな

638:デフォルトの名無しさん
15/05/18 08:04:34.63 O0NInJV+.net
>>619
ＰＣの主電源は、再起動の時、切るタイプと切らないタイプがあるようです。
なので、その判別方法は、使えないと思います。
ところで、主電源のＯＮ-ＯＦＦ判別はどのような方法でしょうか？

639:デフォルトの名無しさん
15/05/18 12:27:22.13 kkG7b6r2.net
>>618
シャットダウンイベントの追跡ツールを有効にして、イベントログを確認

640:デフォルトの名無しさん
15/07/25 19:16:04.23 Q3QGe3XY.net
>>616
下のMsgBoxを広告の上においてみなよ
文字を増やすと、ウインドウが大きくなって、効果てきめん
MsgBox "広告バスター広告バスター広告バスター"

641:群馬大学病院腹腔鏡手術後8人死亡事故
15/07/28 00:25:13.74 AlkUvM7FE
/

【速報】「生きるのに向いていないから」健康な24歳女性の安楽死が認められる!!

URLﾘﾝｸ(news.biglobe.ne.jp)

642:ピラフ
16/03/05 22:58:28.36 reoACJ/5.net
できた！
システムカラーを出力
URLﾘﾝｸ(friendpaste.com)
URLﾘﾝｸ(www.fastpic.jp)

643:デフォルトの名無しさん
16/03/29 08:45:45.83 /c8bAcK4.net
サッカーブッシュ日本代表日程ぷあたん（しゅっちょうまいくろ教育長交代）春文執行40代売上差額シュガーチョコ
URLﾘﾝｸ(www.youtube.com)宇ドナルドアナリストパワーストーンコーチングとしまえん
サッカーブッシュ日本代表日程古本屋よしたけしゅっちょうちょこしゅがー
ディーラー税務署天才開発者死亡詰みヨミドクターマイクロサービス不足
サッカーブッシュ日本代表日程ぷあたんシフト光金さかい強制バイト人権侵害問題
春分資源執行ニューヨーク低原価ぼったステーキソルトレイク福岡横浜新橋奴隷課金パチシフト強制バイト問題新潟米センター生残
コスメ２４チャリティー隠れ40代生活保護プレイボーイバイトレードいたりあん接待問題
マスコミKARDローンケーオーサービス不足婚活パーティー寄付金執行原発ビジネス
FBIチャイニーズタイホテル売上事務所ガチャ決算ガチャキャンペーン（販売報道陣過激派組織向携帯最新情報提供終了
校長発言細心注意ノートン産廃エラー(著作権クレーム中国反応融資高額教育費)(中国捕鯨団体40代社員サッカーコメント
高額入学金ヤフウ新橋大学ヤフウ新橋理事長FX経費おじや50代資産ガリバズフィード40代エリート

644:ピラフ
16/06/09 22:54:40.95 pXMVc1f3.net
なんか作りたい！でも思いつかない!!

645:デフォルトの名無しさん
16/06/10 14:24:55.00 YAUUTr4W.net
赤ちゃん！

646:デフォルトの名無しさん
16/06/10 17:45:55.05 E7QyX/xf.net
尻取り

647:デフォルトの名無しさん
17/07/23 14:14:08.03 7erAQfie.net
'// テキストファイル名の配列を受け取って、結合した内容をクリップボードにコピーするスクリプト

Option Explicit
Dim txtArry
With CreateObject("Excel.Application")
　　.DefaultFilePath = "C:\"
　　txtArry = .GetOpenFilename("テキストファイル,*.txt;*.csv",,,,True)
　　If IsArray(txtArry) Then
　　　　If Ubound(txtArry) > 0 Then Call TextCopy(txtArry)
　　　　.Quit
　　Else
　　　　WScript.Echo "キャンセルされました。"
　　　　.Quit
　　End If
End With

Sub TextCopy(txtArry)
　　Dim i
　　Dim txtStr
　　With CreateObject("Scripting.FileSystemObject")
　　　　For i = 1 To UBound(txtArry)
　　　　　　With .OpenTextFile(txtArry(i))
　　　　　　　　txtStr = txtStr & .ReadAll & vbCrLf
　　　　　　　　.Close
　　　　　　End With
　　　　Next
　　End With
　　CreateObject("WScript.Shell").Exec("clip").StdIn.Write(txtStr)
　　WScript.Echo "クリップボードにコピーしました。"
End Sub

648:デフォルトの名無しさん
17/07/23 21:44:37.72 7erAQfie.net
'// .vbsファイルのアイコンにドラッグした複数ファイルのフルパスリストをクリップボードにコピーするスクリプト

Option Explicit
Dim i
Dim fileNames
With WScript
　　For i = 0 to .Arguments.Count - 2
　　　　 fileNames = fileNames & .Arguments(i) & vbcrlf
　　next
　　fileNames = fileNames & .Arguments(i)
　　CreateObject("WScript.Shell").Exec("clip").StdIn.Write(fileNames)
　　.Echo "ファイルリストをコピーしました。"
End With

649:デフォルトの名無しさん
18/05/23 22:04:08.08 Au5e7VGg.net
僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』
XDVRR

650:デフォルトの名無しさん
18/07/04 23:59:09.15 gFgZc5FG.net
TO3

651:デフォルトの名無しさん
18/08/21 12:58:35.50 2l7tVH8h.net
ショートカットを『スタートにピン留め』
フォルダを『クイックアクセスにピン留め』
Windows10なのでよろしく。

652:ピラフ
18/09/02 15:58:55.25 uO0ayeCX.net
>>633
任せて
URLﾘﾝｸ(gist.github.com)

653:ピラフ
18/09/02 16:00:04.92 uO0ayeCX.net
ピラフの環境だと
Verb.DoItを2回呼ばないと反映されなかったんだよね
なんなんだろこれ

654:デフォルトの名無しさん
18/09/05 20:51:41.21 223DM7Lb.net
>>635
どうせどっかのコピペだろ。
お前のコードはいちいちスタイルが違い過ぎる。
氏ね。

655:ピラフ
18/09/05 22:59:35.09 BuNkH2Jq.net
>>636
形に拘ってるようじゃピラフには一生勝てないよ

656:ピラフ
18/09/05 23:11:54.62 BuNkH2Jq.net
見せてやるよ、形式に囚われないピラフの究極奥義
SUB SWAP(A, B, C)
　C = A
　A = B
　B = C
END SUB
SUB SORT(A, I, J)
　FOR I = 1 TO UBOUND(A)
　　FOR J = 1 TO UBOUND(A)
　　　IF A(J - 1) > A(J) THEN SWAP A(J - 1), A(J), EMPTY
　　NEXT
　NEXT
END SUB
SUB MAIN(A)
　A = ARRAY(5,4,3,2,1)
　SORT A, EMPTY, EMPTY
　WSCRIPT.STDOUT.WRITELINE JOIN(A, ",")
END SUB
MAIN EMPTY

657:ピラフ
18/09/05 23:14:07.11 BuNkH2Jq.net
ローカル変数を最小にすることによってバグを最小化できる
これこそがVBScriptプログラミングの真髄

658:デフォルトの名無しさん
18/09/06 07:24:37.16 ezd+bzmC.net
こいつまだいたのかよ
一生ソートやってそうｗｗｗｗ

659:ピラフ
18/09/06 07:32:32.39 ndioKak8.net
>>640
奥義についての感想をいただけたら

660:デフォルトの名無しさん
18/09/06 07:36:00.23 ezd+bzmC.net
競技プログラミングですでにやってるわ
そんなのアスぺ自慢にもならない

661:ピラフ
18/09/06 07:43:37.26 ndioKak8.net
ちょっと何言ってんのかよくわからない

662:デフォルトの名無しさん
18/09/06 17:19:09.87 ezd+bzmC.net
そりゃお前だからだろ
スレの趣旨も理解できてなさそうだし
そろそろ出てきても大丈夫とか思っちゃったんだろうか

663:ピラフ
18/09/06 22:09:39.70 VSCSfufl.net
クソレスすんなゴミ

664:デフォルトの名無しさん
18/09/06 23:45:24.23 ezd+bzmC.net
お前が来なければ何の問題もないんだよ
バブルソートも満足に組めないゴミのくせにｗｗ

665:デフォルトの名無しさん
18/09/07 01:27:31.43 mHXQx/fB.net
>>7-8
うまく動かないのは、
> 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)
の間に
End If
が抜けているからだ。
11年半待たせたな。

次ページ