Advertisement
Guest User

Untitled

a guest
Jan 28th, 2020
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.09 KB | None | 0 0
  1. global TargetFile := "D:\Program Files\EqualizerAPO\config\config.txt"
  2. global SoundGet, CurVol
  3. global Gain := (CurVol-100)/2
  4.  
  5. Loop
  6. {
  7. SoundGet, CurVol
  8. if CurVol = Gain*2+100
  9. {
  10. break
  11. }
  12. {
  13. if CurVol < Gain*2+99 and CurVol > Gain*2+101
  14. {
  15. Gain := (CurVol-100)/2
  16. WriteConfig()
  17. }
  18. }
  19. continue
  20. }
  21.  
  22. $Volume_Up::
  23. Send {Volume_Up}
  24. {
  25. SoundGet, CurVol
  26. Gain := (CurVol-100)/2
  27. WriteConfig()
  28. }
  29. return
  30.  
  31. $Volume_Down::
  32. Send {Volume_Down}
  33. {
  34. SoundGet, CurVol
  35. Gain := (CurVol-100)/2
  36. WriteConfig()
  37. }
  38. return
  39.  
  40. $Browser_Refresh::
  41. Send {Browser_Refresh}
  42. {
  43. Run "D:\Downloads\Soft\EQ APO Preamp\Infrasonic Quartet Restart.lnk"
  44. }
  45. return
  46.  
  47. WriteConfig() {
  48. FileDelete, %TargetFile%.tmp.txt
  49. FileAppend, Preamp: %Gain% dB`nInclude: example.txt`nVSTPlugin: Library "D:\Soft\AV\VST\w1limiter-win\George Yohng's W1 Limiter x64.dll" ChunkData "DAAAgXRocmVzaAAAGF9xPwwAAIFjZWlsaW5nAO7wcD8MAACBcmVsZWFzZQAu9SU/FAAAgWFkYXB0UmVsZWFzZQAAAAAAAIA/AAAAgA==", %TargetFile%.tmp.txt
  50. FileCopy, %TargetFile%.tmp.txt, %TargetFile%, 1
  51. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement