Eu tenho uma estrutura escrita em VBScript. Dentro de alguma função neste parâmetro de estrutura da função é verificada a instrução Nothing in If e algumas ações executadas. Código que usa estrutura escrita em Javascript. Então, eu preciso passar o Nothing para funcionar para executar algumas ações. No IE8 e versões anteriores funcionou a próxima abordagem:
<script type="text/vbscript">
Function Test(val)
If (IsNull(val)) Then
Test = "Null"
ElseIf (IsObject(val)) Then
If (val Is Nothing) Then
Test = "Nothing"
End If
End If
End Function
Dim jsNothing
Set jsNothing = Nothing
msgBox(Test(jsNothing))
msgBox(Test(Null))
</script>
<script type="text/javascript">
alert(Test(jsNothing));
</script>
No IE <9, a saída será: Nothing, Null, Nothing.
No IE9: Nada, Nulo, Nulo.
Como posso passar nada do Javascript para o VBScript no IE9?
Desculpe, eu sei que é feio, mas estou preso. E odeio VBScript.
edit: Há um exemplo de função de estrutura. Não posso alterá-lo porque é amplamente utilizado em aplicativos.
Function ExampleFunction(val)
If (val Is Nothing) Then
ExampleFunction = 1
Else
ExampleFunction = 0
End If
End Function
Atualizar
Trabalho encerrado. Encontrei um melhor.
IsObject(val) And val Is Nothing
ainda resultará em um erro. Você precisará dividi-lo em um If aninhado.