开源 中文 热榜工具 不出茅庐便知三分天下 双击鼠标能吃全网新瓜~

今日摸鱼一个热榜工具 其实弄了很久
小工具 占内存四兆左右 双击用浏览器打开新闻
集合了各热门网站头条 包含威兔 gayhub b乎 等等等等 (其实只是一个接口)
那话不多说 看图

开源 中文 热榜工具 不出茅庐便知三分天下 双击鼠标能吃全网新瓜~

源码也在附件中 中文核心代码就这几行 是不是很简单呢
有兴趣的同学可以改成自己想要的样子
附件压缩包包含 源码 解释器 和 编译好的文件(无花 无壳 无加密)

热榜附件

提取码:kTtK复制
解压码:无
主界面 := 界面.新建()
主界面.设置字体("号12")
全局 榜单
榜单:= 网络请求("https://raw.fastgit.org/x-dr/hot/master/result/result.json")
分类:=[]
榜单:=Jxon_Load(榜单)     
遍历 键,值 在 榜单{
	;分类.添加(值["hot_name"])
	按钮 := 主界面.添加按钮("横+10",值["hot_name"],)
	按钮.监听事件("点击",显示)
}
列表 := 主界面.添加列表视图("横边 行20 宽666",["标题","地址"])

列表.监听事件("双击",打开网页)

显示(控件,*){
	;循环 列表.获取总数()
		列表.删除()

	调试输出(控件.文本)
	遍历 键,值 在 榜单{
	如果 值["hot_name"] = 控件.文本
		遍历 键1,值1 在 值["content"]{		
			列表.添加("", 值1["title"] ,值1["href"])
		}
	}
	列表.调整列(1,"auto")
}

打开网页(控件,项){
	调试输出("将跳转 " 项 列表.获取文本(项,2))
	运行(列表.获取文本(项,2))
}


主界面.显示

给TA捐赠
共{{data.count}}人
人已捐赠
其他应用

连接群晖DS920+的WebDAV Server的FileZilla Pro专业版的批处理

2021-6-17 10:18:45

其他应用教程

L版本实现多线程找图

2021-6-26 18:49:11

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
有新私信 私信列表
搜索