//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