剪切板读（写）操作函数

marting

1、读剪切板 _GetClipBoardText

1. (defun _GetClipBoardText (/ htmlfile result)
   
2.   ;;  Attribution: Reformatted version of
   
3.   ;;  post by Patrick_35 at theswamp.org.
   
4.   ;;
   
5.   ;;  See http://tinyurl.com/2ngf4r.
   
6.   (setq        result
   
7.          (vlax-invoke
   
8.            (vlax-get
   
9.              (vlax-get (setq htmlfile (vlax-create-object "htmlfile"))
   
10.                        'ParentWindow
    
11.              )
    
12.              'ClipBoardData
    
13.            )
    
14.            'GetData
    
15.            "Text"
    
16.          )
    
17.   )
    
18.   (vlax-release-object htmlfile)
    
19.   result
    
20. )
    

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

2、写剪切板 _SetClipBoardText

游客，如果您要查看本帖隐藏内容请回复

ycao

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

sh_h

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

819534890

回复学习学习

dnbcgrass

回复学习学习！

HLCAD

非常好程序，谢谢楼主！

zjy2999

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

luorui2000

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

wdmzslw

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

ynhh

回复看一下
谢谢你

laiz3000

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

zixuan203344

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

winerfjy

这个很实用

向嘟嘟

回复看看。。。。。

xinxirong

回复看看。。。。。