qqhk，tdchk分享

shuya1 · 发表于 2025-1-17 21:50:19

感谢分享。谢谢！

伝天 · 发表于 2025-1-17 20:02:17

.版本 2

.程序集程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

调试输出 (WT_JS_Eval (#常量1))

返回 (0) ' 可以根据您的需要返回任意数值

.子程序 WT_JS_Eval, 文本型, , WT-JS_DEBUG
.参数 script, 文本型, , 常量JS脚本
.局部变量 js, 对象
.局部变量 eval, 变体型
.局部变量 ret, 文本型

' CoInitialize (0)‘线程中使用加载COM
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JScript”)
' 如果调试结果与工具不符，有可能是编码问题，尝试加入：【编码_Utf8到Ansi (到字节集 (script)) 】
js.逻辑方法 (“AddCode”, script)
eval ＝ js.通用方法 (“Eval”, “Mouse()”)
ret ＝ eval.取文本 ()
js.清除 ()
' CoUninitialize () ‘线程中使用卸载COM
返回 (ret)