Question

按键精灵 使多窗口执行同一循环,在一个脚本里实现

举个例子:定义4个变量t1~t4,第一次对着一个窗口启动脚本,则t1变量激活,运行下面的脚本,第二次对着另外一个窗口启动脚本,则t2变量激活,执行与t1相同的循环!大侠们,带个注释给我学习一下
=============================
Dim t1, t2, t3, t4
t1 = now
t1 = Plugin.Window.Foreground()
t1 = Plugin.Window.GetKeyFocusWnd()
Rem 开始
Delay 50
Call Plugin.Bkgnd.KeyPress(t1, 32)
Delay 2000
Goto 开始

Answer 1

Dim i,n
Dim x(2),y(2)
i=0
n=0
VBSCall GetCursorPos(x(i),y(i))
While i<2
//设置延时，2分钟内5次
Delay 120000/5
//这里用绝对值函数，使i在0与1之间互相转化
i=Abs(i-1)
VBSCall GetCursorPos(x(i),y(i))
If x(0)=x(1) and y(0)=y(1)
n=n+1
Else
n=0
EndIf
//上面的IF语句里比较最近两次鼠标坐标，只要一有变化则计数器n清0
//当连续5次鼠标无变化时，则执行
If n>4
MoveTo 450,350
Delay 5
LeftClick 1
n=0
EndIf
EndWhile

把上面的粘贴到按键精灵里会睇得更清楚。
其实无必要比较完5次啦，只要比较最近两次有无变化就行了。如果确实要看比较5次的脚本，那可以有如下程序（上下两个脚本效果一样）：

Dim i,n
Dim x(5),y(5)
i=0
While i<5
Delay 120000/5
VBSCall GetCursorPos(x(i),y(i))
n=0
While n<i
//这个循环用来比较数组内的数值
If x(n)=x(i) and y(n)=y(i)
If n=3
MoveTo 450,350
Delay 5
LeftClick 1
i=-1
//这里初始化i，就可以不断循环检测
EndIf
n=n+1
Else
i=-1
EndIf
EndWhile
i=i+1
EndWhile

追问

VBSCall GetCursorPos(x(i),y(i))
这一句在按键精灵8出现语法错误
弄来弄去我个新手的晕完了来吧 简单实战一下! 实现下面的简单的效果:
一个脚本 里面实现多个窗口后台 每5秒按空格一次 加注释