Les liens de Kevin Merigot 29/01/2015
Ahah ! Un petit script qui envoie en continue A S P L et c'est parti ! ^^

(via A.)
(Permalink)

Choses vues, sur le web et ailleurs > Les liens de Kevin Merigot 29/01/2015
Bien sûr, ça n'intéresse personne ici ^^
(Permalink)

Strak.ch | Actu et liens en vrac 31/01/2015
Allez, comme je suis bon prince, je vous fournis ce script Autoit originellement destiné à cliquer en masse que je gardais au chaud.
Je l'ai modifié en conséquence pour appuyer sur les fameuses touches ASPL demandées... Enjoy Free Porn! ;)

#include<IE.au3>
#include <Misc.au3>
; http://www.autoitscript.com/forum/topic/122227-auto-click


HotKeySet("{ESC}" , "close")
HotKeySet("{SPACE}" , "startpause")

Dim $click = False
$dll = DllOpen("user32.dll")

MsgBox(64, "Auto Click" , "Press ""ESC"" to close the program and ""SPACEBAR"" to pause and start it.")

Func close()
   $m = MsgBox(64 , "Auto Click" , "Auto Click will shutdown.")
Exit
EndFunc

Func startpause()
  If $click = False Then
     $click = True
     TrayTip("Auto Click" , "Script is Running." ,0)
  Else
     $click = False
     TrayTip("Auto Click" , "Script is Paused." ,0)
  EndIf
EndFunc


While 1
   If _IsPressed ( "02" ) = 1 Then
       ConsoleWrite ( "Sleep ( 2000 )" & @Crlf )
       Sleep ( 2000 )
$click = True
   EndIf

  If $click = True Then
 Send("{a down}") ;
 Send("{s down}") ;
 Send("{p down}") ;
 Send("{l down}") ;
EndIf
sleep(20)
WEnd
(Permalink)