Dim panduan
Event Form1.Label3.Click

End Event
Event Form1.Button1.Click

Form1.wangzhi.Text = ""
Form1.zhanghu.Text = ""
Form1.mima.Text=""
End Event
Event Form1.Button2.Click

 If Form1.wangzhi.Text = "" Then 
 	a = 0
 	Else 
 	a=1
 End If
 If Form1.zhanghu.Text = "" Then 
 	a = 0
 	Else 
 	a=1
 End If
  If Form1.mima.Text=""  Then 
 	a = 0
 	Else 
 	a=1
 End If
 
 If a = 1 Then 
 PID=Plugin.Web.Bind("wqm.exe")

Call Plugin.Web.Go(Form1.wangzhi.Text)
Else 

MessageBox  "请输入正确的数据！"

 	
 End If
 Delay 5000
 Select Case panduan
 
 Case 1
 
 Call Plugin.Web.HtmlInput(Form1.zhanghu.Text, "id:idInput")
 Delay 3000
 Call Plugin.Web.HtmlInput(Form1.mima.Text, "id:pwdInput")
 Call Plugin.Web.HtmlClick("id:loginBtn")
 
 Case 2 
 Call Plugin.Web.HtmlInput(Form1.zhanghu.Text, "id:Email")
Delay 3000
Call Plugin.Web.HtmlInput(Form1.mima.Text, "id:Passwd")
Call Plugin.Web.HtmlClick("id:signIn")
 Case 3

 Call Plugin.Web.HtmlInput(Form1.zhanghu.Text, "id:i0116")
Delay 3000
Call Plugin.Web.HtmlInput(Form1.mima.Text, "id:i0118&Name:passwd")
Call Plugin.Web.HtmlClick("id:idSIButton9")

End Select
 






End Event
Event Form1.youxiang.SelectChange
Select Case Form1.youxiang.ListIndex
	Case 0
	Form1.wangzhi.Text = "http://mail.126.com/"
	panduan=1
	Case 1
	Form1.wangzhi.Text = "https://accounts.google.com/ServiceLogin?service=mail&passive=true&rm=false&continue=http://mail.google.com/mail/&scc=1<mpl=default<mplcache=2&hl=zh-CN"
	panduan=2
	Case 2
	Form1.wangzhi.Text = "https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1363582913&rver=6.1.6206.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=2052&id=64855&mkt=zh-cn&cbcxt=mai&snsc=1"
	panduan=3
End Select

End Event
Event Form1.Timer1.Timer
Form1.shijian.Caption = time
Form1.riqi2.Caption=date


End Event
Event Form1.riqi2.Click

End Event