Hi Peter,
Here's a couple of workaround functions. The only way I know of to manipulate
the clipboard from JavaScript or VBScript is backdoor via MS Internet Explorer.
Hope they help you.
Cheers,
James
Private Function GetClipboardData()
Dim oMSIE ' As InternetExplorer
Dim sReturn ' As String
' open an instance of Internet Explorer
Set oMSIE = CreateObject("InternetExplorer.Application")
With oMSIE
.Visible = False
.Navigate("about:blank")
sReturn = .document.parentwindow.clipboardData.GetData("text")
.Quit
End With
Set oMSIE = Nothing
GetClipboardData = sReturn
End Function
Private Function SetClipboardData(sData)
Dim oMSIE ' As InternetExplorer
Dim blnSuccess ' As String
' open an instance of Internet Explorer
Set oMSIE = CreateObject("InternetExplorer.Application")
With oMSIE
.Visible = False
.Navigate("about:blank")
blnSuccess =
.document.parentwindow.clipboardData.SetData("text",sData)
.Quit
End With
Set oMSIE = Nothing
SetClipboardData = blnSuccess
End Function
--
<http://forum.pspad.com/read.php?2,42387,42555>
PSPad freeware editor http://www.pspad.com
