0

CreateWindowExAPI 関数のラッパー関数を作成し、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 Script Host が終了するのはなぜでしょうか。

そして、AutoIt を使ってテストCreateWindowExしたところ、作成したウィンドウを閉じても AutoIt3.exe は終了せず、Windows Script Host とは異なり、スクリプトを実行し続けました。

作成したウィンドウを閉じても、Windows Script Host を実行し続けたいと思っています。

とにかく、私が望むことを達成する方法はありませんか? Windows Script Host でこれが発生する理由を知りたいです。

4

1 に答える 1

1

ウィンドウプロシージャを次のように変更して問題を修正しました。

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 Script Host が標準の WinForms アプリケーションとして機能しないことを忘れたため発生したため、ウィンドウが破棄されたときに閉じる必要はありません。

于 2017-07-31T05:50:24.370 に答える