查看: 1153|回复: 13	[问题] 请教 [复制链接]

发送短消息 UID 4218372 帖子 9 精华 0 鲜花 10 朵 铜币 49 个 银币 12 个 性别 在线时间 240 注册时间 2016-11-20 最后登录 2024-09-18 查看公共资料 搜索主题 搜索帖子 396243339 组别小学一年级 UID4218372 帖子9 精华0 鲜花10 朵 铜币49 个 银币12 个 在线时间240 注册时间2016-11-20	1# 字体大小: t T 发表于 2024-09-12 16:42 | |只看楼主 FindColor 2507,148,2537,163,"E2DCC1",intX,intY If intX> 0 And intY> 0 Then Else Call a() End If Sub a() Dim Hwnd Hwnd = Plugin.Window.Find("GxWindowClass", 0) For 1 Call Plugin.Bkgnd.KeyPress(Hwnd, 221) Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 72) Delay 500 Call Plugin.Bkgnd.KeyPress(Hwnd, 89) Next End Sub 这脚本是找到图不做任何动作 找不到图执行Call a()， 如何在找到图哪里设置一个时间20秒就执行下面的Sub a() 子程序 ？
	点赞
	回顶部

发送短消息 UID 8114808 帖子 129 精华 0 鲜花 148 朵 铜币 14 个 银币 16 个 性别 在线时间 0 注册时间 2021-01-16 最后登录 2024-09-18 1626956911 查看公共资料 搜索主题 搜索帖子 xzw1 XZW-AJ 组别小学六年级 UID8114808 帖子129 精华0 鲜花148 朵 铜币14 个 银币16 个 在线时间0 注册时间2021-01-16	2# 字体大小: t T 发表于 2024-09-12 18:02 | |只看该用户 你的意思是找到图20秒后执行a？还是找到图后每20秒执行一次a？
	不可捉摸
	回顶部

发送短消息 UID 754809 帖子 1537 精华 0 鲜花 -48 朵 铜币 768 个 银币 67 个 性别 在线时间 42580 注册时间 2011-08-28 最后登录 2024-09-12 7939749 查看公共资料 搜索主题 搜索帖子 a7939749 a7939749 组别大学三年级 UID754809 帖子1537 精华0 鲜花-48 朵 铜币768 个 银币67 个 在线时间42580 注册时间2011-08-28 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 兔年勋章 兔年纪念勋章 十周年勋章 十周年纪念勋章	3# 字体大小: t T 发表于 2024-09-12 18:46 | |只看该用户 FindColor 2507,148,2537,163,"E2DCC1",intX,intY If intX> 0 And intY> 0 Then deleep 20 call a() Else Call a() End If Sub a() Dim Hwnd Hwnd = Plugin.Window.Find("GxWindowClass", 0) For 1 Call Plugin.Bkgnd.KeyPress(Hwnd, 221) Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 72) Delay 500 Call Plugin.Bkgnd.KeyPress(Hwnd, 89) Next End Sub
	<font color="Red">每天的花不送就过期了，如果你觉得我的回复对你有所帮助，就送一朵小花鼓励鼓励吧！</font>
	回顶部

发送短消息 UID 4218372 帖子 9 精华 0 鲜花 10 朵 铜币 49 个 银币 12 个 性别 在线时间 240 注册时间 2016-11-20 最后登录 2024-09-18 查看公共资料 搜索主题 搜索帖子 396243339 组别小学一年级 UID4218372 帖子9 精华0 鲜花10 朵 铜币49 个 银币12 个 在线时间240 注册时间2016-11-20	4# 字体大小: t T 发表于 2024-09-12 20:43 | |只看楼主 , 不行哟，会一直call
	回顶部

发送短消息 UID 4218372 帖子 9 精华 0 鲜花 10 朵 铜币 49 个 银币 12 个 性别 在线时间 240 注册时间 2016-11-20 最后登录 2024-09-18 查看公共资料 搜索主题 搜索帖子 396243339 组别小学一年级 UID4218372 帖子9 精华0 鲜花10 朵 铜币49 个 银币12 个 在线时间240 注册时间2016-11-20	5# 字体大小: t T 发表于 2024-09-13 09:19 | |只看楼主 感谢，还是不行，脚本无线执行call a()
	回顶部

发送短消息 UID 4218372 帖子 9 精华 0 鲜花 10 朵 铜币 49 个 银币 12 个 性别 在线时间 240 注册时间 2016-11-20 最后登录 2024-09-18 查看公共资料 搜索主题 搜索帖子 396243339 组别小学一年级 UID4218372 帖子9 精华0 鲜花10 朵 铜币49 个 银币12 个 在线时间240 注册时间2016-11-20	6# 字体大小: t T 发表于 2024-09-13 14:32 | |只看楼主 , 现在是找到色后没有任何动作，然后没找到色执行a， 我想在找到色后20秒没有动作也执行一下a，可以这样设置吗？
	回顶部

发送短消息 UID 3586920 帖子 361 精华 0 鲜花 38 朵 铜币 94 个 银币 88 个 性别 在线时间 21860 注册时间 2015-11-14 最后登录 2024-09-19 查看公共资料 搜索主题 搜索帖子 魅舒 魅舒 组别初中三年级 UID3586920 帖子361 精华0 鲜花38 朵 铜币94 个 银币88 个 在线时间21860 注册时间2015-11-14 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	7# 字体大小: t T 发表于 2024-09-13 22:10 | |只看该用户 Event Form1.Load Form1.Timer1.Enabled = False Form1.Timer1.Interval = 20000 End Event Event Form1.Timer1.Timer Call a() Form1.Timer1.Enabled = False End Event Sub a() TracePrint "a" End Sub Event Form1.Button1.Click If 5>4 Then //例如，如果找到就过20秒执行1次 Sub a() ，否则没有找到就立即执行1次 Sub a() Form1.Timer1.Enabled = False Form1.Timer1.Enabled = True Else Call a() End If End Event 复制代码
	回顶部

