切换风格

默认Lavender Sky Flowers Wizard Snow Beige California City Dragon Black London Sunset glow Pink Cloud

40

主题

990

积分

0

精华

用户组 

易积分
183
热心
2
好评
0

活跃会员热心会员

无法计时与点击图片打开网址[复制链接]
发表于 2020-1-23 00:35:05 | 显示全部楼层 |阅读模式
20易积分
本帖最后由 橘子社区 于 2020-1-23 00:42 编辑

无法计时与点击图片打开网址点图片 就崩溃并重启  如何解决
  附上代码

    变量 广告开关 为 文本型
        变量 图片链接 为 文本型
        变量 广告标题 为 文本型
        变量 标题颜色 为 整数型
        变量 网站链接 为 文本型
        变量 次 为 整数型
事件 主窗口.创建完毕()
    置界面顶部边距(0)
        logo.移动((取屏幕宽度() - (取屏幕宽度()/6*2))/2,取屏幕高度() - (取屏幕宽度()/3*2)/3,取屏幕宽度()/6*2,(取屏幕宽度()/3*2)/3)
        面板1.添加组件(广告显示)
        面板1.添加组件(广告标签)
        面板1.添加组件(计时显示)
        面板1.移动(0,0,取屏幕宽度(),取屏幕高度() - (取屏幕宽度()/3*2)/3)
        广告标签.置背景图片(R.ggbq)
        计时显示.置背景图片(R.ggtg)
        广告显示.移动(0,0,填充父,填充父)
        广告标签.移动(0,面板1.高度 - 取绝对像素(40),面板1.宽度,取绝对像素(40))
        广告标签.字体颜色 = &HEEFFFFFF
        计时显示.移动(取屏幕宽度() - 取屏幕宽度()/6 - 取绝对像素(20),取状态栏高度() + 取绝对像素(10),取屏幕宽度()/6 + 取绝对像素(10),取绝对像素(32))
        计时显示.字体颜色 = &HEEFFFFFF
        Image.初始化下载引擎(R.icon,R.icon,R.icon,0,假)
        
                多线程1.开始取网页源码(公用模块.接口 & "/api/api.php?my=index","utf-8")
                多线程1.开始取网页源码2(公用模块.接口 & "/api/api.php?my=other","utf-8")
结束 事件
事件 多线程1.取网页源码完毕(源码 为 文本型)
        变量 本地版本 为 文本型 = "1.0"
        源码=UCS2解码(源码)
        变量 解析 为 对象
        变量 数组 为 对象
        解析 = JSON操作1.解析(源码)
        数组 = JSON操作1.取数组(解析,"code")
        公用模块.版本序号 = JSON操作1.取文本值(解析,"dqbb")
        公用模块.更新地址 = JSON操作1.取文本值(解析,"gxdz")
        公用模块.首页公告 = JSON操作1.取文本值(解析,"rjgg")
        公用模块.客服QQ = JSON操作1.取文本值(解析,"zxkf")
        如果 本地版本<>公用模块.版本序号 则
                ok弹出提示1.弹出("发现新版 请更新后再试!",1,5)
                否则
                ok弹出提示1.弹出(公用模块.首页公告,1,1)
        结束 如果
        
结束 事件
事件 多线程1.取网页源码2完毕(源码 为 文本型)
        源码=UCS2解码(源码)
        变量 解析 为 对象
        变量 数组 为 对象
        解析=JSON操作1.解析(源码)
        数组 = JSON操作1.取数组(解析,"code")
        公用模块.开屏广告 = JSON操作1.取文本值(解析,"qdpdz")
        公用模块.开屏链接 = JSON操作1.取文本值(解析,"qdptz")
        公用模块.轮播图片1 = JSON操作1.取文本值(解析,"lunbo_0")
        公用模块.轮播图片2 = JSON操作1.取文本值(解析,"lunbo_0_d")
        公用模块.轮播图片3 = JSON操作1.取文本值(解析,"lunbo_1")
        公用模块.轮播图片4 = JSON操作1.取文本值(解析,"lunbo_1_d")
        公用模块.轮播图片5 = JSON操作1.取文本值(解析,"lunbo_2")
        公用模块.轮播链接1 = JSON操作1.取文本值(解析,"lunbo_1_d")
        公用模块.轮播链接2 = JSON操作1.取文本值(解析,"lunbo_3")
        公用模块.轮播链接3 = JSON操作1.取文本值(解析,"lunbo_3_d")
    公用模块.轮播链接4 = JSON操作1.取文本值(解析,"lunbo_4")
    公用模块.轮播链接5 = JSON操作1.取文本值(解析,"lunbo_4_d")
        公用模块.加群KEY = JSON操作1.取文本值(解析,"diybl_0")
        公用模块.滚动公告 = JSON操作1.取文本值(解析,"diybl_1")
        Image.加载图片(公用模块.开屏广告,广告显示)
        面板1.可视=真
结束 事件
事件 广告计时.周期事件()
        次 = 次 + 1
        判断 次
                分支 1
                        计时显示.标题  = "5秒"
                分支 2
                        计时显示.标题  = "4秒"
                分支 3
                        计时显示.标题  = "3秒(跳过)"
                分支 4
                        计时显示.标题  = "2秒(跳过)"
                分支 5
                        计时显示.标题  = "1秒(跳过)"
                分支 6        
                        计时显示.可视 = 假
                        广告计时.时钟周期 = 0
        结束 判断
        
结束 事件

事件 计时显示.被单击()
        如果 计时显示.标题 = "3秒(跳过)" 或 计时显示.标题 = "2秒(跳过)" 或 计时显示.标题 = "1秒(跳过)" 则
                计时显示.可视 = 假
                广告计时.时钟周期 = 0
                弹出提示("完事了 可以进入别的窗口了")
        结束 如果
        
结束 事件

事件 广告显示.被单击()
        打开指定网址(公用模块.开屏链接)
结束 事件


image 为图片下载器
广告显示 为 图片框
计时显示为 标签


最佳答案

查看完整内容

无法计时是 窗口创建完毕下 加 广告计时.时钟周期=1000 点击崩溃是 命令 打开网址() 是要用完整的链接地址 你那个地址可能没有完整 (差 http://) 或者你没取到链接 是空的 也会崩溃
www.masks.tk面具社区
回复

使用道具 举报

12

主题

876

积分

0

精华

用户组 

易积分
3198
热心
6
好评
1

热心会员活跃会员

发表于 2020-1-23 00:35:06 | 显示全部楼层
本帖最后由 eyy 于 2020-1-23 10:29 编辑

无法计时是 窗口创建完毕下 加 广告计时.时钟周期=1000
点击崩溃是 命令 打开网址() 是要用完整的链接地址 你那个地址可能没有完整 (差 http://) 或者你没取到链接 是空的 也会崩溃

评分

参与人数 1热心 +1 收起 理由
易如意 + 1 热心帮助他人,热心+1

查看全部评分

易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

3

主题

493

积分

0

精华

用户组 

易积分
2405
热心
0
好评
0
发表于 2020-1-23 10:37:28 | 显示全部楼层
进来看看了解一下
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

40

主题

990

积分

0

精华

用户组 

易积分
183
热心
2
好评
0

活跃会员热心会员

发表于 2020-1-23 12:07:57 | 显示全部楼层
eyy 发表于 2020-1-23 00:35
无法计时是 窗口创建完毕下 加 广告计时.时钟周期=1000
点击崩溃是 命令 打开网址() 是要用完整的链接地 ...

没太注意沃日...谢谢傲
www.masks.tk面具社区
回复

使用道具 举报

QQ|sitemap|免责声明|RGB颜色对照表|手机版|小黑屋| 易如意 - E4A中文编程学习交流论坛

GMT+8, 2024-6-17 20:47 , Processed in 0.047531 second(s), 33 queries .

Powered by Discuz! X3.4

© 2001-2018 eruyi.cn

返回顶部