#include <Clipboard.au3>
;~ 1、获取剪贴板的数据
Local $b = _ClipBoard_GetData($CF_UNICODETEXT)
MsgBox(0, '获取剪贴板的数据', $b)
;~ 2、想知道剪贴板的数据是何类型
Local $iFormat
If _ClipBoard_Open(0) Then
Do
$iFormat = _ClipBoard_EnumFormats($iFormat)
If $iFormat <> 0 Then
MsgBox(0, "剪贴板格式: " & $iFormat, _ClipBoard_FormatStr($iFormat) & @LF & _ClipBoard_GetData($iFormat))
EndIf
Until $iFormat = 0
_ClipBoard_Close()
EndIf
;~ 3、将剪贴板的数据转换类型
_ClipBoard_SetData('字符串test', $CF_UNICODETEXT)
If _ClipBoard_Open(0) Then
Dim $iFormat = 0
Do
$iFormat = _ClipBoard_EnumFormats($iFormat)
If $iFormat <> 0 Then
MsgBox(64, "剪贴板格式: " & $iFormat, _ClipBoard_FormatStr($iFormat) & @LF & _ClipBoard_GetData($iFormat))
EndIf
Until $iFormat = 0
_ClipBoard_Close()
EndIf
|