月光宝盒_日历_201112

ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 1000
If ProcessID=0 then
  MessageBox "网页按键精灵没有运行"
  EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(890,830)
//Call Plugin.Web.Go("http://box.ci123.com/user2.php")
Call Plugin.Web.ScrollTo(0, 0)

Dim twitter(31)
twitter(1) = "今天是2011年12月1日 星期四 农历辛卯[兔]年十一月初七 公历节日：#世界艾滋病日#"
twitter(2) = "今天是2011年12月2日 星期五 农历辛卯[兔]年十一月初八"
twitter(3) = "今天是2011年12月3日 星期六 农历辛卯[兔]年十一月初九 公历节日：#世界残疾人日#"
twitter(4) = "今天是2011年12月4日 星期日 农历辛卯[兔]年十一月初十"
twitter(5) = "今天是2011年12月5日 星期一 农历辛卯[兔]年十一月十一 公历节日：#国际经济和社会发展志愿人员日#"
twitter(6) = "今天是2011年12月6日 星期二 农历辛卯[兔]年十一月十二"
twitter(7) = "今天是2011年12月7日 星期三 农历辛卯[兔]年十一月十三 今日节气：#大雪#"
twitter(8) = "今天是2011年12月8日 星期四 农历辛卯[兔]年十一月十四 公历节日：#国际儿童电视日#"
twitter(9) = "今天是2011年12月9日 星期五 农历辛卯[兔]年十一月十五 公历节日：#世界足球日#"
twitter(10) = "今天是2011年12月10日 星期六 农历辛卯[兔]年十一月十六 公历节日：#世界人权日#"
twitter(11) = "今天是2011年12月11日 星期日 农历辛卯[兔]年十一月十七"
twitter(12) = "今天是2011年12月12日 星期一 农历辛卯[兔]年十一月十八 公历节日：#西安事变纪念日#"
twitter(13) = "今天是2011年12月13日 星期二 农历辛卯[兔]年十一月十九 公历节日：#南京大屠杀(1937年)纪念日#"
twitter(14) = "今天是2011年12月14日 星期三 农历辛卯[兔]年十一月廿十"
twitter(15) = "今天是2011年12月15日 星期四 农历辛卯[兔]年十一月廿一"
twitter(16) = "今天是2011年12月16日 星期五 农历辛卯[兔]年十一月廿二"
twitter(17) = "今天是2011年12月17日 星期六 农历辛卯[兔]年十一月廿三"
twitter(18) = "今天是2011年12月18日 星期日 农历辛卯[兔]年十一月廿四"
twitter(19) = "今天是2011年12月19日 星期一 农历辛卯[兔]年十一月廿五"
twitter(20) = "今天是2011年12月20日 星期二 农历辛卯[兔]年十一月廿六 公历节日：#澳门回归纪念#"
twitter(21) = "今天是2011年12月21日 星期三 农历辛卯[兔]年十一月廿七 公历节日：#国际篮球日#"
twitter(22) = "今天是2011年12月22日 星期四 农历辛卯[兔]年十一月廿八 今日节气：#冬至#"
twitter(23) = "今天是2011年12月23日 星期五 农历辛卯[兔]年十一月廿九"
twitter(24) = "今天是2011年12月24日 星期六 农历辛卯[兔]年十一月三十 公历节日：#平安夜#"
twitter(25) = "今天是2011年12月25日 星期日 农历辛卯[兔]年十二月初一 公历节日：#圣诞节#"
twitter(26) = "今天是2011年12月26日 星期一 农历辛卯[兔]年十二月初二 公历节日：#毛/泽东诞辰纪念日#"
twitter(27) = "今天是2011年12月27日 星期二 农历辛卯[兔]年十二月初三"
twitter(28) = "今天是2011年12月28日 星期三 农历辛卯[兔]年十二月初四"
twitter(29) = "今天是2011年12月29日 星期四 农历辛卯[兔]年十二月初五"
twitter(30) = "今天是2011年12月30日 星期五 农历辛卯[兔]年十二月初六"
twitter(31) = "今天是2011年12月31日 星期六 农历辛卯[兔]年十二月初七"


iYear = 2011
For iMonth=12 To 12
	For iDay = 1 To 31
		iHour = 07
		iMinute = 55
		//TracePrint CStr(iYear) + "-" + CStr(iMonth) + "-" + CStr(iDay)
		//TracePrint twitter(iday)
		Delay 1000
		Call Plugin.Web.HtmlInput(twitter(iday),"name:content&tag:TEXTAREA")
		Delay 1000
		Call Plugin.Web.HtmlInput(CStr(iYear) + "-" + CStr(iMonth) + "-" + CStr(iDay),"id:sendtime")
		Delay 1000
		Call Plugin.Web.HtmlSelect(CStr(iHour),"id:hour")
		Delay 1000
		Call Plugin.Web.HtmlSelect(CStr(iMinute),"id:minute")
		Delay 1000
		Call Plugin.Web.HtmlClick("tag:INPUT&value:发布微博")
		Delay 10000
	Next
Next



Sub OnScriptExit()
  Call Plugin.Web.Tips("脚本停止运行")
End Sub