- 定义变量 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)
- 如果 Form1.wangzhi.Text = "" 则
- 令 a = 0
- 否则
- 令 a = 1
- 条件结束
- 如果 Form1.zhanghu.Text = "" 则
- 令 a = 0
- 否则
- 令 a = 1
- 条件结束
- 如果 Form1.mima.Text = "" 则
- 令 a = 0
- 否则
- 令 a = 1
- 条件结束
- 如果 a = 1 则
- 令 PID = Web.Bind("wqm.exe")
- 调用 Web.Go(Form1.wangzhi.Text)
- 否则
- 弹出窗口 "请输入正确的数据!"
- 条件结束
- 延时 5000 毫秒
- 根据 panduan 选择
- 情况 1:
- 调用 Web.HtmlInput(Form1.zhanghu.Text,"id:idInput")
- 延时 3000 毫秒
- 调用 Web.HtmlInput(Form1.mima.Text,"id:pwdInput")
- 调用 Web.HtmlClick("id:loginBtn")
- 情况 2:
- 调用 Web.HtmlInput(Form1.zhanghu.Text,"id:Email")
- 延时 3000 毫秒
- 调用 Web.HtmlInput(Form1.mima.Text,"id:Passwd")
- 调用 Web.HtmlClick("id:signIn")
- 情况 3:
- 调用 Web.HtmlInput(Form1.zhanghu.Text,"id:i0116")
- 延时 3000 毫秒
- 调用 Web.HtmlInput(Form1.mima.Text,"id:i0118&Name:passwd")
- 调用 Web.HtmlClick("id:idSIButton9")
- 选择结束
- (语句无法识别,可能有错误): End Event
- Event(Form1.youxiang.SelectChange)
- 根据 Form1.youxiang.ListIndex 选择
- 情况 0:
- 令 Form1.wangzhi.Text = "http://mail.126.com/"
- 令 panduan = 1
- 情况 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
- 情况 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 Event
- Event(Form1.Timer1.Timer)
- 令 Form1.shijian.Caption = time
- 令 Form1.riqi2.Caption = date
- (语句无法识别,可能有错误): End Event
- Event(Form1.riqi2.Click)
- (语句无法识别,可能有错误): End Event