Advertisement
Ex0rpl4net

Untitled

Sep 24th, 2014
210
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.80 KB | None | 0 0
  1. #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
  2. ; #Warn ; Enable warnings to assist with detecting common errors.
  3. SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
  4. SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
  5. #SingleInstance force
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12. Loop, sources\*
  13. {
  14. allstatements = FileInstall,%A_LoopFileFullPath%
  15. allstatements := allstatements ",%FolderVar%"
  16. StringTrimLeft, append, A_LoopFileFullPath,8
  17. allstatements = %allstatements%\Ex0rmulti\%append%`n
  18. allstatements = %allstatements%`nGuiControl,, MyProgress, +1.19
  19. ;FileInstall,sources\x1.png,%FolderVar%\Ex0rmulti\x1.png
  20. ;GuiControl,, MyProgress, +1.19
  21.  
  22.  
  23. allnow = %allnow%`n%allstatements%
  24. }
  25.  
  26. MsgBox,%allnow%
  27. clipboard := allnow
  28. exitapp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement