易语言核心自动化场景实战：办公、测试、数据抓取与游戏脚本开发

在这里插入图片描述

引言

自动化是易语言最受欢迎、应用最广泛的核心场景之一！很多人学习易语言的直接动力，就是为了解放双手，提高工作效率——比如批量处理 Excel 报表、自动登录办公系统、定时发送邮件、自动抓取网页数据，甚至为自己喜欢的单机/绿色窗口游戏写简单的挂机脚本。

前 10 篇我们已经掌握了易语言的基础语法、组件库、网络通信、数据库操作、多线程优化和高级底层编程，这些都是自动化开发的技术基础。本章将重点讲解四大高频自动化场景的全流程实战开发，帮助大家将所学知识应用到实际工作和生活中。

学习目标

掌握Windows GUI 自动化的核心原理（窗口句柄查找、控件操作、消息发送）
学会使用精易模块和大漠插件实现自动化操作
完成办公自动化实战（批量生成工资条、自动发送会议通知邮件）
完成网页数据抓取自动化实战（自动抓取天气数据、自动抓取招聘网站职位信息）
完成基础游戏脚本开发实战（⚠️仅用于学习，严禁开发/传播违法违规的游戏外挂）
掌握自动化项目的通用开发流程，形成自动化开发思维

学习重点

窗口句柄、控件类名、控件 ID 的获取方法（使用 Spy++或精易编程助手）
精易模块和大漠插件的安装与配置
Windows API 和 OLE 自动化的使用方法
图像识别和键盘鼠标模拟的实现
自动化项目的测试、优化和打包方法

自动化开发核心技术基础

Windows GUI 自动化原理

Windows GUI 自动化的核心是**'识别目标控件，发送操作消息'。每个 Windows 窗口和控件都有唯一的窗口句柄（HWND），我们可以通过类名（ClassName）、标题（Caption）、控件 ID（ControlID）等信息找到目标控件的句柄，然后通过 SendMessage 或PostMessage**函数发送操作消息（如点击、输入文本）。

获取窗口/控件信息的工具

精易编程助手：易语言社区开发的免费工具，功能强大，操作简单（推荐）
Spy++：Visual Studio 自带的工具，功能专业，但操作复杂
WinSpy：轻量级的免费工具，适合简单场景

使用精易编程助手获取窗口/控件信息的步骤：
① 打开精易编程助手，点击'窗口信息'选项卡
② 点击'句柄探测'按钮，将十字准星拖到目标窗口/控件上
③ 精易编程助手会自动显示目标窗口/控件的句柄、类名、标题、控件 ID 等信息

精易模块自动化操作函数

精易模块提供了大量的 Windows GUI 自动化操作函数，如：

窗口_取句柄：根据类名和标题获取窗口句柄
窗口_发送消息：向目标窗口/控件发送消息
窗口_文本输入：向目标编辑框发送文本

