トイウコトデ、めげないでブログ続けることにしました。
2015.02.15
Private Sub UserForm_Initialize() Dim WSH, OExec As Object Dim s_Cmd As String Dim hoge As String Set WSH = CreateObject("WScript.Shell") s_Cmd = "ipconfig" Set OExec = WSH.Exec("%ComSpec% /c " & s_Cmd) hoge = OExec.StdOut.ReadAll ipecho.Caption = hoge Set OExec = Nothing Set WSH = Nothing End Sub
著者名 @taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
%ComSpec%, As String, C++, CreateObject, Dim hoge As String, Dim s_Cmd, Dim WSH, hoge, ipconfig, ipecho.Caption, Nothing, Nothing End Sub, OExec As Object, OExec.StdOut.ReadAll, Private Sub UserForm_Initialize, s_Cmd, Set OExec, Set WSH, WScript.Shell, WSH.Exec,
映画、Nothing[ナッシング]を観てオチあり( ゚д゚ )
2014.09.01
映画、Nothing[ナッシング]を観てつれづれと感想を書いてみますね。ちなみにこのNothingという映画を観たのは、もう数年も前の話なのですが今でも記憶に残っているぐらい奇妙な内容の映画でした。オチを言うと最終的には何もない状態になるのですが、それまでの過程が滑稽で面白かったです。始まりは白い空間に2人の男とソファーなどの家具用品{一軒家かも}などがある状態からストーリーが始まります、徐々に白い空間から物が消えていき、最終的には自分たちの体も消え、白い空間だけが残るというお話です。観た後もヘンな余韻がのこる映画になっています。この映画は映画「CUBE」に似ている要素があるものの、CUBEよりも後味は良いです。
※物語にスピード感はないです。
まとめ
Nothingという映画は、普通の映画のオチ{ストーリー}に飽きた人向け。{普通のオチに飽きた人向けな作品を貼っときます↓{スピード感はなし}。}
著者名 @taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
CUBE, Nothing, オチ, クライ, ストーリー, スピード感, ソファー, ナッシング, ヘン, まとめNothing, 一軒家かも, 余韻, 家具用品, 後味, 感想, 映画, 白い空間, 要素, 記憶, 過程,