代码搜索：VbScript
找到约 10,000 项符合「VbScript」的源代码
代码结果 10,000
www.eeworm.com/read/252147/12298183
txt folder.htt等文件的问题.txt
folder.htt等文件的问题
Q12.2：最近在我的电脑的所有文件夹中出现了这样两个文件esktop.ini、folder.htt，怎么也删不去。有人说是病毒，把系统和别的分区全格式化了就好了。可是我的东西全都有用，不能格式化的，请问怎么办？
A：你的电脑可能是感染了VBS.KJ脚本病毒。该病毒采用<mark>VBScript</mark>语言编写，在互联网上通过电子邮件进行传播，也可以通过文件感染；感 ...
www.eeworm.com/read/251763/12321527
htm 例3-7.htm
sub ss()
dim x
x=22
document.write("在过程内x为：" & x)
end sub
dim x
x=1
call ss
www.eeworm.com/read/251763/12321533
htm 例3-6.htm
function s(bc)
s=bc*bc
end function
b=inputbox("请输入正方形的边长：")
document.write ("
www.eeworm.com/read/251763/12321536
htm 例3-9.htm
function openwin()
setOpenWindow=window.open("gg.htm","new","height=60,width=300,toolbar=no,scrollbars="+scroll+",menubar=no")
end function
www.eeworm.com/read/251763/12321539
htm 例3-2.htm
dim name
'此处用到了window 对象中的prompt()方法，意为产生输入框。
name=prompt("请输入你的姓名")
document.write("欢迎你！" & name)
www.eeworm.com/read/251763/12321549
htm 例3-5.htm
sub xm() '定义xm过程，无参数。注：无参数也必须加上()
dim name
name=prompt("请输入您的姓名")
document.write("欢迎您，" & name & "!" & "")
end sub
sub pf(a) '定义pf过程，
www.eeworm.com/read/251763/12321554
htm 例3-3.htm
dim hd
mm="1234"
hd=inputbox("请输入你的密码：")
if hdmm then
alert("你的密码不正确！")
else
alert("密码正确，欢迎你的光临")
end if
www.eeworm.com/read/251760/12321633
htm 例2-1.htm
dim s
s=""
do while s"123456"
s=prompt("请输入密码：")
loop