鼠标滑动代替复制粘贴

$g_szVersion = "我的脚本"

If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了

AutoItWinSetTitle($g_szVersion)



#NoTrayIcon

HotKeySet("{SPACE}", "Myfunc")



While 1

        Sleep(10)

WEnd



Func Myfunc()

ClipPut ("")

$i=0

Do

Send("^c")

Sleep(10)

$bak = ClipGet()

ClipPut ("")

$i=$i+1

Until $bak<>"" Or $i>10



$bak=String($bak)



;MsgBox(0,"",@ScriptDir)

if @error Then

Else

        If StringInStr($bak,@LF)=0 Then 

                copy($bak)

        Else

                $arr=StringSplit($bak,@LF)

                For $i=1 to UBound($arr)-1

                        copy($arr[$i])

                Next

        EndIf

EndIf        

EndFunc   ;==>MyExit



Func copy($dir)

$x=FileGetAttrib ($dir)

If $x<>"" Then

        If StringInStr($x,"D")>0 Then        ;目录

                $arr=StringSplit($dir,"")

                $dirname=$arr[UBound($arr)-1]

                DirCopy($dir,@ScriptDir & "" & $dirname,1)

        Else                                                        ;文件

                FileCopy ($dir, @ScriptDir & "",1)

        EndIf

EndIf

EndFunc