捕获鼠标与释放鼠标工具

文本 ＝ 到文本 (坐标.横向位置) ＋ “ ” ＋ 到文本 (坐标.纵向位置) ＋ “右键释放鼠标！”
hdc ＝ 取设备场景_ (_启动窗口.取窗口句柄 ())
文本绘图_ (hdc, 50, 50, 文本, 取文本长度 (文本))
释放设备场景_ (_启动窗口.取窗口句柄 (), hdc)

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , ReleaseDC
.参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
.参数 设备场景, 整数型, , hdc，要释放的设备场景句柄

.DLL命令 取设备场景_, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景 指定窗口的设备场景句柄，出错则为0
.参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 文本绘图_, 整数型, "gdi32.dll", "TextOutA", , Long，非零表示成功，零表示失败。会设置GetLastError
.参数 设备场景, 整数型, , hdc，设备场景的句柄
.参数 横, 整数型, , x，绘图的起点，采用逻辑坐标
.参数 纵, 整数型, , y，绘图的起点，采用逻辑坐标
.参数 内容, 文本型, , lpstring，欲描绘的字串
.参数 内容数量, 整数型, , ncount，字串中要描绘的字符数量