從網上看到乙個vbs中使用class的例子, 轉出來，共同學習！
class arraylist
private items()
private size
private sub class_initialize
size = 0
redim items(1)
end sub
private sub class_terminate
redim items(1)
'jince 怎樣解引用？
'set items = nothing
end sub
public function add(byval value)
dim1 = ubound(items)
dim1 = ubound(items,1)
dim2 = ubound(items,2)
if (size = ubound(items)) then ensurecapacity((size + 1))
items(size) = value
size = size + 1
add = size
end function
public property get item(index)
item = items(index)
end property
public property let item(index, vobject)
items(index) = vobject
end property
property get count
count = size
end property
public property get capacity()
capacity = ubound(items)
end property
public property let capacity(value)
if (value <> ubound(items)) then
if (value < size) then err.rise 6
if (value > 0) then
redim preserve items(value)
else
redim preserve items(3)
end if
end if
end property
private sub ensurecapacity(byval min)
if (ubound(items) < min) then
dim num1 : num1 = iif((ubound(items) = 0), 4, (ubound(items) * 2))
if (num1 < min) then num1 = min
capacity = num1
end if
end sub
private function iif(j, r1, r2)
if (j) then
iif = r1
else
iif = r2
end if
end function
end class
'示例:
dim al : set al = new arraylist
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)
for i = 0 to al.count -1
w("index"& i &": "& al.item(i))
next
w("count: "& al.count)
w("capacity: "& al.capacity)
sub w(o)
debug.writeline(o)
end sub
js中class的使用
class user 第一種 let user class 第二種class user class request let api newrequest api.postbody test class user show user.show 和下面的是不一樣的 let user newuser us...
vbs中對於getobject使用WMI的使用說明
wmi一 什麼是wmi wmi是windows 2k xp管理系統的核心 對於其他的win32作業系統，wmi是乙個有用的外掛程式。有了wmi，工具軟體和指令碼程式訪問作業系統的不同部分時不需要使用不同的api 相反，作業系統的不同部分都可以插入wmi。也就是說，利用wmi我們能更方便地管理 win...
vbs中對於getobject使用WMI的使用說明
wmi一 什麼是wmi wmi是windows 2k xp管理系統的核心 對於其他的win32作業系統，wmi是乙個有用的外掛程式。有了wmi，工具軟體和指令碼程式訪問作業系統的不同部分時不需要使用不同的api 相反，作業系統的不同部分都可以插入wmi。也就是說，利用wmi我們能更方便地管理 win...