VB黑客编程高手—30天打造黑客程序编写高手

VB黑客编程高手—30天打造黑客程序编写高手 一、利用DLL读写端口 ---- 若在应用程序中只是简单地读写端口，利用DLL编程实现较为简便。从http://personal.vsnl.com/sr网站可下载一个免费的32位VBIO.DLL，该连接库允许在VB4、5或6中使用，共有七个函数和过程分别为: Anjan DLL的解锁过程 Inp 端口读字节函数 Inpw 端口读字函数 Out 端口写字节过程 Outw 端口写字过程 GetLptBaseAddr 获取并口基地址的函数 GetComBaseAddr 获取串口基地址的函数 ---- 图1是一个发声示例程序的窗体，在输入框中键入一频率值并按SoundOn钮，则在PC机的扬声器中发出指定频率音调，程序中对音调的变化、声音的开关是用VBIO.DLL的过程和函数访问发声系统的定时器/计数器和控制端口实现的。编程要点：1、应在Form _Load中加入Anjan解锁过程。2、若在模块中声明函数和过程，应去掉private或用Public替代。3、VBIO.DLL应拷贝到\windows\system子目录下。 ---- 程序清单： Option Explicit Private Declare Sub Anjan Lib "vbio.dll" () Private Declare Function Inp Lib "vbio.dll" (ByVal port&) As Integer Private Declare Function Inpw Lib "vbio.dll" (ByVal port&) As Long Private Declare Sub Out Lib "vbio.dll" (ByVal port&, ByVal byt%) Private Declare Sub Outw Lib "vbio.dll" (ByVal port&, ByVal wrd&) Private Declare Function GetLptBaseAddr Lib "vbio.dll" (ByVal lpt&) As Integer Private Declare Function GetComBaseAddr Lib "vbio.dll" (ByVal com&) As Integer Public Sub SetFreq(soundHz As Integer) ’设置频率 If soundHz Then Dim divisor As Long divisor = 1193180 / soundHz '计算时间常数 Out &H42;, &HB6; '8253-5通道2设置为方式3 Out &H42;, divisor Mod 256 '送时间常数 Out &H42;, divisor \ 256 ' Speaker True Else Speaker False End If End Sub Public Sub Speaker(sOn As Boolean) ’开关声音 Dim portVal As Integer portVal = Inp(&H61;) ' If sOn Then portVal = portVal Or 3 '低位为通道2的门控信号 Else '次低位为整形与门控制信号 portVal = portVal And (Not 3) End If Out &H61;, portVal End Sub