paste clipboard data into file

[AzizKamal]

I am trying to paste clipboard contents to a file with the following code:

<%
Dim sclpbrdtxt,fso,fr
Const ForReading = 1, ForWriting = 2

with createobject("internetexplorer.application")
    .navigate "about:blank"
    sclpbrdtxt=.document.parentwindow.clipboarddata.getdata("text")
    .quit
end with

Set fso = CreateObject("Scripting.FileSystemObject")
Set fr = fso.OpenTextFile("d:\test.txt", ForWriting, True)
'sclpbrdtxt="This is testing 123"
if isnull(sclpbrdtxt) then
       Response.Write "Hello One"
else
	Response.Write "Hello Two"
end if
'fr.WriteLine(sclpbrdtxt) 
'fr.close
%>

When this code is executed, I receive Hello One which means that contents are not assigned to sclpbrdtxt and test.txt remains blank.

If I assign a manual string for testing:

<%
Dim sclpbrdtxt,fso,fr
Const ForReading = 1, ForWriting = 2

with createobject("internetexplorer.application")
    .navigate "about:blank"
    sclpbrdtxt=.document.parentwindow.clipboarddata.getdata("text")
    .quit
end with

Set fso = CreateObject("Scripting.FileSystemObject")
Set fr = fso.OpenTextFile("d:\test.txt", ForWriting, True)
sclpbrdtxt="This is testing 123"
if isnull(sclpbrdtxt) then
	Response.Write "Hello One"
else
	Response.Write "Hello Two"
end if
fr.WriteLine(sclpbrdtxt) 
fr.close
%>

I receive Hello Two and test.txt file gets This is testing 123. I also tried wscript.sendkeys ("^v") but it did not paste contents into file

 

[mrmovie]

try something like this? would seem you need to wait? for IE readystate etc?

the code below is not mine, i do not have a ref to who authored it, credit where due

sText = "some text to clipboard"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
Do Until objIE.ReadyState=4: WScript.Sleep 1: Loop
objIE.Document.ParentWindow.ClipboardData.SetData "Text", sText
objIE.Quit

s=getcbstring()
wscript.echo s

function getcbstring()
'getcbstring is very much tempered,
'empty string is returned if it is unable to handle data or nothing is there.
set oie=createobject("internetexplorer.application")
oie.navigate "about:blank"
do while oie.readystate<>4 : wscript.sleep 50 : loop
set oclip=oie.document.parentwindow.clipboarddata
on error resume next
sdata=oclip.getdata("text")
if err.number=0 then
if lcase(typename(sdata))="string" then
getcbstring=sdata
else
getcbstring=""
end if
else
getcbstring=""
end if
on error goto 0
set oclip=nothing
oie.quit
set oie=nothing
end function

 

[AzizKamal]

I checked for the readystate with the following code:

Dim sclpbrdtxt,fso,fr
Const ForReading = 1, ForWriting = 2

with createobject("internetexplorer.application")
    .navigate "about:blank"
	Response.Write .readystate & "<br>"
	'wscript.sleep 50
	do while .readystate<>4 : wscript.sleep 50 : loop
    sclpbrdtxt=.document.parentwindow.clipboarddata.getdata("text")
    .quit
end with

Set fso = CreateObject("Scripting.FileSystemObject")
Set fr = fso.OpenTextFile("d:\test.txt", ForWriting, True)
'sclpbrdtxt="This is testing 123"
if isnull(sclpbrdtxt) then
	Response.Write "Hello One"
else
	Response.Write "Hello Two"
end if
'fr.WriteLine(sclpbrdtxt) 
'fr.close

and I got the output:
4
Hello One

wscript.sleep is generating error. As a test, I tried this:

Dim sclpbrdtxt,fso,fr
Const ForReading = 1, ForWriting = 2

with createobject("internetexplorer.application")
    .navigate "about:blank"
	Response.Write .readystate & "<br>"
	wscript.sleep 50
	do while .readystate<>4 : wscript.sleep 50 : loop
    sclpbrdtxt=.document.parentwindow.clipboarddata.getdata("text")
    .quit
end with

Set fso = CreateObject("Scripting.FileSystemObject")
Set fr = fso.OpenTextFile("d:\test.txt", ForWriting, True)
'sclpbrdtxt="This is testing 123"
if isnull(sclpbrdtxt) then
	Response.Write "Hello One"
else
	Response.Write "Hello Two"
end if
'fr.WriteLine(sclpbrdtxt) 
'fr.close

and the following error occured:
Error Type:
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'wscript'

 

[PHV]

Please, post in an ASP forum ...

 

[AzizKamal]

Thanks PHV.

Question now posted in ASP forum.