求制作程序

love逍遥

要做一个自动复制Tao宝当前网页的标题跟链接，到XLSX表格里。方法都行 只要做到想要就行


补充内容 (2025-7-30 17:30):
各位 加企鹅806757010  有偿 不是说咋做，是需要人制作软件

designer

document.title取当前页面标题，document.URL取当前链接，浏览器跟本地开个服务通信一下，把数据传到服务这边，再写到xlsx中，推荐不直接写xlsx，写到csv中，省去很多操作xlsx的麻烦，直接文本追加就好，后期用wps免费把csv转xlsx

云少i

加Q992489316

sangco

有预算可以加我

2224848

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
Excel应用	Excel应用
Excel工作簿	工作簿
Excel工作表	工作表
当前行	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 初始化Excel
Excel应用.创建 ()
如果真 (Excel应用.是否已创建 () ＝ 假)
信息框 ("Excel初始化失败，请确保已安装Microsoft Excel", 0, "错误", )
结束 ()

' 创建工作簿和工作表
Excel工作簿 ＝ Excel应用.工作簿.添加 ()
Excel工作表 ＝ Excel工作簿.工作表 (1)

' 设置表头
Excel工作表.单元格 (1, 1).值 ＝ "标题"
Excel工作表.单元格 (1, 2).值 ＝ "链接"
Excel工作表.单元格 (1, 3).值 ＝ "采集时间"

' 设置列宽
Excel工作表.列 (1).列宽 ＝ 50
Excel工作表.列 (2).列宽 ＝ 80
Excel工作表.列 (3).列宽 ＝ 20

' 初始化当前行
当前行 ＝ 2

子程序名	返回值类型	公开	备 注
_按钮_复制_被单击

' 获取当前活动窗口句柄
.局部变量 窗口句柄, 整数型
窗口句柄 ＝ 取活动窗口句柄 ()

' 获取窗口标题
.局部变量 窗口标题, 文本型
窗口标题 ＝ 取窗口标题 (窗口句柄)

' 检查是否为淘宝页面
如果真 (寻找文本 (窗口标题, "淘宝", , 假) ＝ -1)
信息框 ("当前窗口不是淘宝页面！", 0, "提示", )
返回 ()

' 获取浏览器地址栏URL
.局部变量 页面链接, 文本型
页面链接 ＝ 取浏览器URL (窗口句柄)

' 写入Excel
Excel工作表.单元格 (当前行, 1).值 ＝ 窗口标题
Excel工作表.单元格 (当前行, 2).值 ＝ 页面链接
Excel工作表.单元格 (当前行, 3).值 ＝ 到文本 (取现行时间 ())

' 格式化
Excel工作表.行 (当前行).行高 ＝ 25
Excel工作表.单元格 (当前行, 3).水平对齐方式 ＝ #居中

' 增加行计数器
当前行 ＝ 当前行 ＋ 1

信息框 ("已成功保存到Excel！", 0, "成功", )

子程序名	返回值类型	公开	备 注
_按钮_保存_被单击

' 保存Excel文件
.局部变量 保存路径, 文本型
保存路径 ＝ 浏览文件夹 ("请选择保存位置", 真) ＋ "\淘宝商品采集_" ＋ 时间_格式化 (取现行时间 (), "yyyyMMddHHmmss") ＋ ".xlsx"

如果真 (保存路径 ＝ "")
返回 ()

Excel工作簿.保存 (保存路径)
信息框 ("文件已保存到：" ＋ #换行符 ＋ 保存路径, 0, "保存成功", )

子程序名	返回值类型	公开	备 注
_按钮_打开_被单击

' 打开Excel文件查看
Excel应用.可见 ＝ 真

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

' 关闭Excel
如果真 (Excel应用.是否已创建 ())
Excel应用.退出 ()

' ============== 关键功能：获取浏览器URL ==============

子程序名	返回值类型	公开	备 注
取浏览器URL	文本型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型

变量名	类 型	静态	数组	备 注
地址栏句柄	整数型
URL	文本型

' 根据不同浏览器查找地址栏
判断 (寻找文本 (取窗口类名 (窗口句柄), "Chrome_WidgetWin", , 假) ≠ -1)
' Chrome浏览器
地址栏句柄 ＝ 窗口_取句柄_模糊 (窗口句柄, "Chrome_OmniboxView")

判断 (寻找文本 (取窗口类名 (窗口句柄), "MozillaWindowClass", , 假) ≠ -1)
' Firefox浏览器
地址栏句柄 ＝ 窗口_取句柄_模糊 (窗口句柄, "MozillaComboBox")

判断 (寻找文本 (取窗口类名 (窗口句柄), "IEFrame", , 假) ≠ -1)
' IE浏览器
地址栏句柄 ＝ 窗口_取句柄_模糊 (窗口句柄, "Edit")

' 其他浏览器尝试通用方法
地址栏句柄 ＝ 窗口_取句柄_模糊 (窗口句柄, "Edit")

如果真 (地址栏句柄 ≠ 0)
URL ＝ 取窗口标题 (地址栏句柄)

返回 (URL)
' ============== 辅助函数 ==============

子程序名	返回值类型	公开	备 注
时间_格式化	文本型
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型
格式	文本型

变量名	类 型	静态	数组	备 注
年	整数型
月	整数型
日	整数型
时	整数型
分	整数型
秒	整数型
结果	文本型

年 ＝ 取年份 (时间)
月 ＝ 取月份 (时间)
日 ＝ 取日 (时间)
时 ＝ 取小时 (时间)
分 ＝ 取分钟 (时间)
秒 ＝ 取秒 (时间)
结果 ＝ 子文本替换 (格式, "yyyy", 格式化数字 (年, 4), , , 真)
结果 ＝ 子文本替换 (结果, "MM", 格式化数字 (月, 2), , , 真)
结果 ＝ 子文本替换 (结果, "dd", 格式化数字 (日, 2), , , 真)
结果 ＝ 子文本替换 (结果, "HH", 格式化数字 (时, 2), , , 真)
结果 ＝ 子文本替换 (结果, "mm", 格式化数字 (分, 2), , , 真)
结果 ＝ 子文本替换 (结果, "ss", 格式化数字 (秒, 2), , , 真)
返回 (结果)

子程序名	返回值类型	公开	备 注
格式化数字	文本型
参数名	类 型	参考	可空	数组	备 注
数字	整数型
位数	整数型

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

文本 ＝ 到文本 (数字)
判断循环首 (取文本长度 (文本) < 位数)
文本 ＝ "0" ＋ 文本
判断循环尾 ()
返回 (文本)

i支持库列表	支持库注释
eExcel	(未知支持库)
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eExcel<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 Excel应用, Excel应用<br /> .程序集变量 Excel工作簿, 工作簿<br /> .程序集变量 Excel工作表, 工作表<br /> .程序集变量 当前行, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     ' 初始化Excel<br />     Excel应用.创建 ()<br />     .如果真 (Excel应用.是否已创建 () ＝ 假)<br />         信息框 ("Excel初始化失败，请确保已安装Microsoft Excel", 0, "错误", )<br />         结束 ()<br />     .如果真结束<br />     <br />     ' 创建工作簿和工作表<br />     Excel工作簿 ＝ Excel应用.工作簿.添加 ()<br />     Excel工作表 ＝ Excel工作簿.工作表(1)<br />     <br />     ' 设置表头<br />     Excel工作表.单元格(1, 1).值 ＝ "标题"<br />     Excel工作表.单元格(1, 2).值 ＝ "链接"<br />     Excel工作表.单元格(1, 3).值 ＝ "采集时间"<br />     <br />     ' 设置列宽<br />     Excel工作表.列(1).列宽 ＝ 50<br />     Excel工作表.列(2).列宽 ＝ 80<br />     Excel工作表.列(3).列宽 ＝ 20<br />     <br />     ' 初始化当前行<br />     当前行 ＝ 2<br /> <br /> .子程序 _按钮_复制_被单击<br />     ' 获取当前活动窗口句柄<br />     .局部变量 窗口句柄, 整数型<br />     窗口句柄 ＝ 取活动窗口句柄 ()<br />     <br />     ' 获取窗口标题<br />     .局部变量 窗口标题, 文本型<br />     窗口标题 ＝ 取窗口标题 (窗口句柄)<br />     <br />     ' 检查是否为淘宝页面<br />     .如果真 (寻找文本 (窗口标题, "淘宝", , 假) ＝ -1)<br />         信息框 ("当前窗口不是淘宝页面！", 0, "提示", )<br />         返回 ()<br />     .如果真结束<br />     <br />     ' 获取浏览器地址栏URL<br />     .局部变量 页面链接, 文本型<br />     页面链接 ＝ 取浏览器URL (窗口句柄)<br />     <br />     ' 写入Excel<br />     Excel工作表.单元格(当前行, 1).值 ＝ 窗口标题<br />     Excel工作表.单元格(当前行, 2).值 ＝ 页面链接<br />     Excel工作表.单元格(当前行, 3).值 ＝ 到文本 (取现行时间 ())<br />     <br />     ' 格式化<br />     Excel工作表.行(当前行).行高 ＝ 25<br />     Excel工作表.单元格(当前行, 3).水平对齐方式 ＝ #居中<br />     <br />     ' 增加行计数器<br />     当前行 ＝ 当前行 ＋ 1<br />     <br />     信息框 ("已成功保存到Excel！", 0, "成功", )<br /> <br /> .子程序 _按钮_保存_被单击<br />     ' 保存Excel文件<br />     .局部变量 保存路径, 文本型<br />     保存路径 ＝ 浏览文件夹 ("请选择保存位置", 真) ＋ "\淘宝商品采集_" ＋ 时间_格式化 (取现行时间 (), "yyyyMMddHHmmss") ＋ ".xlsx"<br />     <br />     .如果真 (保存路径 ＝ "")<br />         返回 ()<br />     .如果真结束<br />     <br />     Excel工作簿.保存 (保存路径)<br />     信息框 ("文件已保存到：" ＋ #换行符 ＋ 保存路径, 0, "保存成功", )<br /> <br /> .子程序 _按钮_打开_被单击<br />     ' 打开Excel文件查看<br />     Excel应用.可见 ＝ 真<br /> <br /> .子程序 __启动窗口_将被销毁<br />     ' 关闭Excel<br />     .如果真 (Excel应用.是否已创建 ())<br />         Excel应用.退出 ()<br />     .如果真结束<br /> <br /> ' ============== 关键功能：获取浏览器URL ==============<br /> .子程序 取浏览器URL, 文本型<br /> .参数 窗口句柄, 整数型<br /> .局部变量 地址栏句柄, 整数型<br /> .局部变量 URL, 文本型<br /> <br /> ' 根据不同浏览器查找地址栏<br /> .判断开始 (寻找文本 (取窗口类名 (窗口句柄), "Chrome_WidgetWin", , 假) ≠ -1)<br />     ' Chrome浏览器<br />     地址栏句柄 ＝ 窗口_取句柄_模糊 (窗口句柄, "Chrome_OmniboxView")<br />     <br /> .判断 (寻找文本 (取窗口类名 (窗口句柄), "MozillaWindowClass", , 假) ≠ -1)<br />     ' Firefox浏览器<br />     地址栏句柄 ＝ 窗口_取句柄_模糊 (窗口句柄, "MozillaComboBox")<br />     <br /> .判断 (寻找文本 (取窗口类名 (窗口句柄), "IEFrame", , 假) ≠ -1)<br />     ' IE浏览器<br />     地址栏句柄 ＝ 窗口_取句柄_模糊 (窗口句柄, "Edit")<br />     <br /> .默认<br />     ' 其他浏览器尝试通用方法<br />     地址栏句柄 ＝ 窗口_取句柄_模糊 (窗口句柄, "Edit")<br /> .判断结束<br /> <br /> .如果真 (地址栏句柄 ≠ 0)<br />     URL ＝ 取窗口标题 (地址栏句柄)<br /> .如果真结束<br /> <br /> 返回 (URL)<br /> <br /> ' ============== 辅助函数 ==============<br /> .子程序 时间_格式化, 文本型<br /> .参数 时间, 日期时间型<br /> .参数 格式, 文本型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> .局部变量 时, 整数型<br /> .局部变量 分, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 年 ＝ 取年份 (时间)<br /> 月 ＝ 取月份 (时间)<br /> 日 ＝ 取日 (时间)<br /> 时 ＝ 取小时 (时间)<br /> 分 ＝ 取分钟 (时间)<br /> 秒 ＝ 取秒 (时间)<br /> <br /> 结果 ＝ 子文本替换 (格式, "yyyy", 格式化数字 (年, 4), , , 真)<br /> 结果 ＝ 子文本替换 (结果, "MM", 格式化数字 (月, 2), , , 真)<br /> 结果 ＝ 子文本替换 (结果, "dd", 格式化数字 (日, 2), , , 真)<br /> 结果 ＝ 子文本替换 (结果, "HH", 格式化数字 (时, 2), , , 真)<br /> 结果 ＝ 子文本替换 (结果, "mm", 格式化数字 (分, 2), , , 真)<br /> 结果 ＝ 子文本替换 (结果, "ss", 格式化数字 (秒, 2), , , 真)<br /> <br /> 返回 (结果)<br /> <br /> .子程序 格式化数字, 文本型<br /> .参数 数字, 整数型<br /> .参数 位数, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 到文本 (数字)<br /> .判断循环首 (取文本长度 (文本) < 位数)<br />     文本 ＝ "0" ＋ 文本<br /> .判断循环尾 ()<br /> 返回 (文本)

精易论坛龙

队长填表。比较适合操作网页

love逍遥

2224848 发表于 2025-7-29 13:13
[e=1].版本 2
.支持库 eExcel
.支持库 eAPI

朋友 加个联系方式 有偿的。806757010

love逍遥

sangco 发表于 2025-7-29 12:56
有预算可以加我

朋友 加个联系方式 有偿的。806757010

love逍遥

designer 发表于 2025-7-29 10:18
document.title取当前页面标题，document.URL取当前链接，浏览器跟本地开个服务通信一下，把数据传到服务这 ...

有偿Q 806757010

love逍遥

云少i 发表于 2025-7-29 10:21
加Q992489316

加了···