Advertisement
Guest User

Autohotkey

a guest
Oct 1st, 2019
283
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. pseudo := []
  2. mdp := []
  3.  
  4. i := 1
  5. Loop, Read, %A_ScriptDir%\pseudo.ini
  6. {
  7.     pseudo[i] := A_LoopReadLine
  8.     i += 1
  9. }
  10.  
  11. i := 1
  12. Loop, Read, %A_ScriptDir%\mdp.ini
  13. {
  14.     mdp[i] := A_LoopReadLine
  15.     i += 1
  16. }
  17.  
  18. nbfenetres := mdp.MaxIndex()
  19.  
  20. Loop %nbfenetres% {
  21.     Run, F:\Dofus\retro\Dofus.exe ;
  22. }
  23.  
  24.  
  25.  
  26.  
  27.  
  28. F10::
  29.     WinGet, windows , List, Dofus
  30.     i := 1
  31.     Loop, %windows% {
  32.         window := windows%A_Index%
  33.         WinActivate, ahk_id %window%
  34.         WinWaitActive, ahk_id %window%
  35.         Sleep 30
  36.         WinSetTitle, % pseudo[i]
  37.         Click, 180, 240
  38.         Sleep 100
  39.         Send, % pseudo[i]
  40.         Sleep 30
  41.         Send, {Tab}
  42.         Sleep 30
  43.         Send, % mdp[i]
  44.         Sleep 30
  45.         Click, 169,367
  46.         Sleep 200
  47.         WinMaximize, ahk_id %window%
  48.         i += 1
  49.     }
  50.  
  51. return
  52. loop
  53. {
  54.     F1::WinActivate,1
  55.     F2::WinActivate,2
  56.     F3::WinActivate,3
  57.     F4::WinActivate,4
  58.     F5::WinActivate,5
  59.     F6::WinActivate,6
  60.     F7::WinActivate,7
  61.     F8::WinActivate,8
  62.     F9::
  63.     WinGetActiveTitle, Title
  64.     InputBox, UserInput, Changer le titre,,,200,100
  65.     WinSetTitle, %Title%,,%UserInput%
  66.     return
  67. }
  68. F11::
  69.     ExitApp
  70. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement