[我的爬虫日志04]爬取蔬菜价格,并自动发邮件

易飞鸟

本代码可以实现自动爬取蔬菜价格,并发邮件通知自己,可以电脑上设置一个任务计划,让他每天自动获取

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
p	产品信息
p_list	产品信息		0
返回	文本型
发送内容table	文本型
food_names	文本型		0
i	整数型
keyword	文本型
send_content	文本型
send_title	文本型
邮件返回	文本型
日志	类_日志输出
配置文件名	文本型
配置	类_配置项
SendEmail	文本型
pwd	文本型
ToEmail	文本型

配置文件名 ＝ GetRunPath () ＋ “\app.ini”
SendEmail ＝ 配置.读项文本 (配置文件名, “Email”, “SendEmail”, , )
pwd ＝ 配置.读项文本 (配置文件名, “Email”, “pwd”, , )
ToEmail ＝ 配置.读项文本 (配置文件名, “Email”, “ToEmail”, , )
.if (SendEmail ＝ “” 或 pwd ＝ “” 或 ToEmail ＝ “”)
fputs (, “邮件信息错误!!!” ＋ #换行符 )
return (0)

fputs (, “开始获取...” ＋ #换行符 )
日志.输出文件 (“开始获取...”, 0, )
food_names ＝ { “土豆”, “番茄”, “胡萝卜”, “白菜”, “大葱”, “菜花”, “茄子”, “芸豆”, “芹菜”, “油菜”, “苹果”, “香蕉”, “橙子”, “草莓”, “西瓜”, “火龙果”, “水蜜桃”, “鸭梨”, “芒果”, “五花肉”, “梅花肉”, “纯瘦肉”, “带鱼”, “鲤鱼”, “草鱼”, “胖头鱼”, “东北大米”, “面粉”, “大豆油” }
.for (1, GetAryElementCount (food_names), 1, i)
keyword ＝ food_names [i]
fputs (, “搜索:” ＋ keyword ＋ #换行符 )
日志.输出文件 (“搜索:” ＋ keyword, 0, )
搜索食品价格 (keyword, p)
fputs (, p.p_name ＋ “|” ＋ p.p_price ＋ “|” ＋ p.unitInfo ＋ “|” ＋ p.p_place ＋ “|” ＋ p.publish_date ＋ #换行符 )
日志.输出文件 (p.p_name ＋ “|” ＋ p.p_price ＋ “|” ＋ p.unitInfo ＋ “|” ＋ p.p_place ＋ “|” ＋ p.publish_date ＋ keyword, 0, )
AddElement (p_list, p)
fputs (, “10秒后搜索下一个” ＋ #换行符 )
sleep (1000 × 10)
.next ()
send_content ＝ 组装表格 (p_list)
send_title ＝ “今日食品价格/” ＋ str (now ())
邮件返回 ＝ 发送QQ邮件N (SendEmail, pwd, ToEmail, send_title, send_content)
.ife (邮件返回 ＝ “ok”)
fputs (, “邮件发送成功” ＋ #换行符 )
日志.输出文件 (“邮件发送成功”, 0, )
fputs (, “邮件发送失败!!!” ＋ #换行符 )
日志.输出文件 (“邮件发送失败!!!”, 2, )

fputs (, “任务结束” ＋ #换行符 )
return (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
搜索食品价格	逻辑型
参数名	类 型	参考	可空	数组	备 注
keyword	文本型
产品信息	产品信息

变量名	类 型	静态	数组	备 注
search_url	文本型
ret_headers	文本型
post_data	文本型
ret_json	文本型
search_content	文本型
p	产品信息
cookie	文本型
json	类_json
prodName	文本型

search_url ＝ “http://www.xinfadi.com.cn/getPriceData.html”
post_data ＝ “limit=1&prodName=” ＋ UrlEncode (keyword, 真, 真)
ret_json ＝ HttpRequestRetTextUtf8Decode (search_url, 1, post_data, cookie, cookie, , , , , , )
.ife (json.解析 (ret_json, , ))
p.p_name ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“prodName”, )
p.p_price ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“avgPrice”, ) ＋ “元”
p.unitInfo ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“unitInfo”, )
p.publish_date ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“pubDate”, )
p.p_place ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“place”, )
产品信息 ＝ p
return (真)
return (假)

子程序名	返回值类型	公开	备 注
组装表格	文本型
参数名	类 型	参考	可空	数组	备 注
p_list	产品信息				产品信息数组

变量名	类 型	静态	数组	备 注
table	文本型
i	整数型

table ＝ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
.for (1, GetAryElementCount (p_list), 1, i)
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
table ＝ table ＋ “”
.next ()
table ＝ table ＋ “
[tr][td]食品名称[/td][td]食品价格[/td][td]单位[/td][td]产地[/td][td]发布日期[/td][/tr]
[tr][td]” ＋ p_list .p_name ＋ “[/td][td]” ＋ p_list .p_price ＋ “[/td][td]” ＋ p_list .unitInfo ＋ “[/td][td]” ＋ p_list .p_place ＋ “[/td][td]” ＋ p_list .publish_date ＋ “[/td][/tr]
[/table]”
return (table)

子程序名	返回值类型	公开	备 注
发送QQ邮件N	文本型		成功返回ok,失败返回no
参数名	类 型	参考	可空	数组	备 注
发送者邮箱	文本型
发送者密码	文本型
接收者邮箱	文本型
邮件标题	文本型
邮件内容	文本型

变量名	类 型	静态	数组	备 注
cmd_str	文本型
返回	文本型

cmd_str ＝ “发邮件.exe ” ＋ 发送者邮箱 ＋ “ ” ＋ 发送者密码 ＋ “ ” ＋ “ ” ＋ 接收者邮箱 ＋ “ ” ＋ #引号 ＋ 邮件标题 ＋ #引号 ＋ “ ” ＋ #引号 ＋ 邮件内容 ＋ #引号
返回 ＝ 系统_取DOS执行结果 (cmd_str, )
return (返回)

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 p, 产品信息<br /> .局部变量 p_list, 产品信息, , "0"<br /> .局部变量 返回, 文本型<br /> .局部变量 发送内容table, 文本型<br /> .局部变量 food_names, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 keyword, 文本型<br /> .局部变量 send_content, 文本型<br /> .局部变量 send_title, 文本型<br /> .局部变量 邮件返回, 文本型<br /> .局部变量 日志, 类_日志输出<br /> .局部变量 配置文件名, 文本型<br /> .局部变量 配置, 类_配置项<br /> .局部变量 SendEmail, 文本型<br /> .局部变量 pwd, 文本型<br /> .局部变量 ToEmail, 文本型<br /> <br /> 配置文件名 ＝ GetRunPath () ＋ “\app.ini”<br /> SendEmail ＝ 配置.读项文本 (配置文件名, “Email”, “SendEmail”, , )<br /> pwd ＝ 配置.读项文本 (配置文件名, “Email”, “pwd”, , )<br /> ToEmail ＝ 配置.读项文本 (配置文件名, “Email”, “ToEmail”, , )<br /> <br /> .if (SendEmail ＝ “” 或 pwd ＝ “” 或 ToEmail ＝ “”)<br />     fputs (, “邮件信息错误!!!” ＋ #换行符)<br />     return (0)<br /> .如果真结束<br /> <br /> <br /> fputs (, “开始获取...” ＋ #换行符)<br /> 日志.输出文件 (“开始获取...”, 0, )<br /> <br /> food_names ＝ { “土豆”, “番茄”, “胡萝卜”, “白菜”, “大葱”, “菜花”, “茄子”, “芸豆”, “芹菜”, “油菜”, “苹果”, “香蕉”, “橙子”, “草莓”, “西瓜”, “火龙果”, “水蜜桃”, “鸭梨”, “芒果”, “五花肉”, “梅花肉”, “纯瘦肉”, “带鱼”, “鲤鱼”, “草鱼”, “胖头鱼”, “东北大米”, “面粉”, “大豆油” }<br /> <br /> .for (1, GetAryElementCount (food_names), 1, i)<br />     keyword ＝ food_names <i><br />     fputs (, “搜索:” ＋ keyword ＋ #换行符)<br />     日志.输出文件 (“搜索:” ＋ keyword, 0, )<br />     搜索食品价格 (keyword, p)<br />     fputs (, p.p_name ＋ “|” ＋ p.p_price ＋ “|” ＋ p.unitInfo ＋ “|” ＋ p.p_place ＋ “|” ＋ p.publish_date ＋ #换行符)<br />     日志.输出文件 (p.p_name ＋ “|” ＋ p.p_price ＋ “|” ＋ p.unitInfo ＋ “|” ＋ p.p_place ＋ “|” ＋ p.publish_date ＋ keyword, 0, )<br />     AddElement (p_list, p)<br />     fputs (, “10秒后搜索下一个” ＋ #换行符)<br />     sleep (1000 × 10)<br /> .next ()<br /> <br /> send_content ＝ 组装表格 (p_list)<br /> send_title ＝ “今日食品价格/” ＋ str (now ())<br /> <br /> 邮件返回 ＝ 发送QQ邮件N (SendEmail, pwd, ToEmail, send_title, send_content)<br /> <br /> .ife (邮件返回 ＝ “ok”)<br />     fputs (, “邮件发送成功” ＋ #换行符)<br />     日志.输出文件 (“邮件发送成功”, 0, )<br /> .否则<br />     fputs (, “邮件发送失败!!!” ＋ #换行符)<br />     日志.输出文件 (“邮件发送失败!!!”, 2, )<br /> .如果结束<br /> <br /> fputs (, “任务结束” ＋ #换行符)<br /> <br /> return (0)  ' 可以根据您的需要返回任意数值<br /> <br /> <br /> <br /> <br /> .子程序 搜索食品价格, 逻辑型<br /> .参数 keyword, 文本型<br /> .参数 产品信息, 产品信息, 参考 可空<br /> .局部变量 search_url, 文本型<br /> .局部变量 ret_headers, 文本型<br /> .局部变量 post_data, 文本型<br /> .局部变量 ret_json, 文本型<br /> .局部变量 search_content, 文本型<br /> .局部变量 p, 产品信息<br /> .局部变量 cookie, 文本型<br /> .局部变量 json, 类_json<br /> .局部变量 prodName, 文本型<br /> <br /> search_url ＝ “http://www.xinfadi.com.cn/getPriceData.html”<br /> post_data ＝ “limit=1&prodName=” ＋ UrlEncode (keyword, 真, 真)<br /> ret_json ＝ HttpRequestRetTextUtf8Decode (search_url, 1, post_data, cookie, cookie, , , , , , )<br /> .ife (json.解析 (ret_json, , ))<br />     p.p_name ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“prodName”, )<br />     p.p_price ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“avgPrice”, ) ＋ “元”<br />     p.unitInfo ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“unitInfo”, )<br />     p.publish_date ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“pubDate”, )<br />     p.p_place ＝ json.取属性 (“list”).取成员 (0, ).取通用属性 (“place”, )<br />     产品信息 ＝ p<br />     return (真)<br /> .否则<br />     return (假)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 组装表格, 文本型<br /> .参数 p_list, 产品信息, 数组, 产品信息数组<br /> .局部变量 table, 文本型<br /> .局部变量 i, 整数型<br /> <br /> table ＝ “”<br /> table ＝ table ＋ “”<br /> table ＝ table ＋ “”<br /> table ＝ table ＋ “”<br /> table ＝ table ＋ “”<br /> table ＝ table ＋ “”<br /> table ＝ table ＋ “”<br /> table ＝ table ＋ “”<br /> table ＝ table ＋ “”<br /> .for (1, GetAryElementCount (p_list), 1, i)<br />     table ＝ table ＋ “”<br />     table ＝ table ＋ “”<br />     table ＝ table ＋ “”<br />     table ＝ table ＋ “”<br />     table ＝ table ＋ “”<br />     table ＝ table ＋ “”<br />     table ＝ table ＋ “”<br /> .next ()<br /> table ＝ table ＋ “[table]<br /> 食品名称食品价格单位产地发布日期<br /> ” ＋ p_list <i>.p_name ＋ “” ＋ p_list <i>.p_price ＋ “” ＋ p_list <i>.unitInfo ＋ “” ＋ p_list <i>.p_place ＋ “” ＋ p_list <i>.publish_date ＋ “”<br /> return (table)<br /> <br /> <br /> <br /> .子程序 发送QQ邮件N, 文本型, , 成功返回ok,失败返回no<br /> .参数 发送者邮箱, 文本型<br /> .参数 发送者密码, 文本型<br /> .参数 接收者邮箱, 文本型<br /> .参数 邮件标题, 文本型<br /> .参数 邮件内容, 文本型<br /> .局部变量 cmd_str, 文本型<br /> .局部变量 返回, 文本型<br /> <br /> cmd_str ＝ “发邮件.exe ” ＋ 发送者邮箱 ＋ “ ” ＋ 发送者密码 ＋ “ ” ＋ “ ” ＋ 接收者邮箱 ＋ “ ” ＋ #引号 ＋ 邮件标题 ＋ #引号 ＋ “ ” ＋ #引号 ＋ 邮件内容 ＋ #引号<br /> 返回 ＝ 系统_取DOS执行结果 (cmd_str, )<br /> return (返回)

蓝X云:https://www.ilanzou.com/s/wB7yH9T4

易飞鸟

模块:https://www.ilanzou.com/s/ZsTyH99i

另外还有精易模块,请自行下载

还有发送邮件功能是C#实现,代码如下:

[C#] 纯文本查看 复制代码

using System;
using System.Collections.Generic;
using System.Linq;
using System.Net.Mail;
using System.Net;
using System.Text;
using System.Threading.Tasks;

namespace 发邮件测试
{
    internal class Program
    {
        static void Main(string[] args)
        {
            if (args.Length == 5)
            {
                string fromEmail = args[0];
                string fromPassword = args[1];
                string toEmail = args[2];
                string title = args[3];
                string content = args[4];

                bool result = QQSendEmail(fromEmail, fromPassword, toEmail, title, content);
                if (result)
                {
                    Console.Write("ok");
                }
                else
                {
                    Console.Write("no");
                }
            }
            else
            {
                Console.WriteLine("参数数量不正确。用法: [发件邮箱] [密码或授权码] [收件邮箱] [标题] [内容]");
            }
        }




        /// <summary>
        /// QQ发送邮件
        /// </summary>
        /// <param name="fromEmail"> 发件的QQ邮箱
        /// <param name="fromPassword"> 密码或者授权码
        /// <param name="toEmail"> 收件的邮箱
        /// <param name="title"> 邮件标题
        /// <param name="content"> 邮件内容
        /// <returns></returns>
        static bool QQSendEmail(string fromEmail, string fromPassword, string toEmail, string title, string content)
        {

            MailMessage message = new MailMessage();
            message.From = new MailAddress(fromEmail);

            message.To.Add(toEmail);
            message.Subject = title;

            // 创建包含图片的 HTML 内容
            string htmlBody = content;

            AlternateView htmlView = AlternateView.CreateAlternateViewFromString(htmlBody, null, "text/html");

            message.AlternateViews.Add(htmlView);

            SmtpClient client = new SmtpClient("smtp.qq.com", 587);
            client.EnableSsl = true;
            client.Credentials = new NetworkCredential(fromEmail, fromPassword);

            try
            {
                client.Send(message);
                return true;
            }
            catch
            {
                return false;
            }
        }
    }
}

熊不熊

感谢分享，很给力！~

1067546628

很想学，很想学

光影魔术

感谢分享源码

please

感谢分享，支持开源！！！

fusiyon

感谢分享，支持开源！！

please

感谢分享，支持开源！！！

豆豆灰常开心

感谢发布原创作品，精易因你更精彩！6666666666666

查过

感谢您对论坛的支持！