Advertisement
Najeebsk

FILE-LIST-GENRATE.ahk

Aug 29th, 2022
419
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. Gui, Color, 884488
  10. Gui,Font,S14 Bold,Verdana ;Calibri
  11. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  12. Gui, Add, Button, hWndhButton2 x5 y5 w0 h0 gGuiMove,
  13. Gui, Add, text,x100 y10 cYellow, NAJEEB FILES LIST GENRETER
  14. Gui, Add, text,x10 y42 cGreen, FILE NAME:-
  15. Gui, Add, Edit,x150 y40 w320 vFile
  16. Gui, Add, text,x10 y82 cGreen, F-NUMBER:-
  17. Gui, Add, Edit,x150 y80 w120 vNum
  18. Gui, Add, text,x280 y82 cGreen, F-EXT:-
  19. Gui, Add, Edit,x370 y80 w100 vExt
  20. Gui, font, s12
  21. Gui, Add, Button, x300 y130 gGen default, Genrate Files List    ;  OPEN
  22. Gui, Show, x0 y30 w500 h180 Center, NAJEEB FILES LIST GENRETER
  23. WinSet, Region, 0-0 W500 H180 R20-20,
  24. WinMove, 0, 0
  25. OnMessage( 0x200, "WM_MOUSEMOVE")
  26. Return
  27. Gen:
  28. Gui, Submit, nohide
  29. Loop, %Num%
  30.     FileAppend, %File%%A_Index%.%Ext% `n, List.txt
  31. Return
  32. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  33. GuiMove:
  34.  PostMessage, 0xA1, 2,,, NAJEEB SCRIPT BOOK
  35. Return
  36. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  37. WM_MOUSEMOVE(wparam, lparam, msg, hwnd)
  38. {
  39.     if wparam = 1 ; LButton
  40.         PostMessage, 0xA1, 2,,, A ; WM_NCLBUTTONDOWN
  41. }
  42.  
  43. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  44. #R::Reload  ;<--  ~ Reload Script ~
  45. #S::Suspend ;<--  ~ Suspend Script ~
  46. #P::Pause   ;<--  ~ Pause Script ~
  47. #M::WinMinimize, ;<--  ~ Minimize Script ~
  48. ESC::ExitApp     ;<--  ~ Exit Script ~
  49.  
  50.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement