wincc全局脚本发送http post请求，脚本已执行完成，但是http请求却延迟发送

发送http请求脚本如下：

Dim TaskId = Trim(HMIRuntime.Tags("JX_I_ER_1_TaskId").Read)
Dim PreExecutionCode = HMIRuntime.Tags("JX_I_ER_1_PreReqExeCode").Read
Dim ExecutionCode = HMIRuntime.Tags("JX_I_ER_1_CurReqExeCode").Read
Dim TaskIDLen = Len(TaskId)
If  TaskIDLen>0 And PreExecutionCode>0 And ExecutionCode=0 Then
        Set Http = CreateObject("msxml2.xmlhttp")
        With Http
                    .Open "POST","http://192.168.200.50:8025/api/values/WinccData",False,"",""
      .setRequestHeader "Content-Type","application/json"
      .Send(" 
{""LndDeviceId"":""53"",""ParamDevice"":""53"",""TaskId"":"+CStr(TaskId)+",""PreExecutionCode"":"+CStr(PreExecutionCode)+",""ExecutionCode"":"+CStr(ExecutionCode)+"}")
 End With