'/*=========================================================================
' * Intro       VBS实现搜索引擎收录数查询－学VBS采集或正则表达式的可以看看
' * FileName    GetSearchCount.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/GetSearchCount.vbs.html
' * MadeTime    2008-01-01 11:54:04
' * LastModify  2008-01-01 11:54:04
' *==========================================================================*/

'/*=========================================================================
' * Intro       Base64编码解码函数,Base64加密解密函数
' * FileName    Base64Test.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/Base64Test.vbs.html
' * MadeTime    2007-12-31 23:44:36
' * LastModify  2007-12-31 23:44:36
' *==========================================================================*/

'/*=========================================================================
' * Intro       [简单]VBS实现添加IE工具栏按钮
' * FileName    AddIEBar.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/AddIEBar.vbs.html
' * MadeTime    2008-01-01 11:33:27
' * LastModify  2008-01-01 11:33:27
' *==========================================================================*/

Timer_Start=timer

response.write  "共用时：" & (timer-Timer_Start) & "秒"


使用方法：


页面前调用：Timer_Start=timer


页面最后调用：response.write  "共用时：" & (timer-Timer_Start) & "秒"

'/*=========================================================================
' * Intro       在服务器上运行此文件，5秒内会弹出一个窗口，显示内容为iis进程的PID及所在的应用程序池，以便与观察哪个应用程序池占资源大
' * FileName    GetAppPoolId.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/GetAppPoolId.vbs.html
' * CreateTime  2007-12-26 17:49:20
' * LastModify  2007-12-26 17:49:20
' *==========================================================================*/

呵呵，说到采集很多人可能都会说采过，用软件采过，也有人采出了名堂，最著名的就是google baidu yahoo qihoo.....,呵呵，也许有人会说，你是说yahoo google baidu也是采集，您说呢。


两年前的某一天，什么都不懂，天天有事没事就到asp群里讨论问题，其实都是我问别人，有一天，有个叫飞黄的家伙，给了我一段代码..

以前和别人交换程序，换了一个在本地不用登录baidu就可以把文章发布到baidu上的一个.net程序，感觉很好用，虽然对我来说也没有什么用。


但这个软件给了我一个启发，既然可以不用登录baidu就可以发文章，那我如果可以给别人留言，那不就更好，但事实上并没有我想像的那么容易，呵呵，一般我能想到的别人早想到了，最根本..

'==========================================================================
' 安装说明：
'              1. 放在任意目录中，直接双击脚本，即可完成安装。
'              2. 安装好之后，右键单击快捷方式，会出现一项“显示目标位置”。
'              3. 如果移动了脚本的位置，请再安装一次。
'              4. 脚本名字可以改变。改好之后，请再安装一次。
'==========================================================================

'/*=========================================================================
' * Intro       QQ自动登陆生成器多用户版，支持参数生成
'               参数使用方法：QQAutoLoginCreates.vbs "QQ路径,安装版QQ可以删除当前引号内的内容" "QQ1" "QQ1的密码" "QQ2" "QQ2的密码"
' * FileName    QQAutoLoginCreates.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/QQAutoLoginCreates.vbs
' * MadeTime    2007-12-23 20:29:06
' * LastModify  2007-12-23 20:29:06
' *==========================================================================*/

'/*=========================================================================
' * Intro       QQ自动登陆生成器单用户版，支持参数生成
' * FileName    QQAutoLoginCreate.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/QQAutoLoginCreate.vbs.html
' * MethodFrom  http://bbs.verybat.cn/viewthread.php?tid=7008
' * MadeTime    2007-12-23 16:11:07
' * LastModify  2007-12-23 16:11:07
' *==========================================================================*/

'/*=========================================================================
' * Intro       网上找了一圈，都不怎么好，有一个比较不错的，汉化作者汉化时加了个自己的介绍文件，这个文件比程序本身还大，感觉不爽，于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动（有些机器比较特别），如果要返回以前的MAC可以：开始-->控制面板-->网络连接-->点击您的网卡(一般是"本地连接")-->点击常规里的属性-->配置..-->高级-->选中-->NetworkAddress-->右边选择"不存在"
' * FileName    ChangeMAC.vbs
' * Author      yongfa365
' * Version     v3.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/ChangeMAC.vbs.html
' * MadeTime    2007-12-09 22:17:58
' * LastModify  2007-12-13 18:35:58
' *==========================================================================*/

dim i,msg
i=5
msg=i & "<--函数外部定义" & vbCrLf
function a()
dim i
i=1
msg=msg & i & "<--函数内部定义" & vbCrLf
i=i+1
msg=msg & i & "<--函数内部改变" & vbCrLf
end function

a()
msg=msg & i & "<--函数外部调用后，外部的i还是没有变" & vbCrLf
msgbox msg


'5<--函数外部定义
'1<--函..

<TITLE>网易文件摄取</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<HTA:APPLICATION  
 ID="MyhyliApp"  
 APPLICATIONNAME="设置程序"  
 VERSION="1.0"  
 SCROLL="no"  
 INNERBORDER=&qu..

C/S结构，即Client/Server(客户机/服务器)结构，是大家熟知的软件系统体系结构，通过将任务合理分配到Client端和Server端，降低了系统的通讯开销，可以充分利用两端硬件环境的优势。 

B/S结构，即Browser/Server(浏览器/服务器)结构，是随着Internet技术的兴起，对C/S结构的一种变化或者改进的结构。在这种结构下，用户界..

' FileName: ProcessMagnifier.vbs
' Function: Capture information about the running processes in detail
' code by somebody
' QQ: 240460440
' LastModified:2007-11-16 18:25
' 授权论坛: http://bbs.verybat.cn
' 仅供学习

Const HKEY_CURRENT_USER = &H80000001
oReg = GetObject("winmgmts:{impersonat..