• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[已解决] 关于悬浮窗的应用问题 [复制链接]

1#
//==========Function脚本===========================
Function StartTask()

FW.Close "操作窗"
//关闭操作窗,开始任务

Call restartAPP()
End Function
Function CloseWindows()
//关闭操作窗,终止所有任务

ExitScript //强制终止全部脚本
End Function

//============创建操作窗============================
FW.NewFWindow "操作窗", 0, resolutionY / 6, 150, 300
FW.SetBackColor "操作窗", "D97700"
//悬浮窗颜色
FW.SetSmoothing "操作窗", 10
//悬浮窗倒角
FW.IsTouchMove "操作窗", 1
//允许悬浮窗拖动
FW.Opacity "操作窗", 70
//设置透明度
FW.AddButton "操作窗", "开始流程", "开始", 15, 20, 120, 120
//开始按钮
FW.SetOnClick "开始流程", StartTask()
//启动任务
FW.AddButton "操作窗", "关闭程序", "关闭", 15, 160, 120, 120
//关闭按钮
FW.SetOnClick "关闭程序", CloseWindows()
FW.AddTextView "操作窗", "文字", " 任务\n进行中", 20, 25, 120, 120
FW.SetTextColor "文字", "e6e6e6"
FW.NewFWindow "信息窗", 0, resolutionY, 150, 300
FW.Show ("操作窗")
//无限循环等待,脚本停止后,浮窗自动消失
Do
Delay 1000
Loop
//============重启应用============================
Sub restartAPP()
zm.ShowMessage "将在 #时间 秒后释放"

KillApp "com.xxxxxxxx"

zm.ShowMessage "将在 #时间 秒后启动"

RunApp "com.xxxxxxxx"

Rem IsFront
//检测APP是否开启完成

If Sys.AppIsFront("com.ss.android.ugc.aweme") <> True Then

Goto IsFront


End If

zm.ShowMessage "启动成功"

Call logout()
End Sub



我创建了上面一个悬浮窗。当悬浮窗内的开始按钮点击后,流程是可以正常运行的。但流程运行后,悬浮窗内的关闭按钮就失效了,变成无法点击。
这个怎么解决?

本主题由 超级版主 瑞祥幽冥狼 于 2024/12/19 13:59:07 执行 审核主题 操作
2#

注:你好 下次提问请提供简洁、扼要、清晰可直接测试的代码结构,并注释以及描述问题所在以及疑问(像这样的提问方式 可能导致无法提供精确有效的回复)
  1. Dim h
  2. //设置事件函数
  3. Function 你的函数名1()
  4. h=Thread.Start(多线程)'以多线程形式启动
  5. End Function
  6. Function 你的函数名2()
  7. TracePrint "成功触发单击按钮2"
  8. ExitScript
  9. End Function
  10. //创建悬浮窗
  11. FW.NewFWindow("浮窗名", 0, 0, 600, 600)
  12. //设置按钮控件
  13. FW.AddButton("浮窗名", "按键1", "文字内容", 0, 0, 200, 200)
  14. //触发单击事件
  15. FW.AddButton("浮窗名", "按键2", "文字内容", 0, 200, 200, 200)
  16. FW.SetOnClick ("按键1", 你的函数名1)
  17. FW.SetOnClick("按键2", 你的函数名2)
  18. //显示悬浮窗
  19. FW.Show("浮窗名")
  20. //延时5000毫秒
  21. Do
  22. Delay 5000
  23. TracePrint "..."&now()
  24. Loop
  25. Sub 多线程()
  26. Do
  27. ShowMessage "成功触发单击按钮1"
  28. Delay 3000
  29. Loop
  30. End Sub
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
3#

非常感谢,问题得到解决

发新话题 回复该主题