NEW! サーバーエラー他を見たらワンクリでゴルァ報告を送るスクリプト

http://blog.so-net.ne.jp/inoueyo/2005-05-30-2のHTML版でござい。ちょっと機能追加。

すなわち、Q&Aページにある、「お問合せ」フォームの書き込みを、
１）サーバーエラー
２）ページが表示できません
３）サイトが重すぎ。コンテンツが正常に表示されない
の３つについて、定型文で一発作成するスクリプトです。
ボタンを押した時の時間を勝手に入れてくれるので、送信ボタンだけでOK.
IE以外＆MAC使いの方での動作は未確認です。

ここから、

<Script Language="VBScript">
<!--
eml="[e-mail]"
uid="hoge@ho0"
nickname="hoge"
BlogAddress="hoge.blog.so-net.ne.jp"
ID="0000"

Dim At_now
Dim url

At_now=Now
today_month=month(At_now)
today_date=day(At_now)
today_hour=hour(At_now)

url="https://www.sec.so-net.ne.jp/blog/qa/cgi-bin/entry_chk.cgi?email="_
&eml&"&user_id="&uid&"&nick="&nickname&"&disc="&ID&_
"&question=サーバー障害について&os=Windows%20XP&browser=Internet%20Explorer&online=ADSL&virus_soft=利用している&"&_
"virus_soft_name=XP標準&virus_soft_version=しらん&err_frequency=頻繁に&err_month="&_
today_month&"&err_date="&today_date&"&err_time="&today_hour&"&blogurl="&BlogAddress&"&msg="

Sub wopen_heavy_onClick()
msg_txt="ページ表示が非常に重い。画面が正常に表示されない。"
Window.Open url&msg_txt
End Sub
Sub wopen_sverr_onClick()
msg_txt="サーバーエラーが頻発する。"
Window.Open url&msg_txt
End Sub
Sub wopen_pageerr_onClick()
msg_txt="コメント送信、新規作成記事送信にてページが表示できませんエラー。"
Window.Open url&msg_txt
End Sub
Document.Write "<FORM><INPUT TYPE='BUTTON' NAME='wopen_heavy' VALUE='重～～～～～いぞ'></FORM>"
Document.Write "<FORM><INPUT TYPE='BUTTON' NAME='wopen_sverr' VALUE='サーバーエラー発生中'></FORM>"
Document.Write "<FORM><INPUT TYPE='BUTTON' NAME='wopen_pageerr' VALUE='コメント、記事送信でページ表示エラー'></FORM>"
-->
</Script>

↑ここまでをコピって、「メモ帳」に張りつけ、ごるぁ.htmlとか適当な名前（拡張子はhtmlね）で保存。

ファイルをIEで開くと、怪しげな警告が出ます。それを無視して実行すると、ボタンが表示され、そのボタンを押すと、システムエラーを告知するページが開きます。

必ず、最初の４行（メール、ユーザーID、ニックネーム、Blog URL）は自分のに変えてくださいね。
OSがXPじゃない人は、上の文字列の中の「Windows％20XP」を「Windows2000」のように適当に変えてください。

あと、乱打はだめよ。