剪切板读(写)操作函数
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 ***** 这个函数有点用处,学习一下。 的确很需要,谢谢大师分享!!! 回复学习学习
回复学习学习! 非常好程序,谢谢楼主! 学习!!!!!!!!!!!!!!!!!!!!
谢谢楼主,正在找这方面的资料
是不是利用浏览器代码实现的?
回复看一下
谢谢你
学习一下,用在注册机不错 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这个很实用
回复看看。。。。。
回复看看。。。。。