截图 区域找图

 

//将当前窗口移至指定的像素位置
Hwnd = Plugin.Window.Foreground()
Call Plugin.Window.Move(Hwnd, 100, 100) 
MsgBox "当前移动窗口到(100, 100)位置"

 

//下面这句在屏幕区域范围内截图保存到桌面
//下面两句是获取用户桌面文件夹
set Obj = createobject("WScript.Shell")
FileName = Obj.SpecialFolders("desktop")
Call Plugin.Pic.PrintScreen(10, 10,200 , 200, FileName & "\按键精灵一键抓图.bmp")
MessageBox "已经将截图保存在桌面！"

//下面这句在屏幕区域范围内截图保存到("C:PIC.bmp")里 

 Call Plugin.Pic.PrintScreen(0, 0, 1024, 768, "C:PIC.bmp")
 Delay 1000 

 //下面这句在屏幕区域范围内截图保存到("C:PIC.jpg")里 

 Call Plugin.Pic.PrintScreen(0, 0, 1024, 768, "C:PIC.jpg")