.版本 2 .支持库 spec .支持库 eExcel .支持库 eWord .支持库 ePDF .程序集程序集 1 .程序集变量 g_Excel 对象，类_Excel 应用程序 .程序集变量 g_Word 对象，类_Word 应用程序 .子程序 __启动窗口_创建完毕 ' 初始化组件属性 _启动窗口。标题＝ '批量生成工资条' _启动窗口。宽度＝ 600 _启动窗口。高度＝ 400 _启动窗口。左边＝ (取屏幕宽度 () － _启动窗口。宽度) ÷ 2 _启动窗口。顶边＝ (取屏幕高度 () － _启动窗口。高度) ÷ 2 ' 初始化 Excel 和 Word 对象 g_Excel 对象。创建 () g_Word 对象。创建 () 调试输出 ('Excel 和 Word 对象初始化成功！') .子程序 _btnSelectExcel_被单击 .局部变量文件名，文本型 ' 选择 Excel 工资表文件名＝文件_打开 ('请选择 Excel 工资表', 'Excel 文件 (*.xlsx;*.xls)|*.xlsx;*.xls', , ) .如果真 (文件名＝ '') 返回 () .如果真结束 txtExcelPath.内容＝文件名调试输出 ('已选择 Excel 工资表：', 文件名) .子程序 _btnSelectSavePath_被单击 .局部变量文件夹，文本型 ' 选择保存路径文件夹＝文件夹_选择 ('请选择保存路径', ) .如果真 (文件夹＝ '') 返回 () .如果真结束 txtSavePath.内容＝文件夹调试输出 ('已选择保存路径：', 文件夹) .子程序 _btnGenerate_被单击 .局部变量工资表，类_工作簿 .局部变量工作表，类_工作表 .局部变量员工数，整数型 .局部变量 i, 整数型 .局部变量员工姓名，文本型 .局部变量基本工资，双精度型 .局部变量奖金，双精度型 .局部变量津贴，双精度型 .局部变量扣款，双精度型 .局部变量总工资，双精度型 .局部变量 Word 文档，类_文档 .局部变量段落，类_段落 .局部变量表格，类_表格 .局部变量单元格，类_单元格 .局部变量 PDF 文件名，文本型 ' 检查输入是否为空 .如果真 (txtExcelPath.内容＝ '') 信息框 ('请选择 Excel 工资表！', 0, '错误提示') 返回 () .如果真结束 .如果真 (txtSavePath.内容＝ '') 信息框 ('请选择保存路径！', 0, '错误提示') 返回 () .如果真结束 ' 打开 Excel 工资表工资表＝ g_Excel 对象。工作簿_打开 (txtExcelPath.内容) 工作表＝工资表。工作表_取当前 () ' 获取员工数员工数＝工作表。单元格_取列尾行号 (1, 2) － 1 ' 第 1 行为表头，第 2 行开始是员工数据 ' 生成每个员工的工资条 .计次循环首 (员工数，i) ' 读取员工信息和工资数据员工姓名＝工作表。单元格_读文本 (1 ＋ i, 1) 基本工资＝工作表。单元格_读数值 (1 ＋ i, 2) 奖金＝工作表。单元格_读数值 (1 ＋ i, 3) 津贴＝工作表。单元格_读数值 (1 ＋ i, 4) 扣款＝工作表。单元格_读数值 (1 ＋ i, 5) 总工资＝基本工资＋奖金＋津贴－扣款 ' 创建 Word 文档 Word 文档＝ g_Word 对象。文档_新建 () ' 插入标题段落＝ Word 文档。段落_添加 () 段落。文本＝ '工资条' 段落。对齐方式＝ #居中对齐段落。字体。大小＝ 18 段落。字体。加粗＝ #真 ' 插入员工姓名段落＝ Word 文档。段落_添加 () 段落。文本＝ '员工姓名：' ＋员工姓名段落。对齐方式＝ #左对齐段落。字体。大小＝ 12 段落。字体。加粗＝ #假 ' 插入工资表格表格＝ Word 文档。表格_添加 (Word 文档。内容_末尾，5, 2) 表格。边框。设置 (1, #黑色，1) ' 填充表格数据表格。单元格_读 (1, 1).文本＝ '基本工资' 表格。单元格_读 (1, 2).文本＝到文本 (基本工资，'0.00') 表格。单元格_读 (2, 1).文本＝ '奖金' 表格。单元格_读 (2, 2).文本＝到文本 (奖金，'0.00') 表格。单元格_读 (3, 1).文本＝ '津贴' 表格。单元格_读 (3, 2).文本＝到文本 (津贴，'0.00') 表格。单元格_读 (4, 1).文本＝ '扣款' 表格。单元格_读 (4, 2).文本＝到文本 (扣款，'0.00') 表格。单元格_读 (5, 1).文本＝ '总工资' 表格。单元格_读 (5, 2).文本＝到文本 (总工资，'0.00') ' 保存为 PDF 文件 PDF 文件名＝ txtSavePath.内容＋ '\' ＋员工姓名＋ '_工资条.pdf' Word 文档。保存为 PDF (PDF 文件名) ' 关闭 Word 文档 Word 文档。关闭 (False) ' 更新进度条 pbrProgress.位置＝ i ÷ 员工数 × 100 .计次循环首 () ' 关闭 Excel 工资表工资表。关闭 (False) ' 更新进度条 pbrProgress.位置＝ 100 ' 提示生成成功信息框 ('工资条生成成功！共生成' ＋到文本 (员工数) ＋ '个工资条。', 0, '成功提示') 调试输出 ('工资条生成成功！共生成' ＋到文本 (员工数) ＋ '个工资条。') .子程序 __启动窗口_将被销毁 ' 关闭 Excel 和 Word 对象 g_Excel 对象。关闭 () g_Word 对象。关闭 () 调试输出 ('Excel 和 Word 对象关闭成功！')

