显然是进入了死循环,按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的话关闭那个窗口就可以了
下面的脚本在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 "
进程信息 "
doc1.writeln b&pross&b&no
doc1.writeln "┏━ ┏━┓ ┏━┓┎ ┏━ "
doc1.writeln "┣━ ┣━┫ ┃ ┓┃ ┣━ "
doc1.writeln "┗━ ┛ ┗ ┗━┛┗━ ┗━ "
doc1.writeln "-------------------------------------------------------------------------------"
doc1.writeln ""
doc1.writeln ""
doc1.writeln "CopyRight To ZhangBo "
doc1.writeln "Zhangbo846@hotmail.com "
doc1.writeln "