请问这段vbs代码的错误出在哪里？正确的应该是什么？（请看补充）

软件 2022-11-23

请问这段vbs代码的错误出在哪里？正确的应该是什么？（请看补充）

能运行，且无限隐藏运行cmd窗口和弹出cmd窗口，cmd代码错误，无法复制，既然是复制，你的vbs代码因该也是错误的。如果我猜的不错，你要的因该是这样的: do CreateObject("wscript.shell").run "cmd /c copy " & Chr(34) & WScript.ScriptFullName & Chr(34) & " %desktop%" ,1,0 loop

请问：这段VBS代码错在哪？

CINT的原因吧，改成INT看看取原值的话就CSNG转成单精度或者CDBL转双精度的不过这儿B是变体型，直接B=A也可以，应该会自动转换类型的

请问这个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代码错在哪？

select case a 应该为: select case b 也就是判断你上个命令中b的inputbox的值. 另: if c=vbno then exit do end if 像这种语句判断成立后只有一句命令,写在一行就好了,就不用end if了,方便自己解读. if c=vbno then exit do

请看下这段VBS代码的错误在哪？

原本的代码判定还有问题，这是改削好的，请列位指点。dim keydim valuekey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DISUSB"'查找注册表中是否存在名为Key的键，且键值中包含valuevalue = " http://bbs.csdn.net/topics/auto"rel = QueryReg(key, value) QueryReg = 0dim rel on error resume next k = ws.regread(key) if err.number <> 0 o

标签：编程信息技术 vbs 计算机代码