eq3275 发表于 2009-12-6 05:16:58

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

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

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

以下是运行程序后 按键盘的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
                DirCopy($dir,@ScriptDir & "\" & $dirname,1)
        Else                                                        ;文件
                FileCopy ($dir, @ScriptDir & "\",1)
        EndIf
EndIf
EndFunc

vivier001 发表于 2009-12-6 11:13:36

帮顶:face (37):

xz00311 发表于 2009-12-8 23:31:42

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

sxd 发表于 2009-12-9 22:38:45

论坛有 鼠标热键的udf 搜索下
不过热键方面 推荐你用AHK
页: [1]
查看完整版本: 鼠标滑动代替复制粘贴（帮忙修改下）