Public obj As object
Public Function jiajiemiinit()
obj = CreateObject("MSScriptControl.ScriptControl")
obj.AllowUI = True
obj.Language = "JavaScript"
Dim s As String = FileSys.ReadAllText(ProjectPath + "\js\mima.js",Encoding.Default)
obj.AddCode(s)
End Function
Public Function JieMi(jiamitext As String,miyue As String,Tongxunmiyue As String) As String
JieMi = obj.Eval("n(" + """" + jiamitext + """" + "," + """" + miyue + """" + "," + """" + Tongxunmiyue + """" + ")")
End Function
[此贴子已经被作者于2017/4/30 16:01:05编辑过]
加好友 
发短信
Post By：2017/4/30 16:01:00 [只看该作者]
