[PATCH v9 0/1] MR10393: Draft: vbscript: Check named item dispatch for Dim variable names.

[Francis De Brabandere (＠francisdb)]

When declaring variables with Dim in a visible named item context,
check the named item's IDispatch for each variable name via
GetIDsOfNames. This matches Windows VBScript behavior where Dim
probes the host object before creating the variable.

--
  v9: vbscript: Check named item dispatch for Dim variable names.
 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10393

[PATCH v9 1/1] vbscript: Check named item dispatch for Dim variable names.

[Francis De Brabandere]

From: Francis De Brabandere <[e-mail]>

When declaring variables with Dim in a visible named item context,
check the named item's IDispatch for each variable name via
GetIDsOfNames. This matches Windows VBScript behavior where Dim
probes the host object before creating the variable.
---
 dlls/vbscript/tests/vbscript.c |  4 ++--
 dlls/vbscript/vbscript.c       | 34 ++++++++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/tests/vbscript.c b/dlls/vbscript/tests/vbscript.c
index 7500ec30a8d..2eb366fe1c0 100644
--- a/dlls/vbscript/tests/vbscript.c
+++ b/dlls/vbscript/tests/vbscript.c
@@ -2088,8 +2088,8 @@ static void test_named_items(void)
     hres = IActiveScriptParse_ParseScriptText(parse, L"dim abc\n", L"visibleItem", NULL, NULL, 0, 0, 0, NULL, NULL);
     ok(hres == S_OK, "ParseScriptText failed: %08lx\n", hres);
     CHECK_CALLED(OnEnterScript);
-    todo_wine CHECK_CALLED(GetItemInfo_visible);
-    todo_wine CHECK_CALLED(GetIDsOfNames_visible);
+    CHECK_CALLED(GetItemInfo_visible);
+    CHECK_CALLED(GetIDsOfNames_visible);
     CHECK_CALLED(OnLeaveScript);
     SET_EXPECT(OnEnterScript);
     SET_EXPECT(OnLeaveScript);
diff --git a/dlls/vbscript/vbscript.c b/dlls/vbscript/vbscript.c
index 2e2fa6498da..d0a86e190fb 100644
--- a/dlls/vbscript/vbscript.c
+++ b/dlls/vbscript/vbscript.c
@@ -93,6 +93,8 @@ static inline BOOL is_started(VBScript *This)
         || This->state == SCRIPTSTATE_DISCONNECTED;
 }
 
+static HRESULT retrieve_named_item_disp(IActiveScriptSite *site, named_item_t *item);
+
 HRESULT exec_global_code(script_ctx_t *ctx, vbscode_t *code, VARIANT *res, BOOL extern_caller)
 {
     ScriptDisp *obj = ctx->script_obj;
@@ -138,8 +140,40 @@ HRESULT exec_global_code(script_ctx_t *ctx, vbscode_t *code, VARIANT *res, BOOL
         obj->global_funcs_size = cnt;
     }
 
+    /* For visible named items with Dim declarations, re-fetch the dispatch
+       from the host even if previously cached, then probe each variable name
+       via GetIDsOfNames. The variable is always created regardless of whether
+       the name exists on the host dispatch.
+       TODO: It is unclear why Windows probes the host dispatch when the result
+       is not used to skip variable creation. Perhaps it is used for some side
+       effect or diagnostic purpose that we have not yet identified. */
+    if(code->main_code.var_cnt && code->named_item
+       && !(code->named_item->flags & SCRIPTITEM_CODEONLY))
+    {
+        if(code->named_item->disp)
+        {
+            IDispatch_Release(code->named_item->disp);
+            code->named_item->disp = NULL;
+        }
+        retrieve_named_item_disp(ctx->site, code->named_item);
+    }
+
     for (i = 0; i < code->main_code.var_cnt; i++)
     {
+        /* Probe the named item's dispatch for each variable name, matching
+           Windows behavior. The variable is always created regardless. */
+        if(code->named_item && code->named_item->disp
+           && !(code->named_item->flags & SCRIPTITEM_CODEONLY))
+        {
+            BSTR name = SysAllocString(code->main_code.vars[i].name);
+            if(name)
+            {
+                DISPID id;
+                disp_get_id(code->named_item->disp, name, VBDISP_CALLGET, TRUE, &id);
+                SysFreeString(name);
+            }
+        }
+
         size_t j;
         BOOL found = FALSE;
 
-- 
GitLab

https://gitlab.winehq.org/wine/wine/-/merge_requests/10393