如何将按键精灵的这2个脚本放在一个脚本里一起使用?
我这有2个脚本,可怎么改都不能放到一起使用,好象是我修改的不对,麻烦大家帮我看下,因该怎么弄才能放到一起使用?===================脚本一(一个抓坐标用的...
我这有2个脚本,可怎么改都不能放到一起使用,好象是我修改的不对,麻烦大家帮我看下,因该怎么弄才能放到一起使用?
===================脚本一(一个抓坐标用的)=============
VBS dim x,y
VBSCall GetCursorPos(x,y)
VBSCall MessageBox("坐标为:"&x&","&y&"")
===================脚本二(一个拥护自定义变量)============
UserVar dx1=900 点击“↓”的x坐标:
UserVar dy1=566 点击“↓”的y坐标:
UserVar dx2=643 点钩的x坐标:
UserVar dy2=566 点钩的y坐标:
//无限交接任务
Rem 开始
MoveTo dx1,dy1
LeftClick 1
MoveTo dx2,dy2
LeftClick 1
Goto 开始
======================================
想实现效果:
当按下小键盘上的“.”键调用脚本1,抓取坐标
当按下小键盘上的“+”键调用脚本2,开始循环运做脚本
当按下小键盘上的“-”键停止脚本2的运做,且保持监视状态,确保下次按键有效
麻烦高手帮我弄下,我今天弄了一上午了真弄不出来了。。。
谢谢了
脚本不动啊。。。
郁闷了。。。 展开
===================脚本一(一个抓坐标用的)=============
VBS dim x,y
VBSCall GetCursorPos(x,y)
VBSCall MessageBox("坐标为:"&x&","&y&"")
===================脚本二(一个拥护自定义变量)============
UserVar dx1=900 点击“↓”的x坐标:
UserVar dy1=566 点击“↓”的y坐标:
UserVar dx2=643 点钩的x坐标:
UserVar dy2=566 点钩的y坐标:
//无限交接任务
Rem 开始
MoveTo dx1,dy1
LeftClick 1
MoveTo dx2,dy2
LeftClick 1
Goto 开始
======================================
想实现效果:
当按下小键盘上的“.”键调用脚本1,抓取坐标
当按下小键盘上的“+”键调用脚本2,开始循环运做脚本
当按下小键盘上的“-”键停止脚本2的运做,且保持监视状态,确保下次按键有效
麻烦高手帮我弄下,我今天弄了一上午了真弄不出来了。。。
谢谢了
脚本不动啊。。。
郁闷了。。。 展开
展开全部
楼主这个你要看看你小盘键锁上了没,还有这脚本要先运行(默认F10运行)再才监测你的按键做出反应.还不行留下QQ或发信息给我,
楼不会是想把脚本一得到的坐标放到脚本二里运行吧?那样的话没必要用户定义的呀?请说清楚点
2楼的你说错错在哪? 你知道GetLastKey语句吗? 你那方法谁不会呀
1.如果不设置热键的话可以是可以 但有一缺点就是可能要按2次“-”脚本二才会停止 (因为是脚本2是监测上次按的键来停止调用的)
2.另外我帮你加上了延迟如果不需要的可以删掉.
UserVar dx1=900 点击“↓”的x坐标:
UserVar dy1=566 点击“↓”的y坐标:
UserVar dx2=643 点钩的x坐标:
UserVar dy2=566 点钩的y坐标:
Rem 主程序
WaitKey K
If K=110
Gosub 脚本一
ElseIf K=107
Gosub 脚本二
EndIf
Delay 200
Goto 主程序
Sub 脚本一
VBS dim x,y
Delay 10
VBSCall GetCursorPos(x,y)
Delay 10
VBSCall MessageBox("坐标为:"&x&","&y&"")
Return
Sub 脚本二
Rem 开始
MoveTo dx1,dy1
Delay 10
LeftClick 1
MoveTo dx2,dy2
Delay 10
LeftClick 1
Delay 100
GetLastKey key
If key=109
Goto 主程序
Else
Goto 开始
EndIf
Delay 100
Return
楼不会是想把脚本一得到的坐标放到脚本二里运行吧?那样的话没必要用户定义的呀?请说清楚点
2楼的你说错错在哪? 你知道GetLastKey语句吗? 你那方法谁不会呀
1.如果不设置热键的话可以是可以 但有一缺点就是可能要按2次“-”脚本二才会停止 (因为是脚本2是监测上次按的键来停止调用的)
2.另外我帮你加上了延迟如果不需要的可以删掉.
UserVar dx1=900 点击“↓”的x坐标:
UserVar dy1=566 点击“↓”的y坐标:
UserVar dx2=643 点钩的x坐标:
UserVar dy2=566 点钩的y坐标:
Rem 主程序
WaitKey K
If K=110
Gosub 脚本一
ElseIf K=107
Gosub 脚本二
EndIf
Delay 200
Goto 主程序
Sub 脚本一
VBS dim x,y
Delay 10
VBSCall GetCursorPos(x,y)
Delay 10
VBSCall MessageBox("坐标为:"&x&","&y&"")
Return
Sub 脚本二
Rem 开始
MoveTo dx1,dy1
Delay 10
LeftClick 1
MoveTo dx2,dy2
Delay 10
LeftClick 1
Delay 100
GetLastKey key
If key=109
Goto 主程序
Else
Goto 开始
EndIf
Delay 100
Return
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询