鼠标滑动代替复制粘贴（帮忙修改下）

eq3275

运行程序后，鼠标选中文件或者文件夹（包括文件夹内的所有文件）、

滑动鼠标滑轮 便隐藏将选中的文件复制到程序所在目录下。。

以下是运行程序后 按键盘的CRTL+S就复制的。但不懂写用鼠标滑动去代替

$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

vivier001

帮顶

xz00311

你去看一下send里面有没有这样的键啊

sxd

论坛有 鼠标热键的udf 搜索下  
不过热键方面 推荐你用AHK