steam想申明库存量,不晓得在哪里去增设,那个出口处是稍稍有点儿深,由此可见毕竟也很单纯,一起来看一看什么样操作方式。操作方式方式01登入steam后,点选街道社区旁的对个人......
2024-02-05 549
本篇经验,需要用到3个函数(DLL调用命令),1个时钟组件。以及vb自带的窗口。
ps:可以当成一个恶作剧程序,也可以运用到其它方面。
17VS2010 —vb 编程
启动【vs2010】,新建一个【vb】窗口项目。
编辑代码:
=============================================
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Public Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long)
Public Declare Function SetCursorPos Lib "user32" (ByVal Z As Integer, ByRef X As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
时钟.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 时钟.Tick
If GetAsyncKeyState(112) = -32767 Then
ExitProcess(0)
End If
SetCursorPos(100, 100)
End Sub
End Class
============================================
ps:尽量自己手打一遍,加深印象。
3个函数详解:
【ExitProcess】用于中断、结束一个进程,只有一个参数,为整数型。
【GetAsyncKeyState】用于判断某个键是否被按下,只有一个整数型参数,有一个返回值,用于判断热键是否被按下。
【SetCursorPos】可以移动鼠标光标的位置,是一次性,所以需要时钟不断调用这个函数,才能达到锁定鼠标光明的效果。
ps:百度百科上面有全面的解释
代码解析:
If GetAsyncKeyState(112) = -32767 Then
ExitProcess(0)
End If
SetCursorPos(100, 100)
’112整数值代表”键F1“
’-32767则是进制转换过来的值,F1被按下时,函数的返回值
’翻译:如果函数GetAsyncKeyState返回值为-32767,则调用函数ExitProcess结束自身进程,反之调用函数SetCursorPos锁定鼠标光标横纵位置(100,100)
运行后大图。
ps:我在窗口上加了个标签,可有可无。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!
相关文章
steam想申明库存量,不晓得在哪里去增设,那个出口处是稍稍有点儿深,由此可见毕竟也很单纯,一起来看一看什么样操作方式。操作方式方式01登入steam后,点选街道社区旁的对个人......
2024-02-05 549
操作方式方法01【辅助widget】多种辅助工具相连接两个功能键的可同时按【Shift】加此功能键挑选出1、正方形、圆锥选框辅助工具 【M】 2、终端辅助工具 【V】 3、截叶......
2024-02-05 481
操作方式01文档格式难题qq肖像最合适用jpeg文档格式的相片,若是相片有透明化地下通道,能选用png文档格式上载。 02大小不一难题若是相片极重也可能将引致上载失利,检......
2024-02-05 405