
[已解決]批處理有沒有方法或工具根據(jù)提供的屏幕坐標(biāo)截圖網(wǎng)上搜了好長時間,發(fā)現(xiàn)截圖都是截全屏的,我想用變量計算出需要截屏的矩形區(qū)域,提供出屏幕上四個角的坐標(biāo),或者左上角的坐標(biāo),區(qū)域的寬度和高度,這四個值,能否實現(xiàn)截圖呢?網(wǎng)上搜到個類似的解決方案:但是不知怎么用:
我也下載了這個dll,想放在vba中使用,發(fā)現(xiàn)不知怎么用。有高手知道的話,或者有更好的方法,萬望告之,非常感謝。nclick="copycode($('code0'));">復(fù)制代碼
- Private Declare Function icePub_saveScreen Lib icePubDll.dll (ByVal bmpFile As String) As Integer
- Dim str1 As String
- Dim a2 As Integer
- str1 = App.Path + 1.bmp
- a2 = icePub_saveScreen(str1)
- Private Declare Function icePub_saveScreenJpg Lib icePubDll.dll (ByVal jpgFile As String) As Integer
- Dim str1 As String
- Dim a2 As Integer
- str1 = App.Path + 1.jpg
- a2 = icePub_saveScreenJpg(str1)
- Private Declare Function icePub_saveSubScreen Lib icePubDll.dll (ByVal bmpFile As String, ByVal startX As Integer,ByVal startY As Integer,ByVal endX As Integer,ByVal endY As Integer) As Integer
- Dim str1 As String
- Dim a2 As Integer
- str1 = App.Path + 1.bmp
- a2 = icePub_saveSubScreen(str1,0,0,100,60)
- Private Declare Function icePub_saveSubScreenJpg Lib icePubDll.dll (ByVal jpgFile As String, ByVal startX As Integer,ByVal startY As Integer,ByVal endX As Integer,ByVal endY As Integer) As Integer
- Dim str1 As String
- Dim a2 As Integer
- str1 = App.Path + 1.jpg
- a2 = icePub_saveScreenJpg(str1,0,0,100,60)
- download:
- http://dl.icese.net/dev.php?f=icePubDll.rar

