AutoHotKey 스크립트 공유

스크립트에 대한 설명:

제목 그대로 BMP 포맷 이미지 파일의 폭과 높이를 구해주는 스크립트입니다.
JPG 포맷까지 포함시켜 보려고 했지만 능력부족이라서 여기서 포기합니다;;;

<--------------------------------------------- AHK 스크립트 내용 --------------------------------------------->

FileSelectFile,file,,%A_WorkingDir%,,*.bmp
res:=BinRead(file,data,2,0)
if data=424D
{
gosub,bmp
}
else
{
msgbox,error!!
}
return

bmp:
res:=BinRead(file,wid1,1,19)
res:=BinRead(file,wid2,1,18)
res:=BinRead(file,hei1,1,23)
res:=BinRead(file,hei2,1,22)
wid=0x%wid1%%wid2%
hei=0x%hei1%%hei2%
SetFormat,integer,d
wid+=0
hei+=0
SetFormat,integer,hex
msgbox,BMP`nwidth=%wid%`nheight=%hei%
return

/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; BinRead ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|  - Open binary file
|  - Read n bytes (n = 0: all)
|  - From offset (offset < 0: counted from end)
|  - Close file
|  data (replaced) <- file[offset + 0..n-1]
|  Return #bytes actually read
*/ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

BinRead(file, ByRef data, n=0, offset=0)
{
  h := DllCall("CreateFile","Str",file,"Uint",0x80000000,"Uint",3,"UInt",0,"UInt",3,"Uint",0,"UInt",0)
  IfEqual h,-1, SetEnv, ErrorLevel, -1
  IfNotEqual ErrorLevel,0,Return,0 ; couldn't open the file

  m = 0                            ; seek to offset
  IfLess offset,0, SetEnv,m,2
  r := DllCall("SetFilePointerEx","Uint",h,"Int64",offset,"UInt *",p,"Int",m)
  IfEqual r,0, SetEnv, ErrorLevel, -3
  IfNotEqual ErrorLevel,0, {
      t = %ErrorLevel%              ; save ErrorLevel to be returned
      DllCall("CloseHandle", "Uint", h)
      ErrorLevel = %t%              ; return seek error
      Return 0
  }

  TotalRead = 0
  data =
  IfEqual n,0, SetEnv n,0xffffffff ; almost infinite

  format = %A_FormatInteger%      ; save original integer format
  SetFormat Integer, Hex          ; for converting bytes to hex

  Loop %n%
  {
      result := DllCall("ReadFile","UInt",h,"UChar *",c,"UInt",1,"UInt *",Read,"UInt",0)
      if (!result or Read < 1 or ErrorLevel)
        break
      TotalRead += Read            ; count read
      c += 0                        ; convert to hex
      StringTrimLeft c, c, 2        ; remove 0x
      c = 0%c%                      ; pad left with 0
      StringRight c, c, 2          ; always 2 digits
      data = %data%%c%              ; append 2 hex digits
  }

  IfNotEqual ErrorLevel,0, SetEnv,t,%ErrorLevel%

  h := DllCall("CloseHandle", "Uint", h)
  IfEqual h,-1, SetEnv, ErrorLevel, -2
  IfNotEqual t,,SetEnv, ErrorLevel, %t%

  SetFormat Integer, %format%      ; restore original format
  Totalread += 0                  ; convert to original format
  Return TotalRead
}