access to clipboard content other than wshextra? 1

[jfdabiri]

Hi,
is there a way to have access to contents of clipboard object other than using wshextra? i have looked for this in tek-tip, and i found wshextra and it's usage. but i'm trying to implement this with existing object. my idea is to set: some_variable = contents of clipboard.
any ideas?

 

[markdmac]

Not possible natively with just vbscript. I believe there is some way to do it if you incorporate IE into the solution.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[dilettante]

What script host? If you're writing an HTA you have clipboard access via the IE object model (window.clipboardData object).

There is nothing built into WSH for this though.

 

[tsuji]

[tt]dim s
'clipboard : text only
with createobject("internetexplorer.application")
.navigate "about:blank"
s=.document.parentwindow.clipboarddata.getdata("text")
.quit
end with
if not isempty(s) then
wscript.echo s
else
wscript.echo "nothing captured"
s=""
end if
[/tt]

 

[jfdabiri]

everybody, thanks so much.
tsuji,
that was great. it worked just fine. cool. i tested. i can place the content of clipboard in a variable even in a vb script without having i.e. being visible. i can examine the content of the variable and process the info.
my question is this: is there a way to paste this info onto notepad? right now, i process the info, open a text file, and append successive contents to it. i'm just wondering if there is a so called "paste" method in this.
thanks.

 

[tsuji]

Always not to consider keyboard emulation unless it is the last resort. You can save s to a text file and open it with a notepad of any editor.
[tt]
dim spath
spath=[green]"d:\test\cb_data.txt"[/green] 'your input

if not isempty(s) then
with createobject("scripting.filesystemobject").opentextfile(spath,2,true)
.write s
.close
end with
end if
'then open the file with notepad or something (add path to notepad if necessary)
wscript.sleep 50
createobject("wscript.shell").run "notepad.exe " & spath
[/tt]

 

[jfdabiri]

thanks a bunch.
it works.