[OT]^2 - icfu hats getan!
Moderators: white, Hacker, Stefan2
[OT]^2 - icfu hats getan!
Er hat den Vogel getötet :
http://tv-interactive.info/sweetydead.jpg
http://tv-interactive.info/sweetydead.jpg
Hoecker sie sind raus!
Wer will kann sich hier nochmal abreagieren
http://www.estatica.de/swf/kill_tweety.swf
http://www.estatica.de/swf/kill_tweety.swf
- ghisler(Author)
- Site Admin
- Posts: 48096
- Joined: 2003-02-04, 09:46 UTC
- Location: Switzerland
- Contact:
Man bräuchte ein Auto-repeat, wie es das früher bei gewissen Joysticks gab.
Kennt jemand so ein Auto-repeat-Tool für die linke Maustaste?
Kennt jemand so ein Auto-repeat-Tool für die linke Maustaste?
Author of Total Commander
https://www.ghisler.com
https://www.ghisler.com
Ich habe es mal mit AutoIt versucht:ghisler(Author) wrote:Man bräuchte ein Auto-repeat, wie es das früher bei gewissen Joysticks gab.
Kennt jemand so ein Auto-repeat-Tool für die linke Maustaste?
Code: Select all
; AutoIt Version: 3.0
; Language: English/German
; script (c) 2004 by kls
;
; Script Function:
; trying to kill Tweety...
;
;Please use browser of your choice, could be, that you have to adjust all the x- and y-positions of mouse cursor
;As soon as the flash is loaded, start this script...
;Please remember, this ist just an ugly "Kill-Tweety"-hack.
;
;Caution!!
;You have to have a closer look at the "WinActivate"-Setting a few lines below...!!!
;
HotKeySet("^!x", "MyExit")
sleep(1000)
AutoItSetOption ("MouseClickDelay", 1)
AutoItSetOption ("MouseClickDownDelay", 1)
sleep(1000)
;Caution!!
;adapt this to your settings...
;here I am using Mozilla Firefox
WinActivate("kill_tweety.swf (application/x-shockwave-flash-Objekt) - Mozilla Firefox", "")
;Caution!!
sleep(1000)
MouseClick("left", 447, 921, 1, 1)
sleep(500)
$begin = TimerInit()
#comments-start
;using boxing shoe is not as effective as using hammer...
MouseClick("left", 685, 390, 1, 1)
While 1
MouseClick("left")
; sleep(1)
$dif=TimerDiff($begin)
If $dif > 60000 Then ExitLoop
WEnd
#comments-end
MouseClick("left", 111, 348, 1, 1) ; Dynamite
MouseClick("left", 685, 390, 1, 1)
sleep(1800) ;Timeout, because after using dynamite the flash automatically switches to boxing shoe, unfortunately not immediately...
MouseClick("left", 89, 213, 1, 1) ; Hammer
MouseClick("left", 1010, 560, 1, 1)
While 1
MouseClick("left")
MouseClick("left")
MouseClick("left")
MouseClick("left")
; sleep(1)
$dif=TimerDiff($begin)
If $dif > 58000 Then ExitLoop
WEnd
MsgBox ( 0, "Danke", "Hat das immer noch nicht gereicht?", 20 )
MouseClick("right")
Send("{DOWN 7}")
Send("{ENTER}")
Func MyExit()
sleep(500)
Exit
EndFunc
;By the way:
;You can't kill Tweety.
exit
Gruß,
Klaus