• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
发新话题 回复该主题

[已解决] 所有多开 按配置运行 脚本 缺的命令 麻烦老师写一下 [复制链接]

1#
题是,运行都没问题, 没有什么问题,就是界面 上勾什么选项 所有多开 都按界面 的选项 在运行, 主程序实时在获取界面 命令的..

老师刚说主程序里面加上 主脚本内需要重新再次获取界面控件值 这个具体应该怎么写 麻烦也说一下哦 新手不太懂 麻烦了

Do
key = WaitKey()
If key = 36 Then
Redim Preserve 线程ID(id)
Redim Preserve 窗口线程ID(id)
ReDim Preserve 子句柄(id)
子句柄1=Plugin.Window.MousePoint()
For c = 0 To UBound(子句柄)
TracePrint UBound(子句柄)
If 子句柄1 = 子句柄(c) Then
TracePrint "线程已经开启:"&线程id(c)
Exit For
End If
Next
TracePrint c
If c-1 = UBound(子句柄) Then
线程ID(id) = BeginThread(主程序)
窗口线程ID(id)= BeginThread (窗口变化)
End If
子句柄(id)=子句柄1
TracePrint "启动了线程" & 线程ID(id)
TracePrint "启动了窗口线程ID:" & 窗口线程ID
TracePrint "启动了句柄窗口:" & 子句柄(id)
hwnd=子句柄(id)
id = id + 1
ElseIf key = 35 Then
hwnd = Plugin.Window.MousePoint()
for i=0 to UBound(子句柄)
If 子句柄(i) = hwnd Then
StopThread 线程ID(i)
StopThread 窗口线程ID(i)
TracePrint "关闭了线程" & 线程ID(i)
TracePrint "关闭了句柄窗口:"&子句柄(i)
子句柄(i) = 0
Exit For
End If
Next
End If
Delay 500
Loop


--------------------------------------
TracePrint "省略中间主程序"
---------------------------------------




配置代码 是用的论坛的这上:
http://bbs.anjian.com/showtopic-569526-1.aspx

本主题由 超级版主 n15976906190 于 2020/2/11 16:05:04 执行 审核帖子 操作
2#

回复 1楼wdljing的帖子
  1. Sub 主程序()
  2. 变量1=Form1.CheckBox1.Value'举例
  3. Do
  4. 根据 变量1 进行判断 不应该再次获取
  5. Loop
  6. End Sub
复制代码

    已有1评分我要评分查看所有评分

    收徒索引 ←点击

    个 人 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#

    回复 1楼wdljing的帖子
    1. Sub 主程序()
    2. 多选框1=Form1.CheckBox1.Value
    3. Do
    4. 根据变量 多选框1 进行判断和对应操作 不应该再次读取Form1.CheckBox1.Value
    5. Loop
    6. 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[可加]
    4#

    回复 3楼n15976906190的帖子

    Sub 主程序()
    多选框1=Form1.CheckBox1.Value
    Do
    根据变量 多选框1 进行判断和对应操作 不应该再次读取Form1.CheckBox1.Value
    Loop
    End Sub
    知道原因 了 我把多选框1的 也放在DO循环时面 的

    发新话题 回复该主题