1、启动【vs2010】，新建一个【vb】窗口项目。
2、编辑代码：
=============================================
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、3个函数详解：
【ExitProcess】用于中断、结束一个进程，只有一个参数，为整数型。
【GetAsyncKeyState】用于判断某个键是否被按下，只有一个整数型参数，有一个返回值，用于判断热键是否被按下。
【SetCursorPos】可以移动鼠标光标的位置，是一次性，所以需要时钟不断调用这个函数，才能达到锁定鼠标光明的效果。
ps:百度百科上面有全面的解释
4、代码解析：
If GetAsyncKeyState(112) = -32767 Then
ExitProcess(0)
End If
SetCursorPos(100, 100)
’112整数值代表”键F1“
’-32767则是进制转换过来的值，F1被按下时，函数的返回值
’翻译：如果函数GetAsyncKeyState返回值为-32767，则调用函数ExitProcess结束自身进程，反之调用函数SetCursorPos锁定鼠标光标横纵位置（100，100）
5、运行后大图。
ps：我在窗口上加了个标签，可有可无。
