有的窗口的标题是比较容易得到的,所以应使用标题进行搜索"
'日期相关:
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。