Advertisement
Najeebsk

IMAGEMAGICK.ahk

Aug 16th, 2022
312
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; <COMPILER: v1.1.34.03>
  2. #NoEnv
  3. #SingleInstance, Force
  4. SetBatchLines, -1
  5. #NoTrayIcon
  6. SetWorkingDir %A_ScriptDir%  
  7. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  8. Gui -Caption +ToolWindow +Border +LastFound +AlwaysOnTop -Border +hWndhGUI
  9. CustomColor = 884488
  10. Gui, Color, %CustomColor%
  11. Gui,Font,S14 Bold,Verdana ;Calibri
  12. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  13. Gui, Add, Button, hWndhButton2 x5 y5 w0 h0 gGuiMove,
  14. Gui, Add, Text, X10 CYellow, ~~~***NAJEEB IMAGEMAGICK RESIZE PICTURES***~~~
  15. Gui,Font,S12 Bold,Verdana ;Calibri
  16. Gui, Add, Text, X20 Y50, SAVE PATH:-
  17. Gui, Add, Edit, X140 Y48 w400 vPATH
  18. Gui, Add, Text, X20 Y80, RESIZE:-
  19. Gui, Add, Edit, X140 Y78 w400 vRES
  20. Gui, Add, Text, X20 Y110, QUALITY:-
  21. Gui, Add, Edit, X140 Y108 w400 vQUAL
  22. Gui, Add, Text, X20 Y140, EXTENSION:-
  23. Gui, Add, Edit, X140 Y138 w400 vEXT
  24. Gui, Add, Button, x60 y180 gRes, RESIZE
  25. Gui, Show, x0 y30 w700 h400 Center, NAJEEB SCRIPT BOOK
  26. WinSet, Region, 0-0 W700 H400 R20-20,
  27. WinMove, 0, 0
  28. OnMessage( 0x200, "WM_MOUSEMOVE")
  29. Return
  30. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  31. GuiMove:
  32.  PostMessage, 0xA1, 2,,, NAJEEB SCRIPT BOOK
  33. Return
  34.  
  35. Res:
  36. Gui, Submit, nohide
  37. Runwait,%comspec% /k mogrify -path %PATH% -resize %RES% -quality %QUAL% *.%EXT%
  38. Return
  39. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  40. WM_MOUSEMOVE(wparam, lparam, msg, hwnd)
  41. {
  42.     if wparam = 1 ; LButton
  43.         PostMessage, 0xA1, 2,,, A ; WM_NCLBUTTONDOWN
  44. }
  45.  
  46. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  47. #R::Reload  ;<--  ~ Reload Script ~
  48. #S::Suspend ;<--  ~ Suspend Script ~
  49. #P::Pause   ;<--  ~ Pause Script ~
  50. #M::WinMinimize, ;<--  ~ Minimize Script ~
  51. ESC::ExitApp     ;<--  ~ Exit Script ~
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement