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

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

按键精灵安卓版
立即下载

软件版本：3.8.0
软件大小：45M
更新时间：2025-05-20

按键精灵iOS版
立即下载

软件版本：2.2.1
软件大小：29.2M
更新时间：2025-05-27

按键手机助手
立即下载

软件版本：4.2.0
软件大小：242M
更新时间：2025-05-20

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 586|回复: 4

新人求助 [复制链接]

danqingqing
头像

  • 幼儿园
  • 9447369
  • 2
  • 0
  • 5 朵
  • 12 个
  • 7 个
  • 0
  • 2025-05-17
1#
t T
发表于 2025-05-23 19:24 | |只看楼主
定义了一个checkbox，选中后可以进行空格点击，这里定义了一个变量想在其中运行过程中程序退出，发现再点击checkbox无法自动取消选中，想咨询下如何在循环中如果点击了checkbox，让他取消选中

Event Form1.cbspace.Click
UserVar spaceflag=1 "选择标识"
Delay 2000
If Form1.cbspace.Value = 1 Then
TracePrint "您勾选了！"

For 10

TracePrint spaceflag + 100

If spaceflag = 1 Then

TracePrint spaceflag + 1000

KeyDown "Space", 1

KeyUp "Space", 1

TracePrint "您跳了"

TracePrint Form1.ipspace.Text


Delay Form1.ipspace.Text * 100

Else

TracePrint "退出了！"


Exit For




End If

Next
Else
spaceflag = 0
TracePrint "您取消勾选了！"
End If
End Event

点赞
回顶部
lcxiaofu
头像

晴天

  • 博士
  • 629481
  • 3640
  • 0
  • 715 朵
  • 12974 个
  • 877 个
  • 57800
  • 2011-03-28
按键精灵开发者2级小红帽发帖高手学有所成
2#
t T
发表于 2025-05-27 13:49 | |只看该用户

你没有给他赋值当然他 不会取消拉

有事就QQ 136874377 QQ交流群300857068   接各种脚本定做 价格优惠
回顶部
goodwckajjl
头像

goodwckajjl

  • 高中二年级
  • 591959
  • 570
  • 0
  • 148 朵
  • 1079 个
  • 85 个
  • 21340
  • 2011-02-03
按键会员（季）按键精灵开发者2级
3#
t T
发表于 2025-05-27 17:07 | |只看该用户

你要在这个事件 Event Form1.cbspace.Click 内 给变量 spaceflag 赋值 不然你for 体中spaceflag 变量 永远不会有变化

回顶部
shanshuiqing
头像

伊伊

  • 幼儿园
  • 9438145
  • 2
  • 0
  • 3 朵
  • 3 个
  • 3 个
  • 0
  • 2025-04-25
按键精灵开发者4级
4#
t T
发表于 2025-06-04 06:52 | |只看该用户


回顶部
shanshuiqing
头像

伊伊

  • 幼儿园
  • 9438145
  • 2
  • 0
  • 3 朵
  • 3 个
  • 3 个
  • 0
  • 2025-04-25
按键精灵开发者4级
5#
t T
发表于 2025-06-04 06:52 | |只看该用户

Global spacebianliang
Spacebianliang = 1
' 主控制线程 - 处理空格键操作
Sub SpaceControlThread()
Delay 2000
If Form1.cbspace.Value = 1 Then
TracePrint "您勾选了！"
For i = 1 To 10
If Spacebianliang = 2 Then
ExitScript
End If
TracePrint "代码正在运行中"
Delay 2000
Next
Else
spaceflag = 0
TracePrint "您取消勾选了！"
End If
End Sub
' 检测线程 - 监控cbspace1状态
Sub DetectionThread()
While True
If Form1.cbspace1.Value = 1 Then
Spacebianliang = 2
TracePrint "检测到cbspace1被勾选，设置退出标志"
End If
Delay 1000 ' 检测间隔
Wend
End Sub
BeginThread SpaceControlThread
BeginThread DetectionThread

回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器