文件名称:
VB黑客编程高手—30天打造黑客程序编写高手
开发工具:
文件大小: 1mb
下载次数: 0
上传时间: 2012-10-18
详细说明： 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 Exp licit 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 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
