运行环境：分辨率：1680×1050 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.51.11790
@j3185132 2013/3/19
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