///////////////////////////////////////////////////////////////////////
//懸賞サイト自動入力スクリプト(ビール用)
//2004年9月 by stabucky
//http://stabucky.blogzine.jp/
//
//懸賞サイトのフォームに自動的に名前等を入力します。
//初回起動時のみダイアログにしたがって名前等を入力してください。
//名前等を変更したい場合は <ini_dir>\Sciprt.iniの
//kenshoセクションを修正してください。
//ビール会社のサイトでうまく動くようにしています。
//
//このスクリプトの改変は自由に行っていただいてかまいません。
//
//履歴
//20040910無駄な部分を省いた。
//20040909公開。
//
///////////////////////////////////////////////////////////////////////

var thisPage="kensho";

var slpnr=new ActiveXObject("Sleipnir.API");
var id=slpnr.GetDocumentID(slpnr.ActiveIndex);
var document=slpnr.GetDocumentObject(id);

//読み込み
var kanjisei=slpnr.GetProfileString(thisPage,"kanjisei","");
var kanjimei=slpnr.GetProfileString(thisPage,"kanjimei","");
var katasei=slpnr.GetProfileString(thisPage,"katasei","");
var katamei=slpnr.GetProfileString(thisPage,"katamei","");
var hirasei=slpnr.GetProfileString(thisPage,"hirasei","");
var hiramei=slpnr.GetProfileString(thisPage,"hiramei","");
var yubin= slpnr.GetProfileString(thisPage,"yubin","");
var pref=slpnr.GetProfileString(thisPage,"pref","");
var city=slpnr.GetProfileString(thisPage,"city","");
var town=slpnr.GetProfileString(thisPage,"town","");
var banchi=slpnr.GetProfileString(thisPage,"banchi","");
var tatemono=slpnr.GetProfileString(thisPage,"tatemono","");
var denwa=slpnr.GetProfileString(thisPage,"denwa","");
var mail=slpnr.GetProfileString(thisPage,"mail","");
var age=slpnr.GetProfileString(thisPage,"age","");
var seibetsu=slpnr.GetProfileString(thisPage,"seibetsu","");
var shokugyo=slpnr.GetProfileString(thisPage,"shokugyo","");
var by=slpnr.GetProfileString(thisPage,"by","");
var bm=slpnr.GetProfileString(thisPage,"bm","");
var bd=slpnr.GetProfileString(thisPage,"bd","");

//情報の入力
if((kanjisei=="")||(slpnr.ShiftDown)){
	kanjisei=slpnr.InputBox("姓(漢字)",kanjisei);
	kanjimei=slpnr.InputBox("名(漢字)",kanjimei);
	katasei=slpnr.InputBox("姓(カタカナ)",katasei);
	katamei=slpnr.InputBox("名(カタカナ)",katamei);
	hirasei=slpnr.InputBox("姓(ひらがな)",hirasei);
	hiramei=slpnr.InputBox("名(ひらがな)",hiramei);
	yubin=slpnr.InputBox("郵便番号(半角、-で区切る。例「123-4567」)",yubin);
	pref=slpnr.InputBox("都道府県(「県」まで入れる。例「東京都」「神奈川県」)",pref);
	city=slpnr.InputBox("市、区(区のあるところは「区」まで。例「新宿区」「川崎市○○区」「町田市」)",city);
	town=slpnr.InputBox("住所(番地の前まで。例「○○町」)",town);
	banchi=slpnr.InputBox("番地(全角がベター。例「１−２−３」)",banchi);
	tatemono=slpnr.InputBox("建物、部屋番号(全角がベター。例「○○マンション１２３号室」)",tatemono);
	denwa=slpnr.InputBox("電話番号(半角、-で区切る。例「0123-45-6789」)",denwa);
	mail=slpnr.InputBox("メールアドレス(半角。例「abc@def.ne.jp」)",mail);
	age=slpnr.InputBox("年齢(半角 例：39)",age);
	seibetsu=slpnr.InputBox("性別(「男」または「女」)",seibetsu);
	shokugyo=slpnr.InputBox("職業(「会社員」、「自営業」、「主婦」、「学生」、「その他」)",shokugyo);
	by=slpnr.InputBox("生まれた年(西暦、半角)",by);
	bm=slpnr.InputBox("生まれた月(半角)",bm);
	bd=slpnr.InputBox("生まれた日(半角)",bd);

	slpnr.WriteProfileString(thisPage,"kanjisei",kanjisei);
	slpnr.WriteProfileString(thisPage,"kanjimei",kanjimei);
	slpnr.WriteProfileString(thisPage,"katasei",katasei);
	slpnr.WriteProfileString(thisPage,"katamei",katamei);
	slpnr.WriteProfileString(thisPage,"hirasei",hirasei);
	slpnr.WriteProfileString(thisPage,"hiramei",hiramei);
	slpnr.WriteProfileString(thisPage,"yubin",yubin);
	slpnr.WriteProfileString(thisPage,"pref",pref);
	slpnr.WriteProfileString(thisPage,"city",city);
	slpnr.WriteProfileString(thisPage,"town",town);
	slpnr.WriteProfileString(thisPage,"banchi",banchi);
	slpnr.WriteProfileString(thisPage,"tatemono",tatemono);
	slpnr.WriteProfileString(thisPage,"denwa",denwa);
	slpnr.WriteProfileString(thisPage,"mail",mail);
	slpnr.WriteProfileString(thisPage,"age",age);
	slpnr.WriteProfileString(thisPage,"seibetsu",seibetsu);
	slpnr.WriteProfileString(thisPage,"shokugyo",shokugyo);
	slpnr.WriteProfileString(thisPage,"by",by);
	slpnr.WriteProfileString(thisPage,"bm",bm);
	slpnr.WriteProfileString(thisPage,"bd",bd);
}

var i,j;
var frm;
var tmp;
var sss,ttt;

frm=document.all.tags("select");
for(i=0;i<frm.length;i++){
	tmp=frm.item(i).name;
	if((tmp=="d_Add0")||(tmp=="f_prefect")||(tmp=="btcapref")||(tmp=="PREF_CODE")){
		for(j=0;j<frm.item(i).options.length;j++){
			sss=frm.item(i).options(j).text;
			ttt=pref;
			if(sss==ttt){
				frm.item(i).options(j).selected=true;
			}
		}
	}
	//suntory
	if(tmp=="btcaage"){
		for(j=0;j<frm.item(i).options.length;j++){
			if(frm.item(i).options(j).text==age)frm.item(i).options(j).selected=true;
		}
	}
	if(tmp=="btcabirthm"){
		for(j=0;j<frm.item(i).options.length;j++){
			if(frm.item(i).options(j).text==bm)frm.item(i).options(j).selected=true;
		}
	}
	if(tmp=="btcabirthd"){
		for(j=0;j<frm.item(i).options.length;j++){
			if(frm.item(i).options(j).text==bd)frm.item(i).options(j).selected=true;
		}
	}
	if(tmp=="occupation"){
		for(j=0;j<frm.item(i).options.length;j++){
			if(frm.item(i).options(j).text==shokugyo)frm.item(i).options(j).selected=true;
		}
	}
	if(tmp=="know")frm.item(i).options(1).selected=true;//「サントリーホームページを見て」を選択
	//asahi
	if(tmp=="BIRTHDAY_MONTH"){
		for(j=0;j<frm.item(i).options.length;j++){
			if(frm.item(i).options(j).text==bm)frm.item(i).options(j).selected=true;
		}
	}
	if(tmp=="BIRTHDAY_DATE"){
		for(j=0;j<frm.item(i).options.length;j++){
			if(frm.item(i).options(j).text==bd)frm.item(i).options(j).selected=true;
		}
	}
}

