1. 定义变量 panduan
  2. Event(Form1.Label3.Click)
  3. (语句无法识别,可能有错误): End Event
  4. Event(Form1.Button1.Click)
  5. 令 Form1.wangzhi.Text = ""
  6. 令 Form1.zhanghu.Text = ""
  7. 令 Form1.mima.Text = ""
  8. (语句无法识别,可能有错误): End Event
  9. Event(Form1.Button2.Click)
  10. 如果 Form1.wangzhi.Text = "" 则
  11.     令 a = 0
  12. 否则
  13.     令 a = 1
  14. 条件结束
  15. 如果 Form1.zhanghu.Text = "" 则
  16.     令 a = 0
  17. 否则
  18.     令 a = 1
  19. 条件结束
  20. 如果 Form1.mima.Text = "" 则
  21.     令 a = 0
  22. 否则
  23.     令 a = 1
  24. 条件结束
  25. 如果 a = 1 则
  26.     令 PID = Web.Bind("wqm.exe")
  27.     调用 Web.Go(Form1.wangzhi.Text)
  28. 否则
  29.     弹出窗口 "请输入正确的数据!"
  30. 条件结束
  31. 延时 5000 毫秒
  32. 根据 panduan 选择
  33. 情况 1:
  34.     调用 Web.HtmlInput(Form1.zhanghu.Text,"id:idInput")
  35.     延时 3000 毫秒
  36.     调用 Web.HtmlInput(Form1.mima.Text,"id:pwdInput")
  37.     调用 Web.HtmlClick("id:loginBtn")
  38. 情况 2:
  39.     调用 Web.HtmlInput(Form1.zhanghu.Text,"id:Email")
  40.     延时 3000 毫秒
  41.     调用 Web.HtmlInput(Form1.mima.Text,"id:Passwd")
  42.     调用 Web.HtmlClick("id:signIn")
  43. 情况 3:
  44.     调用 Web.HtmlInput(Form1.zhanghu.Text,"id:i0116")
  45.     延时 3000 毫秒
  46.     调用 Web.HtmlInput(Form1.mima.Text,"id:i0118&Name:passwd")
  47.     调用 Web.HtmlClick("id:idSIButton9")
  48. 选择结束
  49. (语句无法识别,可能有错误): End Event
  50. Event(Form1.youxiang.SelectChange)
  51. 根据 Form1.youxiang.ListIndex 选择
  52. 情况 0:
  53.     令 Form1.wangzhi.Text = "http://mail.126.com/"
  54.     令 panduan = 1
  55. 情况 1:
  56.     令 Form1.wangzhi.Text = "https://accounts.google.com/ServiceLogin?service=mail&passive=true&rm=false&continue=http://mail.google.com/mail/&scc=1&ltmpl=default&ltmplcache=2&hl=zh-CN"
  57.     令 panduan = 2
  58. 情况 2:
  59.     令 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"
  60.     令 panduan = 3
  61. 选择结束
  62. (语句无法识别,可能有错误): End Event
  63. Event(Form1.Timer1.Timer)
  64. 令 Form1.shijian.Caption = time
  65. 令 Form1.riqi2.Caption = date
  66. (语句无法识别,可能有错误): End Event
  67. Event(Form1.riqi2.Click)
  68. (语句无法识别,可能有错误): End Event