有的窗口的标题是比较容易得到的，所以应使用标题进行搜索原文来自:

OnErrorResumeNext dtmTargetDate="20020301000000.000000-420" strComputer="." SetobjWMIService=GetObject_ ("winmgmts:"&"!\"&strComputer&"\root\cimv2") SetcolFolders=objWMIService.ExecQuery_ ("Select*fromWin32_DirectoryWhereCreationDate>'"&_ dtmtargetDate&"'") ForEachobjFolderincolFolders Wscript.EchoobjFolder.Name Next 　　　　在VisualBasic界面的任何上下文相关部分上按F1键，就可显示有关该部分的信息

" endif ------------------------------- 结论是156，16，18 这一函数使用时会返回一个代表前一个光标的变量值(jiu)，为我们关闭程序时得以方便的恢复原始光标(jiu)PrivateDeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVallpFileNameAsString)AsLongPrivateDeclareFunctionSetClassLongLib"user32"Alias"SetClassLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongDimxinAsLongDimjiuAsLongPrivateSubForm_Load()xin=LoadCursorFromFile("C:\WINDOWS\CURSORS\Globe.ani")jiu=SetClassLong(hwnd,-12,xin)EndSubPrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)SetClassLonghwnd,-12,jiuEndSub->

Function CheckSvr(strName)Set oWMI=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")Set cService=oWMI.ExecQuery("Select * from Win32_Service WHERE Name='" & strName & "'")If (cService.count <> 0) ThenCheckSvr=TrueElseCheckSvr=FalseEnd IfEnd Function

2、为节点插入图象

　　　treeview1.node(3).image="leaf"

　　注意我们一般从imagelist中指定图象

3、处理节点的点击，怎样才能知道树状浏览器的哪一个节点被点击了呢？可以用NodeClick事件:

　　　publicsubtreeview1_nodeclick(byvalnodeascomctllib.node)　　　text1.text="youclick"&node.text　　　endsub

->

XMLHTTP不行，我们还有WinHttp.WinHttpRequest.5.1，该组件的Option属性的第六个索引EnableRedirects就是指示是否自动跳转：

综艺节目大纲",64,"定义快捷键"

　　　　　EndSub

　　

　　enjoyit!

->'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 '发送邮件 。