#include <MsgBoxConstants.au3>

HotKeySet ("{pgup}","start")
HotKeySet ("{pgdn}","pause")

call ("pause")
Func pause()
   While 1
   sleep (100)
   WEnd
EndFunc

func start()
	$aPos = MouseGetPos()
	while 1
  MouseClick ("left",$aPos[0],$aPos[1],5,1)
;~   ControlClick ("","","","right",1,$aPos[0],$aPos[1])
  sleep (500)
WEnd

  EndFunc