展开全部
显然是进入了死循环，按ctrl+alt+del后选择[任务管理器]-[进程]后立即按住ctrl键，在里面找到wscript.dll，选中后右键选择[结束任务]即可。
例如"Hello"+"World"="HelloWorld" ，have you understood? 你还记得InputBox函数的返回值吗? 是字符串! 这就看出问题了吧, 在编程中"1"不等于(<>)1, "1"是一个字符, 而1是一个数, 所以a,b都是字符串变量, "1"+"2"="12"。
这就好像我们小时跟伙伴开玩笑问他们1+1=?一样, 我们总是笑着说"错啦,应该是11".但为什么, a可以*2却不发生错误呢? 这时VBS比较智能的一个表现。
如果字符串代表一个数, 但不参加数学运算, 而是参加字符串运算(合并)则当作字符串处理, 所以你看到a+b=12, 这时候a+b的结果(12)是一个字符串, 当它要乘以2的时候就被强制转换成了数字12, 这样我就得到了结果24。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
方法一:
ctrl+shift+esc打开任务管理器,=
结束wscript.exe
方法二:
开始-运行-
wscript //h:cscript
-确定
这样每次运行vbs会开一个黑窗口,想关闭vbs的话关闭那个窗口就可以了
ctrl+shift+esc打开任务管理器,=
结束wscript.exe
方法二:
开始-运行-
wscript //h:cscript
-确定
这样每次运行vbs会开一个黑窗口,想关闭vbs的话关闭那个窗口就可以了
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
下面的脚本在XP下正常运行，在win2000运行时出错，Microsoft VBScript 运行时错误 (17, 3) : 对象不支持此属性或方法: 'objprocess.commandline'
什么原因，win2000运行这个实例还需要安装什么东西吗
'显示所有进程
dim oie,doc1,fso
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colprocess = objWMIService.ExecQuery _
("Select * from Win32_process")
for each objprocess in colprocess
a=20-len(objprocess.caption)
b=10-len(objprocess.handle)
for i = 0 to a
p=p&"."
next
for i = 0 to b
q=q&"."
next
pross= pross&objprocess.caption&p&objprocess.handle&q&objprocess.commandline&vbcrlf
p=""
q=""
next
no="总进程数为:"&colprocess.count
b="-------------------------------------------------------------------------------"&vbcrlf
set oie=wscript.createobject("internetexplorer.application")
oie.navigate "www.进程.com"
oie.visible = 1
oie.toolbar = 0
oie.statusbar= 1
oie.width = 900
oie.Height =500
do while (oie.busy) : loop
set doc1=oie.document
doc1.open
doc1.writeln "<html><head><title>显示进程</title></head>"
doc1.writeln "<BACKGROUND= 'E:\picture\作品\PhoXo3.jpg' >"
doc1.writeln "<pre><center><font color=red size=5>进程信息</font></center><p><font color=black size=2>"
doc1.writeln b&pross&b&no
doc1.writeln "┏━ ┏━┓ ┏━┓┎ ┏━ "
doc1.writeln "┣━ ┣━┫ ┃ ┓┃ ┣━ "
doc1.writeln "┗━ ┛ ┗ ┗━┛┗━ ┗━ "
doc1.writeln "-------------------------------------------------------------------------------"
doc1.writeln ""
doc1.writeln ""
doc1.writeln "<pre><center><font color=white size=1>CopyRight To ZhangBo</font></center>"
doc1.writeln "<pre><center><font color=white size=1>Zhangbo846@hotmail.com</font></center>"
doc1.writeln "</font></p></pre></body></html>"
doc1.close
什么原因，win2000运行这个实例还需要安装什么东西吗
'显示所有进程
dim oie,doc1,fso
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colprocess = objWMIService.ExecQuery _
("Select * from Win32_process")
for each objprocess in colprocess
a=20-len(objprocess.caption)
b=10-len(objprocess.handle)
for i = 0 to a
p=p&"."
next
for i = 0 to b
q=q&"."
next
pross= pross&objprocess.caption&p&objprocess.handle&q&objprocess.commandline&vbcrlf
p=""
q=""
next
no="总进程数为:"&colprocess.count
b="-------------------------------------------------------------------------------"&vbcrlf
set oie=wscript.createobject("internetexplorer.application")
oie.navigate "www.进程.com"
oie.visible = 1
oie.toolbar = 0
oie.statusbar= 1
oie.width = 900
oie.Height =500
do while (oie.busy) : loop
set doc1=oie.document
doc1.open
doc1.writeln "<html><head><title>显示进程</title></head>"
doc1.writeln "<BACKGROUND= 'E:\picture\作品\PhoXo3.jpg' >"
doc1.writeln "<pre><center><font color=red size=5>进程信息</font></center><p><font color=black size=2>"
doc1.writeln b&pross&b&no
doc1.writeln "┏━ ┏━┓ ┏━┓┎ ┏━ "
doc1.writeln "┣━ ┣━┫ ┃ ┓┃ ┣━ "
doc1.writeln "┗━ ┛ ┗ ┗━┛┗━ ┗━ "
doc1.writeln "-------------------------------------------------------------------------------"
doc1.writeln ""
doc1.writeln ""
doc1.writeln "<pre><center><font color=white size=1>CopyRight To ZhangBo</font></center>"
doc1.writeln "<pre><center><font color=white size=1>Zhangbo846@hotmail.com</font></center>"
doc1.writeln "</font></p></pre></body></html>"
doc1.close
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
