Click

#include <Array.au3>
Global $Paused


if Not HotKeySet("{F6}", "click12") then Exit
if Not HotKeySet("{F7}","copy") then Exit
if Not HotKeySet("{F8}", "TogglePause") then Exit


Func copy()
   if Not WinExists("[Class:Chrome_WidgetWin_1]","") Then Return 1
   $list = WinList("[Class:Chrome_WidgetWin_1]","")
   if StringInStr($list[1][0],'.html') Then
      ClipPut(StringReplace($list[1][0],'.html - Google Chrome',''))
   Else
      $title = WinGetTitle("")
     ClipPut(StringReplace($title,'.html - Google Chrome',''))
  EndIf
EndFunc

Func click12()
   Local $pos = MouseGetPos()
   While 1
      MouseClick("",$pos[0],$pos[1])
   WEnd
EndFunc

Func TogglePause()
   $Paused = Not $Paused
   While $Paused
        Sleep(100)
   WEnd
EndFunc