//ieで先にログインしておく
blogno="blog103"

//予約したい始めのEntry No
startno=1187

//予約したいのEntry数
entryno=15

loopcnt=startno+entryno-1
ie = CreateOLEObj("InternetExplorer.Application")
ie.Visible = True
While 1
	Ifb startno > loopcnt
		ie.Quit
		exit
	Else
		ie.Navigate("http://"+blogno+".fc2.com/control.php?mode=editor&process=load&eno="+startno)
		while True	// 接続表示待ち
			if (! ie.busy) and (ie.readyState=4) then Break
			sleep(0.1)
		wend
		IESetData(ie, True, "entry[property]", "f")	//予約
//		IESetData(ie, True, "entry[property]", "n")	//下書き
		IESetData(ie, True, "", "value=記事を保存")
		while True	// 接続表示待ち
			if (! ie.busy) and (ie.readyState=4) then Break
			sleep(0.1)
		wend
		startno=startno+1
	EndIf
Wend