Question

转换代码Js转换为VB

http://blog.flamestsui.com/Upload/md5.js
请帮我把这段代码转换为VB能用的函数，效果要一样哈，之后还有分数赠送
得出的结果和我给的Js不一样
少了个function md5_3(B)

Answer 1

你把那个 md5.js 文件下载下来，放在工程目录下，随便添加一个命令按钮控件Command1

Private Sub Command1_Click()
Dim obj As Object
Set obj = CreateObject("MSScriptControl.ScriptControl")

Dim code As String
Open App.Path & "\md5.js" For Binary As #1
code = Input(LOF(1), 1)
Close #1

obj.Language = "javascript"
obj.AddCode code

MsgBox obj.Eval("md5('haokeyy')")
MsgBox obj.Eval("md5('test')")

'里边有好几个函数，看你要执行哪个了

'这个是执行 md5_3 函数
MsgBox obj.Eval("md5_3('haokeyy')")

Set obj = Nothing
End Sub