给VB增加一个滚轮，让VB编代码的时候更方便
VB6IDEMouseWheelAddin.dll
就是这个能使你在VB的代码编辑窗口能够使用鼠标滚轮，编辑代码、查看代码更方便。
下面详述：
1、给大家一个下载地址：
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe右击解压，再右击解压，这时就会看到一个dll文件，这个就是我们要的dll文件。
如果你觉得麻烦的话可以直接下载这个dll文件：http://www.leszj.com/sfw/VB6IDEMouseWheelAddin.dll
2、打开我的电脑→Windows→System32文件夹。将这个dll文件复制粘贴过去。
3、将这个dll文件注册。方法为：点击开始→运行，输入“regsvr32 ***.dll”（引号不用输入），将***换成这个dll的文件名，也就是VB6IDEMouseWheelAddin，即regsvr32 VB6IDEMouseWheelAddin.dll。点击确定，这样就完成了注册。
4、如果你现在正打开一个VB编辑器，把它保存一下关掉。重新打开VB，这样他才能重新加载新加入的dll文件。菜单“外接程序”→“外接程序管理器”里，选中MouseWheel Fix，在加载行为里选中“在启动中加载”和“加载/卸载”两项，点击确定就加载了。
5、再次关闭这个VB编辑器。再次打开VB编辑器。看看是不是可以用滚轮了？！
相关文档：
将长路径转为短路径
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......
发送端以163为例
一、asp.net版 using System.Web.Mail; //命名空间引用
c#
MailMessage mail = new MailMessage();
mail.To = "shadow103@qq.com"; //接受人的邮箱
& ......
Option Explicit
'==================================================
' 函数: ReturnSM
'
' 功能: 返回字符串中没个字符的拼音声母第一个字母
'
' 注意: 该函数只能处理3755个常用汉字(B0 - D7)
' 若超出函数的范围将返回常数 ERR_RESULT$
'
' 入口: Str 待处理的字符串
'
Public Function ReturnSM$(ByVal S ......
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......
◆请由此确定是否被恶意修改◆
作者：我心飞翔
VB中引入本DLL的方法
方法一：选择“工程(P)”菜单下的“引用(N)”，在出现的对话框中点“浏览按钮”，并找到DLL所在位置。
方法二：分两步走
(1)注册动态链接库，使用regsvr32命令。在运行对话框中，输入“regsvr32 DLL完整路 ......
