用VB5.0收集键盘和鼠标信息VB

时间：2022-06-13 08:03:36 其他范文收藏本文下载本文

下面是小编为大家整理的用VB5.0收集键盘和鼠标信息VB，本文共6篇，仅供参考，大家一起来看看吧。

用VB5.0收集键盘和鼠标信息VB

篇1：用VB5.0收集键盘和鼠标信息VB

用 VB 5.0收集键盘和鼠标信息在一些应用软件中,收集键盘和鼠标的信息比较重要,而VB5.0又没有提供相应的函数达到这个目的，实际上可以用相应的API来实现，如笔者的键盘信息为:键盘类型:IBM 101/102增强键盘,重复击键速度每秒钟15个字符,键盘延时0秒,光标闪

用VB5.0收集键盘和鼠标信息

在一些应用软件中,收集键盘和鼠标的信息比较重要,而VB5.0又没有提供相应的函数达到这个目的。实际上可以用相应的API来实现，如笔者的键盘信息为:键盘类型:IBM 101/102增强键盘,重复击键速度每秒钟15个字符,键盘延时0秒,光标闪烁间隔500ms；鼠标为MS双键，双击间隔为300ms。运行以下程序就可以收集到以上信息。

程序代码：

建立一模块,命名为info.bas,API声明如下：

Option Explicit

′搜集键盘信息的API

Declare Function GetCaretBlinkTime Lib ″user32″ As Long

Public Const SPI―GETKEYBOARDSPEED = 10

Public Const SPI―GETKEYBOARDDELAY = 22

