Smail邮件客户端脚本源码-按键精灵源码

Posted 2021-01-06 xiazai

这么多代码，直接附上按键精灵源码例程吧
点击此处下载Smail邮件客户端脚本源码例程
  
//初始化  
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