[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
1楼 跳转到 »
发表于 2014-12-8 11:57 | 显示全部帖子
目测是第5行“Forms.Form.1”语句引起的问题，后面的语句也跟着出错了。
你的电脑缺少 Microsoft Forms 2.0 Object Library 组件，安装 Office2007 应该能够解决这个问题。

如果你的电脑安装有Office，复制文本到剪贴板还可以使用以下的语句：
  1. REM 标题: VBS访问剪贴板的几种方法

  2. REM 作者: Demon

  3. REM 链接: http://demon.tw/programming/vbs-clipboard.html

  4. REM 用Word.Application也可以设置和获取剪贴板内容

  5. 

  6. '设置剪切板的内容

  7. Dim Word

  8. Set Word = CreateObject("Word.Application")

  9. Word.Documents.Add

  10. Word.Selection.Text = "忘记了，喜欢一个人的感觉"

  11. Word.Selection.Copy

  12. Word.Quit False

  13. 

  14. '获取剪切板的内容

  15. REM Dim Word

  16. Set Word = CreateObject("Word.Application")

  17. Word.Documents.Add

  18. Word.Selection.PasteAndFormat(wdFormatPlainText)

  19. Word.Selection.WholeStory

  20. str = Word.Selection.Text

  21. Word.Quit False

  22. WScript.Echo str
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2014-12-8 18:46 | 显示全部帖子
中文出错的问题，可能是你的代码文件没有按ANSI/Unicode编码保存。

这种奇怪的报错我以前遇到过，总算翻出来了。用HTA可以解决出错的问题：
将以下代码保存为 0.HTA ，然后运行，你会发现，系统实际上是用的到那个组件的：
  1. <html><head><meta http-equiv="Content-Type" content="text/html; charset=utf8">

  2. <title>TEST</title>

  3. <script language=VbScript>

  4. REM 标题: VBS访问剪贴板的几种方法

  5. REM 作者: Demon

  6. REM 链接: http://demon.tw/programming/vbs-clipboard.html

  7. 

  8. '设置剪切板的内容

  9. Dim Form, TextBox

  10. Set Form = CreateObject("Forms.Form.1")

  11. Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object

  12. TextBox.MultiLine = True

  13. TextBox.Text = "忘记了，喜欢一个人的感觉"

  14. TextBox.SelStart = 0

  15. TextBox.SelLength = TextBox.TextLength

  16. TextBox.Copy

  17. 

  18. '获取剪切板的内容

  19. Set Form = CreateObject("Forms.Form.1")

  20. Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object

  21. TextBox.MultiLine = True

  22. If TextBox.CanPaste Then

  23.     TextBox.Paste

  24.     Msgbox TextBox.Text

  25. End If

  26. </script>

  27. </head>

  28. <body></body></html>
复制代码
运行一下，找个文本框按一下Ctrl+V，看看剪贴板里面的文字，是不是已经改变了。
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表