对象不支持此属性或方法:"WshShell.CreateObject"

haohanzhilv001 2010-09-11 04:27:00

Dim aa
aa = 11
Set oIE = WScript.CreateObject("InternetExplorer.Application","Event_")
With oIE
.MenuBar = 0 '不显示IE对象菜单栏
.StatusBar = 0 '不显示IE对象状态栏
.AddressBar = 0 '不显示IE对象地址栏
.ToolBar = 0 '不显示IE对象工具栏
.Height = 150 '设置IE对象高度
'.FullScreen=0 '全屏化IE对象
.Width = 281 '设置IE对象宽度
.Navigate "about:blank" '设置IE对象默认指向的页面
.Visible = 1 '设置是否可见
.Resizable = 0 '设置IE对象大小是否可以被改动
.Document.Write "<HTML><title>修改管理</title><BODY scroll='no'>编号：<input id='input1' input1 value="&aa&"
.Document.Write "<center><input type=BUTTON name=certain value=确定>"
End With
'
Set oIE.Document.getElementById("certain").OnClick = GetRef("aaa")

Do
WScript.Sleep 200
Loop

Sub aaa
Dim str
str = oIE.Document.getElementById("input1").Value & VbCrLf
str = str & oIE.Document.getElementById("input2").Value & VbCrLf
str = str & oIE.Document.getElementById("input3").Value
WScript.Echo str
End Sub

Sub Event_OnQuit
WScript.Quit
End Sub

如上代码在VBSEdit中功能够正常运行，但是被其他方法调用时确报错：
报错信息为缺少对象:'WScript'
修改为如下后，继续报错
Set WshShell = CreateObject("WScript.Shell")
Set oIE = WshShell.CreateObject("InternetExplorer.Application","Event_")
继续报错为：对象不支持此属性或方法:"WshShell.CreateObject"

麻烦大虾帮忙解决下，谢谢！

...全文

406 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

haohanzhilv001 2010-09-11

打赏
举报

回复

[Quote=引用楼主 haohanzhilv001 的回复:]
Dim aa
aa = 11
Set oIE = WScript.CreateObject("InternetExplorer.Application","Event_")
With oIE
.MenuBar = 0 '不显示IE对象菜单栏
.StatusBar = 0 '不显示IE对象状态栏
.AddressBar = 0 '不显示IE对象地址栏
.Tool……
[/Quote]

这种方式我试过，还是不行

孟子E章 2010-09-11

打赏
举报

回复

Set oIE = CreateObject("InternetExplorer.Application","Event_")

在项目中用到了一些VBS脚本，查阅了一些资料，在这里做一个记录。 VBS 基本概念 VBScript 是微软公司出品的脚本语言，是 Visual Basic 的轻量级的版本。变量类型通用，不需特别声明变量类型。可以事先不声明，脚本会相应地自动创建变量。不过，这不是一种好习惯，因为在脚本书写时可能会拼错变量。可以将 Option Explicit 置于脚本顶端，来防止脚本自动创...

深入windows脚本主机对象模型模型中的一些对象分组到集合中，wscript对象可以访问的对象和集合包括如下：Wshshell对象是通过CreateObject（WScript.Shell）函数或方法来调用环境变量、特殊文件夹、快捷和注册表、以及启动外部程序。WshNetwork对象是通过CreateObject（WScript.WshNetwork）函数或方法来调用访问共享网

本文介绍了一种基于网络通信的跨平台文件访问方法，通过Ubuntu向Windows发送指令来打开共享文件。作者实现了面向过程的C程序，主要功能包括：1)获取IP地址和文件路径；2)转换路径格式为Windows可识别格式；3)通过curl命令向Windows端发送打开文件/目录的请求。在Ubuntu端编译程序并配置环境变量后，可直接通过fw命令触发操作。Windows端需运行Python脚本监听8080端口来接收并执行指令。该方法为Linux/Android底层开发人员提供了便捷的跨平台文件访问方案。

TDengine时序数据库实战

【重要提示】本资源设置为0积分下载，若非0积分请勿轻易下载亲爱的CSDN用户：首先感谢你点进这个资源页面。我需要提前说明一个重要情况：本资源原本已设置为“0积分下载”，即作者希望完全免费共享。但CSDN平台有时会根据文件的下载热度、文件大小、用户权限等因素，自动将部分资源的积分调整为非0数值（如1积分、2积分、5积分等）。这是平台系统的自动行为，而非作者本人的设定。因此，如果你当前看到该资源的下载所需积分不是0（例如显示为1、2、3……），请谨慎决定是否下载。如果你按照非0积分支付并下载后发现资源内容不符合预期、链接失效，或者实际上该资源本应是免费的，作者无法为此承担积分损失或退还操作。强烈建议：仅在页面显示为0积分时进行下载。另外，本资源描述中并未直接提供具体的下载地址或外部链接，因为它本身是一个通过CSDN官方上传通道提交的文件/内容包。如果你看到描述中没有外部网盘地址，这是正常的——资源文件应通过CSDN内置的“下载”按钮获取。若因平台积分显示异常导致你支付了积分，请优先联系CSDN客服咨询积分退还政策，作者没有权限修改平台自动设定的积分值。感谢你的理解与支持。技术分享本应开放，但受限于平台规则，特此提醒如上。祝学习进步！

62,272

社区成员

668,969

社区内容

发帖

与我相关

我的任务

javascript云原生企业社区

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章