'/*=========================================================================
' * Intro       .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。
' * FileName    SplitFile.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa36..

'/*=========================================================================
' * Intro       PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)
' *             (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名)，然后双击运行这个文件,
' * FileName    PHPFirstInstall.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/PHPFirstInstall.vbs.html
' * MadeTime    2008-04-01 15:55:41
' * LastModify  2008-04-01 15:55:41
' *==========================================================================*/

Set objHTML=CreateObject("htmlfile")  'xmlfile、mhtmlfile都可以
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText

已经第二次了，上班后没把电话解除，总记不起这件事。做了个备忘录，放在启动项里，每次启动系统后都会执行，弹出相关事项，即便自己没有记住也可以给个提醒了
 
msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务")
'msgbox jo..

这个是用来操作ACCESS数据库的东西，遍历表，遍历表的所有字段及字段的属性都会用到这个，
首先给个完全版的地址，如果您机器上装过ＯＦＦＩＣＥ应该可以打开的：ADOX 对象模型，地址是："C:\Program Files\Common Files\Microsoft Shared\OFFICE11\2052\ADO210.CHM"，ADOX对象模型图：
1、ADOX 概述
Micros..

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
oReg.SetBinaryValue HKEY_LO..

研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到证明对方没有给你做链接虽然不是100%正确，但也差不多了，这两种编码用的人比较多，偶然间在收藏夹里的一个地址看到的一个思路，终于可以在采集文章时自动判断网页的编码了。因为研究过程中这个问题困扰很久，虽然现在觉得简单了，想必很多人还在找，所以把这三个函数贴出来。

'/*=========================================================================
' * Intro       一直想弄呢,可是不知从何下手,还好,学习了数据获取技术,现在容易了.只提供程序,数据库自己弄,呵呵
' * FileName    yongfa365.机器人.获取北京最新公交路线.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/Get.www.bjbus.com.vbs.html
' * CreateTime  2008-01-28 18:13:08
' * LastModify  2008-01-28 18:13:08
' *==========================================================================*/

'/*=========================================================================
' * Intro       用XMLDOM分析QQ签名文档
' * FileName    QQ_QianMing.vbs
' * Author      yongfa365
' * Version     v2.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/QQ_QianMing.vbs.html
' * MadeTime    2008-01-22 20:55:25
' * LastModify  2008-02-22 20:55:25
' *==========================================================================*/

看看功能：分页程序首先读取每页预置的记录条数，在此是5条，其它将在下页中显示，同时提示当前页数、总页数、总记录数，当显示的页数为第一页时，“首页”、“上一页”链接失效，当显示的页数为最后页时，“下一页”、“尾页”链接失效。

接下来，以实例的方式告诉大家怎么一步步的做出这种分页效果。

'遍历一个文件夹下的所有文件夹文件夹
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFso.GetFolder(sPath)
    Set oSubFolders = oFolder.SubFolders
    
    Set oFiles = oFolder.Files
    For Each oFile In oFiles
        WScript.Echo oFile.Path
        'oFile.Delete
    Next
    
    For Each oSubFolder In oSubFolders
        WScript.Echo oSubFolder.Path
        'oSubFolder.Delete
        FilesTree(oSubFolder.Path)'递归
    Next
    
    Set oFolder = Nothing
    Set oSubFolders = Nothing
    Set oFso = Nothing
End Function

'网上看到的，适用与没有禁用shell.application的服务器
server.scripttimeout = 99999
If request("submit")<>"" Then
    Call listfile(server.mappath("./"))
    response.Write"处理完毕"
Else
    response.Write"<form><input type=""submit"" name=""submit"" value=""清空所有文件的内容""></form>"
End If

'关键字生成系统
Function CreateKeyWords(KeyWords)
Dim i,L,TempStr
KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| |　|，|。|、|！|？|：|“|”|［|］|—|—|（|）|…", "")
L=Len(KeyWords_Temp)
For i=1 To L-1
TempStr=TempStr & "," & Mid(KeyWords_Temp,i,2)
Next
CreateKeyWords=KeyWords & TempStr
End Function

编号：1 显示所有应用程序池
编号：2 一个应用程序拆分为多个
编号：3 多个应用程序池合为一个
编号：4 所有关闭的站点放到Stop池里
编号：5 所有站点放到一个应用程序池里
编号：6 从X池里取出N个放到Y池里

现在杀毒的对vbs相当敏感，只要发现对注册表的xx作，或使用vbs运行命令（加用户） 就可能被杀。下面谈2方法可以简单解决：

1.使用连接符"&" 如：

Set CURObj = CreateObject("WScript.Shell")

mhk="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win..