.版本 2 .支持库 spec .支持库 eExcel .支持库 eJYM .程序集程序集 1 .程序集变量 g_Excel 对象，类_Excel 应用程序 .子程序 __启动窗口_创建完毕 ' 初始化组件属性 _启动窗口。标题＝ '自动发送会议通知邮件' _启动窗口。宽度＝ 600 _启动窗口。高度＝ 500 _启动窗口。左边＝ (取屏幕宽度 () － _启动窗口。宽度) ÷ 2 _启动窗口。顶边＝ (取屏幕高度 () － _启动窗口。高度) ÷ 2 ' 初始化 Excel 对象 g_Excel 对象。创建 () ' 从配置文件中读取邮件服务器参数 txtSMTP 服务器。内容＝配置文件_取文本 ('Email', 'SMTP 服务器', 'smtp.qq.com') txtSMTP 端口。内容＝配置文件_取文本 ('Email', 'SMTP 端口', '587') txt 发件人邮箱。内容＝配置文件_取文本 ('Email', '发件人邮箱', '') txt 发件人密码。内容＝配置文件_取文本 ('Email', '发件人密码', '') txt 邮件主题。内容＝配置文件_取文本 ('Email', '邮件主题', '部门例会通知') edt 邮件内容。内容＝配置文件_取文本 ('Email', '邮件内容', '各位同事：您好！本周一上午 9:00 将在会议室召开部门例会，请准时参加。谢谢！') 调试输出 ('Excel 对象初始化成功！邮件服务器参数读取成功！') .子程序 _btnSelectExcel_被单击 .局部变量文件名，文本型 ' 选择 Excel 员工表文件名＝文件_打开 ('请选择 Excel 员工表', 'Excel 文件 (*.xlsx;*.xls)|*.xlsx;*.xls', , ) .如果真 (文件名＝ '') 返回 () .如果真结束 txtExcelPath.内容＝文件名调试输出 ('已选择 Excel 员工表：', 文件名) .子程序 _btnSendEmail_被单击 .局部变量员工表，类_工作簿 .局部变量工作表，类_工作表 .局部变量员工数，整数型 .局部变量 i, 整数型 .局部变量员工姓名，文本型 .局部变量员工邮箱，文本型 .局部变量邮件发送结果，文本型 ' 检查输入是否为空 .如果真 (txtExcelPath.内容＝ '') 信息框 ('请选择 Excel 员工表！', 0, '错误提示') 返回 () .如果真结束 .如果真 (txtSMTP 服务器。内容＝ '') 信息框 ('请输入 SMTP 服务器地址！', 0, '错误提示') 返回 () .如果真结束 .如果真 (txtSMTP 端口。内容＝ '') 信息框 ('请输入 SMTP 端口！', 0, '错误提示') 返回 () .如果真结束 .如果真 (txt 发件人邮箱。内容＝ '') 信息框 ('请输入发件人邮箱地址！', 0, '错误提示') 返回 () .如果真结束 .如果真 (txt 发件人密码。内容＝ '') 信息框 ('请输入发件人密码！', 0, '错误提示') 返回 () .如果真结束 .如果真 (txt 邮件主题。内容＝ '') 信息框 ('请输入邮件主题！', 0, '错误提示') 返回 () .如果真结束 .如果真 (edt 邮件内容。内容＝ '') 信息框 ('请输入邮件内容！', 0, '错误提示') 返回 () .如果真结束 ' 打开 Excel 员工表员工表＝ g_Excel 对象。工作簿_打开 (txtExcelPath.内容) 工作表＝员工表。工作表_取当前 () ' 获取员工数员工数＝工作表。单元格_取列尾行号 (1, 2) － 1 ' 第 1 行为表头，第 2 行开始是员工数据 ' 发送会议通知邮件 .计次循环首 (员工数，i) ' 读取员工信息员工姓名＝工作表。单元格_读文本 (1 ＋ i, 1) 员工邮箱＝工作表。单元格_读文本 (1 ＋ i, 2) ' 发送邮件邮件发送结果＝邮件_发送 (txtSMTP 服务器。内容，到数值 (txtSMTP 端口。内容), txt 发件人邮箱。内容，txt 发件人密码。内容，员工邮箱，txt 邮件主题。内容，edt 邮件内容。内容， , , , ) ' 记录发送结果 lstSendResult.插入表项 (, ) lstSendResult.置标题 (lstSendResult.取表项数 () － 1, 0, 员工姓名) lstSendResult.置标题 (lstSendResult.取表项数 () － 1, 1, 员工邮箱) lstSendResult.置标题 (lstSendResult.取表项数 () － 1, 2, 邮件发送结果) ' 更新进度条 pbrProgress.位置＝ i ÷ 员工数 × 100 .计次循环首 () ' 关闭 Excel 员工表员工表。关闭 (False) ' 更新进度条 pbrProgress.位置＝ 100 ' 提示发送成功信息框 ('会议通知邮件发送成功！共发送' ＋到文本 (员工数) ＋ '封邮件。', 0, '成功提示') 调试输出 ('会议通知邮件发送成功！共发送' ＋到文本 (员工数) ＋ '封邮件。') .子程序 _btnSaveConfig_被单击 ' 保存邮件服务器参数和邮件内容到配置文件配置文件_写文本 ('Email', 'SMTP 服务器', txtSMTP 服务器。内容) 配置文件_写文本 ('Email', 'SMTP 端口', txtSMTP 端口。内容) 配置文件_写文本 ('Email', '发件人邮箱', txt 发件人邮箱。内容) 配置文件_写文本 ('Email', '发件人密码', txt 发件人密码。内容) 配置文件_写文本 ('Email', '邮件主题', txt 邮件主题。内容) 配置文件_写文本 ('Email', '邮件内容', edt 邮件内容。内容) 信息框 ('配置保存成功！', 0, '成功提示') 调试输出 ('配置保存成功！') .子程序 __启动窗口_将被销毁 ' 关闭 Excel 对象 g_Excel 对象。关闭 () 调试输出 ('Excel 对象关闭成功！')

