1. 注释：Event Form1.Load
2. 注释： Form1.ComboBox1.List = "163.com|126.com|yeah.net|sina.com"
3. 注释：End Event
4. 注释：Event Form1.ComboBox1.SelectChange
5. 注释： Dim 索引
6. 注释： 索引 = Split(Form1.ComboBox1.List,"|")
7. 注释： 邮箱 = 索引(Form1.ComboBox1.ListIndex)
8. 注释：End Event
9. 注释：用户名 = Form1.InputBox1.Text
10. 注释：密码 = Form1.InputBox2.Text
11. 注释：邮箱 = Form1.InputBox3.Text
12. 用户定义变量 用户名=0 "用户名"
13. 用户定义变量 密码=0 "密码"
14. 用户定义变量 邮箱=DropList{"163.com":"163.com"|"126.com":"126.com"|"yeah.net":"yeah.net"|"sina.com":"sina.com"}=0 "邮箱"
15. 令 ie = CreateObject("internetexplorer.application")
16. ie.navigate("http://www.baidu.com/")
17. 令 ie.Visible = true
18. 循环当 ie.busy 或者 ie.readystate <> 4 时
19. 循环结束
20. 令 ie.document.getElementById("wd").value = 邮箱
21. 令 i = ie.document.getElementById("su").click
22. 延时 1000 毫秒
23. 令 ie.document.getElementById("op_email3_username").value = 用户名
24. 令 ie.document.getElementById("op_email3_password").value = 密码
25. 令 i = ie.document.getElementById("op_email3_sub").click
26. ie.quit()