VBA调用JS函数的几个方法

不干的泪痕

大师，能帮我诊断下这个段过程在哪里出问题了嘛，研究了好几天一直没成功，万分感谢！！！思路：想调用网页的加密函数encryptByDES(message, key)对账号密码进行加密，然后作为post的数据登录网页。
附件是网页上下载的加密需要用到的js文件和宏，可以的话能指导下怎么实现调用js加密功能嘛，谢谢。

Dim strText, strJS, strJSFun As String
Sub js()
'获取密钥,此处可正常获取，直接贴密钥。
key1 = "11b265d969ea48269feb5c9e46ba58ef"

With CreateObject("Microsoft.XMLHTTP")                                                           '获取加密函数function encryptByDES(message, key)
    .Open "GET", "http://XXXX/resources/static/js/login/login.js", False
    .send
    strJS = .responsetext
    strJSFun = Mid(strJS, InStr(strJS, "function encryptByDES(message, key)"))     '从js文件中提取函数encryptByDES(message, key)
    temp = InStr(strJSFun, "function setPassPlaceholder()") - 1
    strJSFun = Left(strJSFun, temp)
    Range("a1") = strJSFun                                                                                    
    strJSFun = Replace(strJSFun, "(message, key)", "(message=123456789, key=key1)") '把加密函数的参数替换为需要加密的账号和密钥
    Range("b1") = strJSFun                                                          '调试：打印加密函数

                                                                                     '获取加密需要的js文件
    .Open "GET", "http://XXXX/resources/static/cryptojs/rollups/tripledes.js", False
    .send
    strJS = .responsetext

    .Open "GET", "http://XXXX/resources/static/cryptojs/components/mode-ecb.js", False
    .send
    strJS = strJS & ";" & .responsetext
End With

a = JSEval(strJS & ";" & strJSFun & ";")                  'a应该为加密后的账号
Debug.Print a
End Sub

‘JavaScript执行环境函数
Function JSEval(s As String) As String
With CreateObject("MSScriptControl.ScriptControl")
    .Language = "javascript"
    JSEval = .Eval(s)                          ’这一句出错，提示少”）“，检查不出哪里有问题。
    Debug.Print JSEval
End With
End Function

lqh123109

我也试了一下，跟你一样的问题，最后都提示出错？ 感觉HMTL有容错机制，但使用这个代码执行JS代码切没有容错机制，导致执行失败。需要专家出场才能解决

lqh123109

下载解压缩失败

lqh123109

非常感谢！
大师能解决这个问题吗？
‘JavaScript执行环境函数，这个经常会提示报错，主要是JS代码段没有容错机制，能办法解决？
Function JSEval(s As String) As String
With CreateObject("MSScriptControl.ScriptControl")
     .Language = "javascript"
    JSEval = .Eval(s)                          ’这一句出错，提示少”）“，检查不出哪里有问题。
    Debug.Print JSEval
End With
End Function

cy_ttcm

下载解压缩失败

想问下大神，网抓的时候，请求头的
.setRequestHeader "Authorization", "xxxxxx"
这里的xxxxs刷新一下就变了
好像网站有2个js是用来加密的。加密里面有时间戳

有啥好办法获得网站上js的数据吗

sunjl6113

刚好需要，学习一下

tspliu

cy_ttcm 发表于 2020-5-8 20:55
下载解压缩失败

想问下大神，网抓的时候，请求头的

下断点把那段代码抠出来，吧里有一个大神很擅长，昵称：wodewan           
我反正是不行，上次试了一个抠了一星期才成功，没找到窍门

lqh123109

这个调用看不懂？

loadjscriptfromfile 这个是纯粹读取的JS代码吗


    Declare Function RunJSScriptFuncVars Lib "JSDotNetAPI86.dll" (ByVal funcname As String, VariantPtrIns As Any, count As LongPtr, VariantPtrOut As Any, ReturnAsString As Boolean) As Boolean

用户类型未定久

另外2个DLL文件要放哪里？要安装注册？程序中好像没有调用它们呀？

ericye_cn

一起学习，一起进步

pc_12

刚好需要，学习一下