.版本 2 .支持库 spec .支持库 eExcel .支持库 eWebBrowser .支持库 eJYM .程序集程序集 1 .程序集变量 g_Excel 对象，类_Excel 应用程序 .程序集变量 g_WebBrowser, 类_WebBrowser .子程序 __启动窗口_创建完毕 ' 初始化组件属性 _启动窗口。标题＝ '自动抓取天气数据' _启动窗口。宽度＝ 800 _启动窗口。高度＝ 600 _启动窗口。左边＝ (取屏幕宽度 () － _启动窗口。宽度) ÷ 2 _启动窗口。顶边＝ (取屏幕高度 () － _启动窗口。高度) ÷ 2 ' 初始化 Excel 和 WebBrowser 对象 g_Excel 对象。创建 () g_WebBrowser.创建 () g_WebBrowser.组件_置窗口 (_启动窗口.hwnd) g_WebBrowser.组件_置位置 (0, 0, _启动窗口。宽度，_启动窗口。高度) ' 从配置文件中读取城市列表读取城市列表 () 调试输出 ('Excel 和 WebBrowser 对象初始化成功！城市列表读取成功！') .子程序读取城市列表 .局部变量城市数组，文本型，动态数组 .局部变量 i, 整数型 ' 从配置文件中读取城市列表（格式：北京，上海，广州，深圳）城市数组＝分割文本 (配置文件_取文本 ('Weather', '城市列表', '北京，上海，广州，深圳'), ',', ) ' 将城市列表添加到组合框中 .计次循环首 (取数组成员数 (城市数组), i) cboCity.加入项目 (城市数组 [i － 1]) .计次循环首 () ' 默认选中第一个城市 cboCity.现行选中项＝ 0 .子程序 _btnCrawlWeather_被单击 .局部变量城市名，文本型 .局部变量天气网站地址，文本型 .局部变量 HTML 内容，文本型 .局部变量天气数据，文本型，动态数组 .局部变量温度，文本型 .局部变量天气，文本型 .局部变量风向，文本型 .局部变量风力，文本型 .局部变量湿度，文本型 .局部变量气压，文本型 .局部变量能见度，文本型 .局部变量降水量，文本型 .局部变量 Excel 工作簿，类_工作簿 .局部变量 Excel 工作表，类_工作表 ' 获取选中的城市名城市名＝ cboCity.取项目文本 (cboCity.现行选中项) ' 构建天气网站地址（使用中国天气网的 API）天气网站地址＝ 'http://www.weather.com.cn/weather/' ＋获取城市代码 (城市名) ＋ '.shtml' ' 加载天气网站 g_WebBrowser.导航 (天气网站地址) ' 等待网站加载完成 .循环判断首 () 处理事件 () .循环判断尾 (g_WebBrowser.是否繁忙 () 或 g_WebBrowser.是否正在导航 () ) ' 读取 HTML 内容 HTML 内容＝ g_WebBrowser.取文档 HTML () ' 解析 HTML 内容，获取天气数据温度＝正则表达式_匹配 (HTML 内容， '<span class=''temp''>(.*?)°C</span>', 1, ) 天气＝正则表达式_匹配 (HTML 内容， '<span class=''wea''>(.*?)</span>', 1, ) 风向＝正则表达式_匹配 (HTML 内容， '<span class=''win''><span class=''wind_dir''>(.*?)</span><span class=''wind_level''>(.*?)</span></span>', 1, ) 风力＝正则表达式_匹配 (HTML 内容， '<span class=''win''><span class=''wind_dir''>(.*?)</span><span class=''wind_level''>(.*?)</span></span>', 2, ) 湿度＝正则表达式_匹配 (HTML 内容， '<span class=''hum''>(.*?)%</span>', 1, ) 气压＝正则表达式_匹配 (HTML 内容， '<span class=''air''>(.*?)hPa</span>', 1, ) 能见度＝正则表达式_匹配 (HTML 内容， '<span class=''vis''>(.*?)km</span>', 1, ) 降水量＝正则表达式_匹配 (HTML 内容， '<span class=''pre''>(.*?)mm</span>', 1, ) ' 显示天气数据 lbl 温度。标题＝ '温度：' ＋温度＋ '°C' lbl 天气。标题＝ '天气：' ＋天气 lbl 风向。标题＝ '风向：' ＋风向 lbl 风力。标题＝ '风力：' ＋风力 lbl 湿度。标题＝ '湿度：' ＋湿度＋ '%' lbl 气压。标题＝ '气压：' ＋气压＋ 'hPa' lbl 能见度。标题＝ '能见度：' ＋能见度＋ 'km' lbl 降水量。标题＝ '降水量：' ＋降水量＋ 'mm' ' 将天气数据写入 Excel 表格 Excel 工作簿＝ g_Excel 对象。工作簿_新建 () Excel 工作表＝ Excel 工作簿。工作表_取当前 () ' 写入表头 Excel 工作表。单元格_写文本 (1, 1, '城市名') Excel 工作表。单元格_写文本 (1, 2, '温度') Excel 工作表。单元格_写文本 (1, 3, '天气') Excel 工作表。单元格_写文本 (1, 4, '风向') Excel 工作表。单元格_写文本 (1, 5, '风力') Excel 工作表。单元格_写文本 (1, 6, '湿度') Excel 工作表。单元格_写文本 (1, 7, '气压') Excel 工作表。单元格_写文本 (1, 8, '能见度') Excel 工作表。单元格_写文本 (1, 9, '降水量') Excel 工作表。单元格_写文本 (1, 10, '抓取时间') ' 写入天气数据 Excel 工作表。单元格_写文本 (2, 1, 城市名) Excel 工作表。单元格_写文本 (2, 2, 温度＋ '°C') Excel 工作表。单元格_写文本 (2, 3, 天气) Excel 工作表。单元格_写文本 (2, 4, 风向) Excel 工作表。单元格_写文本 (2, 5, 风力) Excel 工作表。单元格_写文本 (2, 6, 湿度＋ '%') Excel 工作表。单元格_写文本 (2, 7, 气压＋ 'hPa') Excel 工作表。单元格_写文本 (2, 8, 能见度＋ 'km') Excel 工作表。单元格_写文本 (2, 9, 降水量＋ 'mm') Excel 工作表。单元格_写文本 (2, 10, 到文本 (取现行时间 (), , 'yyyy-MM-dd HH:mm:ss')) ' 保存 Excel 工作簿 Excel 工作簿。保存 As (取运行目录 () ＋ '\' ＋城市名＋ '_天气数据_' ＋到文本 (取现行时间 (), , 'yyyyMMddHHmmss') ＋ '.xlsx') Excel 工作簿。关闭 (False) ' 提示抓取成功信息框 ('天气数据抓取成功！已保存到' ＋取运行目录 () ＋ '\' ＋城市名＋ '_天气数据_' ＋到文本 (取现行时间 (), , 'yyyyMMddHHmmss') ＋ '.xlsx', 0, '成功提示') 调试输出 ('天气数据抓取成功！城市：', 城市名， ' 温度：', 温度， ' 天气：', 天气) .子程序获取城市代码，文本型 .参数城市名，文本型 .局部变量城市代码表，文本型，动态数组 .局部变量城市信息，文本型，动态数组 .局部变量 i, 整数型 ' 城市代码表（格式：城市名 | 城市代码）城市代码表＝ {'北京|101010100', '上海|101020100', '广州|101280101', '深圳|101280601', '杭州|101210101', '南京|101190101', '成都|101270101', '重庆|101040100', '武汉|101200101', '西安|101110101'} ' 查找城市代码 .计次循环首 (取数组成员数 (城市代码表), i) 城市信息＝分割文本 (城市代码表 [i － 1], '|', ) .如果真 (城市信息 [0] ＝城市名) 返回 (城市信息 [1]) .如果真结束 .计次循环首 () ' 如果未找到城市代码，默认返回北京的城市代码返回 ('101010100') .子程序正则表达式_匹配，文本型 .参数原文本，文本型 .参数正则表达式，文本型 .参数匹配组索引，整数型 .局部变量正则对象，正则表达式 .局部变量匹配集合，正则表达式匹配 .局部变量匹配结果，文本型 ' 初始化正则对象正则对象。创建 (正则表达式， ) ' 匹配文本匹配集合＝正则对象。匹配 (原文本) ' 获取匹配结果 .如果真 (匹配集合。数量 > 0) 匹配结果＝匹配集合。取子匹配文本 (0, 匹配组索引) .如果真结束 ' 释放资源正则对象。销毁 () 匹配集合。销毁 () 返回 (匹配结果) .子程序 __启动窗口_将被销毁 ' 关闭 Excel 和 WebBrowser 对象 g_Excel 对象。关闭 () g_WebBrowser.销毁 () 调试输出 ('Excel 和 WebBrowser 对象关闭成功！')

.版本 2 .支持库 spec .支持库 eExcel .支持库 eJYM .程序集程序集 1 .程序集变量 g_Excel 对象，类_Excel 应用程序 .子程序 __启动窗口_创建完毕 ' 初始化组件属性 _启动窗口。标题＝ '自动抓取招聘网站职位信息' _启动窗口。宽度＝ 800 _启动窗口。高度＝ 600 _启动窗口。左边＝ (取屏幕宽度 () － _启动窗口。宽度) ÷ 2 _启动窗口。顶边＝ (取屏幕高度 () － _启动窗口。高度) ÷ 2 ' 初始化 Excel 对象 g_Excel 对象。创建 () ' 从配置文件中读取招聘网站信息读取招聘网站信息 () 调试输出 ('Excel 对象初始化成功！招聘网站信息读取成功！') .子程序读取招聘网站信息 .局部变量招聘网站数组，文本型，动态数组 .局部变量 i, 整数型 ' 从配置文件中读取招聘网站信息（格式：网站名称 | 搜索地址）招聘网站数组＝分割文本 (配置文件_取文本 ('Recruitment', '招聘网站', '前程无忧|https://search.51job.com/list/000000,000000,0000,00,9,99,易语言，2,1.html;智联招聘|https://sou.zhaopin.com/jobs/searchresult.ashx?jl=000000&kw= 易语言&sm=0&p=1'), ';', ) ' 将招聘网站信息添加到组合框中 .计次循环首 (取数组成员数 (招聘网站数组), i) cboWebsite.加入项目 (分割文本 (招聘网站数组 [i － 1], '|', ) [0]) .计次循环首 () ' 默认选中第一个招聘网站 cboWebsite.现行选中项＝ 0 .子程序 _btnCrawlJobs_被单击 .局部变量招聘网站信息，文本型，动态数组 .局部变量搜索地址，文本型 .局部变量关键词，文本型 .局部变量页码数，整数型 .局部变量 i, 整数型 .局部变量 HTTP 响应，文本型 .局部变量职位信息数组，文本型，动态数组 .局部变量 Excel 工作簿，类_工作簿 .局部变量 Excel 工作表，类_工作表 .局部变量行号，整数型 ' 获取选中的招聘网站信息和搜索参数招聘网站信息＝分割文本 (配置文件_取文本 ('Recruitment', '招聘网站', '前程无忧|https://search.51job.com/list/000000,000000,0000,00,9,99,易语言，2,1.html;智联招聘|https://sou.zhaopin.com/jobs/searchresult.ashx?jl=000000&kw= 易语言&sm=0&p=1'), ';', ) 搜索地址＝分割文本 (招聘网站信息 [cboWebsite.现行选中项], '|', ) [1] 关键词＝ txtKeyword.内容页码数＝到数值 (txtPageCount.内容) ' 检查输入是否为空 .如果真 (关键词＝ '') 信息框 ('请输入搜索关键词！', 0, '错误提示') 返回 () .如果真结束 .如果真 (页码数 ≤ 0) 信息框 ('请输入大于 0 的页码数！', 0, '错误提示') 返回 () .如果真结束 ' 创建 Excel 工作簿 Excel 工作簿＝ g_Excel 对象。工作簿_新建 () Excel 工作表＝ Excel 工作簿。工作表_取当前 () ' 写入表头 Excel 工作表。单元格_写文本 (1, 1, '职位名称') Excel 工作表。单元格_写文本 (1, 2, '公司名称') Excel 工作表。单元格_写文本 (1, 3, '工作地点') Excel 工作表。单元格_写文本 (1, 4, '薪资范围') Excel 工作表。单元格_写文本 (1, 5, '工作经验') Excel 工作表。单元格_写文本 (1, 6, '学历要求') Excel 工作表。单元格_写文本 (1, 7, '发布时间') Excel 工作表。单元格_写文本 (1, 8, '职位链接') 行号＝ 2 ' 抓取职位信息 .计次循环首 (页码数，i) ' 构建搜索地址（替换关键词和页码）搜索地址＝子文本替换 (搜索地址， '易语言', 关键词， , , 真) 搜索地址＝子文本替换 (搜索地址， 'p=1', 'p=' ＋到文本 (i), , , 真) ' 发送 HTTP 请求 HTTP 响应＝网页_访问 (搜索地址， , , , , , , , ) ' 解析 HTTP 响应，获取职位信息数组 .判断开始 (cboWebsite.取项目文本 (cboWebsite.现行选中项) ＝ '前程无忧') 职位信息数组＝解析前程无忧职位信息 (HTTP 响应) .判断 (cboWebsite.取项目文本 (cboWebsite.现行选中项) ＝ '智联招聘') 职位信息数组＝解析智联招聘职位信息 (HTTP 响应) .默认信息框 ('不支持该招聘网站的解析！', 0, '错误提示') 返回 () .判断结束 ' 将职位信息写入 Excel 表格 .计次循环首 (取数组成员数 (职位信息数组), i) Excel 工作表。单元格_写文本 (行号，1, 分割文本 (职位信息数组 [i － 1], '|', ) [0]) ' 职位名称 Excel 工作表。单元格_写文本 (行号，2, 分割文本 (职位信息数组 [i － 1], '|', ) [1]) ' 公司名称 Excel 工作表。单元格_写文本 (行号，3, 分割文本 (职位信息数组 [i － 1], '|', ) [2]) ' 工作地点 Excel 工作表。单元格_写文本 (行号，4, 分割文本 (职位信息数组 [i － 1], '|', ) [3]) ' 薪资范围 Excel 工作表。单元格_写文本 (行号，5, 分割文本 (职位信息数组 [i － 1], '|', ) [4]) ' 工作经验 Excel 工作表。单元格_写文本 (行号，6, 分割文本 (职位信息数组 [i － 1], '|', ) [5]) ' 学历要求 Excel 工作表。单元格_写文本 (行号，7, 分割文本 (职位信息数组 [i － 1], '|', ) [6]) ' 发布时间 Excel 工作表。单元格_写文本 (行号，8, 分割文本 (职位信息数组 [i － 1], '|', ) [7]) ' 职位链接行号＝行号＋ 1 .计次循环首 () ' 更新进度条 pbrProgress.位置＝ i ÷ 页码数 × 100 .计次循环首 () ' 保存 Excel 工作簿 Excel 工作簿。保存 As (取运行目录 () ＋ '\' ＋关键词＋ '_职位信息_' ＋到文本 (取现行时间 (), , 'yyyyMMddHHmmss') ＋ '.xlsx') Excel 工作簿。关闭 (False) ' 更新进度条 pbrProgress.位置＝ 100 ' 提示抓取成功信息框 ('职位信息抓取成功！共抓取' ＋到文本 (行号－ 2) ＋ '个职位信息。已保存到' ＋取运行目录 () ＋ '\' ＋关键词＋ '_职位信息_' ＋到文本 (取现行时间 (), , 'yyyyMMddHHmmss') ＋ '.xlsx', 0, '成功提示') 调试输出 ('职位信息抓取成功！关键词：', 关键词， ' 数量：', 行号－ 2) .子程序解析前程无忧职位信息，文本型，数组 .参数 HTTP 响应，文本型 .局部变量职位信息数组，文本型，动态数组 .局部变量职位列表 HTML, 文本型 .局部变量职位项 HTML 数组，文本型，动态数组 .局部变量 i, 整数型 .局部变量职位项 HTML, 文本型 .局部变量职位名称，文本型 .局部变量公司名称，文本型 .局部变量工作地点，文本型 .局部变量薪资范围，文本型 .局部变量工作经验，文本型 .局部变量学历要求，文本型 .局部变量发布时间，文本型 .局部变量职位链接，文本型 ' 提取职位列表 HTML 职位列表 HTML ＝正则表达式_匹配 (HTTP 响应， '<div class=''j_joblist''>(.*?)</div>', 1, ) ' 提取职位项 HTML 数组职位项 HTML 数组＝分割文本 (正则表达式_匹配 (职位列表 HTML, '<div class=''j_joblist_job''>(.*?)</div>', , ), '<div class=''j_joblist_job''>', ) ' 解析每个职位项 HTML .计次循环首 (取数组成员数 (职位项 HTML 数组), i) 职位项 HTML ＝职位项 HTML 数组 [i － 1] .如果真 (取文本长度 (职位项 HTML) < 100) 继续循环 () .如果真结束 ' 提取职位信息职位名称＝正则表达式_匹配 (职位项 HTML, '<a class=''j_jobname'' href=''(.*?)'' target=''_blank''>(.*?)</a>', 2, ) 职位链接＝正则表达式_匹配 (职位项 HTML, '<a class=''j_jobname'' href=''(.*?)'' target=''_blank''>(.*?)</a>', 1, ) 公司名称＝正则表达式_匹配 (职位项 HTML, '<a class=''j_corname'' href=''(.*?)'' target=''_blank''>(.*?)</a>', 2, ) 工作地点＝正则表达式_匹配 (职位项 HTML, '<span class=''j_position''>(.*?)</span>', 1, ) 薪资范围＝正则表达式_匹配 (职位项 HTML, '<span class=''j_salary''>(.*?)</span>', 1, ) 工作经验＝正则表达式_匹配 (职位项 HTML, '<span class=''j_experience''>(.*?)</span>', 1, ) 学历要求＝正则表达式_匹配 (职位项 HTML, '<span class=''j_education''>(.*?)</span>', 1, ) 发布时间＝正则表达式_匹配 (职位项 HTML, '<span class=''j_date''>(.*?)</span>', 1, ) ' 将职位信息添加到数组中加入成员 (职位信息数组，职位名称＋ '|' ＋公司名称＋ '|' ＋工作地点＋ '|' ＋薪资范围＋ '|' ＋工作经验＋ '|' ＋学历要求＋ '|' ＋发布时间＋ '|' ＋职位链接) .计次循环首 () 返回 (职位信息数组) .子程序解析智联招聘职位信息，文本型，数组 .参数 HTTP 响应，文本型 .局部变量职位信息数组，文本型，动态数组 .局部变量职位列表 HTML, 文本型 .局部变量职位项 HTML 数组，文本型，动态数组 .局部变量 i, 整数型 .局部变量职位项 HTML, 文本型 .局部变量职位名称，文本型 .局部变量公司名称，文本型 .局部变量工作地点，文本型 .局部变量薪资范围，文本型 .局部变量工作经验，文本型 .局部变量学历要求，文本型 .局部变量发布时间，文本型 .局部变量职位链接，文本型 ' 提取职位列表 HTML 职位列表 HTML ＝正则表达式_匹配 (HTTP 响应， '<div class=''contentpile__content''>(.*?)</div>', 1, ) ' 提取职位项 HTML 数组职位项 HTML 数组＝分割文本 (正则表达式_匹配 (职位列表 HTML, '<div class=''contentpile__content__item''>(.*?)</div>', , ), '<div class=''contentpile__content__item''>', ) ' 解析每个职位项 HTML .计次循环首 (取数组成员数 (职位项 HTML 数组), i) 职位项 HTML ＝职位项 HTML 数组 [i － 1] .如果真 (取文本长度 (职位项 HTML) < 100) 继续循环 () .如果真结束 ' 提取职位信息职位名称＝正则表达式_匹配 (职位项 HTML, '<a class=''contentpile__content__item__info__box__jobname__title'' href=''(.*?)'' target=''_blank''>(.*?)</a>', 2, ) 职位链接＝正则表达式_匹配 (职位项 HTML, '<a class=''contentpile__content__item__info__box__jobname__title'' href=''(.*?)'' target=''_blank''>(.*?)</a>', 1, ) 公司名称＝正则表达式_匹配 (职位项 HTML, '<a class=''contentpile__content__item__info__box__cname__title'' href=''(.*?)'' target=''_blank''>(.*?)</a>', 2, ) 工作地点＝正则表达式_匹配 (职位项 HTML, '<span class=''contentpile__content__item__info__box__job__demand__item''>(.*?)</span>', 1, ) 薪资范围＝正则表达式_匹配 (职位项 HTML, '<span class=''contentpile__content__item__info__box__job__saray''>(.*?)</span>', 1, ) 工作经验＝正则表达式_匹配 (职位项 HTML, '<span class=''contentpile__content__item__info__box__job__demand__item''>(.*?)</span>', 2, ) 学历要求＝正则表达式_匹配 (职位项 HTML, '<span class=''contentpile__content__item__info__box__job__demand__item''>(.*?)</span>', 3, ) 发布时间＝正则表达式_匹配 (职位项 HTML, '<span class=''contentpile__content__item__info__box__job__uptime''>(.*?)</span>', 1, ) ' 将职位信息添加到数组中加入成员 (职位信息数组，职位名称＋ '|' ＋公司名称＋ '|' ＋工作地点＋ '|' ＋薪资范围＋ '|' ＋工作经验＋ '|' ＋学历要求＋ '|' ＋发布时间＋ '|' ＋职位链接) .计次循环首 () 返回 (职位信息数组) .子程序正则表达式_匹配，文本型，数组，公开 .参数原文本，文本型 .参数正则表达式，文本型 .参数匹配组索引，整数型 .参数是否返回全部匹配，逻辑型，可空，默认值为假 .局部变量正则对象，正则表达式 .局部变量匹配集合，正则表达式匹配 .局部变量结果数组，文本型，动态数组 .局部变量 i, 整数型 ' 初始化正则对象正则对象。创建 (正则表达式， ) ' 匹配文本匹配集合＝正则对象。匹配 (原文本) ' 提取匹配结果 .如果真 (是否返回全部匹配) .计次循环首 (匹配集合。数量，i) 加入成员 (结果数组，匹配集合。取子匹配文本 (i － 1, 匹配组索引)) .计次循环首 () .如果真结束 .如果真 (是否返回全部匹配＝假且匹配集合。数量 > 0) 加入成员 (结果数组，匹配集合。取子匹配文本 (0, 匹配组索引)) .如果真结束 ' 释放资源正则对象。销毁 () 匹配集合。销毁 () 返回 (结果数组) .子程序 __启动窗口_将被销毁 ' 关闭 Excel 对象 g_Excel 对象。关闭 () 调试输出 ('Excel 对象关闭成功！')

.版本 2 .支持库 spec .支持库 eJYM .程序集程序集 1 .程序集变量 g_大漠对象，类_大漠插件 .程序集变量 g_游戏窗口句柄，整数型 .程序集变量 g_是否继续挂机，逻辑型 .子程序 __启动窗口_创建完毕 ' 初始化组件属性 _启动窗口。标题＝ '简单的窗口游戏挂机脚本' _启动窗口。宽度＝ 400 _启动窗口。高度＝ 300 _启动窗口。左边＝ (取屏幕宽度 () － _启动窗口。宽度) ÷ 2 _启动窗口。顶边＝ (取屏幕高度 () － _启动窗口。高度) ÷ 2 ' 初始化大漠对象 g_大漠对象。创建 () g_大漠对象。设置路径 (取运行目录 ()) ' 设置大漠插件的资源路径 ' 从配置文件中读取游戏窗口标题 txtGameTitle.内容＝配置文件_取文本 ('Game', '窗口标题', '') ' 初始化全局变量 g_是否继续挂机＝假调试输出 ('大漠对象初始化成功！') .子程序 _btnFindGameWindow_被单击 ' 查找游戏窗口 g_游戏窗口句柄＝窗口_取句柄 (txtGameTitle.内容， ) .如果真 (g_游戏窗口句柄＝ 0) 信息框 ('未找到游戏窗口！', 0, '错误提示') 返回 () .如果真结束 ' 激活游戏窗口窗口_激活 (g_游戏窗口句柄) ' 获取游戏窗口的截图 g_大漠对象。绑定窗口 (g_游戏窗口句柄， 'normal', 'normal', 'normal', 0) g_大漠对象。截图 (取运行目录 () ＋ '\游戏窗口截图.bmp') g_大漠对象。解绑窗口 () ' 显示截图图片框 1.图片＝读入文件 (取运行目录 () ＋ '\游戏窗口截图.bmp') ' 启用开始和停止按钮 btnStart.禁止＝ #假 btnStop.禁止＝ #真调试输出 ('已找到游戏窗口！句柄：', g_游戏窗口句柄) .子程序 _btnStart_被单击 ' 开始挂机 g_是否继续挂机＝真 btnStart.禁止＝ #真 btnStop.禁止＝ #假 ' 创建线程执行挂机任务启动线程 (&挂机任务， , ) 调试输出 ('开始挂机！') .子程序挂机任务 .局部变量怪物坐标，整数型，数组 .局部变量物品坐标，整数型，数组 .局部变量 i, 整数型 ' 绑定游戏窗口 g_大漠对象。绑定窗口 (g_游戏窗口句柄， 'normal', 'normal', 'normal', 0) ' 循环执行挂机任务 .判断循环首 (g_是否继续挂机) ' 寻找怪物怪物坐标＝ g_大漠对象。找多图 (取运行目录 () ＋ '\怪物模板.bmp', 0.8, 0, 0, 800, 600) ' 如果找到怪物，攻击怪物 .如果真 (取数组成员数 (怪物坐标) > 0) ' 移动鼠标到怪物位置鼠标_移动 (怪物坐标 [0], 怪物坐标 [1]) ' 点击鼠标左键攻击怪物鼠标_点击 (#左键单击， ) ' 等待攻击动画完成延迟 (1000) .如果真结束 ' 寻找物品物品坐标＝ g_大漠对象。找多图 (取运行目录 () ＋ '\物品模板.bmp', 0.8, 0, 0, 800, 600) ' 如果找到物品，拾取物品 .如果真 (取数组成员数 (物品坐标) > 0) ' 移动鼠标到物品位置鼠标_移动 (物品坐标 [0], 物品坐标 [1]) ' 点击鼠标左键拾取物品鼠标_点击 (#左键单击， ) ' 等待拾取动画完成延迟 (500) .如果真结束 ' 等待一段时间后再次执行延迟 (2000) .判断循环尾 () ' 解绑游戏窗口 g_大漠对象。解绑窗口 () 调试输出 ('停止挂机！') .子程序 _btnStop_被单击 ' 停止挂机 g_是否继续挂机＝假 btnStart.禁止＝ #假 btnStop.禁止＝ #真 .子程序 __启动窗口_将被销毁 ' 停止挂机 g_是否继续挂机＝假 ' 销毁大漠对象 g_大漠对象。销毁 () 调试输出 ('程序结束！')

易语言核心自动化场景实战：办公、测试、数据抓取与游戏脚本开发