QQ游戏对对碰外挂教程

QQ游戏对对碰外挂教程(5) Public Function killBox() 
Dim i As Integer 
Dim j As Integer 
getBoxs 

' : 
' 　 情况 

For i = 0 To 4 
For j = 0 To 7 
If boxs(i, j).type = boxs(i + 2, j).type And boxs(i, j).type = boxs(i + 3, j).type Then 
mouseClick boxs(i, j).x, boxs(i, j).y 
mouseClick boxs(i + 1, j).x, boxs(i + 1, j).y 
Exit Function 
End If 
Next j 
Next i 

'_ 
' 　 情况 

For i = 0 To 5 
For j = 0 To 6 
If boxs(i, j).type = boxs(i + 2, j + 1).type And boxs(i, j).type = boxs(i + 1, j + 1).type Then 
mouseClick boxs(i, j).x, boxs(i, j).y 
mouseClick boxs(i, j + 1).x, boxs(i, j + 1).y 
Exit Function 
End If 
Next j 
Next i 

' _ 
'　 情况 

For i = 0 To 5 
For j = 1 To 7 
If boxs(i, j).type = boxs(i + 2, j - 1).type And boxs(i, j).type = boxs(i + 1, j - 1).type Then 
mouseClick boxs(i, j).x, boxs(i, j).y 
mouseClick boxs(i, j - 1).x, boxs(i, j - 1).y 
Exit Function 
End If 
Next j 
Next i 

'　 
': 情况