精易论坛

标题: 小歪:adobe系列软件下载器 [打印本页]

作者: Eyy讲师小歪    时间: 2017-6-22 08:23
标题: 小歪:adobe系列软件下载器
一款可以自动获取Adobe系列软件的程序,其实实现这个方法更简单的是使用正则表达式,但是~!!!!!我!不!会   [qq]145144616[/qq] 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
计次循环首 (取数组成员数 (软件标题), i)
判断 (卷帘式菜单1.取菜单提示文本 (卷帘式菜单1.现行选中菜单) = 软件标题 [i])
调试输出 (“因为:” + 卷帘式菜单1.取菜单提示文本 (i - 1)“和” + 软件标题 [i]“相同,所以匹配成功!”)
软件对接码 = i
调试输出 (“找到了”到文本 (软件对接码))
跳出循环 ()
到循环尾 ()

计次循环尾 ()
软件详细说明 ()
子程序名返回值类型公开备 注
__启动窗口_可否被关闭逻辑型 
判断 (信息框 (“您是否要关闭此程序,单击【是】按钮退出程序,单击【否】返回程序!”, #信息图标#是否钮, “提示”, )#是钮 )
结束 ()
返回 ()


i支持库列表   支持库注释   
eAPI应用接口支持库
EThread多线程支持库
internet互联网支持库
spec特殊功能支持库
iext3扩展界面支持库三
iext扩展界面支持库一


作者: 白鹿惊蛰    时间: 2017-6-22 10:53
新技能Get √
作者: 随风呀    时间: 2017-6-22 19:01

作者: GZfate    时间: 2017-6-22 20:08
不得不说下: 代码可优化的地方有很多.
作者: kyo9766    时间: 2017-6-23 08:42
不会正则,用取文本中间 是个不错的选择。。- -
作者: 弧尊良    时间: 2017-6-24 23:09

作者: 智明    时间: 2017-6-25 14:07
新技能,好评!
作者: 娱乐哟    时间: 2017-6-25 17:09

下载看看,支持开源
作者: ozing    时间: 2017-6-26 14:28
很好很强大收藏了
作者: DWkakaka    时间: 2021-8-11 21:18
66666666666666
作者: dlc2002    时间: 2022-4-30 11:56
太棒了
作者: czk2    时间: 2022-8-16 13:48
感谢你的支持,精易有你更精彩
作者: husongping    时间: 2022-11-27 21:51
666666666666




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4