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

62,272

社区成员

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

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

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

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