采用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的线程 不是像网上人说的那么脆弱。。。哎 现在领略到了。。。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 ......
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 ......
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 ......
App 对象是VB应用程序的全局信息，如应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称以及是否运行前一个应用程序的示例。
属性
－－－－－－－ 其他属性－－－－－－－－－－－－－－－－－
EXEName 属性 返回当前正运行的可执行文件 ......
