首页 > 软件 > 请问这段vbs代码的错误出在哪里?正确的应该是什么?(请看补充)

请问这段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 计算机 代码

大明白知识网 Copyright © 2020-2022 www.wangpan131.com. Some Rights Reserved. 京ICP备11019930号-18