按键精灵邮箱登录脚本源码，

运行环境：分辨率：800×600 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.00.9460

@lishichaoajjl    2011/9/9

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