frm=document.all.tags("input");
for(i=0;i<frm.length;i++){
	tmp=frm.item(i).name;
	switch(frm.item(i).type.toLowerCase()){
		case "text":
			//kirin
			if(tmp=="d_KanjiName")frm.item(i).value=kanjisei+kanjimei;
			if(tmp=="d_KanaName")frm.item(i).value=hirasei+hiramei;
			if(tmp=="d_ZipCode1")frm.item(i).value=yubin.split("-")[0];
			if(tmp=="d_ZipCode2")frm.item(i).value=yubin.split("-")[1];
			if(tmp=="d_Add1")frm.item(i).value=city+town;
			if(tmp=="d_Add3")frm.item(i).value=banchi;
			if(tmp=="d_Add4")frm.item(i).value=tatemono;
			if(tmp=="d_TelNo1")frm.item(i).value=denwa.split("-")[0];
			if(tmp=="d_TelNo2")frm.item(i).value=denwa.split("-")[1];
			if(tmp=="d_TelNo3")frm.item(i).value=denwa.split("-")[2];
			if(tmp=="d_EmailAdd")frm.item(i).value=mail;
			if(tmp=="d_BirthDayY")frm.item(i).value=by;
			if(tmp=="d_BirthDayM")frm.item(i).value=bm;
			if(tmp=="d_BirthDayD")frm.item(i).value=bd;
			//sapporo
			if(tmp=="l_name")frm.item(i).value=kanjisei;
			if(tmp=="f_name")frm.item(i).value=kanjimei;
			if(tmp=="l_kana")frm.item(i).value=katasei;
			if(tmp=="f_kana")frm.item(i).value=katamei;
			if(tmp=="f_zip_1")frm.item(i).value=yubin.split("-")[0];
			if(tmp=="f_zip_2")frm.item(i).value=yubin.split("-")[1];
			if(tmp=="f_add_1")frm.item(i).value=city;
			if(tmp=="f_add_2")frm.item(i).value=town+banchi+tatemono;
			if(tmp=="f_tel_1")frm.item(i).value=denwa.split("-")[0];
			if(tmp=="f_tel_2")frm.item(i).value=denwa.split("-")[1];
			if(tmp=="f_tel_3")frm.item(i).value=denwa.split("-")[2];
			if(tmp=="e_mail")frm.item(i).value=mail;
			//suntory
			if(tmp=="btcakanasei")frm.item(i).value=katasei;
			if(tmp=="btcakanamei")frm.item(i).value=katamei;
			if(tmp=="btcakanjisei")frm.item(i).value=kanjisei;
			if(tmp=="btcakanjimei")frm.item(i).value=kanjimei;
			if(tmp=="btcazip1")frm.item(i).value=yubin.split("-")[0];
			if(tmp=="btcazip2")frm.item(i).value=yubin.split("-")[1];
			if(tmp=="btcacity")frm.item(i).value=city+town+banchi;
			if(tmp=="btcaapartment")frm.item(i).value=tatemono;
			if(tmp=="btcatel1")frm.item(i).value=denwa.split("-")[0];
			if(tmp=="btcatel2")frm.item(i).value=denwa.split("-")[1];
			if(tmp=="btcatel3")frm.item(i).value=denwa.split("-")[2];
			if(tmp=="btcaemail")frm.item(i).value=mail;
			if(tmp=="btcabirthy")frm.item(i).value=by;
			//asahi
			if(tmp=="KAIIN_NAME1")frm.item(i).value=kanjisei;
			if(tmp=="KAIIN_NAME2")frm.item(i).value=kanjimei;
			if(tmp=="KAIIN_KANA1")frm.item(i).value=hirasei;
			if(tmp=="KAIIN_KANA2")frm.item(i).value=hiramei;
			if(tmp=="ZIP_CODE1")frm.item(i).value=yubin.split("-")[0];
			if(tmp=="ZIP_CODE2")frm.item(i).value=yubin.split("-")[1];
			if(tmp=="ADDRESS_1")frm.item(i).value=city+town+banchi;
			if(tmp=="ADDRESS_2")frm.item(i).value=tatemono;
			if(tmp=="TEL_CODE1")frm.item(i).value=denwa.split("-")[0];
			if(tmp=="TEL_CODE2")frm.item(i).value=denwa.split("-")[1];
			if(tmp=="TEL_CODE3")frm.item(i).value=denwa.split("-")[2];
			if(tmp=="EMAIL")frm.item(i).value=mail;
			if(tmp=="BIRTHDAY_YEAR")frm.item(i).value=by;
			break;
		case "radio":
			if((frm.item(i).name=="d_Sex")||(frm.item(i).name=="btcasex")){
				if(((seibetsu=="男")&&(frm.item(i).value=="1"))||((seibetsu=="女")&&(frm.item(i).value=="2"))){
					frm.item(i).checked="true";
				}
			}
			//sapporo
			if(frm.item(i).name=="adult_chk"){//20歳以上であること
				if(frm.item(i).value=="1")frm.item(i).checked="true";
			}
			//asahi
			if(frm.item(i).name=="SEX_CODE"){
				if(((seibetsu=="男")&&(frm.item(i).value=="0"))||((seibetsu=="女")&&(frm.item(i).value=="1"))){
					frm.item(i).checked="true";
				}
			}
			break;
	}
}
WScript.Echo("セットしました。");