AB型の変わり者 三流プログラマー 業務の愚痴

バックナンバー No.170 〜 No.174

＜商売の基本、差益を稼ぐ？＞
こんにちは、三流プログラマーのＫｅｎ３です。

まだ、つぶされずに生き残ってます（笑）
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
そんな前フリは置いといて、
今回は、
商売の基本、差益を稼ぐ、、、
そんなお話です。

まぁ、いつもの独り言だけど、聞いてください。

/*
 * １．今回のキッカケ
*/

>アンケートや懸賞で小金稼ぎ、これから始めるつもりなら、
> http://www.ken3.org/etc/500yen/yosou.html    ← 予想ネットの広告です。
>コインを賭けて、サッカー日韓戦の勝敗予想してポイントＧｅｔ、ポイント現金化
>そんな流れです、他の懸賞サイトに予想ネットから登録すると賭けに使えるコインを
>大量にＧｅｔ可能なので、これから始める人は予想ネットから入るのがいいのでは？


などと、口先でだましながら、
紹介手数料をＧｅｔしようと日夜、日々、がんばってます。

フト、商売の基本って？なんだっけ？と思ったので、
勝手な独り言をまた始めます。

いつもの三流プログラマーの語りから、何かをつかんでくれれば幸いです。

/*
 * ２．紹介料がもらえるので
*/

どこかのメルマガで、下記のような広告を見かけたと思います
>-【けんぞう！】---------------------------------------------------------
>月500円、タバコなら２箱、120円缶コーヒーなら４缶分の謝礼をＧｅｔするなら
> http://www.ken3.org/etc/500yen/    ←無料アンケート系の広告です。
>『チッ、がんばって回答して月500円かよ』（お馬鹿なプログラマー：30歳）
>------------------------------------------------------------------------
この広告、みなさんに月５００円を儲けてもらおうと、
親切なメルマガ作者が出しているのでは無く、
50円〜250円くらいの登録料を稼ぐために（稼ぐことを目的として）
メルマガトップの一番いい位置に広告を出してます。

えっ、
親切なＫｅｎ３が私達に儲けさせてくれると思ってた、、、
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
そんな平和な人は居ないと思いますが（いたら、その純粋な心、持ち続けてね）

面白い話で、
必死になって自分でアンケートに答えても
月５００円がやっとなんですよ。

で、今のところ月、７〜８人は私のＨＰからお薦めアンケートに登録してくれます。
紹介料１００円だと７００円、何もしないで紹介料として入ってきます。

自分で右手を動かしてアンケートに答えるのより、
メルマガでチョロチョロっと紹介したほうが儲かるのには、
少しびっくりかなぁ。

そんな前知識を頭のスミに入れておいて、下記〜読んでください。

/*
 * ３．差益を稼ぐ、うまい方法かなぁ？
*/

ただ、バナー広告を貼っていても、クリックすらしてくれないので、
風俗店の潜入レポートじゃないけど、利用した感想を書いてクリック率を上げてます。
（※↑は、雑誌社とグルになった、記事形式の宣伝方法って説もあるけどね）

通常のアンケート系のサイトに飽きてきた今日この頃、
おっこれは？と思わせる遊べるサイトを発見した。
http://www.ken3.org/etc/500yen/yosou.html
※ホントは直接ＵＲＬに飛ばしたいけど、
　もしかして入る手数料を気にして自分のＨＰへとワンクッション入れてます。。。

予想ネットで宣伝しているサイトに登録したり広告を見たりすると、コインがもらえ
る。そのコインを日本ダービーの勝ち馬／日本vs韓国の結果、自分の予想に投票、
見事当たるとポイントがもらえます。そのポイントをイーバンクに振込み現金化
できます

予想ネット、、、見かけは無料で予想して遊ぶ、、
ってなっているけど、コインを賭けていると無くなってしまう。

当たり前でしょ、ハズレたら？減るんじゃない。
えっ、当たっていても減るの？でも当たっていればずっと増やせるんじゃない？

実は、うまい仕組みがあって、
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
コインを賭けて当たると倍率×コインでポイントに加算されるんですね。
で、ポイントが貯まると現金化できる。
コインを賭ける→当たる→コイン増える・・・貯まったら現金
だったら、当て続ければ人によってはかなりの現金Ｇｅｔ出来るけど、
コイン→ポイント→現金の一方通行なんですね。

はじめ５０コインもらえるんだけど、１０コイン単位で賭けてると５回で終了。
そのうち、
松井とイチロー、ファン投票獲得数はどちらが上、５倍の松井に２０賭けて
ムコ殿ドラマ視聴率２倍に２０賭け
巨人阪神どっちが勝つ１．５倍に１０賭け
結果、
ドラマの20*2=40 と 巨人阪神の10*1.5=15
で５５おっ、元取ったと思ったら、これがポイントに加算されます。
（賭けられるコインじゃなくなります）

まぁ、ポイントでも増えたからいいけど、
コイン無くなったからもう遊べないの？

いえいえ、コインを増やす方法があるんですよ(自然には増えない)
コインを貯めるには、毎日１コインくれる広告をクリックするか、
予想ネット内で宣伝している他のアンケートに登録したり、
イーバンクに登録、ショッピングでポイントバック(コインでもらう)
などで、賭けに使えるコインを貯めることが出来ます。

遊ぶコインをユーザーに渡し、
予想ネットは仲介手数料をＧｅｔする。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
コインを賭けたユーザー全員は当たらないので、
儲かって現金化できる人もいるけど、
現金化できない人も多いので、その分儲かるって感じかなぁ。
※そんなこと言ってる私も、紹介料ほしさのバナー貼っているんだけど。

ただで遊べるのには、理由があったんですね。。。
あっ、悪いイメージで受け取ったかもしれないけど、
実際は、
予想ネット内で宣伝している他のアンケートに登録するとコインを大量にくれて、
ゲームで当てればさらに儲かるし、良心的かも。
※サイト内から登録したユーザーにコインで還元しているし。

例えば、私や他ＨＰで見かけるバナー広告、
アナタが登録しても、あなたには何も還元されずに（私や悪人にだけ手数料が入る）
それだったら、自分で登録してコインをモライ、勝負できるほうが楽しいのかも。

深く考えないで、
無料で、楽しければいい、さらに儲かれば嬉しい
って感覚で気楽がいいのかもね。

/*
 * ４．人間心理って面白い？
*/

ハマりかけた、私が言うのもなんだけど、
人間心理って面白い？と思った

少しでも自分の予想が当たると嬉しくなって、
次の予想もしてみたくなる。

あれ、コインが無いや。
あっ、この無料のアンケートに登録するとコインがもらえるんだぁ。
無料だし登録するか・・・遊ぶコインほしいし(笑)

なんて感じで、サイトの思惑にハマってしまう。
サイト自体は、上でも書いたけど、登録料を宣伝先からもらう。
大体もらった登録料の半分がユーザーにコインやポイントとして還元される。

ゲームでコインを使ってもらう、当たる人も居れば外れてコインを捨てる人も居る。
ポイントが貯まった人がもし居ても、それはパチンコ屋で当たった人じゃないけど、
ごく一部の人、その人にお金を換金してあげても、全体では絶対に損をしない。

