论坛 › 已解决问题区 › [已解决]每执行一次hotkeyset改变粘贴板的内容

xuzhenjun130 发表于 2011-2-21 10:31:03

[已解决]每执行一次hotkeyset改变粘贴板的内容

本帖最后由 xuzhenjun130 于 2011-2-21 10:56 编辑

有个数组 ["001#","002#","003#"]
怎么样才能设置一个快捷键，按第一次，粘贴板内容是 001#，第二次 002#……依此类推

大绯狼 发表于 2011-2-21 10:46:20

Dim $a
For $i=0 To 9
        $a[$i]=$i+1
Next

Dim $flag=1
HotKeySet('{f2}','clipchange')

While 1
Sleep(50)
WEnd



Func clipchange()
        If $flag>UBound($a) Then $flag=1
        ClipPut($a[$flag-1]);改变剪贴板
        MsgBox(0,0,ClipGet());剪贴板内容
        $flag+=1
EndFunc

xuzhenjun130 发表于 2011-2-21 10:54:45

回复 2# 大绯狼


    十分感谢

查看完整版本: [已解决]每执行一次hotkeyset改变粘贴板的内容