点击某程序的登录按钮,弹出提示框。别人的代码,怎么使用呢
.版本 2
.支持库 EThread
.支持库 CCTS
.支持库 spec
.程序集 程序集1
.子程序 _启动子程序, 整数型, 公开, 请在本子程序中放置动态链接库初始化代码
启动线程 (&初始化, , )
返回 (0) ' 返回值被忽略。
.子程序 _临时子程序, , 公开
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
.子程序 初始化, , 公开
.局部变量 句柄信息, 精易_窗口信息, , "0"
.局部变量 i, 整数型
.局部变量 子窗口, 整数型
.局部变量 取自进程ID, 整数型
取自进程ID = 进程_取自进程ID ()
.计次循环首 (窗口_枚举 (句柄信息), i)
.如果真 (句柄信息 [i].进程ID = 取自进程ID)
.如果真 (句柄信息 [i].窗口标题 = “XX”)
.如果真 (句柄信息 [i].窗口类名 = “xx”)
调试输出 (句柄信息 [i].窗口句柄, 句柄信息 [i].窗口类名, 句柄信息 [i].窗口标题)
登录窗口句柄 = 句柄信息 [i].窗口句柄
.如果真结束
.如果真结束
.如果真结束
.计次循环尾 ()
登录子窗口句柄 = 窗口_取句柄 (登录窗口句柄, , “Button”, “登录”)
指针 = SetWindowLongA (登录窗口句柄, -4, 到整数 (&窗口过程))
.子程序 窗口过程, 整数型, 公开
.参数 句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型
.如果真 (参数2 = 登录子窗口句柄) ' 参数1 1008
.如果真 (消息 = 273)
信息框 (“6”, 0, , )
.如果真结束
.如果真结束
返回 (CallWindowProcA (指针, 句柄, 消息, 参数1, 参数2))
|