我为CreateWindowEx
API函数创建了一个包装器函数,并从一个VBScript中使用它。这是VBScript:
Dim Result, wcx(10) 'VARIANT ARRAY(10) - WNDCLASSEX
wcx(5) = WINAPI.WinAPI_LoadIcon(NULL, 32516) 'hIcon (IDI_INFORMATION)
wcx(6) = WINAPI.WinAPI_LoadCursor(NULL, 32649) 'hCursor (IDC_HAND)
wcx(7) = 3 'hbrBackground (COLOR_ACTIVECAPTION + 1)
wcx(9) = "DUMMY_CLASS" 'lpszClassName
wcx(10) = WINAPI.WinAPI_LoadIcon(NULL, 32516) 'hIconSm (SAME as hIcon)
'PASS THE VARIANT ARRAY TO THE WRAPPER FUNCTION
Result = WINAPI.WinAPI_RegisterClassEx(wcx)
Dim Style: Style = CLng(&H00CF0000) 'WS_OVERLAPPEDWINDOW
Dim ExStyle: ExStyle = CLng(&H00000100) 'WS_EX_WINDOWEDGE
If CLng(Result) > 0 Then
'CREATE THE WINDOW
Result = WINAPI.WinAPI_CreateWindowEx(ExStyle, "DUMMY_CLASS", "Hello World!", Style, 875, 6, 400, 300, NULL, NULL, NULL, NULL)
WINAPI.WinAPI_ShowWindow Result, 5
WScript.Echo "CreateWindowEx returned 0x" + CStr(UCase(Hex(Result)))
End If
该窗口按预期创建并显示良好。但是我想知道为什么当我点击创建窗口的关闭按钮时,Windows脚本主机就会终止。
我使用CreateWindowEx
测试了AutoIt,当我关闭创建的窗口时,AutoIt3.exe没有终止,它继续运行脚本,不像Windows。
即使关闭创建的窗口,我也喜欢让Windows脚本主机继续运行。
不是为了实现我想要的,我想知道在Windows脚本主机上发生这种情况的原因是什么。
发布于 2017-07-31 05:50:24
我通过更改窗口过程解决了这个问题,如下所示:
LRESULT CALLBACK WindowProc(_In_ HWND hwnd, _In_ UINT uMsg, _In_ WPARAM wParam, _In_ LPARAM lParam) {
switch (uMsg)
{
case WM_CLOSE:
DestroyWindow(hwnd);
break;
/*FOLLOWING LINES WERE REMOVED:
case WM_DESTROY:
PostQuitMessage(0);
break;*/
default: return DefWindowProc(hwnd, uMsg, wParam, lParam);
}
return 0;
}
问题的出现是因为我忘记了Windows并不是一个标准的WinForms应用程序,所以当窗口被破坏时它不需要关闭。
https://stackoverflow.com/questions/45408065
复制相似问题