パチンコじゃないけど、自分だけは当てて、
そのサイトに儲けさせない、予想ゲームに勝つ自信はある、、、
なんて自分だけは特別なんて人が多いと、サイトは儲かるよね。

また、パチンコのクギ設定で出玉の操作じゃないけど、
配当の倍率を裏で操作すれば、楽勝かなぁ。

なかなか、うまい仕組みだなぁ・・・
ハマりかけてその他アンケートメールに埋もれながら
そんな風に思った。

おっと、仕組みがわかったら、サルマネだよね。
みんながやる前に一儲けしなきゃ。

問題点は、
ユーザーのチップ管理のシステム(これはプログラマーだしなんとかASPで)
と
紹介料をくれる広告主を探す方法かぁ。

広告主探しで壁にぶち当たりました。
予想ネットでコインに変えられる広告主にメールしたところ、
無視か丁寧に登録情報は教えられませんと言われました。

a@b.co.jp のユーザーが登録して、自分に紹介料が渡ったことを確認できないと、
このお金を生み出すシステムは成り立たないからなぁ。。。
※それよりも、アンタ、ユーザーとコインの管理、問題に賭ける処理、配当処理
　作れるの?それ作ってからでしょ(笑)

/*
 * ５．終わりの挨拶（次回はアルのか？（爆））
*/

よくわからなかったけど、何が今日は言いたかったの？

えっと、
・予想ネットの宣伝、紹介料稼ぎを狙って(笑)
・差益を稼ぐ仕組み
・ハマりかけるが、正気を取り戻し、メルマガのネタにした
って話でした。

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

いつも失敗？のＫｅｎ３でした。
~~~~~~~(↑オイオイ)

＜学習方法、拾ったサンプルソースをものにする方法＞
こんにちは、三流プログラマーのＫｅｎ３です。

まだ、つぶされずに生き残ってます（笑）
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
そんな前フリは置いといて、
今回は、
学習方法、拾ったサンプルソースをものにする
そんなお話です。

まぁ、いつもの独り言だけど、聞いてください。

/*
 * １．今回のキッカケ
*/

ASPでExcelの処理、ADO使ってごまかしたけど、
他に方法無いか？模索中・・・・

そしたら、マイクロソフトのＨＰから、おっ？と思うサンプルを拾う。

拾ったサンプルを自分のものにした、そんなストーリーを書きます。
元ネタは、ＡＳＰですが、他の言語でもやりかたは一緒だと思うので、
何かのきっかけとなれば、、、、

いつもの三流プログラマーの語りから、何かをつかんでくれれば幸いです。

/*
 * ２．拾ったサンプル
*/

ASP Excel でいろいろと検索、巡回してました。

いろいろと出てきますねぇ、要望が多いのかなぁ。
私のつぶされそうなカスページにもポツポツ検索で来るし、
おっ、マイクロソフトのサンプルページかぁ、
よし、見てみるか。
※てな感じで、みなさんも必要なサンプルを探していると思います。

http://msdn.microsoft.com/library/en-us/dnwebteam/html/webteam07032000.asp
ちっ、ここも英語かよ、日本語のサンプルは無いの？
それとも日本語化される前に、ASP.NETになっちゃったの？

サンプル、見つかっても英語の時、ガックリ来ますよね。

なんて前置きは置いといて、
いつもの台詞で、英語読めないけどプログラムソースはなぜか読める
そんな三流プログラマーが下記のソースを拾ってきた。
※ページの下のほうに転がってました

あきらめないで、読めないのに軽く流し読みすると、
たまに自分の目にソースファイルが飛び込んでくる。
英語読めないけど（コメントやメッセージの意味は不明）
でも、VBAやASPの言語仕様は万国共通なので、
ソースファイルはなぜか不思議とある程度は読むことが出来ると思う。

<%@ language=vbscript %>
<%
  response.buffer = true
  response.ContentType = "application/vnd.ms-excel"
  response.AddHeader "content-disposition", "inline; filename=dynamic.xls"

  response.write "<table width=200>"
  response.write "<tr>"
  for i = 1 to 4
    response.write "<td width=40>"
    response.write i + i
    response.write "</td>"
  next
  response.write "<td width=40><b>=sum(A1:D1)</b></td>"
  response.write "</tr>"
  response.write "</table>"

  response.flush
  response.end

%>

response.writeで出力しているみたいだなぁ、
で、中身をざっと見てみると、

response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=dynamic.xls"
とExcel処理の匂いがプンプン。
※夏の女性の匂いに引き付けられないで、
　サンプルの匂いに魅かれてちゃダメだよ。

ここで、私がもしかしたら使えるのかも？と思ったのが、
  response.write "<td width=40><b>=sum(A1:D1)</b></td>"
と、セルの集計関数の=Sumを使っている場所。

データだけならCSV経由でサーバーから落として、
あと好きなように加工してね、、とやるんだけど、
もし=Sumなどワークシート関数使えるなら、
結果をASPからExcelで返す時、いろいろと使えるのでは？

で、上記ソースをまるごとコピーして、実行してみました。

http://www.ken3.org/cgi-bin/test/test059-1.asp
で実行できます。

すると、いつものxlsファイルを開く、保存の警告メッセージ。
ってことは、Excelのファイルとして認識？

※↑メッセージ画面

開くを選択して、開いてみると、=SUMの計算式が埋まっていた。

※↑開いたイメージ。

/*
 * ３．拾ったサンプルを解析して自分のものにする
*/
さてと、そんな方法でExcelファイルを返すことが出来たので、
拾ったサンプルを自分のものにするために、
わからないことを探りますか。

ここが学生さんのレポートを丸写しで終わっていた課題と違うところかな
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
自分のものにしないとメルマガ読んでるだけじゃ意味無しですよ。

  response.buffer = true

を調べると、
response.buffer = true
の時は、出力をバッファして、
  response.flush　途中でバッファを出力
  response.end　　ＡＳＰの処理を中止し、現在までの結果を返すのかぁ。
なるほどね。
関連項目として、今回出てこなかったけど、
response.clear
ってのがあって、バッファに格納された出力をクリアすることが出来ます。
このクリアを使って、エラーが発生したら、途中までの出力を消して、
エラーのメッセージ画面を表示することも出来そうです。
※また注意事項として、
　response.buffer = trueは、<Html>などの出力の前に行うことです。
　まぁ、出力のバッファだから、一番最初にやれってことね。

こんな、流れで、自分の知らない命令をヘルプで調べたり、
初めの調査はASP Excelだったのに、
芋ずる式にresponse.bufferを調べるようになり、自分のものになっていく。

また、自分で調べると関連項目、ここではサンプルに載っていなかった
response.clear
って出力をクリアする処理をついでに覚えて、
途中までの出力をクリア（キャンセル）して、新たなエラーなどを出力できる。
そんな処理方法まで、学習してしまった。

次は、
  response.ContentType = "application/vnd.ms-excel"
これは、今から送るデータのタイプは、
"application/vnd.ms-excel"
ですよ、とブラウザに教えるために書きます。
  response.ContentType = "imge/gif"
など、指定します。
文字データだけじゃなくて、ＡＳＰでいろいろと出来るんだね、、と感じた。

