易语言对象操作VBS实现ICS模式网卡共享

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

调试输出 (网卡共享 (“本地连接”, “本地连接 2”, 假))

.子程序 网卡共享, 逻辑型
.参数 被共享的网卡名, 文本型
.参数 共享到网卡名, 文本型
.参数 是否开启共享, 逻辑型, 可空
.局部变量 是否开启, 文本型
.局部变量 对象操作, 对象
.局部变量 返回文本, 文本型

是否开启 ＝ 选择 (是否开启共享, “on”, “off”)
对象操作.创建 (“ScriptControl”, )
对象操作.写属性 (“Language”, “VBScript”)
对象操作.方法 (“ExecuteStatement”, #常量vbs)
返回文本 ＝ 对象操作.通用方法 (“Run”, “Main”, 被共享的网卡名, 共享到网卡名, 是否开启).取文本 ()
.如果真 (对象操作.取错误 () ≠ “”)
    返回 (假)
.如果真结束
.如果真 (是否开启共享)
    返回 (返回文本 ＝ “000”)
.如果真结束
.如果真 (返回文本 ＝ “000”)
    返回 (假)
.如果真结束
返回 (真)

@Su·