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年11月1日 星期二 农历辛卯[兔]年十月初六"
twitter(2) = "今天是2011年11月2日 星期三 农历辛卯[兔]年十月初七"
twitter(3) = "今天是2011年11月3日 星期四 农历辛卯[兔]年十月初八"
twitter(4) = "今天是2011年11月4日 星期五 农历辛卯[兔]年十月初九"
twitter(5) = "今天是2011年11月5日 星期六 农历辛卯[兔]年十月初十"
twitter(6) = "今天是2011年11月6日 星期日 农历辛卯[兔]年十月十一"
twitter(7) = "今天是2011年11月7日 星期一 农历辛卯[兔]年十月十二 公历节日：#十月社会主义革命纪念日#"
twitter(8) = "今天是2011年11月8日 星期二 农历辛卯[兔]年十月十三 公历节日：#中国记者日#"
twitter(9) = "今天是2011年11月9日 星期三 农历辛卯[兔]年十月十四 公历节日：#全国消防安全宣传教育日#"
twitter(10) = "今天是2011年11月10日 星期四 农历辛卯[兔]年十月十五 公历节日：#世界青年节#"
twitter(11) = "今天是2011年11月11日 星期五 农历辛卯[兔]年十月十六 公历节日：#国际科学与和平周(本日所属的一周)#"
twitter(12) = "今天是2011年11月12日 星期六 农历辛卯[兔]年十月十七 公历节日：#孙中山诞辰纪念日#"
twitter(13) = "今天是2011年11月13日 星期日 农历辛卯[兔]年十月十八"
twitter(14) = "今天是2011年11月14日 星期一 农历辛卯[兔]年十月十九 公历节日：#世界糖尿病日#"
twitter(15) = "今天是2011年11月15日 星期二 农历辛卯[兔]年十月廿十"
twitter(16) = "今天是2011年11月16日 星期三 农历辛卯[兔]年十月廿一 公历节日：#国际宽容日#"
twitter(17) = "今天是2011年11月17日 星期四 农历辛卯[兔]年十月廿二 公历节日：#国际大学生节# #世界学生节#"
twitter(18) = "今天是2011年11月18日 星期五 农历辛卯[兔]年十月廿三"
twitter(19) = "今天是2011年11月19日 星期六 农历辛卯[兔]年十月廿四"
twitter(20) = "今天是2011年11月20日 星期日 农历辛卯[兔]年十月廿五 公历节日：#彝族年#"
twitter(21) = "今天是2011年11月21日 星期一 农历辛卯[兔]年十月廿六 公历节日：#彝族年# #世界问候日# #世界电视日#"
twitter(22) = "今天是2011年11月22日 星期二 农历辛卯[兔]年十月廿七 今日节气：#小雪# 公历节日：#彝族年#"
twitter(23) = "今天是2011年11月23日 星期三 农历辛卯[兔]年十月廿八"
twitter(24) = "今天是2011年11月24日 星期四 农历辛卯[兔]年十月廿九 公历节日：#感恩节#"
twitter(25) = "今天是2011年11月25日 星期五 农历辛卯[兔]年十一月初一"
twitter(26) = "今天是2011年11月26日 星期六 农历辛卯[兔]年十一月初二"
twitter(27) = "今天是2011年11月27日 星期日 农历辛卯[兔]年十一月初三"
twitter(28) = "今天是2011年11月28日 星期一 农历辛卯[兔]年十一月初四"
twitter(29) = "今天是2011年11月29日 星期二 农历辛卯[兔]年十一月初五 公历节日：#国际声援巴勒斯坦人民国际日#"
twitter(30) = "今天是2011年11月30日 星期三 农历辛卯[兔]年十一月初六"


iYear = 2011
For iMonth=11 To 11
	For iDay = 17 To 30
		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

优质内容筛选与推荐>>
1、C#递归遍历文件夹下的文件
2、mvc中文件上传下载
3、港股的历史市盈率
4、UILabel 添加图片
5、nmap svn