T = False
m = ""
Set dc = Of.Drives
’得到所有的驱动器盘符
For Each d In dc
’遍历每个驱动器
If d.DriveType = 2 Or d.DriveType = 3 Then
’如果是网络盘或本地盘
If T Then
Dnext = d
Exit Function
’如果是False，就返回当前盘，并退出本函数
Else
If LCase(S) = LCase(d) Then
’如果是True且盘符相同，就令T为True
T = True
End If
If m = "" Then
’如果m为空，就将盘符付给m
m = d
End If
End If
End If
Next
Dnext = m
’返回盘符
End Function
’******************************************************************
Function GetExt(Of, Od, S)
Dim fext
On Error Resume Next
fext = LCase(Of.GetExtensionName(S))
’返回该文件扩展名的小写
GetExt = Od.Item(fext)
’返回Dictionary对象中指定的key对应的item——即0001(exe)等
End Function
’******************************************************************
Sub Rw(k, v)
’写注册表
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
’创建对象
R.RegWrite k, v
End Sub
’******************************************************************
Function Rg(v)
’读注册表
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
’创建对象
Rg = R.RegRead(v)
End Function
’******************************************************************
Function IsVbs()
’此函数判断是不是VBS文件
Dim ErrTest
On Error Resume Next
ErrTest = WScript.ScriptFullname
If Err Then
’如果出错，则不是VBS
IsVbs = False
Else
IsVbs = True
End If
End Function
’******************************************************************
Function IsHTML()
’此函数判断是不是Html文件
Dim ErrTest
On Error Resume Next
ErrTest = document.Location
If Er Then
IsHTML = False
’如果出错，则不是超文本
Else
IsHTML = True
End If
End Function
’******************************************************************
Function IsMail(S)
’此函数判断是不是邮件地址
Dim m1, m2
IsMail = False
If InStr(S, vbCrLf) = 0 Then
’返回vbCrLf在S中第一次出现的位置, vbCrLf是换行符
m1 = InStr(S, "@")
m2 = InStr(S, ".")
If m1 <> 0 And m1 < m2 Then
’如果有“@”符号且“@”在“."之前，则是邮件地址
共7页: 上一页 [1] [2] [3] [4] 5 [6] [7] 下一页
学生档案管理系统
缓冲区溢出攻击的分析及防范策略