我想学API啊
[ 本帖最后由 nbaqqqq 于 2010-5-2 13:08 编辑 ]
[ 本帖最后由 nbaqqqq 于 2010-5-2 13:08 编辑 ]
2010-05-02 12:58
2010-05-02 17:18
2010-05-02 20:37
程序代码：
Private Sub Form_Load()
WindowHandle = FindWindow(vbNullString, "新建 文本文档 - 记事本")
Debug.Print WindowHandle
pWndProc = GetWindowLong(WindowHandle, GWL_WNDPROC) '获取当前窗口的消息地址
debug.assert pwndProc '这里错误。大概是权限问题。
SetWindowLong WindowHandle, GWL_WNDPROC, AddressOf WindowProc '把地址指向模块中的 WindowProc 回调函数
End Sub
还有，win记事本的类名是 notepad 。
2010-05-03 15:13
2010-05-05 10:07
2010-05-07 21:23