采用VB编写的动态链接库(ActiveX DLL)
◆请由此确定是否被恶意修改◆
作者：我心飞翔
VB中引入本DLL的方法
方法一：选择“工程(P)”菜单下的“引用(N)”，在出现的对话框中点“浏览按钮”，并找到DLL所在位置。
方法二：分两步走
(1)注册动态链接库，使用regsvr32命令。在运行对话框中，输入“regsvr32 DLL完整路径”。
(2)选择“工程(P)”菜单下的“引用(N)”，在出现的对话框中,直接在列表中找“Swpi Zy DLL 1.0.1(v2005.01.23)”
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
封装函数过程一览表----按照分类及字母顺序
◆封装的10个过程，没有返回值◆
01、AboutAndHelp-----显示帮助信息
02、ExitOs-----------注销、重启和关机
03、KillApplication--关闭指定应用程序
04、OpenUrlOfEmail---根据指定Email地址，调用邮件工具
05、OpenUrlOfFile----根据指定本地路径，打开一个文件
06、OpenUrlOfHttp----根据指定Http地址，调用默认浏览器
07、SetCdRomClosed---关上光盘驱动器
08、SetCdRomOpen-----弹开光盘驱动器
09、SetWindowTopMost-将窗口置于最顶层
10、ShowMousePointer-显示或者隐藏鼠标指针
●封装的10个函数，有其返回值●
11、AddAppToAutorun--将指定应用程序设置为开机自运行
12、DecodeData-------对EncodeData加密后的数据进行解密
13、EncodeData-------对给定的字符串进行Base64算法的加密
14、GetCompName------获取本地计算机名字
15、GetCurrUser------获取当前登录用户名
16、GetSysDir--------获取系统所在目录
17、GetWinDir--------获取Windows所在目录
18、PlayWavSound-----播放wav格式的音频文件
19、SetDesktopStatus-显示或者隐藏桌面
20、ShowControlPanel-显示控制面板中的部分项
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
─────────────────
VB中用本DLL封装类创建对象的语句
Dim zyObj As New prjSwpiZy.clsZy
为了执行效率，最好将Dim和New分开。下面是实际调用DLL中函数的演示
Dim zyObj As prjSwpiZy.clsZy '定义
Set zyObj = New prjSwpiZy.clsZy '实例化
zyObj.OpenUrlOfHttp ("www.niit.com.cn") '调用
Set zyObj = Nothing '释放
─────────────────
VC中用本DLL的一些关�
相关文档：
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......
VB 长整型和字节数组的转换问题 (Long<>Byte)
Posted by JiaJia 17 March,2009 (0)Comment
用到的API声明：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Long2Byte
Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte ......
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 ......
·匈牙利标记法
·使用3字符前缀来表示数据类型和控件类型
·3个字符可以实现充分多变性，并使前缀合乎逻辑和直观
·表示变量的作用域
·可以并且应该使用前缀来表示变量的作用域 ......
·创建具有很强内聚力的模块
·创建更加容易调试和维护的过程
·创建高度专用的过程
·创建松散连接的过程
·尽量使过程具有独立性
·提高过程的扇入性
·降低过程的扇出性
·编程原则
·为过程和模块赋予表义性强的名字
&middo ......
