切图
//288,46
//1311,812
//宽 = 1023
//高 = 766
//这种切图没有范围,是从起点开始切图
//For 10
// y = y + 1
// //x要清0
// x=0
// For 10
// x=x+1
// Call Plugin.Pic.PrintScreen(288+(x-1)*100, 46+(y-1)*76, 288+(x*100), 46+(y*76), "C:\PIC.bmp")
// Next
//Next
px = 784
py = 324
//48*32
//这种切图有范围,从地图的中间开始切图
For y = - 8 To 8
For x = - 8 To 8
Call Plugin.Pic.PrintScreen(px+(x*48), py+(y*32), px+((x+1)*48), py+((y+1)*32), "C:\qt\" & x & "_" & y & "PIC.bmp")
Next
Next
MsgBox "已结束"