
| Quote: | |
|
| Quote: | |
|
CODE: [Copy to clipboard]str = "内容内容$内容内容"
Num = len(str)
Set WshShell=wscript.createobject("Wscript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
WshShell.run("notepad.exe")
Wscript.Sleep 1000
for i = 1 to Num
Wscript.Sleep 200
var = Mid(str, i, 1)
if var = "$" then var = vbCrLf
objIE.document.parentwindow.clipboardData.SetData "text", var
WshShell.Sendkeys("^v")
next
objIE.Quit
Wscript.Quit
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |