脚本组件执行VBS代码

烧猪 · 发表于 2015-12-16 10:40:27

本帖最后由萧阳天于 2015-12-20 22:22 编辑

将下面代码放入.vbs文件中双击运行正确，但是把函数放在易语言的常量中，使用模块的类_脚本组件，执行、运行，得到结果为空，使用易语言自带的脚本组件结果正常
Function GetANSI(str)
Dim bianma, i, k, tmp
For i = 1 To Len(str)
      bianma = Asc(Mid(str, i, 1))
      If bianma < 0 Then
         bianma = bianma + 65536
      End If
      tmp = tmp & bianma & "|"
Next
GetANSI = tmp
End Function

Dim a
a = GetANSI("精易论坛1234")
msgbox a

hiiamgood · 发表于 2016-12-24 10:51:58

好，学习一下，感谢！

真正神仙 · 发表于 2015-12-22 00:42:22

学习········

萧阳天 · 发表于 2015-12-20 22:20:07

不能识别参数位数导致，感谢反馈，已修正

444866665 · 发表于 2015-12-20 15:44:05

学习········

天高任鸟飞 · 发表于 2015-12-16 11:22:50

Dim a
a = GetANSI("精易论坛1234")
msgbox a

脚本组件这些代码是不是要在易语言中写

		自动登录	找回密码
密码			注册

[已解决] 脚本组件执行VBS代码

评分