//Event Form1.Load   
//    Form1.ComboBox1.List = "163.com|126.com|yeah.net|sina.com"  
//End Event  
//Event Form1.ComboBox1.SelectChange   
//    Dim 索引   
//    索引 = Split(Form1.ComboBox1.List,"|")   
//    邮箱 = 索引(Form1.ComboBox1.ListIndex)   
//End Event 
//用户名 = Form1.InputBox1.Text
//密码 = Form1.InputBox2.Text
//邮箱 = Form1.InputBox3.Text

UserVar 用户名=0 "用户名"
UserVar 密码=0 "密码"
UserVar 邮箱=DropList{"163.com":"163.com"|"126.com":"126.com"|"yeah.net":"yeah.net"|"sina.com":"sina.com"}=0 "邮箱"


Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://www.baidu.com/"
ie.Visible = true
While ie.busy Or ie.readystate <> 4
Wend
ie.document.getElementById("wd").value=邮箱
i = ie.document.getElementById("su").click
Delay 1000
ie.document.getElementById("op_email3_username").value = 用户名
ie.document.getElementById("op_email3_password").value = 密码
i = ie.document.getElementById("op_email3_sub").click
ie.quit