Open "こぐまねこ帝国 入国確認証.txt" FOR Output As #1
Print #1,"ご入国ありがとうございました☆"
Print #1,"あなたは由緒正しきこぐまねこ帝国国民となることが満場一致で認められました。"
Print #1,""
Print #1,"お代は「1日1ぺんギャグを言え」です。(・∀・)"
Print #1,"ツッコミ派の方はツッコミを入れてもokです。 ̄  ̄)ノ ばしっ☆"
Print #1,""
Print #1,""
Print #1,"あ、ちなみにこのプログラムは"
Print #1,"1.「ご入国ありがとう」というポップアップを表示させる。"
Print #1,"2.テキストファイル「こぐまねこ帝国 入国確認証.txt」を作成する。"
Print #1,"3.登録完了画面の解説ページ(http://kogumaneko.tk/cc/1click_004.html)へ移動する。"
Print #1,""
Print #1,"だけのものですから、このテキストファイルと実行ファイルをポイすればお終いです。"
Print #1,"普通のワンクリサイトとワンクリックウェアサイトの違いをつかんで頂けたのではないでしょうか。"
Print #1,""
Print #1,""
Print #1,"そんなところですので、引き続きコンテンツをお読みくださいませ。"
Print #1,""
Print #1,"(c)こぐまねこ帝国"
Close #1
msg1$="驚いちゃダメ(・∀・)"+Chr$(13)+"これはあくまでもワンクリックウェア体験版だからね。"+Chr$(13)+Chr$(13)
msg2$="普通のワンクリサイトとワンクリウェアサイトとの違いが分かったでしょお?"+Chr$(13)+Chr$(13)
msg3$="現時点で、既に「こぐまねこ帝国 入国確認証」が作成されているのだが、"+Chr$(13)
msg4$="メールアカウントの抜き取りもないし、悪質なプログラムのインストールもないのだよ。"+Chr$(13)+Chr$(13)
msg5$="こぐまねこ帝国にはそんなにスゴイ技術などないのだよ。(・∀・)ハッハッハ"+Chr$(13)
msg6$="「kogumaneko.exe」と「こぐまねこ帝国 入国確認証.txt」の両方をゴミ箱にポイっと捨てればokなのだった。"
msg7$=Chr$(13)+Chr$(13)+"[OK]を押すと登録完了画面の解説ページへ移動しまーす。(* ̄∇ ̄*)"
msg8$=Chr$(13)+Chr$(13)+Chr$(13)+"(c)こぐまねこ帝国 2006"
msg$=msg1$+msg2$+msg3$+msg4$+msg5$+msg6$+msg7$+msg8$
MsgBox ,msg$,"ご入国ありがとうございました☆",MB_OK
EXEC "http://kogumaneko.tk/cc/1click_004.html"
End
|