VBS，如何獲取剪貼簿的內容

set ie=createobject("")"about:blank"

str="text")

msgbox str

二是判斷複製檔案的名稱是否為txt檔案格式，是否為已讀。

附錄：首先在“工具”的“Internet選項”中瀏覽“安全”，單擊“自定義級別”，然後您必須小心，在出現的許多選擇列中找到“允許以程式設計方式訪問剪貼簿”，選擇“啟用”，最後確認可以。

提醒一下，此設定會降低瀏覽網頁時的安全性！

Clipboard 類使用 getDataObject（） 方法從剪貼簿獲取資料，該方法返回乙個 iDataObject

使用 iDataObject 物件的 getDataPresent（ format） 來判斷 iDataObject 物件中儲存的資料是否可以轉換為指定的格式，方法接收乙個引數，該引數必須是系統預定義的格式型別，並且該方法返回乙個 bool 值。

使用 iDataObject 物件的 getdata（format） 方法獲取資料內容，該方法返回物件在使用前的型別轉換。

1. 獲取剪貼簿資料。

其次，將資料放在剪貼簿上。

我們用於貼上的主要方法是 getDataObject（） 從剪貼簿中檢索資料，它以任何格式返回資料，我們使用 iDataObject（這是乙個提供傳送任何資料的機制的介面）來接收它。 iDataObject API 例項的 getDataPresent（型別格式）方法返回乙個 bool 值，以確定例項中儲存的資料是否與給定格式相關聯或可以轉換。

另乙個是dataformats類，主要用於標識格式。

一旦文字出現在剪貼簿上，它就會被寫入 C：新建文件。 txt（在新行上）並清空剪貼簿。

on error resume next

set ie=createobject("")"about:blank"

set fso=createobject("")set f="c：建立新文件。 txt",2,true)while true

str="text")

if str<>"" then

vbcrlf&str

text",""

end if

500wend

set forms="")

set textbox="").objectwith textbox

multiline=true

text="123"

selstart=0

sellength=len(.text).copy

end with

500msgbox "複製已成功"還有更多方法可以專門檢視 Demon 的部落格。

在 Windows XP 中開啟它。

開始 - 執行 - Clipbrd 開啟剪貼簿檢視器。

在桌面上右鍵，在“新建”命令下選擇“快捷方式”，會彈出對話方塊，在位置欄位中輸入C：Windows System32。

單擊“下一步”，直到完成。 雙擊桌面上的快捷方式以檢視剪貼簿的內容。

'獲取貼上板內容並將其儲存到 A。

set objhtml=createobject("htmlfile")

a="text")

如果 A 有內容，則寫入檔案"生日快樂。 txt"中等，如果<>"" then

set fs=createobject("")set file="生日快樂。 txt",true)a

msgbox a

end if

set forms="")

set textbox="").objectwith textbox

multiline=true

text="123"

selstart=0

sellength=len(.text).copy

end with

500msgbox "複製已成功"還有更多方法可以專門檢視 Demon 的部落格。

sub settext

dim mydata as dataobjectset mydata = new dataobject"我對VBA設定感到滿意！ "

end sub

獲取資料的方法是：

msgbox

另存為BAT，只有最低限度的BAT**，VBS需要**太多，需要開啟IE網頁，電腦也必須支援IE核心。 @echo off

setlocal enabledelayedexpansionfor /f "skip=1" %%l in ('type ') do (set str=!str! %l)

mshta "text","%str%")(close)