Call Plugin.Web.HtmlClick("tag:INPUT&value:提交")
	Delay PageWaitSeconds

    if (Plugin.Web.HtmlExists("tag:P&txt:验证码输入有误，请重新输入") > 0) Then
    	//验证码输入有误，请重新输入
    	Call Plugin.Web.Tips("验证码输入有误，请重新输入 ...")
    	Result = "#resend"
		Plugin.Web.ScrollTo 0,500
		Delay 1000
		Plugin.Web.LeftClick 410, 320
		Delay 6000
    	Goto resend
    End If
	If InStr(Plugin.Web.GetURL, "signup1.php") <= 0 Then
		//MsgBox "注册存在问题，需要人工干预！"
		//EndScript
	End If 
	//开通博客
	Call Plugin.Web.Tips("开通博客 ...")
	Call Plugin.Web.HtmlClick("tag:A&txt:开通我的博客")
	Delay PageWaitSeconds
	Call Plugin.Web.HtmlInput(UserName,"type:text&index:1")
	Delay 1000
	Call Plugin.Web.HtmlCheck("true","id:if1")
	Delay 1000
	Call Plugin.Web.HtmlSelect("1975","id:selBirthdayYear")
	Delay 1000
	Plugin.Web.LeftClick 300, 560
	Delay 1000
	Plugin.Web.KeyDown 40
	Delay 1000
	Plugin.Web.KeyDown 40
	Delay 1000
	Plugin.Web.KeyDown 40
	Delay 1000
	Plugin.Web.KeyDown 40
	Delay 1000
	Plugin.Web.KeyDown 40
	Delay 1000
	Plugin.Web.LeftClick 300, 560
	Delay 10000
	Call Plugin.Web.HtmlSelect("29","id:selBirthdayDay")
	Delay 1000
	Call Plugin.Web.HtmlClick("id:activeBtn")
	Plugin.File.WriteFileEx "d:\sina.txt", UserName
	Delay 30000
	If InStr(Plugin.Web.GetURL, "reg_blog_complete.php") <= 0 Then
		//MsgBox "注册存在问题，需要人工干预！"
		//EndScript
	End If 
Loop
Sub OnScriptExit()
  Call Plugin.Web.Tips("脚本停止运行")
End Sub