易语言调用mshta.exe的JavaScript实现弹出信息框 (不等待用户点击按钮 , 返回逻辑型)

CNWTEPRG

1. 
   
2. 
   
3. .版本 2
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. 
    
15. 
    
16. 信息框_JS (“Hello World! 中文测试”)
    
17. 
    
18. 
    
19. 
    
20. .子程序 信息框_JS, 逻辑型, 公开, 调用mshta的JavaScript弹出信息框(不等待用户点击按钮),成功返回真失败返回假
    
21. .参数 提示信息, 文本型
    
22. 
    
23. 提示信息 ＝ 子文本替换 (提示信息, “\”, “\\”, , , 真)
    
24. 提示信息 ＝ 子文本替换 (提示信息, #引号, “\” ＋ #引号, , , 真)
    
25. 返回 (运行 (“mshta javascript:alert(” ＋ #引号 ＋ 提示信息 ＋ #引号 ＋ “);window.close();”, 假, #隐藏窗口))
    
26. 
    
27. 
    
28. 
    

复制代码