月光宝盒

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

 

转载于:https://www.cnblogs.com/txw1958/archive/2011/11/16/2251504.html

相关资源：各显卡算力对照表！