永远的魔灵 by 郭卫 VB程序设计源码全家福
'*************************************************************************
**说 明：永远的魔灵 by icecept(郭卫）
'**创 建 人：icecept(魔灵)
'**日 期：2009-11-15 20:27:03
'**修 改 人：icecept(魔灵)
'**版 本：V1.0.0
'**E-mail ：icecept@163.com QQ：543375508
'**网 址：http://hi.baidu.com/icecept http://icecept.jimdo.com
'*************************************************************************
我的简历下载
10 API 搞定注册表终级完美版
恢复.txt的默认关联
资源文件制作方法及调用步骤
整点报时源码
设置磁盘背景图片
精灵动画语音技术
可以产生关联的完整的flash源码
让精灵说话的驱动和查看器，外加示例程序
鼠标取词朗读精灵完美版
在状态栏动态显示菜单提示最终版
用VB变相给微软的记事本加密
用API一次删除、移动、复制、改名含有文件及子目录的文件夹
批量生成资源文件工具
FSO文件系统对文件和文件夹的详细操作
数字拼图
三种方法实现记事本自动保存
调用htmlhelp帮助的API
Windws script host 精解示例
获取windwos中的所有可见目录
二种方法实现随机数一次取成
向记事本发送字符postmessage，sendmessage，keybd_even ，SendKeys方法
ADO数据组件精解示例
使窗体最大最小化关闭按钮不可用
VB文件操作命令
应用程序与记事本绑定
用api建立快捷方式<VB6.0>桌面、启动项、开始菜单
系统维护_一个exe执行若干软件功能
消除用vb制作的系统右键菜单有下划线的方法，另赠送强大右键注册功能
金山毒霸2008升级文件备份器
Ini文件精解示例
Replace函数精解示例
choose 函数精解示例
Split 函数精解示例
Mid语句精解示例
24小时倒计时程序
365天计时程序(24小时电子表)
禁止IE运行
求一个4位数各位因子的立方和
控件参数传递(研习用控件做参数的方法)
用文件提供数据&split用法
EXPLORER进程崩溃之后如何重建托盘图标 (答案在四楼)
获得Windows操作系统的类型
设置IE主页
右键菜单注册和反注册DLL和OCX
VB6中SendKeys的用法
判断字符类型
建立自已的文件类型
安装加密批处理VBS脚本
判断注册表中的一个项是否存在
SQL用法大全
命令行参数的使用
素数算法
闰年判断算法
判断奇偶数算法
阶乘算法
完全数算法
最大公约数和最小公倍数算法
数据库中，在dbcombo、dblist、datacombo、datalist中的查询算法
�
相关文档：
写了一个vb的程序，用来把原来写的几个vb和vc的程序整合起来。就是使用Shell函数。结果发现，vc的程序可以很好的显示，但vb写的却一运行就最小化了。仔细查看了一下以下文章，才发现原来shell函数的默认显示模式是windowstyle是等于vbMinimizedFocus。然后就是直接加上一个vbNormalFocus。一切ok!
vb的s ......
Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
OpenThread(THREAD_ALL_ACCESS, 1, 线程ID) '由线程ID取得线程句柄,返回线程句� ......
'引用：Microfoft VBScript Regular Expressions 5.5 '一个正则提取功能
Public Function regGetStr_three(ByVal myString As String, ByVal patReg As String) As String()
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As Ma ......
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
......
工作需要，针对java文件，作了一个行数统计的工具。统计的主要代码如下：
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
&nbs ......