ここは、これで止めてしまったが、
自分の学習リストをメモ帳などのテキストで残しておき、
ヒマなとき、response.ContentType = "imge/gif"を調べる、、、
なんてやっておくと、幅広く知識を吸収できます。

  response.AddHeader "content-disposition", "inline; filename=dynamic.xls"
これは、詳しく載っていなかったけど、
動作や.AddHeaderから判断すると、ヘッダ情報にファイル名を載せている感じです。

  response.write "<table width=200>"
  response.write "<tr>"
↑この、Excelファイルなのに、普通のテーブルってのが不思議だけど、
　※不思議に感じたら、調べろよ、なぜか？理由があるダロ。
　　疑問のまま素通りすると、私みたいな三流プログラマーなんですね。
　　こんな疑問も、テキストファイルのリストに書いておくといいですよ。
　　（貯まっていくと、イヤになったり、どれからやるか迷うので、
　　　ほどほどにね。。。）

  for i = 1 to 4
    response.write "<td width=40>"
    response.write i + i
    response.write "</td>"
  next

TDだから、横に数値を書き込んで、
※自分で知識があるから、さらっと読めるけど（読めたけど）
　ASPやHTMLやったこと無い人は、<TD>って何？
　から解析に入らないといけないので、
　ソースを拾って読むには、ある程度の知識が必要とフト思いました。

  response.write "<td width=40><b>=sum(A1:D1)</b></td>"

ここが一番感動した、
=Sum
とワークシート関数を入れている部分です。
普通にテーブルイメージなんですね。

※解析してて嬉しくなる、、そんな感覚があると思います。
　下ばかり見て歩いてないで、周りをよく見て歩いていたら、
　風がふいて・・・いいもの発見、、なんてことは無いかな（謎）
　変な想像したアナタ、あたりだよたぶんその想像が（笑）

  response.write "</tr>"
行の終了、

  response.write "</table>"
テーブルの終了

  response.flush
バッファを出力

  response.end
ASP終了

って流れでした。

こんな感じで、拾ってきたソースサンプルを
自分の知識にすることができました。

なんて流れるように書いてるけど、
これは私の数少ない成功例
^^^^^^^^^^^^^^^^^^^^^^^^
実際は、解析途中で断念したり、棚上げ後回しの拾ってきたソース君達も多いです。

全て、こんな方法で知識を吸収はできないのですが、
方法の１つとして、感覚だけでもつかんでもらえて、
成長のキッカケとなればうれしいです。

/*
 * ４．終わりの挨拶（次回はアルのか？（爆））
*/

よくわからなかったけど、何が今日は言いたかったの？

えっと、
・パクッタソースを自分のものにしてしまう方法
・調べごとをすると、芋ずる式に関連知識も吸収できる時もある。
・メモに疑問リスト、調査予定リストを作って、時間のあるときに調べましょう
・実は、盗みきれなかった技術もあります。技を取得するには時間がかかる？
って話でした。

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

いつも失敗？のＫｅｎ３でした。
~~~~~~~(↑オイオイ)

＜入国税や関税無料のほうが人や情報が集まる＞
こんにちは、三流プログラマーのＫｅｎ３です。

まだ、つぶされずに生き残ってます（笑）
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
そんな前フリは置いといて、
今回は、
読者とのやり取り関係と無料、有料の客層について、
そんなお話を軽く。

まぁ、いつもの独り言だけど、聞いてください。

/*
 * １．今回のキッカケ
*/

読者からイロイロなメールをもらって、
自分も勉強させてもらっているなぁ
And
成長しないとなぁ。。。

そんなことを考えつつ、発行します。

/*
 * ２．入国税や関税無料のほうが情報が集まる
*/

有料メルマガで一儲け、コンビニ失敗したダメージを埋めようと思ったけど、
なかなか世の中甘くないよね。

無料版の読者からのほうがいろいろとメールをもらうことが多い。
※まぁ、絶対数が６００対１０人じゃ、あたりまえなんだけど。

読者のメールって大切で
いろいろと情報を提供してくれる人
や
キッカケ、やる気をくれる人・・・

入国税や関税無料で、人と商品が流れるじゃないけど、
フリーソフトや無料のサービス、無料メルマガや無料のＭＬ、掲示板、
人が集まって、情報が自然と流れてくれます。
※ほとんどが無料のため、無料だけじゃ人が集まらないのだけど。

有料ソフトを作成しても、使ってくれる人が少なければ、
要望やクレームの数も少ない、ソフトが成長、バージョンアップしない。
フリーソフト、無料なのに文句を言われて、、と思う作者も居るかもしれないけど、
貴重な意見が集まり、ソフトが成長、自分の腕もあがる。

有料で得られるお金
と
無料で得られるもの、、、少し考えてみるのも面白いかもしれません。

/*
 * ３．いろいろな情報をもらう
*/

ASP系の読者からもらったメールですが（情報ですが）
> 昨日、ちょっと訳あって.ASP.NETの動くサーバを探していたところ
> 下記のURLを見つけました。
> ここなら、VS.netのプロジェクトをボタンひとつでＵＰできます
> ご存知かもしれませんが一応 http://www.bug1ch.net/   です。
----
と、
.NET対応の無料お試し期間付のサーバーを教えてもらったり、
※で.NETはじめましたならいいんだけど、そのまんま、何もしてない（オイオイ）

愚痴系初期からの読者から、
In message "復元",
いちにいさん wrote...
 >ちわ。けん３。
 >
 >突然だけど、復元ってフリーソフト知ってる？
 >これの、求職テキスト読んでみなよ。
 >すごい。
 >フリーソフトDLして、こんな読み物読んだの
 >始めてだわ。（笑）
 >http://www.vector.co.jp/soft/win95/util/se192983.html 
----

と、フリーソフトを紹介してもらう。
私が狙っていた構想とは違う、（私は有料メルマガで再起を狙ったけど）
みんなが使いそうなフリーソフトを作成して、
みずからの実力を世の人に知ってもらい、自分を売り込む、
そんな感じのフリーソフト戦略のドキュメント(求職テキスト)でした。

こんな感じの長期戦略もあるんだなぁと思いました。
みなさんも参考にしてください。
※でも、私も言うだろう近未来の言い訳、
　フリーソフトが完成する前に資金を食いつぶし（生活費が無くなり）
　夢あきらめて会社員に戻る。
　戦略と実行力、どちらが欠けてもうまくは行かない、、、、

/*
 * ４．調子に乗っていると、落とし穴あるんですよ
*/

初心者のキッカケになるようなメルマガを発行して、
初心に帰ろうと思いメルマガの宣伝文、下記のように大きく書いてました。
※http://www.ken3.org/start/  (←発行予定のメルマガ)
----
>初心者お断り的なプログラム関係の掲示板、ＭＬにむかついたことありませんか？
>三流プログラマーのつたない解説ですが、丁寧に解説するので挫折した人や
>これからプログラムやってみたい人は一度のぞいてみてください。
----

チョット車の運転がうまいからって、
もたもたしている初心者マークの車を見つけたら、
後ろからクラクションや煽る、そんな上級プログラマーが多い、、、

なんて書いてた自分も、
真剣な問い合わせ内容をネタにしてしまい、
下記のような書き込みを掲示板にもらいました。

