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

@dica54dica  2013/4/19

//2013-3-21 晚上设计学习 = 分享      //初始化   Dim 你的邮箱帐号   Dim 你的邮箱密码   Dim 发送邮件地址   Dim 邮件主题   Dim 邮件内容   Dim 邮件附件      //发送按钮   Event Smail.Button_send.Click      你的邮箱帐号 = Smail.InputBox_user.Text   你的邮箱密码 = Smail.InputBox_password.Text   发送邮件地址 = Smail.InputBox_to.Text   邮件主题 = Smail.InputBox_q.Text   邮件内容 = Smail.InputBox_body.Text   邮件附件 = Smail.BrowseBox_f.Path      If 你的邮箱帐号 = "" or 你的邮箱密码 = "" or 发送邮件地址 = "" Then        MsgBox "请将邮件填写完整",vbExclamation   Else       返回值 = Lib.网络.发送邮件(你的邮箱帐号,你的邮箱密码,发送邮件地址,邮件主题,邮件内容,邮件附件)          If 返回值 = TRUE Then           MsgBox "邮件发送成功",vbInformation       Else            MsgBox "邮件发送失败",vbQuestion       End If   End If      End Event      //重置 按钮   Event Smail.Button_reset.Click       Smail.InputBox_user.Text = "邮箱账号"       Smail.InputBox_password.Text = "邮箱密码"       Smail.InputBox_to.Text = ""       Smail.InputBox_q.Text = ""       Smail.InputBox_body.Text = ""       Smail.BrowseBox_f.Path = ""       Smail.InputBox_password.PasswordChar = false   End Event      //定时器   Event Smail.Timer1.Timer       Smail.Timer1.Enabled = false       Smail.InputBox_time.Text = Date + Time       Smail.Timer1.Enabled = True   End Event      //解密载入时   Event Smail.Load       Smail.Timer1.Enabled = false       Smail.Timer1.Interval = 1000       Smail.Timer1.Enabled = True   End Event      //账号 焦点   Event Smail.InputBox_user.GotFocus       If Smail.InputBox_user.Text = "邮箱账号" then           Smail.InputBox_user.Text = ""       End If   End Event      Event Smail.InputBox_user.LostFocus       If Smail.InputBox_user.Text = "" then           Smail.InputBox_user.Text = "邮箱账号"       End If   End Event      //密码 焦点   Event Smail.InputBox_password.GotFocus       If Smail.InputBox_password.Text = "邮箱密码" then           Smail.InputBox_password.Text = ""           Smail.InputBox_password.PasswordChar = True       End If         End Event      Event Smail.InputBox_password.LostFocus       If Smail.InputBox_password.Text = "" then           Smail.InputBox_password.Text = "邮箱密码"           Smail.InputBox_password.PasswordChar = false       End If   End Event