按键精灵5行8列点击

呵呵，好像是在游戏中买包里的东西呀

Dim x, y, i, j

//这是例子，所有数字全是假定，从100，200，坐标开始点，横向坐标偏移20，横向坐标偏移25

y = 200

For i = 1 To 5

x=100

For j = 1 To 8

MoveTo x, y

Delay 100

LeftClick 1

Delay 100

//横向坐标偏移20

x = x + 20

//外点坐标1假定500，550

MoveTo 500, 550

Delay 100

LeftClick 1

Delay 100

//外点坐标2假定600，660

MoveTo 600，660

Delay 100

LeftClick 1

Delay 100

Next

//横向坐标偏移25

y = y + 25

Next