http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi?mode=allread&no=132&page=0
>タイトル：くたばれ！！！
>こっちは真剣に相談したつもりだったけど、ほんまおもしろおかしく
>書いてましたね！
>この３流野郎！！！
>
>もうメルマガ辞めます！
>
>時間の無駄だと気づいたので。。。
----

と、キツイ一言を最近もらいました。

わからないように相談したい、そんな気持ちに気がつかないで、
~~~~~~~~~~~~~~~~~~~~~~~~~~
自分の失敗談含めて、
いつものように書いたら傷つけてしまったみたいです。

読者からネタもらって、それを載せて、、、
それに自分の言葉を付加して、
面白く見せて書く
そんなパターンが最近多かったと思います。
※今回もだけど。

そんな感じで、感覚がマヒしてたのか？
冷静に考えると調子に乗ってて、読者の一人に不快な思いをさせてしまった。

なんか、この書き込みがあってから、
なんだぁ、自分も偉そうなチョットできる初心者イジメのプログラマー
ＭＬや掲示板に転がっているような、イヤなヤツだったんだぁ、、、
と少し考えさせられました。

実力三流、対応も三流じゃ救いようが無いよね。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

/*
 * ５．終わりの挨拶（次回はアルのか？（爆））
*/

よくわからなかったけど、何が今日は言いたかったの？

えっと、
・無料戦略と有料戦略の違い
・読者メールいろいろともらい、助かってます
・自分も調子に乗ったイヤなプログラマーだったことに気が付く。。。
って話でした。

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

いつも失敗？のＫｅｎ３でした。
~~~~~~~(↑オイオイ)

＜重複登録の防止 と 本人確認、個人情報流出＞
こんにちは、三流プログラマーのＫｅｎ３です。

今回は、
重複登録の防止 と 本人確認、個人情報流出
そんな話を軽く。

まぁ、いつもの独り言だけど、聞いてください。

/*
 * １．今回のキッカケ
*/

小金稼ぎをあきらめてないKen3です（笑）
チョイ前、下記の予想ネットの広告を載せました。
---
>アンケートや懸賞で小金稼ぎ、これから始めるつもりなら、
> http://www.ken3.org/etc/500yen/yosou.html     ← 予想ネットの広告です。
>コインを賭けて、サッカー日韓戦の勝敗予想してポイントＧｅｔ、ポイント現金化
>そんな流れです、他の懸賞サイトに予想ネットから登録すると賭けに使えるコインを
>大量にＧｅｔ可能なので、これから始める人は予想ネットから入るのがいいのでは？
---
などと、口先でだましながら？
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
紹介手数料をＧｅｔしようと日夜、日々、がんばってます。

正直に話すと、まともにやっても稼げないよね。
ネットで３万稼ぐ方法、楽々〜、主婦業の余暇に〜...
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
なんて書いて、お客さん（カモ）を釣り上げ、
自分だけ登録費用で稼ぐのが多いと思う。

正確なタイトルは、
自分だけ素人カモってネットで５万稼ぐ方法（素人のカモを捕まえて）
って感じなんだろうなぁ
そこまで、悪じゃないけど、ただの変わり者プログラマーなんだけど（オイオイ）、
三流君も似たり寄ったりの悪人の一部だよってのを認識して、
今回の内容を読んでください。
※私より三流な手口に、だまされないでね（笑）
　だまされるなら、私のところから（爆）

あまり違法性を訴えてると、また正義君につぶされるので、そろそろネタへ。

そんな私の広告に反応してくれる、私にとって嬉しい人も居て、
---
>yosoo netに参加して、遊びながらお小遣いを貯めたり、ショッピング楽しめたり
>と二重の楽しみ方が出来るならいいなと、登録させて頂きましたが、イーバンクの
>口座開設が条件のようですが、・・・なら、私は途中下車するしかありません。
---
と
質問をいただきました。

予想ネット、、、見かけは無料で予想して遊ぶ、、
ってなっているけど、実際はイーバンクに登録させたり、
他のアンケートに登録させたりで、
遊ぶコインをユーザーに渡し、予想ネットは仲介手数料をＧｅｔする。

コインを賭けたユーザー全員は当たらないので、儲かって現金化できる人もいるけど、
現金化できない人も多いので、その分儲かるって感じかなぁ。
※そんなこと言ってる私も、仲介してコインをもらっているんだけど。。。

あっ、質問は、イーバンク無いとダメって質問ですよね。
イーバンクの口座無いと残念ながら現金化できないみたいです。
イーバンクの口座開設するときって、本人確認の書類をＦＡＸで送るので、
個人情報流したくない人には不評みたいですね
(他の人からもイーバンクの質問ありました)

/*
 * ２．報酬受け取り を イーバンク にして、重複防止？
*/

私のような一般人？でも個人でwww.ken3.orgとドメインを取っている今日この頃、
メールアドレスだけで、個人を特定したり、
重複のチェックをするのが難しくなっている。

有名なフリーメールは禁止に出来る、プロバイダーのメールアドレスは有効、
その他の会社や独自のドメインは？
と、考えさせられるのでしょう。

もう、メールアドレスのドメインだけでは、チェックできない？
http://www.ken3.org/etc/500yen/yosou.html
で宣伝している予想ネット、
予想を当てるのは難しいけど、予想ネットから他の懸賞に登録して、
ポイントを稼ぎまくると（全てのサイトに登録すると）
たぶん一ヶ月で２〜３千円ぐらいポイントが自分に返って来る。

もし、これがVISAの商品券や図書券などに換金できるなら、
鈴木家なら、フリーメールを使用して、
鈴木一郎、鈴木次郎、鈴木三郎、鈴木太郎....
とか、架空の名前で登録。で名字と住所が合っていれば当選品が届くと思う。

まぁ、発送先の重複チェックなどしていると思うが、
目検じゃなくコンピュータ的な完全一致のチェックなら、
都会市 田舎町 偏狭村１２５番地 なんだけど、枝番でもつければ違う住所になる？
都会市 田舎町 偏狭村１２５−３
都会市 田舎町 偏狭村１２５−８
-3とか-8なんて付いてても、名字が合ってれば届くよ（近所に同じ人居なければ）

そんな感じの不正を防止するため？
And
確実な本人確認のため、
報酬はイーバンクになっているとおもう。

イーバンクで口座を開く時、
本人確認の書類を送り、一人１口座しか開けなくなってます。
http://www.ken3.org/etc/500yen/ebank.html
※↑ここからイーバンクの登録できます（オイオイまた宣伝かよ）

本人の確認は、イーバンクで既に行っているので、
安心して報酬を払える、そんな風に簡単に考えているのでしょうね。

イーバンクの口座を開設＝本人確認済み
報酬はイーバンクの口座にしか振り込まない＝架空の人物ではない
そんな条件なのでしょう。

アンケートの謝礼、ゲームの報酬を支払うサイト
と
受け取るユーザーの関係は、これでクリアされているのですが、

私のような中間で手数料をもらったり、紹介者でポイントを稼ぐ人達は、
チョット悪さしようと思えば、抜け道があったりする。

えっ、抜け道？どこに？
^^^^^^^^^^^^^^^^^^^^^^
フリーソフトダウンロードサイトに行きます。
作者はネット銀行大好きなのか？イーバンクの振込先の口座番号載せてます。
あと、通常の口座番号も載せてて、名義人の氏名も載せてます。

銀行口座が正しい＝正規ユーザーなんて判断だけだと、
どこからか存在する銀行口座の番号をパクって、
本人のふりして、紹介者は自分 そんな虚偽の登録をする。
紹介手数料だけガメる、、なんてことも出来るのかなぁ。

まぁ、そんな私が考える抜け道ぐらい、ふさいでいると思うし、
自分で口座番号を収集して、自分でデータを登録、
そんな労力かけて時給いくらになるのだろう？
あわないからやらないよね、そんなこと。

/*
 * ３．携帯のメールアドレスで重複チェック
*/

男性の登録無料、試用期間の広告が２つほどあります。
無料登録するには、少々手続きがあって、
携帯のメールアドレスに認証用のキーコード？ＵＲＬ？が送られてきて、
それを入力すると、無料使用の登録可能となります。

完全無料の女性も携帯アドレスでの認証チェックが必要です。

へぇ〜、重複登録して、紹介料を稼ぐ、
そんな技を防止するためなのかなぁ、
まぁ、携帯のメールアドレスってあまり変更しないからなぁ、
有効かもしれませんね。。。って考えにワナがあったりして？

初めから、紹介料をサギろうと、ダミーの携帯を購入。
登録後、数回メールのやりとりして、承認されて手数料入ったら、
アドレスを変更、それの繰り返しもありかなぁ。

ヤッパ、ビジネスセンス無いよね三流君って。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
えっ、なんで？
自分で登録したり、操作したりしたら、時給いくらになるの？
って言ってなかったっけ？

自分で携帯用意するとしましょう、基本料金だけで、ほとんど使わないとして、
まぁ多めに月３千円としましょう。
登録料250円〜500円、まぁ、250円を４つ、500円を４つで経費？の３千にやっと届く。

そこからの登録分が儲けだけど、はたして？
登録後、承認されるまで時間がかかるしね、どうなんでしょうね？

悪のビジネスモデルを作るなら
(欠陥ビジネスモデルをマネして捕まっても責任取れないので、本気にしないでね)

携帯のアドレスを変更する前に小遣い稼ぎ！！！
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
迷惑メールで困った、しつこい男からサヨナラするために、
メールアドレスの変更、メル友を着替えたいそんなアナタ、
チョット待った、捨ててしまう携帯アドレスをお金にしませんか？

って、誇大広告のサイトを作り、ほどほどに広げます。

懸賞やアンケートの報酬サイトをまねて（報酬受け取り用って言葉って有効だよね）
まずは、報酬受け取り用にＥ−ＢＡＮＫの口座を下記から作ってね。
www.***.org
/***
/******/
ebank.html
と、
さりげなく、イーバンクの口座を作らせて、ここでも手数料をＧｅｔ。

次は、捨てアドレスの登録です。
あなたの携帯アドレスと作成（既に持っている）イーバンク口座を送ってください。

ここで、捨てアドレスとイーバンク口座を受け取ったら、
登録した相手に、登録を受け付けました。
メールアドレスを変更する前に、これから一時間以内ぐらいに送られてくる、
確認メールのキーコードＵＲＬを私宛に送ってください
と、登録してくれた人にメッセージを送り返す。

捨てアドレスを使用して、無料登録の出会い系に登録。
出会い系サイトから捨てアドレスへ確認メールが送られる。

確認メールを捨てアドレスユーザーが私宛に送り返す。

来月になって、広告料が現金化されたら、
お金を振り込む。まぁ手数料500円なら250円ぐらいあげてもいいかなぁ。、
４つぐらい登録したら、1000円払ってあげる。（半々で自分にも1000円）
※ホントは、すぐにお金払うと信用度が増し、
　口コミで捨てアドレスユーザー広がるかもしれないけど、
　自分がダマサレル可能性もあるので（笑）
　また、振り込まないでバックレル、、そんな手もありだし、
　前金250円、後金750円とか分割するとか。

予想ネットの仲介手数料を半分ユーザーに還元するを参考にしたんだけど。。。

これでも、自分が行う作業が多いし、
そもそも、やってることが違法だからなぁ。

予想ネットみたく、完全にユーザーに登録させて、、じゃないと、
自動で儲かっていくシステムは作れないかなぁ。

お薦めできないビジネスモデルだよね。
※完全に虚偽の登録サギなので、犯罪です。
　犯罪は、ビジネスモデルとは言いません、ご注意を（絶対にマネしないでね）

/*
 * ４．ネットの個人情報流出をチッェクする
*/

お小遣い稼ぎ系の広告
http://www.ken3.org/etc/okozukai.html
↑お得情報、みんな稼いでね、、と善人ぶってるけど、
自分だけ手数料を稼ぐつもり、、そんな話をしました。
~~~~~~~~~~~~~~~~~~~~~~~~~~
まぁ、そこまでは、気にしないよ、
ＨＰ作者、がんばって、懸賞やアンケートの広告をまとめてくれてるし、
手数料払うの私じゃないし、まぁいいんじゃないの？

なんて、やさしい人でも気になるのが、
懸賞・アンケートサイトに登録した個人情報が流出しないか？
ってことですよね。

安全なサイトを教えてください・・・と言われても、私も答えようが無いです。

流出を防ぐ方法は、登録しないのが一番なのですが、
どうしてもアンケートで小金稼ぎたいひとは、
住所の登録で、勝手な連番を付けて管理します。

都会市 田舎町 偏狭村１２５番地 なんだけど、枝番でもつければ違う住所になる？
都会市 田舎町 偏狭村１２５−３
都会市 田舎町 偏狭村１２５−８

んっ、どこかでみたような（笑）
始めの方で説明していた、違法のデータ作りの応用で、
重複登録するつもりは無いのですが、
Ａ社の登録には、１２５−３
Ｂ社には、125-6と連番で住所を登録して面倒だけどメモして置きます。

だいたい、２ヵ月後ぐらいに関係ないダイレクトメールが増えたら、
その宛先に書かれている住所を見ます。

１２５−６とニセの住所になっていたら、あっＢ社から漏れたんだぁ、
と、流出元がチェックできます。

チェックできたからって、
~~~~~~~~~~~~~~~~~~~~~~~
データ流出だぁと文句を言って企業を脅せないんだけど、、、、
※だったら意味ないか・・・う〜ん・・・
　変なＤＭ来たら、その広告消すぐらいかな。
　被害者を増やさないように。あっ、私のとこから登録する人居ないか（笑）

あとは、応用で、
鈴木家なら、
鈴木一郎、鈴木次郎、鈴木三郎、鈴木太郎....
とか、架空の名前でも名字と住所が合っていれば当選品が届くと思う。
      ^^^^^^^^^^^^^^^^^^^^^^^^
なんて、書いてたけど、そんな架空人物の違反じゃなくて、
なまえがアヤちゃんだったら、漢字をサイト別に変えて、
Ａ社懸賞には彩
Ｂ社アンケートには綾
と違う漢字で登録しておきます。

すると、郵便を受け取った家族が、
名前が違う漢字で来てるよと笑いながら教えてくれるよ（笑）

けんぞうなら、建造、健三、謙三、憲三といっぱいあるし（笑）

銀行の振込先って、カナだから、意外と大丈夫だったりするし。

※虚偽の申請とみなされて、当選抹消になる可能性もあるので、
　参考程度に実施してください。
　私、いまのところ本人確認必要な高額懸賞当たっていないので、
　実害はないのですが。

今のところまだ、へんなダイレクトメールは来てないので、
お小遣い稼ぎ系の広告
http://www.ken3.org/etc/okozukai.html
ヨロシクね。みんな稼いでね、、と善人ぶって（笑）
※実際、懸賞系は一ヶ月やってて、当たってません（爆）
　確実なのは、
  http://www.ken3.org/etc/500yen/index.html のアンケート500円系
　と
  http://www.ken3.org/etc/500yen/yosou.html 
　の予想ネット↑で、家族分イーバンクの口座作って登録。
　時給行かないけど、コインで賭けないでポイントでモライ、
　小金を確実に現金化することはできます。
　まぁ、元のコインはタダなんだから、一発勝負もいいんじゃない？
　サッカー、日本勝ちに賭けて楽しむのもアリでしょう。
　横浜vs阪神三連戦だったら、私は横浜三連勝の大穴に賭けると思う。
  (だから当たらないのか・・・・)

/*
 * ５．終わりの挨拶（次回はアルのか？（爆））
*/

よくわからなかったけど、何が今日は言いたかったの？

えっと、
・重複登録の防止方法ってどんなことしてるのか？想像してみた。
・本人確認の方法って難しい
・まだ穴があるけど、悪のビジネスモデルを考えてみた
・個人情報の流出、防止できないけど、出所／不正な会社を見抜く方法。
って話でした。

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

いつも失敗？のＫｅｎ３でした。
~~~~~~~(↑オイオイ)

＜同じ外見／動作でも中身の違う配列使用プログラム＞
こんにちは、三流プログラマーのＫｅｎ３です。

今回は、
配列を使った、
同じ外見／動作でも中身の違うプログラム
そんなプログラム関係のお話です。

まぁ、いつもの独り言だけど、聞いてください。

/*
 * １．今回のキッカケ
*/

仕様書 書く側 と 受取り側(要求仕様書、基本設計書、詳細設計書)
http://www.ken3.org/vba/doc.html
なんて、偉そうに設計してからシステム組みましょうとほざいてました。

次は、
作成時 Ctrl+C Ctrl+Vの前によく考えよう
http://www.ken3.org/vba/vba-copy-pg.html
では、コピー貼り付けの操作が速い自慢にならないよ、
プログラム作成で一工夫しようよ・・・
とここでも語ってましたねぇ(笑)

どちらかと言えば、芸術的プログラムとは無縁の三流プログラマーです。
えっ、そんなのわかってるって？

そんな前フリは置いといて、

今回は、配列を使用したプログラムを書いてみたいと思います。
※変に複雑にやせている女性より、ふっくらした女性がいいと思うけど・・・
　えっ、でもCtrl+CとCtrl+Vで着膨れしたセンスないプログラム(女性)はチョット?
  う〜ん、いい表現が、、あっ、外見同じでも体脂肪の違いって感じで・・

/*
 * ２．仕様書
*/

「先輩、仕様書ください、口頭じゃなくて紙で。でないと組めませんよ」
ちぇ、しょうがねえなぁ、簡単にテキストファイルで書くか。

仕様.TXT
~~~~~~~~
言語はASPで動作するVBScriptで。　(※言語も書いとくか)

関数名は Sub HANTEI(strNO)       (※関数名なんて好きでいいんだけど)

受け取りは文字列で"1","2","3"を受け取る
1 グー
2 チョキ
3 パー
(※受け取りパラメータの説明を書いて)

処理
^^^^
入力値の判断、エラーならメッセージを表示させ抜ける
エラーメッセージは
[XXXX]は不正な入力です
(※メッセージなんてそれらしく作ってよ、
　　えっ、仕様書で指定しないくせに、あとから文句言うなって?)

乱数でコンピュータの手を発生させる
グー・チョキ・パーを乱数で。

結果の判断と勝負手の表示

USER_NAME(←グローバル変数に格納されてます)さんの手は、グーです
コンピュータの手はパーです

引き分けです
アナタの勝ちです
私（コンピュータ）の勝ちです
と、結果を画面に出力する

リターン値は無しで、関数を終了する


関数仕様書作りのポイント
~~~~~~~~~~~~~~~~~~~~
まず重要なのは、入力(INパラメータ)・処理を詳しく・出力(戻り値)
何を受け取って、XXXXと処理をして、XXXと上位関数に結果を返す。
リターン値無しでも私は気にしないけど、
~~~~~~~~~~~~~~
無い場合でも必ず０を返す(０正常)と書かないと気になる君も居ます。

ほかに必要なのは、処理に入れるんだけど、
エラー処理は?どうするか?
と
意外と質問が多いのが、メッセージの文章。
メッセージ適当でいいよとお任せで渡すけど、
プログラムよりメッセージ考えてた／メッセージに悩んでいた(笑)
なんてプログラマーが居るのも事実。

あとは、簡単な仕様書を元に、説明時に詰めていくんだけど。
※ここで、問題点を話し合って、仕様変更。
  パラメータは０〜２にしてほしいとか、処理方法とか。
　でも仕様書はそのまま。
　そんなんで、初期の仕様書のまま納品なんてパターン多いかも。
　お客はわからないよ・・なんて思わないで更新しようね仕様書の。
　でもそんなことしていると、
  プログラマーってより、ワープロ屋って感じ(これホント)

/*
 * ３．この仕様書から作られたプログラム
*/

こんな仕様書を書くなら、自分で作ったほうがハヤイな・・・
と
思いつつ、仕様書を渡し作業をお願いする。

自分は、上位ルーチンの作成や次の関数仕様書を作成する
And ３が月前に納品した他のシステムのバグ対応、新規システムの打ち合わせ
と平行して業務を実行する。

作成された(できあがった)サブ関数をもらいました。

Sub HANTEI(strNO)  'ユーザーの手を受取り判断する

    Dim nCON  'コンピュータの手１〜３の数値が入る
    Dim nPC   'ユーザーさんの手
    Dim strTE(3) '(*1)配列変数を宣言

    strTE(1) = "グー"   '(*2)配列にメッセージを代入
    strTE(2) = "チョキ"
    strTE(3) = "パー"

    '入力値の判断、エラーならメッセージを表示させ抜ける
    'If文で1,2,3以外を判断する
    If strNO <> "1" And strNO <> "2" And strNO <> "3" Then
        Response.Write "[" & strNO & "]は不正な入力です"
        Exit Sub  '<--Exit Subを使用してここでプログラムを抜ける
    End If

    'コンピュータの手を決定
    Randomize   ' 乱数発生ルーチンを初期化します。
    nCON = Int((3 * Rnd) + 1)  '1 から 3 までの乱数を発生させます。

    '結果判断と表示
    'ユーザーの手を表示する
    nPC = CInt(strNO) 'CInt関数で数値型に変換する
    Response.Write USER_NAME & "さんの手は、"
    Response.Write strTE(nPC) & "です<br>" '(*3)ここでnPC番目を表示

    '(*4)同様にコンピュータの手を表示する
    Response.Write "コンピュータの手は" & strTE(nCON) & "です<br>"

    '結果の判断
    'まず、引き分けを判断
    If nPC = nCON Then Response.Write "引き分けです<br>"

    '次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
    If nPC = 1 And nCON = 2 Then Response.Write "アナタの勝ちです<br>"
    If nPC = 2 And nCON = 3 Then Response.Write "アナタの勝ちです<br>"
    If nPC = 3 And nCON = 1 Then Response.Write "アナタの勝ちです<br>"

    'コンピュータが勝ちか判断 グーvsパー，チョキvsグー,バーvsチョキ
    If nPC = 1 And nCON = 3 Then Response.Write "私（コンピュータ）の勝ちです<br>"
    If nPC = 2 And nCON = 1 Then Response.Write "私（コンピュータ）の勝ちです<br>"
    If nPC = 3 And nCON = 2 Then Response.Write "私（コンピュータ）の勝ちです<br>"

