fy0, fx1, fy1, xhx, xhy, xhz, xhxx, xhyy
Dim ms, mx, my, mxx, myy
MessageBox "四方消砖块-专杀工具（请勿用以作弊！游戏是为了娱乐！）接下来请按提示操作。"
Dim afpos(9, 9, 1), col(3), fcol(9, 9)
MessageBox "请先摆好游戏窗口的位置，避免影响其他工作。接下来的定位操作后不要改变游戏窗口位置。"
MessageBox "2秒钟内把鼠标移到左上角的方块中心（可以稍偏左上，颜色更精确）"
Delay 2000
GetCursorPos fx0, fy0
MessageBox "坐标是：" & fx0 & ", " & fy0
MessageBox "2秒钟内把鼠标移到右下角的方块中心（相对于上一次在方块内的位置最好相同）"
Delay 2000
GetCursorPos fx1, fy1
MessageBox "坐标是：" & fx1 & ", " & fy1
For xhx = 0 To 9
	For xhy = 0 To 9
		afpos(xhx, xhy, 0) = fx0 + (fx1 - fx0) * xhx / 9
		afpos(xhx, xhy, 1) = fy0 + (fy1 - fy0) * xhy / 9
	Next
Next
For xhx = 0 To 3
	MessageBox "2秒钟内把鼠标移动到第" & (xhx+1) & "种颜色上（和上一操作指向方块内的相对位置最好相同）"
	Delay 2000
	GetCursorPos fx0, fy0 
	col(xhx) = GetPixelColor(fx0, fy0)
	MessageBox "颜色是：" & col(xhx)
Next
MessageBox "准备好了吗？确定开始。过程中请勿移动游戏窗口位置！模拟鼠标操作将占用鼠标。按pause键可暂停。作者：farteryhr，yhr-_-yhr@qq.com"
Rem lp
Delay 1000
ms = 0
For xhx = 0 To 9
	For xhy = 0 To 9
		MoveTo afpos(xhx, xhy, 0), afpos(xhx, xhy, 1)
		For xhz = 0 To 3
			IfColor afpos(xhx, xhy, 0), afpos(xhx, xhy, 1), col(xhz), 2 Then
				fcol(xhx, xhy) = xhz
			End If
		Next
		Delay 1
	Next
Next
For xhx = 0 To 8
	For xhy = 0 To 8
		For xhxx = xhx + 1 To 9
			If fcol(xhxx, xhy) = fcol(xhx, xhy) Then 
				For xhyy = xhy + 1 To 9
					If fcol(xhxx, xhyy) = fcol(xhx, xhy) and fcol(xhx, xhyy) = fcol(xhx, xhy) Then 
						If (xhyy - xhy + 1) * (xhxx - xhx + 1) > ms Then 
							mx = xhx
							my = xhy
							mxx = xhxx
							myy = xhyy
							ms= (xhyy - xhy + 1) * (xhxx - xhx + 1)
						End If
					End If
				Next
			End If
		Next
	Next
Next
If ms > 0 Then 
	MoveTo afpos(mx, my, 0), afpos(mx, my, 1)
	LeftClick 1
	Delay 100
	MoveTo afpos(mxx, my, 0), afpos(mxx, my, 1)
	LeftClick 1
	Delay 100
	MoveTo afpos(mx, myy, 0), afpos(mx, myy, 1)
	LeftClick 1
	Delay 100
	MoveTo afpos(mxx, myy, 0), afpos(mxx, myy, 1)
	LeftClick 1
	Delay 100
End If
Goto lp