发送短消息 UID 4218372 帖子 9 精华 0 鲜花 10 朵 铜币 49 个 银币 12 个 性别 在线时间 240 注册时间 2016-11-20 最后登录 2024-09-18 查看公共资料 搜索主题 搜索帖子 396243339 组别小学一年级 UID4218372 帖子9 精华0 鲜花10 朵 铜币49 个 银币12 个 在线时间240 注册时间2016-11-20	8# 字体大小: t T 发表于 2024-09-14 15:07 | |只看楼主 , 我那段找图代码，怎么加进去啊？
	回顶部

发送短消息 UID 8114808 帖子 129 精华 0 鲜花 148 朵 铜币 14 个 银币 16 个 性别 在线时间 0 注册时间 2021-01-16 最后登录 2024-09-18 1626956911 查看公共资料 搜索主题 搜索帖子 xzw1 XZW-AJ 组别小学六年级 UID8114808 帖子129 精华0 鲜花148 朵 铜币14 个 银币16 个 在线时间0 注册时间2021-01-16	9# 字体大小: t T 发表于 2024-09-14 17:10 | |只看该用户 , 你的意思是想在没找到后Call，并且找到后20秒后也Call，不过你说的没有动作是指啥？是指子程序A不在执行状态还是指屏幕没变化，或是其他的？
	不可捉摸
	回顶部

发送短消息 UID 4218372 帖子 9 精华 0 鲜花 10 朵 铜币 49 个 银币 12 个 性别 在线时间 240 注册时间 2016-11-20 最后登录 2024-09-18 查看公共资料 搜索主题 搜索帖子 396243339 组别小学一年级 UID4218372 帖子9 精华0 鲜花10 朵 铜币49 个 银币12 个 在线时间240 注册时间2016-11-20	10# 字体大小: t T 发表于 2024-09-14 20:47 | |只看楼主 , 我那段找图代码，怎么加进去啊？不会啊，，
	回顶部

发送短消息 UID 3586920 帖子 361 精华 0 鲜花 38 朵 铜币 94 个 银币 88 个 性别 在线时间 21860 注册时间 2015-11-14 最后登录 2024-09-19 查看公共资料 搜索主题 搜索帖子 魅舒 魅舒 组别初中三年级 UID3586920 帖子361 精华0 鲜花38 朵 铜币94 个 银币88 个 在线时间21860 注册时间2015-11-14 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	11# 字体大小: t T 发表于 2024-09-15 10:38 | |只看该用户 Event Form1.Load Form1.Timer1.Enabled = False Form1.Timer1.Interval = 20000 End Event Event Form1.Timer1.Timer Call a() Form1.Timer1.Enabled = False End Event Event Form1.Button1.Click FindColor 2507,148,2537,163,"E2DCC1",intX,intY If intX> 0 And intY> 0 Then Form1.Timer1.Enabled = False Form1.Timer1.Enabled = True Else Call a() End If End Event Sub a() Dim Hwnd Hwnd = Plugin.Window.Find("GxWindowClass", 0) For 1 Call Plugin.Bkgnd.KeyPress(Hwnd, 221) Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 72) Delay 500 Call Plugin.Bkgnd.KeyPress(Hwnd, 89) Next End Sub 复制代码
	回顶部

发送短消息 UID 4218372 帖子 9 精华 0 鲜花 10 朵 铜币 49 个 银币 12 个 性别 在线时间 240 注册时间 2016-11-20 最后登录 2024-09-18 查看公共资料 搜索主题 搜索帖子 396243339 组别小学一年级 UID4218372 帖子9 精华0 鲜花10 朵 铜币49 个 银币12 个 在线时间240 注册时间2016-11-20	12# 字体大小: t T 发表于 2024-09-15 13:04 | |只看楼主 , 有错误 语义错误：脚本 我的脚本4 ，第9行：没有找到界面元素。错误附加码=1603 语义错误：脚本 我的脚本4 ，第5行：没有找到界面元素。错误附加码=1603
	回顶部

发送短消息 UID 4218372 帖子 9 精华 0 鲜花 10 朵 铜币 49 个 银币 12 个 性别 在线时间 240 注册时间 2016-11-20 最后登录 2024-09-18 查看公共资料 搜索主题 搜索帖子 396243339 组别小学一年级 UID4218372 帖子9 精华0 鲜花10 朵 铜币49 个 银币12 个 在线时间240 注册时间2016-11-20	13# 字体大小: t T 发表于 2024-09-16 18:48 | |只看楼主 脚本有错误，无法运行
	回顶部

发送短消息 UID 3586920 帖子 361 精华 0 鲜花 38 朵 铜币 94 个 银币 88 个 性别 在线时间 21860 注册时间 2015-11-14 最后登录 2024-09-19 查看公共资料 搜索主题 搜索帖子 魅舒 魅舒 组别初中三年级 UID3586920 帖子361 精华0 鲜花38 朵 铜币94 个 银币88 个 在线时间21860 注册时间2015-11-14 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	14# 字体大小: t T 发表于 2024-09-19 20:14 | |只看该用户 , 有按钮，定时器控件的，添加试试。
	回顶部