标签：int isp class ima Once rip 姓名 load htm
利用mshtml在visual free basic里执行js.
#include once "Afx/CDispInvoke.inc"
DIM pdom AS CDispInvoke = "HTMLFILE"
IF pdom.DispPtr = NULL THEN END Else Print "成功运行"
DIM oWin AS CDispInvoke = pdom.Invoke("parentWindow")
IF oWin.DispPtr THEN
oWin.Invoke("execScript","var a=1+2;var js={""姓名"":""刘德华"",""年龄"":59},nm=js[‘姓名‘];")
Print owin.get("a")
Print cwstr(owin.get("nm"),CP_UTF8)
END IF
运行结果：
标签：int isp class ima Once rip 姓名 load htm
原文地址：https://www.cnblogs.com/FanXiaoLei/p/13125674.html