End Sub

自分の作成した上位関数に組み込みテスト。

http://www.ken3.org/cgi-bin/test/test064-1.asp
でテスト実行できます、遊んでみてください

/*
 * ４．同じ固定文字列を嫌う病的プログラマーを目指して
*/

まぁ、関数仕様書の話で終わっても良かったんだけど、
同じ仕様書でも違う中身のプログラムが作成される。
面白いよね And 同じ動作なんだけどプログラマーのレベルって出てくるよ。
※仕様書の内容が粗いほど、イロイロ出てくるって話もあるけど。
　処理フローまで書いては渡さないし、入出力設計のみで、
　あとは、人任せ(担当プログラマー任せ)かなぁ。

動作は同じ、中身が違うプログラム、そんな話に強引にもって行きます。

同じ固定文字列を嫌う先輩
~~~~~~~~~~~~~~~~~~~~~~~~
世の中には少しのムダも許せない、そんな人も居る
が
無駄遣いが好きな人も居る。
プログラム中のムダっていろいろとあるんだけど、
同じ固定のメッセージなどの文字列を嫌う人は多いです。

    '次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
    If nPC = 1 And nCON = 2 Then Response.Write "アナタの勝ちです<br>"
    If nPC = 2 And nCON = 3 Then Response.Write "アナタの勝ちです<br>"
    If nPC = 3 And nCON = 1 Then Response.Write "アナタの勝ちです<br>"

ここ、あきらかにコピープログラムだよね。
上のIf文をコピーして、数値だけ修正してる。
このResponse.Write "アナタの勝ちです<br>"がムダに見えるらしい。

    strMSGPC  = "アナタの勝ちです<br>"             'ユーザー勝利
    strMSGCON = "私（コンピュータ）の勝ちです<br>" 'コンピュータ勝利

    '次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
    If nPC = 1 And nCON = 2 Then Response.Write strMSGPC
    If nPC = 2 And nCON = 3 Then Response.Write strMSGPC
    If nPC = 3 And nCON = 1 Then Response.Write strMSGPC

    'コンピュータが勝ちか判断 グーvsパー，チョキvsグー,バーvsチョキ
    If nPC = 1 And nCON = 3 Then Response.Write strMSGCON
    If nPC = 2 And nCON = 1 Then Response.Write strMSGCON
    If nPC = 3 And nCON = 2 Then Response.Write strMSGCON

って、すればいいんだろ。

なるほどねぇ、メッセージを変えてくれと言われても、
１箇所で済むんだぁ、へぇ〜すごいすごい(笑)(バカにしたような笑い)

なんか文句あるんですか?ボクのプログラムに対して?

別に動いているから文句無いんだけど、
^^^^^^^^^^^^^^^^^^^^^^^^^^^^(どんな書き方でも動くプログラムじゃないと)
配列の使い方、知ってるようで知らないよね。

どこが?ですか?

まず、上のほうでは、
    Dim strTE(3) '(*1)配列変数を宣言
    strTE(1) = "グー"   '(*2)配列にメッセージを代入
    strTE(2) = "チョキ"
    strTE(3) = "パー"
と、配列に手の文字列を入れて置き(下準備)

    'ユーザーの手を表示する
    nPC = CInt(strNO) 'CInt関数で数値型に変換する
    Response.Write USER_NAME & "さんの手は、"
    Response.Write strTE(nPC) & "です<br>" '(*3)ここでnPC番目を表示

    '(*4)同様にコンピュータの手を表示する
    Response.Write "コンピュータの手は" & strTE(nCON) & "です<br>"

と、
strTE(nPC), strTE(nCON)
配列の中身を参照して表示してるよね。

下記のコピー君から卒業してて、
If nPC = "1" Then Response.Write "グーです<br>"
If nPC = "2" Then Response.Write "チョキです<br>"
If nPC = "3" Then Response.Write "パーです<br>"
と比べると、配列を使用してメッセージの管理はOKかなぁ。

それと一緒で、
strMSGPC  = "アナタの勝ちです<br>"             'ユーザー勝利
strMSGCON = "私（コンピュータ）の勝ちです<br>" 'コンピュータ勝利
の
結果のメッセージも配列で管理してみては?
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

    Dim nMSGNO     'メッセージの番号
    Dim strMSG(3)  'メッセージ表示用の配列
    strMSG(1) = "アナタの勝ちです<br>"  'メッセージの代入
    strMSG(2) = "引き分けです<br>"
    strMSG(3) = "私（コンピュータ）の勝ちです<br>"

    '結果の判断
    'まず、引き分けを判断
    If nPC = nCON Then nMSGNO = 2  '引き分け

    '次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
    If nPC = 1 And nCON = 2 Then nMSGNO = 1 'ユーザーの勝ちをセット
    If nPC = 2 And nCON = 3 Then nMSGNO = 1
    If nPC = 3 And nCON = 1 Then nMSGNO = 1

    'コンピュータが勝ちか判断 グーvsパー，チョキvsグー,バーvsチョキ
    If nPC = 1 And nCON = 3 Then nMSGNO = 3 'コンピュータの勝ちをセット
    If nPC = 2 And nCON = 1 Then nMSGNO = 3
    If nPC = 3 And nCON = 2 Then nMSGNO = 3

    '結果のメッセージを表示する(メッセージ番号を使用して)
    Response.Write strMSG(nMSGNO)

と、表示メッセージを配列で用意して、
結果の判断では、nMSGNO = X と メッセージの場号を代入。
最後にメッセージを表示する。
そんな感じに変更すると、

    strMSGPC  = "アナタの勝ちです<br>"             'ユーザー勝利
    '次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
    If nPC = 1 And nCON = 2 Then Response.Write strMSGPC
    If nPC = 2 And nCON = 3 Then Response.Write strMSGPC
    If nPC = 3 And nCON = 1 Then Response.Write strMSGPC
処理は似ているけど、メッセージ内容の変更があっても対応可能で、
Response.Write strMSGPC
を３回も書かなくていいしね。

http://www.ken3.org/cgi-bin/test/test065-1.asp
でテスト実行できます、遊んでみてください
※動作は同じなんだけど

/*
 * ５．２次元配列で結果を管理する
*/

