纯源码仿Spy无模块取窗口句柄、标题、类名等

个人的一些思路虽然不是很完美，不过大家还是可以学习学习的。

屏幕句柄A ＝ GetDesktopWindow () ' 取得桌面句柄
屏幕场景A ＝ GetWindowDC (屏幕句柄A) ' 取得桌面设备场景
旧混合模式A ＝ SetROP2 (屏幕场景A, 10) ' 10:R2_NOTXORPEN
API_GetWindowsRect (窗口句柄, 窗口矩形A) ' 获得窗口矩形
.如果真 (窗口矩形A.左边 ＜ 0)
窗口矩形A.左边 ＝ 0
.如果真结束
.如果真 (窗口矩形A.顶边 ＜ 0)
窗口矩形A.顶边 ＝ 0
.如果真结束
新画笔A ＝ CreatePen (0, 矩形粗细, 矩形颜色) ' 建立新画笔,载入DeskDC。取颜色值 (237, 15, 40)
旧画笔A ＝ SelectObject (屏幕场景A, 新画笔A)
Rectangle (屏幕场景A, 窗口矩形A.左边, 窗口矩形A.顶边, 窗口矩形A.右边, 窗口矩形A.底边) ' 在窗口周围画矩形。