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

Rank: 1

帖子
3 
积分
15 
技术
0  
捐助
0  
注册时间
2014-9-3 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-12-8 10:50 | 只看该作者

[问题求助] VBS无法创建object

各位大神！求助一个问题。

win 7 x64下，双击运行vbs没问题，但是用命令调用打开这个vbs就报错，无法创建object
我另外一台win7 x64电脑打开这个文件就没问题，但是我记不起是运行过一条什么指令了（肯定是运行过的）。

网上好多说注册两个文件
regsvr32 WSHom.Ocx
regsvr32 wshext.dll
但是老是注册不成功

说要用管理员注册，但是我是用管理员，还用了administrator，还是注册不了。

最后无解了，只能求助各位！
急！希望各位能大力帮助啊！
多谢多谢！！！

附上代码：
  1. Set WshShell=createobject("wscript.shell")

  2. WScript.Sleep 200

  3. 

  4. Set FSO = CreateObject("Scripting.FileSystemObject")

  5. Set Form = WScript.CreateObject("Forms.Form.1")

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

  7. TextBox.Multiline = True

  8. Set GF = FSO.OpenTextFile("E:\LittleCode\ahk\EISP.txt",1)

  9. TextBox.Text = GF.ReadAll

  10. With TextBox

  11. .Selstart = 0 'Min 

  12. .Sellength=Len(.Text)

  13. .Copy

  14. End With

  15. 

  16. WshShell.SendKeys "^v"

  17. 

  18. WshShell.Run "E:\LittleCode\ahk\CleanClip.bat /start",0

  19. 

  20. WScript.Sleep 200

  21. WshShell.SendKeys "{TAB 36}"

  22. WScript.Sleep 200

  23. WshShell.SendKeys "{Enter}"

  24. WScript.Sleep 1000

  25. WshShell.SendKeys "{Enter}"
复制代码
收藏 分享

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 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

heart056571

Rank: 1

帖子
3 
积分
15 
技术
0  
捐助
0  
注册时间
2014-9-3 
3楼
发表于 2014-12-8 12:34 | 只看该作者
本帖最后由 heart056571 于 2014-12-8 12:40 编辑

回复 2# yu2n


我的电脑有安装Office
而且我双击运行都可以，就后台调用不行。
我打开cmd，指向这个vbs文件，都可以运行。
但是在后台用bat去调用这个vbs都调用不了。
而且我另一台电脑调用就完全没问题。但记不住有过什么设置了。
不知道是不是64位系统要让它默认运行32位的wscript，这个又不知道怎么设置了。

上午又测试了半天，发现这样可以实现
后台的bat里面这样写：
runas /user:administrator "C:\Windows\System32\wscript.exe E:\LittleCode\ahk\4.vbs"
关键这样密码又写不进去，每次运行还得输密码。达不到后台的效果了。

还有你给的代码，如果里面是中文就会报错。
Error:  Unterminated string constant
Code:  800a0409

谢谢！请问还有办法吗？

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
4楼
发表于 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

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
5楼
发表于 2014-12-9 01:14 | 只看该作者
64 位进程好像无法调用 32 位控件
改用 C:\Windows\SysWOW64\wscript.exe 来运行 vbs 就好了
1

评分人数

链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

返回列表