小歪：adobe系列软件下载器

Eyy讲师小歪 · 发表于 2017-6-22 08:23:28

一款可以自动获取Adobe系列软件的程序，其实实现这个方法更简单的是使用正则表达式，但是~！！！！！我！不！会

Adobe软件下载器.rar (1.63 MB, 下载次数: 60)

软件打开的时候会弹出和我自己的聊天窗口，如果有能碰见正则的大神，希望能和我交流一下。

我发布源码的初衷还是和以前一样，想让大家都用上我们自己的软件，谁知道网上的软件是不是加了什么不干净的东西呢！

这个软件的实现非常简单，希望大神勿喷，仅供大家学习，不用到商业用途上，毕竟我给大家开源也没人给我钱。嘻嘻，好了看源码吧。

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

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

打开指定网址 (“tencent://message/?uin=1454144616&Site=在线咨询&Menu=yes;”)
生成语音 (0, 真, “已经为您打开与作者的QQ聊天窗口，如果您在使用过程中有任何的问题，请告诉作者！Has opened the chat window with the author for you, if you have any questions in the course of using, please tell the author!”)
皮肤_资源加载 ( #皮肤_QQ2011, , )
按钮_获取软件.标题＝ “正在获取，请稍后…………”
启动线程 (&取出软件名称, , )
设置窗口透明度 (卷帘式菜单1.取窗口句柄 (), 100)

子程序名	返回值类型	公开	备注
取出软件名称

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

网站源代码＝到文本 (HTTP读文件 (“http://www.33lc.com/zhuanti/adoberjdq/”))
文本_取中间_批量 (网站源代码, #寻找标识符_左边, #寻找标识符_右边, 软件标识符)
文本_取中间_批量 (网站源代码, #寻找软件标题_左边, #寻找软件标题_右边, 软件标题)
文本_取中间_批量 (网站源代码, #寻找软件说明_左边, #寻找软件说明_右边, 软件说明)
文本_取中间_批量 (网站源代码, #寻找软件版本_左边, #寻找软件版本_右边, 软件版本)

计次循环首 (取数组成员数 (软件标识符), i)

调试输出 (软件标识符 [i])

调试输出 (软件说明 [i])

调试输出 (软件版本 [i])

软件标题 [i] ＝文本_取出中间文本 (网站源代码, #寻找软件标题_左边＋软件标识符 [i] ＋ #寻找软件标题_中间, #寻找软件标题_右边, )

调试输出 (软件标题 [i])

卷帘式菜单1.加入菜单 (软件标题 [i], , )

卷帘式菜单1.置菜单名称 (i － 1, 软件标题 [i])

卷帘式菜单1.置菜单提示文本 (i － 1, 软件标题 [i])

调试输出 (“菜单标识符：” ＋卷帘式菜单1.取菜单提示文本 (i － 1))

卷帘式菜单1.加入项目 (“软件标题：” ＋软件标题 [i] ＋软件版本 [i], i － 1, , , )

卷帘式菜单1.加入项目 (“软件标识符：” ＋软件标识符 [i], i － 1, , , )

卷帘式菜单1.加入项目 (“双击此处更新数据”, i － 1, , , )

写配置项 (取运行目录 () ＋ “/FileName.ini”, “Adobe软件自动生成Adobe文件名称_配置文件”, 到文本 (i), “软件标题：” ＋软件标题 [i] ＋软件版本 [i])

' 卷帘式菜单1.加入项目 (“软件说明：” ＋软件说明 [i], i － 1, , , )

计次循环尾 ()
软件对接码＝ 1
按钮_获取软件.标题＝ “加载完毕，正在获取详细说明…………”
_启动窗口.标题＝ “Adobe程序大全” ＋ “ - ->信息已经获取完毕，共找到：” ＋到文本 (i) ＋ “个Adobe软件 - ->”
启动线程 (&软件详细说明, , )

子程序名	返回值类型	公开	备注
_卷帘式菜单1_菜单被单击
参数名	类型	参考	可空	数组	备注
菜单索引	整数型

变量名	类型	静态	数组	备注
i	整数型			http://www.33lc.com/soft/15126.html

计次循环首 (取数组成员数 (软件标题), i)

判断 (卷帘式菜单1.取菜单提示文本 (卷帘式菜单1.现行选中菜单) ＝软件标题 [i])

调试输出 (“因为：” ＋卷帘式菜单1.取菜单提示文本 (i － 1) ＋ “和” ＋软件标题 [i] ＋ “相同，所以匹配成功！”)

软件对接码＝ i

调试输出 (“找到了” ＋到文本 (软件对接码))

跳出循环 ()

到循环尾 ()

计次循环尾 ()
软件详细说明 ()

子程序名	返回值类型	公开	备注
软件详细说明

透明标签_说明.标题＝ “”
详细说明添加 (“软件名称：” ＋软件标题 [软件对接码])
详细说明添加 (“软件标识符：” ＋软件标识符 [软件对接码])
详细说明添加 (“软件下载地址：http://www.33lc.com/soft/” ＋软件标识符 [软件对接码] ＋ “.html”)
详细说明添加 (“软件详细说明：” ＋软件说明 [软件对接码])
详细说明添加 (“注意：如果这边显示的数据和您选择的软件信息不一样，请双击项目文本【双击此处更新链接】来更新数据！如果徐下方一直在现实获取信息中，您可以多试几次，或者多次重启此程序即可解决！”)
按钮_获取软件.标题＝ “详细说明获取完毕，正在寻找下载地址…………”
启动线程 (&寻找下载地址, , )

子程序名	返回值类型	公开	备注
寻找下载地址

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

源文件＝到文本 (HTTP读文件 (“http://www.33lc.com/soft/” ＋软件标识符 [软件对接码] ＋ “.html”))
' 文本_取中间_批量 (源文件, #寻找下载地址_左边, #寻找下载地址_右边, 下载地址, , )
文本_取中间_批量 (源文件, #寻找下载地址_左边, #寻找下载地址_右边, 下载地址)
调试输出 (取数组成员数 (下载地址))

计次循环首 (取数组成员数 (下载地址), i)

调试输出 (“http://psoft.33lc.com:801/small/” ＋下载地址 [i] ＋ #换行符 )

计次循环尾 ()

如果真 (取数组成员数 (下载地址) ＞ 1)

详细说明添加 (“当前下载地址为：http://psoft.33lc.com:801/small/” ＋下载地址 [i － 1])

downaddress ＝ “http://psoft.33lc.com:801/small/” ＋下载地址 [i － 1]

按钮_获取软件.标题＝ “单击此处下载：” ＋软件标题 [软件对接码] ＋ “注意：如果这边显示的数据和您选择的软件信息不一样，请双击项目文本【双击此处更新数据】来更新数据！”

子程序名	返回值类型	公开	备注
详细说明添加
参数名	类型	参考	可空	数组	备注
说明内容	文本型

透明标签_说明.标题＝透明标签_说明.标题＋说明内容＋ #换行符＋ #换行符

子程序名	返回值类型	公开	备注
_按钮_获取软件_被单击

打开指定网址 (downaddress)

子程序名	返回值类型	公开	备注
_卷帘式菜单1_项目被双击
参数名	类型	参考	可空	数组	备注
菜单索引	整数型
项目索引	整数型

变量名	类型	静态	数组	备注
i	整数型			http://www.33lc.com/soft/15126.html