今日摸鱼一个热榜工具 其实弄了很久
小工具 占内存四兆左右 双击用浏览器打开新闻
集合了各热门网站头条 包含威兔 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))
}
主界面.显示