ぐりぐりももんがのうんちくゲレンデ行脚＆地方応援ブログ: 今シーズンも終わりなんだと思いつつ、ブログランキングのクリックを考えてみる

二月、広島県ユートピアサイオト・スキー場にて

明日４月２日で、内地のゲレンデの多くが、営業を終了してしまいますね。
それなのに、エープリルフールの４月１日は甲信越地方に雪が降っています。

例年に比べて、積雪が依然と一メーターを超えているゲレンデがかなります。
それで、一週間、営業期間を延長してしまったのが、白樺湖ロイヤルヒルです。

一方、周辺の車山、エコーバレー、しらかば高原国際は、明日の２日で終わり。
富士見高原のゲレンデも、ゴンドラは運行を終えましたが、営業は９日までです。

上越地方のゲレンデにしても、明日の２日までを営業とするゲレンデが多いのだ。
プリンスの軽井沢にしてもそうなので、動員数が減っている現状では仕方がない。

暖冬と思われた割には降雪もあった中で、営業終了を惜しむスキー場もあります。
特に、中国地方のアサヒテングストンのホームぺージで申し訳なさそうなのです。

　　まだゴンドラ山頂エリアには雪が残っており心苦しいのですが、
　　本日(2017年3月20日)で本年度の営業を終了させていただきます。

一般的に、西日本のゲレンデは、春分の日まで営業できれば御の字でしょう。
ただ、今シーズンは本当にスペシャルで、恐羅漢のゲレンデも明日までが営業。

自分的には、先週末のスキー旅行で板納めとしましたので、少し未練が残ります。
まあ、気分次第で、春スキーのメッカ、奥只見丸山、かぐらなどを考えましょう。

ところで、自分もブログランキングに参加しておりますが、シーズンオフは難しい。
スキーは季節限定のスポーツなので、雪がなくなれば書くべき記事も消えていく。

しかも、ランキングの上位勢に比べれば、ポイントも積み増しができず苦労する。
なんであんなにポイントがしこたま、積み重なって上位を維持できるんだろうか。

そう、疑問に思いつつ、自分はシコシコとクリックしながら、記事を書き続けます。
それでも、ウインドウズの力に頼ってみようかと思って、田代砲も使ってみました。

このプログラムは、一定時間隔でＵＲＬをクリックできるというプログラムの代物。
でも、敵もさるもの引っ掻くもので、こういった偽装行為は見破られていそうです。

だから、どんなに人造的なクリック行為では、全然、ポイントが増えていかない。
しかも、この田代砲は、インターネットエクスプローラーでしか起動してくれない。

例えば、クロームなど他のブラウザーでクリック起動してポイントを稼げないのか。
そう思いつつ月日が経過してしまったのですが、今回、プログラムをこさえました。

ボタン三つで、各々のブラウザーを起動

これまで、仕事柄、エクセルのファイルで業務改善としてマクロ実装をしてきました。
窓際の暇に任せての、勉強がてらの作業なのですが、これが役に立ちましたわ。

試しに、こさえたマクロ構文を公開しますので、マクロを使える人は挑戦してみてね。
これで、ランキングのポイントが増えるかどうかは、責任を持たないので悪しからず。

＜マクロボタンの構文＞
Sub ボタン1_Click()
'マクロボタン1のプログラム
Dim waitTime As Variant
Dim chromePath As String
'変数宣言（クローム起動後のウエイト時間とクロームプログラムのドライブ・フォルダーのパスを通す
chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
'クロームプログラムのドライブ・フォルダーのパスを通す
For i = 1 To 8
'これ以降のコマンドを８回実行する指定
Shell (chromePath & " -url https://snow.blogmura.com/ranking.html")
'ブログランキングをクロームで表示実行する
waitTime = Now + TimeValue("0:00:4")
'クローム実行後、4秒待つ変数
Application.Wait waitTime
'URLを表示するのに4秒待つ
Shell (chromePath & " -url https://snow.blogmura.com/skigelande/ranking.html")
'別のブログランキングをクロームで実行する
waitTime = Now + TimeValue("0:00:4")
'クローム実行後、4秒待つ変数
Application.Wait waitTime
'URLを表示するのに4秒待つ
Next
'コマンド実行繰り返しで指定回数が終わるまで戻す
End Sub
'このマクロの終了

というわけで、赤字の箇所は、ＰＣ設定や希望する条件に合わせて変更してください。
これから、シーズンオフになりますが、どんな記事を書き続けていこうか、頭を悩ませているところでもあり、こんなマクロの成果を紹介する投稿も、場違いなんだけど載せてみるかと思ったりもするのでした。

おまけ：
＜田代砲のＨＴＭＬ構文～参考になるかな＞
<html>
<head><title>超田代砲改 Ver.1.2</title>
<FONT SIZE="4" COLOR="#000000">超田代砲改 Ver.1.2</FONT>
<br>
<br>
<script language="javascript">

</script>
</head>
<body>
目標アドレス:<br><input type="text" size=50 name=addressvalue=http://snow.blogmura.com/skigelande/><br><br>
発射間隔:<br><input type="text" size=5 name=inter value=16>秒<br><br>
既発射弾数:<br>
<input type="text" name=fired value=1><BR>
<input type=button value="発射" onClick="display();">
</body></html>