如何将按键精灵的这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的运做,且保持监视状态,确保下次按键有效
麻烦高手帮我弄下,我今天弄了一上午了真弄不出来了。。。
谢谢了
脚本不动啊。。。
郁闷了。。。 展开
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
微测检测5.10
2023-05-10 广告
2023-05-10 广告
您好!建议咨 深圳市微测检测有限公司,已建立起十余个专业实验室,企业通过微测检测就可以获得一站式的测试与认 证解决方案;(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量),认证遇...
点击进入详情页
本回答由微测检测5.10提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询