VBS 가 클립보드 에 접근 하 는 몇 가지 방법 요약

 
Set IE = CreateObject("InternetExplorer.Application") 
IE.Navigate("about:blank") 
Set clipboard = IE.document.parentWindow.clipboardData 
'SetData         
clipboard.SetData "text", "   ，        " 
'GetData         
WScript.Echo clipboard.GetData("text") 
IE.Quit 

실천 에 의 하면 인터넷 에서 많은 코드 를 검색 하면 보통 좋 은 코드 가 아니 라 는 것 을 증명 한다.SetData 방법 은 사실 IE 브 라 우 저의 설정 과 관련 이 있 습 니 다.

IE8 의 기본 설정 은 Prompt 이기 때문에 위의 스 크 립 트 를 실행 할 때 대화 상자 가 팝 업 됩 니 다.이것 이 Disable 이 라면 이 스 크 립 트 는 클립보드 내용 을 설정 할 수 없습니다.(영향 을 받 지 않 습 니 다.)

보증 되 지 않 은 코드 는 적 게 사용 하 는 것 이 좋 습 니 다.윈도 7 에 서 는 클립.exe 로 클립보드 의 내용 을 설정 할 수 있 습 니 다.가 져 오 면 IE 를 사용 하면 됩 니 다.

Dim WshShell
set WshShell = CreateObject("wscript.Shell")
str = "   ，        "
WshShell.Run "cmd.exe /c echo " & str & " | clip",0,False

워드 애플 리 케 이 션 으로 클립보드 내용 설정 및 가 져 오기

'        
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text = "   ，        "
Word.Selection.Copy
Word.Quit False

'        
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.PasteAndFormat(wdFormatPlainText)
Word.Selection.WholeStory
str = Word.Selection.Text
Word.Quit False
WScript.Echo str

가장 신기 한 것 은 Microsoft Forms 2.0 Object Library 를 사용 하 는 것 이다.

'        
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = "   ，        "
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy

'        
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
If TextBox.CanPaste Then
 TextBox.Paste
 WScript.Echo TextBox.Text
End If

참조 링크:

[UMU WSH 튜 토리 얼](30)클립보드 방문

[UMU WSH 튜 토리 얼](32)클립보드 접근(2)

원문:http://demon.tw/programming/vbs-clipboard.html