まぁ、配列を使用して、
If nPC = "1" Then Response.Write "グーです<br>"
If nPC = "2" Then Response.Write "チョキです<br>"
If nPC = "3" Then Response.Write "パーです<br>"
から
    Dim strTE(3) '(*1)配列変数を宣言
    strTE(1) = "グー"   '(*2)配列にメッセージを代入
    strTE(2) = "チョキ"
    strTE(3) = "パー"
    'ユーザーの手を表示する
    Response.Write strTE(nPC) & "です<br>" '(*3)ここでnPC番目を表示
と、しました。

これをさらに応用して、

じゃんけんの勝敗を
~~~~~~~~~~~~~~~~~~
    '結果の判断
    'まず、引き分けを判断
    If nPC = nCON Then nMSGNO = 2  '引き分け

    '次に自分が勝ちの手を判断 グーvsチョキ,チョキvsパー,パーvsグー
    If nPC = 1 And nCON = 2 Then nMSGNO = 1 'ユーザーの勝ちをセット
    If nPC = 2 And nCON = 3 Then nMSGNO = 1
    If nPC = 3 And nCON = 1 Then nMSGNO = 1

    'コンピュータが勝ちか判断 グーvsパー，チョキvsグー,バーvsチョキ
    If nPC = 1 And nCON = 3 Then nMSGNO = 3 'コンピュータの勝ちをセット
    If nPC = 2 And nCON = 1 Then nMSGNO = 3
    If nPC = 3 And nCON = 2 Then nMSGNO = 3

    '結果のメッセージを表示する(メッセージ番号を使用して)
    Response.Write strMSG(nMSGNO)
と判断しているんだけど、

条件を表にすると、
~~~~~~~~~~~~~~~~~~
　　       グー(1)  チョキ(2)  パー(3)  ←コンピュータの手
グー(1)    引き分け 勝ち　　　 負け
チョキ(2)　負け　　 引き分け　 勝ち
パー(3)　　勝ち     負け       引き分け
↑自分の手
ですね。

まぁ、そんなこと言われなくても(表に書かなくても)わかるか。
この表を見て判断じゃないけど、
If nPC = 1 And nCON = 3 Then nMSGNO = 3 'コンピュータの勝ちをセット
と、nPC=1グーとnCON=3パーをみて(1,3)負け(コンピュータの勝ち)を判断してます。

メッセージ番号で結果を判断してます。
    strMSG(1) = "アナタの勝ちです<br>"  'メッセージの代入
    strMSG(2) = "引き分けです<br>"
    strMSG(3) = "私（コンピュータ）の勝ちです<br>"

この、1,2,3を表にすると
~~~~~~~~~~~~~~~~~~~~~~~
　　       グー(1)  チョキ(2)  パー(3)  ←コンピュータの手
グー(1)    2引き分け 1勝ち　　　 3負け
チョキ(2)　3負け　　 2引き分け　 1勝ち
パー(3)　　1勝ち     3負け       2引き分け
↑自分の手
ですね。

これをそのまま、２次元配列にして、管理してみます。

    '結果の判断
    '　　       グー(1)  チョキ(2)  パー(3)  ←コンピュータの手
    'グー(1)    2引き分け 1勝ち　　　 3負け
    'チョキ(2)　3負け　　 2引き分け　 1勝ち
    'パー(3)　　1勝ち     3負け       2引き分け
    '↑自分の手

    '勝負の結果表を作る
    Dim strCHK(3, 3)  '3x3の結果の表
    strCHK(1, 1) = 2 : strCHK(1, 2) = 1 : strCHK(1, 3) = 3
    strCHK(2, 1) = 3 : strCHK(2, 2) = 2 : strCHK(2, 3) = 1
    strCHK(3, 1) = 1 : strCHK(3, 2) = 3 : strCHK(3, 3) = 2

    '結果を代入
    nMSGNO = strCHK(nPC, nCON)  '結果表の値を代入

    '結果のメッセージを表示する(メッセージ番号を使用して)
    Response.Write strMSG(nMSGNO)

なんて、２次元配列を使用した書き方ができます。

だいぶ、変わりましたね。
同じ動作なんだけどねぇ・・・

Sub HANTEI(strNO)  'ユーザーの手を受取り判断する

    Dim nCON  'コンピュータの手１〜３の数値が入る
    Dim nPC   'ユーザーさんの手

    Dim strTE(3) '(*1)配列変数を宣言
    strTE(1) = "グー"   '(*2)配列にメッセージを代入
    strTE(2) = "チョキ"
    strTE(3) = "パー"

    Dim nMSGNO     'メッセージの番号
    Dim strMSG(3)  'メッセージ表示用の配列
    strMSG(1) = "アナタの勝ちです<br>"  'メッセージの代入
    strMSG(2) = "引き分けです<br>"
    strMSG(3) = "私（コンピュータ）の勝ちです<br>"

    '入力値の判断、エラーならメッセージを表示させ抜ける
    'If文で1,2,3以外を判断する
    If strNO <> "1" And strNO <> "2" And strNO <> "3" Then
        Response.Write "[" & strNO & "]は不正な入力です"
        Exit Sub  '<--Exit Subを使用してここでプログラムを抜ける
    End If

    'コンピュータの手を決定
    Randomize   ' 乱数発生ルーチンを初期化します。
    nCON = Int((3 * Rnd) + 1)  '1 から 3 までの乱数を発生させます。

    '結果判断と表示
    'ユーザーの手を表示する
    nPC = CInt(strNO) 'CInt関数で数値型に変換する
    Response.Write USER_NAME & "さんの手は、"
    Response.Write strTE(nPC) & "です<br>" '(*3)ここでnPC番目を表示

    '(*4)同様にコンピュータの手を表示する
    Response.Write "コンピュータの手は" & strTE(nCON) & "です<br>"

    '結果の判断
    '　　       グー(1)  チョキ(2)  パー(3)  ←コンピュータの手
    'グー(1)    2引き分け 1勝ち　　　 3負け
    'チョキ(2)　3負け　　 2引き分け　 1勝ち
    'パー(3)　　1勝ち     3負け       2引き分け
    '↑自分の手

    '勝負の結果表を作る
    Dim strCHK(3, 3)  '3x3の結果の表
    strCHK(1, 1) = 2 : strCHK(1, 2) = 1 : strCHK(1, 3) = 3
    strCHK(2, 1) = 3 : strCHK(2, 2) = 2 : strCHK(2, 3) = 1
    strCHK(3, 1) = 1 : strCHK(3, 2) = 3 : strCHK(3, 3) = 2

    '結果を代入
    nMSGNO = strCHK(nPC, nCON)  '結果表の値を代入

    '結果のメッセージを表示する(メッセージ番号を使用して)
    Response.Write strMSG(nMSGNO)

End Sub

http://www.ken3.org/cgi-bin/test/test065-2.asp
でテスト実行できます、遊んでみてください
※動作は同じなんだけど

/*
 * ６．終わりの挨拶（次回はアルのか？（爆））
*/

よくわからなかったけど、何が今日は言いたかったの？

えっと、
If文の連続プログラム
と
配列の値を参照したプログラム
って話です。

まぁ、あまり気にしなくてもいいんだけど、
If文を縦に羅列しすぎるプログラムって、
一工夫できますよ程度に思っててください。

あまり気にし過ぎて病的な配列大好きｉｆ文は悪だとなられても困るし。

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

いつも失敗？のＫｅｎ３でした。
~~~~~~~(↑オイオイ)