2006年10月_迈克揉索芙特

11月 10月 08月 04月

原创可替代VB自带的Timer控件的Timer类

(声明：魏滔序原创，转贴请注明出处。) 用这个类可以替代VB自带的Timer控件，这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权，用Timer的好处是避免控制权死锁，这样也就模拟出了多线程(实际上是多进程)，能给用户更好的体验。代码如下：想直接使用的请到这里下载：http://www

2006-10-23 09:25:00 5195 6

原创 VB6中判断用户是否按下了InputBox的取消按钮

(声明：魏滔序原创，转贴请注明出处。)Private Sub Command1_Click() Dim str As String Dim Cancel As Boolean str = InputBox("") Cancel = Not CBool(StrPtr(str)) MsgBox CancelEnd Sub

2006-10-21 17:51:00 4016

原创 VB6实现键盘鼠标全局Hook

(声明：魏滔序原创，转贴请注明出处。) 标准模块(mHook)：Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)Private De

2006-10-21 16:36:00 6000 7

(声明：魏滔序原创，转贴请注明出处。) Option ExplicitPrivate Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long

2006-10-20 15:22:00 2587 1

原创拨号、断网、枚举连接名称，判断是否在线、连接方式。

(声明：魏滔序原创，转贴请注明出处。) Option Explicit拨号/断网Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Lon

2006-10-20 14:44:00 6040 4

原创判断URL是否在IE缓存中，并仅删除该URL。

(声明：魏滔序原创，转贴请注明出处。) 判断URL是否在IE缓存中，并仅删除该URL，源码如下：Option ExplicitPrivate Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryIn

2006-10-17 17:31:00 2960 1

原创通过IEmptyVolumeCacheCallBack接口清理IE缓存的类

(声明：魏滔序原创，转贴请注明出处。) 在IE缓存目录中积累着很多的文件，这些文件虽然可以提高浏览旧网页的速度，但是对磁盘空间的占用也与时俱进。对于爱“干净”的人，总觉得有点得不偿失。下面就贴出清理缓存的源码，清理缓存的方法有很多，这里介绍的是通过IEmptyVolumeCacheCallBack接口实现的例子。新建工程，引用 olelib.tlb (可以从ht

2006-10-17 17:01:00 3574 3

原创最新Viking(维金)病毒专杀工具，纯VB编写。 (代码续)

(声明：魏滔序原创，转贴请注明出处。) 原文地址：http://blog.csdn.net/Modest/archive/2006/10/11/1330505.aspx?Pending=true 下面贴出本工具中用到的关闭本地计算机共享目录的代码(与其相对应的创建共享的代码也整理出来一同贴上)，实际上用这个代码还可以关闭网络中其他计算机的共享目录，但

2006-10-12 09:29:00 4970

原创最新Viking(维金)病毒专杀工具，纯VB编写。

(声明：魏滔序原创，转贴请注明出处。) Viking的肆虐让很多受害者忍无可忍，更可气的是专业软件公司提供的专杀工具竟然无法彻底清除。无奈之余自己动手写了一个，请需要的朋友到这里下载：http://www.chenoe.com 该工具可以有效解除被感染的exe中的病毒并还原exe文件，网上的大部分工具是直接删除exe文件。另外，本工具还具有Vikin

2006-10-11 17:47:00 12727 79

原创我的组件之Base64.dll(Base64编/解码效率奇高)

(声明：魏滔序原创，转贴请注明出处。) 我的组件之Base64.dll(Base64编/解码效率奇高),可以引用ActiveX DLL的方法使用，也可以以动态连接库的形式使用。下载地址：http://www.chenoe.com/developer/library/base64.dll示例代码：Option ExplicitPrivate Declare Sub Base64Encode L

2006-10-08 18:39:00 4848 2

原创我的组件之MD5Lib.dll(MD5编码效率奇高)

(声明：魏滔序原创，转贴请注明出处。) 我的组件之MD5Lib.dll(MD5编码效率奇高),可以引用ActiveX DLL的方法使用，也可以以动态连接库的形式使用。下载地址：http://www.chenoe.com/developer/library/md5lib.dll示例代码：Option ExplicitPrivate Enum MD5BitConstants MD5_16B

2006-10-08 18:18:00 3073 1