我的vbs中的代码有什么问题?
What is wrong with my code in my vbs?
我的代码有什么问题?
Option Explicit
Dim obj, x, y, v
set obj=createobject("wscript.shell")
x=inputbox("How many Beefs would you like to test?","WindowsDGK Beef Test")
if not IsNumeric(x) then
msgbox"Please enter a number!"
End If
if IsNumeric(x) then
do
y=y+1
obj.run "cmd.exe"
loop until x=y
v=msgbox("Do you want to run again?","WindowsDGK Beef Test",vbYesNo)
if v=6 then
obj.run wscript.fullname
End If
If v=7 then
wscript.quit
End If
End If
在 VBScript 的 if 语句中不能有 2 个变量。示例:y=(x) 将不起作用,因为它认为输入是字符串而不是整数。你真的需要编辑你post.
我的代码有什么问题?
Option Explicit
Dim obj, x, y, v
set obj=createobject("wscript.shell")
x=inputbox("How many Beefs would you like to test?","WindowsDGK Beef Test")
if not IsNumeric(x) then
msgbox"Please enter a number!"
End If
if IsNumeric(x) then
do
y=y+1
obj.run "cmd.exe"
loop until x=y
v=msgbox("Do you want to run again?","WindowsDGK Beef Test",vbYesNo)
if v=6 then
obj.run wscript.fullname
End If
If v=7 then
wscript.quit
End If
End If
在 VBScript 的 if 语句中不能有 2 个变量。示例:y=(x) 将不起作用,因为它认为输入是字符串而不是整数。你真的需要编辑你post.