|
|
发表于 2019-1-22 18:35:57
|
显示全部楼层
江西省九江市
本帖最后由 恶魔の佐翼 于 2019-1-22 18:37 编辑
小白吧..........给你优化了下代码,不用时钟不占资源的
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 A, 整数型
A = CreateThread_ (0, 0, &aa, 0, 0, 0)
CloseHandle (A)
.子程序 aa
.局部变量 A, 整数型
A = OpenProcess (2035711, 0, 进程ID)
WaitForSingleObject_ (A, -1)
调试输出 (“程序已关闭”)
.版本 2
.DLL命令 OpenProcess, 整数型, "kernel32", "OpenProcess", , 将句柄返回给过程对象
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 整数型
.参数 dwProcessId, 整数型
.DLL命令 WaitForSingleObject_, 整数型, "kernel32", "WaitForSingleObject", , 监测一个对象
.参数 hHandle, 整数型
.参数 dwMilliseconds, 整数型
.DLL命令 CreateThread_, 整数型, "kernel32.dll", "CreateThread"
.参数 lpThreadAttributes, 整数型, , 默认SECURITY_ATTRIBUTES结构
.参数 dwStackSize, 整数型, , 设置初始栈的大小,以字节为单位,如果为0,那么默认将使用与调用该函数的线程相同的栈空间大小。任何情况下,Windows根据需要动态延长堆栈的大小
.参数 lpStartAddress, 子程序指针, , 指向线程函数的指针,形式:@函数名,函数名称没有限制,但是必须以下列形式声明
.参数 lpParameter, 整数型, , 向线程函数传递的参数,是一个指向结构的指针,不需传递参数时,为NULL
.参数 dwCreationFlags, 整数型, , 线程标志,0立即激活
.参数 lpThreadId, 整数型, , 保存新线程的id
.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。涉及文件处理时,这个函数通常与vb的close命令相似。应尽可能的使用close,因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的 非零表示成功,零表示失败。会设置GetLastError
.参数 hObject, 整数型, , 欲关闭的一个对象的句柄;
|
|