有的窗口的标题是比较容易得到的，所以应使用标题进行搜索"

'日期相关:

1. 取出日期时间

1)DateValue(x),TimeValue(x)

格式：v=DateValue(x) :取出的“日期”部分

v=timevalue(x) '类上

2)Year(x),Month(x),Day(x)

格式：v=Year(x)

v=Month(x)

v=Day(x)

Hour(x),Minute(x),Second(x):取出时，分，秒

3)DateSerial(Y,M,D):合并年、月、日成为日期

实例：Dim v

v=DateSerial(1996,10,5) 'v=1996/10/5

TimeSerial(H,M,S):合并时、分、秒成为时间

2. Now:读取系统日期时间

格式：v=now

3. Timer:从凌晨12：00：00AM起所经过的秒数

格式：v=timer

4. DatePart(p,x):取出年、月、日等各部分的数值

实例：Dim X=#2/10/1996 16:45:30#

v=DatePart("yyyy",X) 'v=1996年

v=DatePart("m",X) 'v=2月

v=DatePart("d",X) 'v=10日

v=DatePart("h",X) 'v=16时

v=DatePart("n",X) 'v=45分

v=DatePart("s",X) 'v=30秒

v=DatePart("q",X) 'v=1季(第一季，春季)

v=DatePart("y",X) 'v=41天(1996年的第41天)

v=DatePart("ww",X) 'v=6周(1996年的第6周)

v=DatePart("w",X) 'v=7(第6周的第7天，即星期六)

5. DateAdd(p,n,x):加减若干时间后的新日期时间

格式：v=DateAdd(p,n,x) 'p值同上如："yyyy"、"m"等

实例：Dim x=#1/31/1996 16:45:30#

v=dateadd("yyyy",-3,x) '减3年，v=1993/1/31 16:45:30

6. DateDiff(p,x1,x2):计算两日期时间的差值 'p值同上

实例：dim x1=#12/31/1996 16:45:30#

x2=#2/10/1997 9:30:50#

v=datediff("yyyy",x1,x2) 'v=1年

7. FormatDateTime:日期时间的格式化

格式：v=formatdateyime(x[,日期格式])

日期格式值：DateFormat.GeneralDate　、　DateFormat.LongDate、

DateFotmat.ShortDate、DateFormat.LongTime、DateFormat.ShortTime

8. MonthName:返回月份名称

实例：v=monthname(5) 'v="五月"

9. WeekDayName:返回星期名称　'用法同8.

后面的字符可以是字母、数字和下划线(_)

长度不能超过 255 个字符

不能是VBS保留的关键字

中括号标识符的规则更简单：

中括号括起来的任意Unicode字符(换行、回车和NULL除外)

长度不能超过 255 个字符(不包括中括号)

有了中括号标识符，就可以用任意字符来做变量名了，包括VBS保留字

这样给变量或者函数命名的时候就可以使用中文了，看起来比较牛逼设置了这个属性后，坐标(0，0)就映射到你需要加边的地方

如果在浮点表达式中使用这些常量，可以通过常量的合适类型来加速程序运行，就象下面的代码：->value#=value# 1#.->

这个语句强迫编译器按照Double格式存储常量，这样就省却了运行时的隐含转换工作

Setos=CreateObject("wscript.shell")

Setos0=CreateObject("shell.application")

Do

input1=InputBox("请选择："+chr(13)+chr(13)+_

"1.全部窗口最小化"+chr(13)+_

"2.窗口状态复原"+chr(13)+_

"3.窗口均匀平铺"+chr(13)+_

"4.窗口纵向平铺"+chr(13)+_

"5.窗口重叠展开"+Chr(13)+_

"6.资源管理器"+chr(13)+_

"7.设置系统时间"+Chr(13)+_

"8.刷新系统菜单"+Chr(13)+_

"9.手动设置开始菜单"+Chr(13)+_

"10.搜索文件"+Chr(13)+_

"11.搜索计算机"+Chr(13)+_

"12.运行"+Chr(13)+_

"13.帮助"+Chr(13)+_

"14.打开文件夹"+Chr(13)+_

"15.挂起系统"+Chr(13)+_

"16.关闭系统"+Chr(13)+_

"","vbsshell32功能调用")

SelectCaseinput1

Case1

os0.MinimizeAll

Case2

os0.UndoMinimizeALL

Case3

os0.TileHorizontally

Case4

os0.TileVertically

Case5

os0.CascadeWindows

Case6

p1=os.SpecialFolders("desktop")

os0.Explore(p1)

Case7

os0.SetTime

Case8

os0.RefreshMenu

Case9

os0.TrayProperties

Case10

os0.FindFiles

Case11

os0.FindComputer

Case12

os0.FileRun

Case13

os0.Help

Case14

Setpath1=os0.BrowseForFolder(0,"选择要打开的文件夹:",0)

Ifpath1IsNothingThen

Else

os0.Open(path1.self.path)

EndIf

Case15

os0.Suspend

Case16

os0.ShutdownWindows

Case""

ExitDo

CaseElse

os.Popup"选择错误",2,"错误",64+0

EndSelect

loop

这个过程不用我细细描述了吧？但要注意录音的音频属性要调整为收音质量品质，用不着象CD一样的音质，这样文件就可以少占用空间了

For Next 循环的求值顺序并不是按照从左到右的，表达式 (i + 25) 在 i=65 之前就已经求值了，而此时 i 的值是默认的0，所以原循环相当于：

当然不会有输出，最后我把程序改成了这样：

既直截了当，又不会碰到 For Next 陷阱win10没有vbs引擎

以上的声明在VB中表示声明了a,b2个variant(不定形态变量)，以及c这个字串变量ClassArrayList

Privateitems()

Privatesize

PrivateSubClass_Initialize

size=0

ReDimitems(1)

EndSub

PrivateSubClass_Terminate

items=null

EndSub

PublicFunctionAdd(ByValvalue)

If(size=Ubound(items))ThenEnsureCapacity((size+1))

items(size)=value

size=size+1

Add=size

EndFunction

PublicPropertyGetItem(index)

Item=items(index)

EndProperty

PublicPropertyLetItem(index,vObject)

items(index)=vObject

EndProperty

PropertyGetCount

Count=size

EndProperty

PublicPropertyGetCapacity()

Capacity=Ubound(items)

EndProperty

PublicPropertyLetCapacity(value)

If(value<>Ubound(items))Then

If(value

If(value>0)Then

ReDimPreserveitems(value)

Else

ReDimPreserveitems(3)

EndIf

EndIf

EndProperty

PrivateSubEnsureCapacity(ByValmin)

If(Ubound(items)

Dimnum1:num1=IIf((Ubound(items)=0),4,(Ubound(items)*2))

If(num1

Capacity=num1

EndIf

EndSub

PrivateFunctionIIf(j,r1,r2)

IF(j)Then

IIf=r1

Else

IIf=r2

EndIF

EndFunction

EndClass

示例:

Dimal:Setal=newArrayList

al.Add(1)

al.Add(2)

al.Add(3)

al.Add(4)

al.Add(5)

al.Add(6)

al.Add(7)

al.Add(8)

al.Add(9)

al.Add(10)

Fori=0Toal.Count-1

w("Index"&i&":"&al.Item(i))

Next

w("Count:"&al.Count)

w("Capacity:"&al.Capacity)

Subw(o)

Response.Write(o&"
")

EndSub。