• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-方便的剪贴板

AutoIT3 奇跡の海 1年前 (2017-11-24) 338次浏览 已收录 0个评论 扫描二维码

代码简介

AutoIt3(au3)源码-方便的剪贴板
在用AI中复制文字会将其格式一起复制.经常遇到同字不同样式,之前是先写在记事本上再复制,觉得太麻烦.遂用AotoIt写了如下的小工具.

AU3源码

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=E:\myoutput\5\大胃王.kxf
$Form1 = GUICreate("大胃王剪贴板", 390, 360, 393, 200)

$Edit1 = GUICtrlCreateEdit("", 0, 8, 217, 48, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_HSCROLL))
GUICtrlSetData(-1, "")

$List1 = GUICtrlCreateList("", 0, 64, 217, 292)

$stradd = GUICtrlCreateButton("添加", 224, 8, 73, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

$strpaste = GUICtrlCreateButton("粘贴", 304, 8, 65, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

$copyselect = GUICtrlCreateButton("复制选中", 224, 104, 145, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

$clear = GUICtrlCreateButton("清空列表", 224, 200, 145, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

$exit = GUICtrlCreateButton("退出", 224, 312, 153, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            ;--代码开始
        Case $exit;退出
            Exit
        Case $stradd;添加数据
            If GUICtrlRead($Edit1) = "" Then
                MsgBox(0, "提示", "请先输入数据")
                GUICtrlSetState($Edit1, $GUI_FOCUS)
            Else
                GUICtrlSetData($List1, GUICtrlRead($Edit1));将文本框的数据传给列表框
                GUICtrlSetData($Edit1, "")
                GUICtrlSetState($Edit1, $GUI_FOCUS)
            EndIf            
        Case $strpaste;将剪贴板的数据传给文本框,同时对其设置焦点
            GUICtrlSetData($Edit1, ClipGet())
            GUICtrlSetState($Edit1, $GUI_FOCUS)
        Case $copyselect;将列表框内选中的项目传给剪贴板
            ClipPut(GUICtrlRead($List1))
        Case $clear;清空文本框和列表框内的数据
            GUICtrlSetData($List1, "")
            GUICtrlSetData($Edit1, "")
            GUICtrlSetState($Edit1, $GUI_FOCUS)
            ;--代码结束
    EndSwitch
WEnd

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-方便的剪贴板!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址