vbs错了么

软件 2022-12-08

vbs 文件错误？

1. 没有文件扩展".vbs"的脚本引擎. 原因：有些软件会将“.vbs”的文件的默认打开方式改成其他的方式。手动解决： ① 先到%SYSTEMROOT%/system32/确认下自己的wscript.exe在不在，不在的话,从其它电脑上copy过来就OK ② 注册表 regedit 在HKEY_CLASSES_ROOT下面找到.VBS,看看默认值，改为默认的VBSFile。 ③ OK。从新运行。 2. 重新运行，弹出无法创建名为"WScript.Shell"的对象。解决方案，运行一下命令： regsvr32 c:\WINDOWS\system32\shell32.dll regsvr32

为什么我用电脑输入最简单的vbs程序也报错？

你可能是从网上复制的代码？网页上复制时，可能会复制一些不可见的字符导致这种错误。

删掉vbs文件，新建文本文档，自己输入代码，再测试。

或者打开cmd，执行以下命令：

d:
echomsgbox"helloworld!">"helloworld".vbs
"helloworld".vbs

效果可能如下：

或者用十六进制编辑工具编辑vbs，看是否有不可显示字符。

vbs莫名错误啦

您的代码:

SetWshShell=WScript.CreateObject("WScript.Shell")
DimsAsInteger'这里错了!
s=0
dountils=3
	WScript.Sleep1000
	WshShell.SendKeys"{ENTER2}"
	s=s+1
loop

错误:第2行.

错因:vbs好像不支持dim变量时加As(呵呵呵呵...)

正确代码:

SetWshShell=WScript.CreateObject("WScript.Shell")
Dims
s=0
dountils=3
	WScript.Sleep1000
	WshShell.SendKeys"{ENTER2}"
	s=s+1
loop

这段代码还可以写得更简洁些:

DimWS,I
SetWS=WScript.CreateObject("WScript.Shell")
ForI=0To3
WScript.Sleep1000
WS.SendKeys"{ENTER2}"
Next

vbs运行错误！！！！

activex部件不能创建对象这种错误，通常是由于某种原因导致了 ActiveX 控件在系统中没有正确注册服务造成的。比如，常见的一种情况是：你安装的某些精简版本的office，在这种情况下，可能安装软件并没有完整的将一些信息注册。对于这种情况，最简单的解决办法，就是找个完全版的Office软件重新安装一下。

请问这个vbs代码哪里错了？

Dim fso,File,Num,Temp,Temp2,Num2,Num3,Temp3,Temp4,Num4,Num5,Temp5,outname Set fso = CreateObject("scripting.filesystemobject") File=WScript.Arguments(0) Num=InputBox("请输入每份字符数：") Set Re=fso.OpenTextFile(File,1) Temp = Re.ReadAll Num2=Len(Temp) Num2=Num2/Num Num2=Fix(Num2) if num2=0 then msgbox("分割未完

标签：vbs 计算机信息技术操作系统编程