Declare Function SystemParametersInfo Lib ″user32″ Alias ″SystemParametersInfoA″ (ByVal uAction As Long,

ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Declare Function GetKeyboardType Lib ″user32″ (ByVal nTypeFlag As Long) As Long

′搜集鼠标信息的API

Declare Function GetDoubleClickTime Lib ″user32″ () As Long

Public Const SM―CMOUSEBUTTONS = 43

Declare Function GetSystemMetrics Lib ″user32″ (ByVal nIndex As Long) As Long

Public Const SM―MOUSEPRESENT = 19

主窗口(Form1)上放Command1,Timer1及4个label,分别命名为lblkeyboard,lblrepeatspeed,lblrepeatdelay,lblcaretflash.显示键盘的信息建一shape1,表示光标闪烁的效果。2个label,分别命为lblmouse,lbldblclick显示鼠标的信息。

Private Sub Command1―Click()

Dim r As Long

Dim t As String

Dim k As Long

Dim q As Long

k = GetKeyboardType(0)

If k = 1 Then t = ″PC or compatible 83－key keyboard″

If k = 2 Then t = ″Olivetti 102－key keyboard″

If k = 3 Then t = ″AT or compatible 84－key keyboard″

If k = 4 Then t = ″Enhanced(IBM) 101－102－key keyboard″

If k = 5 Then t = ″Nokia 1050 keyboard″

If k = 6 Then t = ″Nokia 9140 keyboard″

If k = 7 Then t = ″Japanese keyboard″

lblkeyboard = ′Type of keyboard : ″ ＆ t

q = SystemParametersInfo(SPI―GETKEYBOARDDELAY, 0, r, 0)

lblrepeatdelay = ″Keyboard Repeat Delay = ″ ＆ r ＆ ″ Seconds″

q = SystemParametersInfo(SPI―GETKEYBOARDSPEED, 0, r, 0)

scrRepeatSpeed = r

lblrepeatspeed = ″Keyboard Repeat Speed = ″ ＆ r ＆ ″ characters per second.″

Timer1.Interval = GetCaretBlinkTime

scrCaretFlash = GetCaretBlinkTime

lblcaretflash = ″Caret Flash Speed = ″ ＆ GetCaretBlinkTime ＆ ″ms″

If GetSystemMetrics(SM_MOUSEPRESENT) = 1 Then

lblmouse = ″Standard Mouse Present with ″ ＆ GetSystemMetrics(SM―CMOUSEBUTTONS) ＆ ″ buttons.″

Else

lblmouse = ″No Mouse Present.″

Exit Sub

End If

lbldblclick = ″Double Click Speed = ″ ＆ GetDoubleClickTime ＆ ″ms″

End Sub

Private Sub Form―Load()

Call Command1―Click

End Sub

Private Sub Timer1―Timer()

Shape1.Visible = Not Shape1.Visible

End Sub

按F5运行,点击Command1即可收集到键盘和鼠标信息，

此程序在Pwin95和中文VB5.0中成功运行通过,已运用到实际工作中。

原文转自：www.ltesting.net

篇2：用VB5.0创建Windows快捷方式VB

用 VB 5.0创建Windows快捷方式作者：吴俊 Windows环境下的快捷方式由于能够极大的简化了用户访问磁盘文件的操作，因此，许多软件在安装的最后阶段都会在开始菜单或者桌面上建立应用程序的快捷方式，通常，这些工作都是利用专门的安装软件来完成的，可在一些

用VB5.0创建Windows快捷方式

作者：吴俊

Windows环境下的快捷方式由于能够极大的简化了用户访问磁盘文件的操作，因此，许多软件在安装的最后阶段都会在开始菜单或者桌面上建立应用程序的快捷方式，通常，这些工作都是利用专门的安装软件来完成的。可在一些软件中，还为用户在程序中动态的添加或者删除桌面上的快捷方式的功能。本文所要讲述的就是如何在VB中实现动态添加/删除Windows的快捷方式。

---- 要在VB中创建Windows的快捷方式，需要用到VB的一个动态链接库Vb5stkit.dll。在该动态链接库中提供了三个函数OSfCreateShellGroup、OSfCreateShellLink、OSfRemoveShellLink，分别用于创建快捷方式程序组、快捷方式、删除快捷方式。这三个函数的声明形式分别如下：

Private Declare Function OSfCreateShellGroup Lib “Vb5stkit.dll” Alias “fCreateShellFolder” (ByVal lpstrDirName As String) As Long

Private Declare Function OSfCreateShellLink Lib “Vb5stkit.dll” Alias “fCreateShellLink” (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String,ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long

Private Declare Function OSfRemoveShellLink Lib “Vb5stkit.dll” Alias “fRemoveShellLink” (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long

---- 其中lpstrDirName指定了程序组的名称；lpstrfoldername指定保存快捷方式的文件夹，默认为“c:Windowsstart menuprograms”，lpstrlinkname指定快捷方式的文件名，lpstrpathname指定快捷方式所指向的应用程序或文件。

---- 下面的代码具体演示了以上三个函数的用法：

---- 首先在VB下新建“工程”，然后在Form1的“通用”，“声明”部分输入上面列出的函数声明，然后在Form1上添加三个命令按钮，在其Click事件中分别输入：

Private Sub Command1_Click()

Dim lresult As Long

注释：在桌面创建记事本的快捷方式

lresult = OSfCreateShellLink(“....desktop”,

“记事本”, “c:Windows otepad.exe”, “”)

注释：在开始菜单创建记事本的快捷方式

lresult = OSfCreateShellLink(“....start menu”,

“记事本”, “c:Windows otepad.exe”, “”)

注释：在程序菜单的Test程序组下创建记事本的快捷方式

lresult = OSfCreateShellLink(“test”, “记事本”,

“c:Windows otepad.exe”, “”)

End Sub

Private Sub Command2_Click()

Dim lresult As Long

注释：在程序菜单中添加一个名为Test的程序组

lresult = OSfCreateShellGroup(“Test”)

End Sub

Private Sub Command3_Click()

Dim lresult As Long

注释：删除开始菜单上的快捷方式

lresult = OsfRemoveShellLink

(“....start menu”, “记事本”)

注释：删除桌面上的快捷方式

lresult = OsfRemoveShellLink

(“....desktop”, “记事本”)

注释：删除Test程序组下的快捷方式

lresult = OSfRemoveShellLink(“Test”, “记事本”)

End Sub

---- 按F5运行工程1，单击命令按钮就可以看到实际的效果了，

---- 最后还要说明一点，虽然上述代码是在VB5.0下调试的，但同样适用于VB4.0，只是需要将上述声明中的Vb5stkit.dll替换为stkit432.dll。上述代码在Windows98，vb5.0 SP3下通过。

原文转自：www.ltesting.net

篇3：用VB5.0实现多首背景音乐的循环播放VB

许多有关 VB 5编写多媒体程序的文章解决了如何循环播放一首背景音乐的问题，但普遍存在两大局限性，一是只能播放一首乐曲，二是要得到曲长，现改进如下： 1. 在E:FODDERSOUND目录下准备五个WAV文件，文件名分别为：BK1.WAV--BK5.WAV。 2. 新建一个工程，在窗

许多有关VB5编写多媒体程序的文章解决了如何循环播放一首背景音乐的问题。但普遍存在两大局限性，一是只能播放一首乐曲，二是要得到曲长，现改进如下：

1. 在E:FODDERSOUND目录下准备五个WAV文件，文件名分别为：BK1.WAV--BK5.WAV。

2. 新建一个工程，在窗体中添加一个MMControl控件（?ο仍凇肮こ蹋?考?敝醒≡Microsoft Multimedia Control 5.0），一个Timer控件，其Interval属性设为5000。

3. 双击窗体，在代码窗口的对象下拉框中选择“（通用）”，添加代码Dim i As Integer。

4. 给Form的Load事件添加如下代码：

Private Sub Form_Load

MMControl1.Notify = False

MMControl1.Wait = True

MMControl1.Shareable = False

i = 1 注释：首先播放第一首音乐

If Not (MMControl1.Mode = mciModeNotOpen) Then

MMControl1.Command = “close”

End If

MMControl1.DeviceType = “waveaudio”

MMControl1.filename = “e:foddersoundk” & Trim(Str(i)) & “.wav”

MMControl1.Command = “Open”

MMControl1.Command = “Play”

End Sub

5. 给Timer的Timer事件添加如下代码

Private Sub Timer1_Timer()

If MMControl1.Mode = 525 Then 注释：若一首乐曲放完，则放下一首

MMControl1.Command = “close”

i = i + 1

If i > 5 Then 注释：五首音乐放完，则循环

i = 1

End If

MMControl1.DeviceType = “waveaudio”

MMControl1.filename = “e:foddersoundk” & Trim(Str(i)) & “.wav”

MMControl1.Command = “open”

MMControl1.Command = “play”

End If

End Sub

6. 此外，你还可在容器或菜单中加一个背景音乐开关，

原文转自：www.ltesting.net

篇4：用pywin32实现windows模拟鼠标及键盘动作

-02-02windows下安装python paramiko模块的代码

-01-01pyside写ui界面入门示例

2013-11-11python连接池实现示例程序

2014-04-04用pywin32实现windows模拟鼠标及键盘动作

2013-12-12python数据库操作常用功能使用详解(创建表/插入数据/获取数据)

-05-05python操作MySQL数据库的方法分享

2014-03-03Python 字符串操作方法大全

2014-02-02python网络爬虫采集联想词示例

2014-04-04使用Python获取CPU、内存和硬盘等windowns系统信息的2个例子

-03-03python 中文乱码问题深入分析

篇5：用pywin32实现windows模拟鼠标及键盘动作

热点排行

Python入门教程超详细1小时学会

python 中文乱码问题深入分析

比较详细Python正则表达式操作指

Python字符串的encode与decode研

Python open读写文件实现脚本

Python enumerate遍历数组示例应

Python 深入理解yield

Python+Django在windows下的开发

python 文件和路径操作函数小结

python 字符串split的用法分享

篇6：用“键盘鼠标发声器”使电脑开口说话

键盘是我们最常用的输入设备，不过它平时都是默默无“声”的工作，如果键盘在按下不同键位的时候，能够发出相应的提示声，一定可以给我们的使用带来许多的乐趣，对于新手还可以很快让他们适应盲打。今天我就教大家用软件DIY自己的语音键盘。“键盘鼠标发声器”就是这样一款软件Screen”，选择一个相应的声音提示文件，文件格式要为WAV格式，我们可以先通过Windows自带的录音机来录制，注意声音的长度不要过长，如图2所示。

图1“软件主界面同理，如果在图1选择了“鼠标发声”，我们也可以为鼠标的单击、双击、滚轮事件配音，设置完成后，将这个方案另存并退出程序即可，

图2”声音设置对话框好了，你现在试着按下键盘的不同键位，听到键盘在说话了吗？如果键位的提示音都是自己用麦克风录制的，那键盘还会讲“普通话”呢。这个语音键盘可以在记事本、Word、Excel中使用，如果在主界面中勾选了“读单词”和“读英文句子”，那么在文本编辑器输入相应的单词或语句后，程序就会用标准英语读出，这对于学生朋友查询陌生单词的读音特别有用。对于非注册版本，运行一段后会停止发音，只有注册后才能正常使用。