UserVar sf=DropList{是:值1|否:值2}=0 是否打开图片所在文件夹 Rem 1 WaitKey o If o=81 VBSCall Call GetCursorPos(x,y) Else Goto 1 EndIf Rem 2 WaitKey p If p=81 VBSCall Call GetCursorPos(x1,y1) Else Goto 2 EndIf //下面这句在屏幕区域范围内截图保存到("C:\PIC.bmp")里 Plugin Pic.PrintScreen(x, y, x1, y1, "C:\PIC.bmp") If sf="值1" VBSCall RunApp("C:") Else EndIf