吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 2335|回复: 2
收起左侧

[其他转载] VB.NET C#引用JS脚本代码 编程代码

[复制链接]
dfui 发表于 2020-2-13 21:40
本帖最后由 dfui 于 2020-2-14 13:17 编辑

特贴出以供后来之人引用。免走弯路。
        '  一般使用方法  VB.NET  C# 执行JS脚本代码。
        '    1、在程序中加入ScriptControl 控件的引用
        '    2、定义一个ScriptControl的实例
        '    3、调用AddCode等方法向脚本引擎中加入要执行的脚本或脚本代码。
        '    4、调用Run执行要执行的脚本函数。
         Imports MSScriptControl

        'Dim sc As New ScriptControl

        '定义一个对象为脚本组件
        Dim msc As Object = New ScriptControl
       '对象特性
        msc.UseSafeSubset = True
       '对象引用或工作语言 JScript VBScript
        msc.Language = "JScript"
        '允许UI 是否
        msc.AllowUI = False
        '添加用户脚本代码 引用相对路径,编码
        msc.AddCode(Application.StartupPath & "\\JavaScript1.js", UTF8)

        Dim str, stab

       'tk 为脚本文件JS的函数,stab 传入参数,str 有返回值
        str = msc.Run("tk", stab)
        '退出代码片段
        msc = Nothing
----------------------------------------------------------------------------------------
微软示例代码:
VB C# 执行Javascript  jscript vbscript 等脚本代码编程代码

Private Function runScript(ByVal fullPath As String)
    Dim js As MSScriptControl.ScriptControl = New MSScriptControl.ScriptControl
    js.AllowUI = 0
    js.Language = "JSCript"
    js.Reset()
    js.AddCode("function returnDouble(str)" & _
          "{return str + str;}")
    Dim parms() As Object = {"test"}
    Dim ans As String = js.Run(fullPath, parms)
    Return ans
  End Function
'returns testtest

免费评分

参与人数 3吾爱币 +3 热心值 +3 收起 理由
nashlee + 1 + 1 谢谢@Thanks!
zzcl558 + 1 + 1 欢迎分析讨论交流,吾爱破解论坛有你更精彩!
luojp52pojie520 + 1 + 1 谢谢@Thanks!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

zzcl558 发表于 2020-2-14 01:47
谢谢分享!
zy13549568568 发表于 2020-4-8 20:52
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 警告:本版块禁止灌水或回复与主题无关内容,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-4-19 06:11

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表