marting 发表于 2017-5-27 11:30:30

剪切板读（写）操作函数


1、读剪切板 _GetClipBoardText


(defun _GetClipBoardText (/ htmlfile result)
;;Attribution: Reformatted version of
;;post by Patrick_35 at theswamp.org.
;;
;;See http://tinyurl.com/2ngf4r.
(setq        result
       (vlax-invoke
           (vlax-get
             (vlax-get (setq htmlfile (vlax-create-object "htmlfile"))
                     'ParentWindow
             )
             'ClipBoardData
           )
           'GetData
           "Text"
       )
)
(vlax-release-object htmlfile)
result
)


2、写剪切板 _SetClipBoardText

**** Hidden Message *****

ycao 发表于 2017-5-27 11:51:01

这个函数有点用处，学习一下。

sh_h 发表于 2017-5-27 12:26:42

的确很需要，谢谢大师分享！！！

819534890 发表于 2017-5-27 12:48:45

回复学习学习

dnbcgrass 发表于 2017-5-27 13:38:01

回复学习学习！

HLCAD 发表于 2017-5-27 14:12:01

非常好程序，谢谢楼主！

zjy2999 发表于 2017-5-27 16:39:30

学习！！！！！！！！！！！！！！！！！！！！

luorui2000 发表于 2017-5-27 20:29:57

谢谢楼主，正在找这方面的资料

wdmzslw 发表于 2017-5-28 10:51:06

是不是利用浏览器代码实现的？

ynhh 发表于 2017-5-29 19:54:45

回复看一下
谢谢你

laiz3000 发表于 2017-5-31 15:10:17

学习一下，用在注册机不错

zixuan203344 发表于 2017-6-16 18:51:53

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

winerfjy 发表于 2017-6-19 08:43:33

这个很实用

向嘟嘟 发表于 2017-6-19 10:29:08

回复看看。。。。。

xinxirong 发表于 2017-6-19 13:02:38


回复看看。。。。。
页: [1] 2 3 4 5 6 7
查看完整版本: 剪切板读（写）操作函数