|
Okay I wrote this one to be dirt simple.
Simply open it, alt+tab unto swg, put your mouse over the spot you want to start deleting from, and left click once. If you need to pause the macro, simply hit the pause button. This is Vista compatable.
; Script Start - Add your code below here
#RequireAdmin
#include <misc> ;Don't forget to add .au3 after misc
#include <GuiConstants> ;Don't forget to add .au3 after GuiConstants
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Opt("MouseClickDragDelay", 100)
Sleep (500)
SplashTextOn("SETUP", "Please click where you want to delete from. ", 400, 100, -1, -1, 0, "Ariel", 17)
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$mainx = $pos[0]
$mainy = $pos[1]
Sleep ( 1000 )
While 1
MouseClick ( "right" , $mainx, $mainy )
Sleep(2000)
Send ( "{4}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{3}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{2}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{4}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{3}" )
Sleep(2000)
MouseClick ( "right" , $mainx, $mainy )
Sleep(500)
Send ( "{2}" )
Sleep (500)
WEnd
Func TogglePause() ;Following script makes the "pause" option work correctly
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
|