对象不支持此属性或方法:"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"


麻烦大虾帮忙解决下，谢谢！
...全文
405 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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脚本，查阅了一些资料，在这里做一个记录。 VBS 基本概念 VBScript 是微软公司出品的脚本语言，是 Visual Basic 的轻量级的版本。 变量 类型通用，不需特别声明变量类型。 可以事先不声明，脚本会相应地自动创建变量。不过，这不是一种好习惯，因为在脚本书写时可能会拼错变量。可以将 Option Explicit 置于脚本顶端，来防止脚本自动创...
WMI技术学习（2）
深入windows脚本主机对象模型 模型中的一些对象分组到集合中，wscript对象可以访问的对象和集合包括如下：Wshshell对象是通过CreateObject（WScript.Shell）函数或方法来调用环境变量、特殊文件夹、快捷和注册表、以及启动外部程序。WshNetwork对象是通过CreateObject（WScript.WshNetwork）函数或方法来调用访问共享网
ubantu端使用命令直接在Windows端打开文件或目录
本文介绍了一种基于网络通信的跨平台文件访问方法，通过Ubuntu向Windows发送指令来打开共享文件。作者实现了面向过程的C程序，主要功能包括：1)获取IP地址和文件路径；2)转换路径格式为Windows可识别格式；3)通过curl命令向Windows端发送打开文件/目录的请求。在Ubuntu端编译程序并配置环境变量后，可直接通过fw命令触发操作。Windows端需运行Python脚本监听8080端口来接收并执行指令。该方法为Linux/Android底层开发人员提供了便捷的跨平台文件访问方案。
Wincc Unified触摸屏（MTP）下载程序时提示未装载软件的处理办法
内容概要：本文针对在使用Wincc Unified触摸屏（MTP）下载程序时出现“未装载软件”错误的故障进行分析与解决。尽管设备IP可PING通，且更换PG/PC接口设置无效，但仍无法正常下载。 适合人群：从事工业自动化、西门子PLC与HMI系统调试的技术人员，具备一定Wincc Unified和STEP 7使用经验的工程师； 使用场景及目标：①解决Wincc Unified MTP设备程序下载时提示“未装载软件”的通信或配置问题；②优化下载流程，提升工程下载效率与成功率； 阅读建议：在实际操作前建议先备份项目，严格按照文中步骤关闭加载预览并重建软件，避免因配置遗漏导致下载失败，同时结合在线诊断功能验证设备连接状态。
.NET社区

62,271

社区成员

668,979

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

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

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

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

+ 用AI写文章