一个最简单的vbs类实例代码
class CFoo
sub PrintHello()
response.Write "Hello World!"
end sub
end class
dim obj
set obj = new CFoo
call obj.PrintHello
set obj = nothing
sub PrintHello()
response.Write "Hello World!"
end sub
end class
dim obj
set obj = new CFoo
call obj.PrintHello
set obj = nothing
实用vbs提醒小程序
使用方法：1.将下面的代码保存为：Ring.vbs（文件名可自定）2.将Ring.vbs移动到程序启动组，这样可以随WINDOWS自动启动了（位置是：开始--程序--启动，XP
使用vbs下载文件的代码加强版
说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码：iLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))SetxPost=createObject("Microsof
vbs病毒制作之一复制自身的vbs脚本
复制自身到c盘的huan.vbsASP/VisualBasic代码setcopy1=createobject("scripting.filesystemobject")copy1.getfile(wscript.scriptfullname).copy("c:huan.vbs")
