采用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的一些关�
相关文档：
一开始 以为VB的线程 不是像网上人说的那么脆弱。。。哎 现在领略到了。。。VPrivate Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Pri ......
VB 字节数组和字符串的转换问题 (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
一、 前言
数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文� ......
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 ......
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......
·匈牙利标记法
·使用3字符前缀来表示数据类型和控件类型
·3个字符可以实现充分多变性，并使前缀合乎逻辑和直观
·表示变量的作用域
·可以并且应该使用前缀来表示变量的作用域 ......
