你能受得了吗？
不，不能这样做",64,"提示":WScript.Quit
Dim objFSO
Set objFSO=CreateObject("Scripting.FileSystemObject")
TreeStr=TreePath & FormatSize(objFSO.GetFolder(TreePath).Size) & vbCrLf
Tree TreePath,""
Set objFile=objFSO.CreateTextFile(OutFile,True)
objFile.Write TreeStr
objFile.Close
Set objFile=Nothing
Set objFSO=Nothing
MsgBox "查看当前目录下的OutTree.txt",vbInformation,"完成 - vbsTree"
Sub Tree(Path,SFSpace)
Dim i,TempStr,FlSpace
FlSpace=SFSpace & " "
Set CrntFolder=objFSO.GetFolder(Path)
i=0:TempStr="├─"
For Each ConFile In CrntFolder.Files
i=i + 1
If i=CrntFolder.Files.Count And CrntFolder.SubFolders.Count=0 Then TempStr="└─"
TreeStr=TreeStr & FlSpace & Tempstr & ConFile.name & FormatSize(ConFile.size) & vbCrLf
Next
i=0:TempStr="├─"
For Each SubFolder In CrntFolder.SubFolders
i=i + 1
If i=CrntFolder.SubFolders.Count Then
TempStr="└─"
SFSpace=FlSpace & " "
Else
SFSpace=FlSpace & "│"
End If
TreeStr=TreeStr & FlSpace & TempStr & SubFolder.name & FormatSize(SubFolder.size) & vbCrLf
Tree SubFolder,(SFSpace)
Next
End Sub
Function FormatSize(SZ)
Dim i
Do While SZ > 1024
i=i + 1
SZ=SZ \ 1024
Loop
FormatSize=" (" & SZ & Mid(Unit4Size,1 + 2 * i,2) & ")"
End Function
Function BFF(title, flag, dir)
On Error Resume Next
Dim oShell, oItem, oStr
Set oShell=WScript.CreateObject("Shell.Application")
Set oItem=oShell.BrowseForFolder(&H0, title, flag, dir)
oStr=oItem.Title
If Err <> 0 Then
Set oShell=Nothing
Set oItem=Nothing
Exit Function
End If
If InStr(oStr, ":") Then
BFF=mid(oStr,InStr(oStr, ":")-1, 2)
Else
Select Case oStr
Case "桌面"
BFF=WS.SpecialFolders("Desktop")
Case "我的文档"
BFF=WS.SpecialFolders("MyDocuments")
Case "我的电脑"
MsgBox "无效目录
PrivateDeclareFunctionRemoveMenuLib"User32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
PrivateDeclareFunctionDrawMenuBarLib"User32"(ByValhwndAsLong)AsLong
PrivateDeclareFunctionGetMenuItemCountLib"User32"(ByValhMenuAsLong)AsLong
PrivateConstMF_BYPOSITION=&H400&
PrivateConstMF_DISABLED=&H2&
PrivateSubForm_Load()
CallDisableX(Me)
EndSub
PrivateSubDisableX(FrmAsForm)
DimhMenuAsLong,nCountAsLong
hMenu=GetSystemMenu(Frm.hwnd,0)
nCount=GetMenuItemCount(hMenu)
CallRemoveMenu(hMenu,nCount-1,MF_DISABLEDOrMF_BYPOSITION)
DrawMenuBarFrm.hwnd
EndSub-> 经过以下的叙述之后，变量A、B、C、D分别等于0、
""、Null、Empty、Nothing的哪一个？
DimA
DimBAsString
DimCAsInteger
DimDAsObject
A等于Empty，因为尚未初始化的「不定型变量」都等于Empty
'****************************
'*by r05e
'*检验SQL SERVER是否在这机器上工作
'****************************
strComputer="."
Set objWMIService=GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colServices=objWMIService.ExecQuery _
("Select * from Win32_Service Where Name='MSSQLServer'")
If colServices.Count > 0 Then
For Each objService in colServices
Wscript.Echo "SQL Server is " & objService.State & "."
Next
Else
Wscript.Echo "SQL Server is not installed on this computer."
End If
WAV文件基本信息包括如是否立体声，采样频率等
'Date: 2010/6/18
'Author: Demon
'QQ: 380401911
'E-mail: still.demon@gmail.com
'Website:
Const Email_From="ddd@163.com" '发件人邮箱
Const Password="password" '发件人邮箱密码
Const Email_To="380401911@qq.com" '收件人邮箱
Set CDO=CreateObject("CDO.Message") '创建CDO.Message对象
CDO.Subject="From Demon" '邮件主题
CDO.From=Email_From '发件人地址
CDO.To=Email_To '收件人地址
CDO.TextBody="Hello world!" '邮件正文
cdo.AddAttachment="C:\hello.txt" '邮件附件文件路径
Const schema="" '规定必须是这个，我也不知道为什么
With CDO.Configuration.Fields '用with关键字减少代码输入
.Item(schema & "sendusing")=2 '使用网络上的SMTP服务器而不是本地的SMTP服务器
.Item(schema & "smtpserver")="smtp.gmail.com" 'SMTP服务器地址
.Item(schema & "smtpauthenticate")=1 '服务器认证方式
.Item(schema & "sendusername")=Email_From '发件人邮箱
.Item(schema & "sendpassword")=Password '发件人邮箱密码
.Item(schema & "smtpserverport")=465 'SMTP服务器端口
.Item(schema & "smtpusessl")=True '是否使用SSL
.Item(schema & "smtpconnectiontimeout")=60 '连接服务器的超时时间
.Update '更新设置
End With
CDO.Send '发送邮件
ae打开管理器
二、当用自制一个菜单时，可用如下办法实现移到哪项时，则哪项背景色就与其它的项目的背景色不同而且它是微软官方比较权威的。
