首页 > 电脑专区 > 电脑教程 >

vb编程:锁定鼠标光标位置

来源:互联网 2023-02-21 18:00:38 375

本篇经验,需要用到3个函数(DLL调用命令),1个时钟组件。以及vb自带的窗口。0Bg办公区 - 实用经验教程分享!

ps:可以当成一个恶作剧程序,也可以运用到其它方面。0Bg办公区 - 实用经验教程分享!

17VS2010 —vb 编程0Bg办公区 - 实用经验教程分享!

工具/原料

  • Microsoft Visual Studio Version Selector

方法/步骤

  • 1

    启动【vs2010】,新建一个【vb】窗口项目。0Bg办公区 - 实用经验教程分享!

  • 2

    编辑代码:0Bg办公区 - 实用经验教程分享!

    =============================================0Bg办公区 - 实用经验教程分享!

    Public Class Form10Bg办公区 - 实用经验教程分享!

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer0Bg办公区 - 实用经验教程分享!

    Public Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long)0Bg办公区 - 实用经验教程分享!

    Public Declare Function SetCursorPos Lib "user32" (ByVal Z As Integer, ByRef X As Integer) As Integer0Bg办公区 - 实用经验教程分享!

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load0Bg办公区 - 实用经验教程分享!

    时钟.Start()0Bg办公区 - 实用经验教程分享!

    0Bg办公区 - 实用经验教程分享!

    End Sub0Bg办公区 - 实用经验教程分享!

    0Bg办公区 - 实用经验教程分享!

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 时钟.Tick0Bg办公区 - 实用经验教程分享!

    If GetAsyncKeyState(112) = -32767 Then0Bg办公区 - 实用经验教程分享!

    ExitProcess(0)0Bg办公区 - 实用经验教程分享!

    0Bg办公区 - 实用经验教程分享!

    End If0Bg办公区 - 实用经验教程分享!

    SetCursorPos(100, 100)0Bg办公区 - 实用经验教程分享!

    End Sub0Bg办公区 - 实用经验教程分享!

    End Class0Bg办公区 - 实用经验教程分享!

    ============================================0Bg办公区 - 实用经验教程分享!

    ps:尽量自己手打一遍,加深印象。0Bg办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置0Bg办公区 - 实用经验教程分享!

  • 2本页面未经授权抓取自百度经验
  • 3

    3个函数详解:0Bg办公区 - 实用经验教程分享!

    【ExitProcess】用于中断、结束一个进程,只有一个参数,为整数型。0Bg办公区 - 实用经验教程分享!

    【GetAsyncKeyState】用于判断某个键是否被按下,只有一个整数型参数,有一个返回值,用于判断热键是否被按下。0Bg办公区 - 实用经验教程分享!

    【SetCursorPos】可以移动鼠标光标的位置,是一次性,所以需要时钟不断调用这个函数,才能达到锁定鼠标光明的效果。0Bg办公区 - 实用经验教程分享!

    0Bg办公区 - 实用经验教程分享!

    ps:百度百科上面有全面的解释0Bg办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置0Bg办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置0Bg办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置0Bg办公区 - 实用经验教程分享!

  • 4

    代码解析:0Bg办公区 - 实用经验教程分享!

    If GetAsyncKeyState(112) = -32767 Then0Bg办公区 - 实用经验教程分享!

    ExitProcess(0)0Bg办公区 - 实用经验教程分享!

    0Bg办公区 - 实用经验教程分享!

    End If0Bg办公区 - 实用经验教程分享!

    SetCursorPos(100, 100)0Bg办公区 - 实用经验教程分享!

    ’112整数值代表”键F1“0Bg办公区 - 实用经验教程分享!

    ’-32767则是进制转换过来的值,F1被按下时,函数的返回值0Bg办公区 - 实用经验教程分享!

    ’翻译:如果函数GetAsyncKeyState返回值为-32767,则调用函数ExitProcess结束自身进程,反之调用函数SetCursorPos锁定鼠标光标横纵位置(100,100)0Bg办公区 - 实用经验教程分享!

  • 5

    运行后大图。0Bg办公区 - 实用经验教程分享!

    ps:我在窗口上加了个标签,可有可无。0Bg办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置0Bg办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置0Bg办公区 - 实用经验教程分享!

    vb编程:锁定鼠标光标位置0Bg办公区 - 实用经验教程分享!

  • 注意事项

    • 调用的函数全部区分大小写

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!0Bg办公区 - 实用经验教程分享!


    标签: 操作系统编程位置

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码