Question

按键精灵下标越界怎么解决

Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
MyArray = Split(sRect, "|")
x = MyArray(0)
y = MyArray(1)
i = 0

Dim intX()
Dim intY()
intX(0)=0
intY(0)=0
提示是INTX，INTY下标越界

Answer 1

你没有分配内存给数组IntX，IntY，应写成：
Dim intX(1) //后面要写具体整形不小于0的数。
Dim intY(1)
为了安全，你可以把数组内存分配大一点，如果你不确定数组个数，可以用ReDim
例如
m=10
ReDim a(m),b(m)
也可以，其中m可以根据实际情况取值，例如m=UBound(MyArray)，这样就不会出现越界问题了。

Answer 2

Dim intX() //你这个根本没有定义数组.
Dim intY() //你这个根本没有定义数组.
intX(0)=0 //没有定义数组,你却用了 肯定会出错啊
intY(0)=0 //没有定义数组,你却用了 肯定会出错啊

追问

那怎样定义？

Answer 3

sRect
=
Plugin.Window.GetClientRect(Hwnd)这句，当sRect的值没有成功获取时，sRect就不是数组。
Split(Rect,"|")就会出错，因为split是针对数组操作的，而sRect不是数组，所以后面会下标越界