manbutianya 发表于 2013-8-12 11:34:26

帮忙看一下，这个调用JS错在哪里？

Local $sCode = ""
Local $sResult = ""
_JsonRead("12345aa", "","1376264789")
Func _JsonRead($pwd = "", $mailp = "",$ts = "")
   $sCode &= 'function json2str()' & @CRLF
   $sCode &= '{' & @CRLF
   $sCode &= "var pwd = '" & $pwd & "';"& @CRLF
   $sCode &= "var p = '" & $mailp & "';"& @CRLF
   $sCode &= "var ts = '" & $ts & "';"& @CRLF
   $sCode &= 'var PublicKey = "CF87D7B4C864F4842F1D337491A48FFF54B73A17300E8E42FA365420393AC0346AE55D8AFAD975DFA175FAF0106CBA81AF1DDE4ACEC284DAC6ED9A0D8FEB1CC070733C58213EFFED46529C54CEA06D774E3CC7E073346AEBD6C66FC973F299EB74738E400B22B1E7CDC54E71AED059D228DFEB5B29C530FF341502AE56DDCFE9";'& @CRLF
       $sCode &= 'var RSA = new RSAKey();' & @CRLF
       $sCode &= 'RSA.setPublic(PublicKey, "10001");' & @CRLF
   $sCode &= "var Res = RSA.encrypt(pwd+ '\n' + ts + '\n');" & @CRLF
   $sCode &= 'if (Res)' & @CRLF
   $sCode &= '{' & @CRLF
   $sCode &= 'p = hex2b64(Res);' & @CRLF
   $sCode &= 'pwd = "";' & @CRLF
   $sCode &= '}' & @CRLF
       $sCode &= 'return p' & @CRLF
   $sCode &= '}' & @CRLF
       MsgBox(0, "代码", $sCode)
   Local $oScript = ObjCreate("MSScriptControl.ScriptControl.1")
   $oScript.language = 'JavaScript'
   $oScript.AddCode($sCode)
   $sResult = $oScript.Run('json2str')
   $oScript = 0
   Return $sResult
EndFunc
MsgBox(0, "P值", $sResult)
                       
帮忙看一下，这个调用JS错在哪里？

绿色风 发表于 2013-8-18 13:59:35

回复 1# manbutianya


JS有无错误就不知道，只是调整了一下你的差别代码而以。[/b]
   

Dim$sResult
$sResult = _JsonRead("12345aa", "","1376264789")


MsgBox(0, "P值", $sResult)
                        
Exit                                               

Func _JsonRead($pwd = "", $mailp = "",$ts = "")
        Local $sCode,$sResult
   $sCode &= 'function json2str()' & @CRLF
   $sCode &= '{' & @CRLF
   $sCode &= "var pwd = '" & $pwd & "';"& @CRLF
   $sCode &= "var p = '" & $mailp & "';"& @CRLF
   $sCode &= "var ts = '" & $ts & "';"& @CRLF
   $sCode &= 'var PublicKey = "CF87D7B4C864F4842F1D337491A48FFF54B73A17300E8E42FA365420393AC0346AE55D8AFAD975DFA175FAF0106CBA81AF1DDE4ACEC284DAC6ED9A0D8FEB1CC070733C58213EFFED46529C54CEA06D774E3CC7E073346AEBD6C66FC973F299EB74738E400B22B1E7CDC54E71AED059D228DFEB5B29C530FF341502AE56DDCFE9";'& @CRLF
         $sCode &= 'var RSA = new RSAKey();' & @CRLF
         $sCode &= 'RSA.setPublic(PublicKey, "10001");' & @CRLF
   $sCode &= "var Res = RSA.encrypt(pwd+ '\n' + ts + '\n');" & @CRLF
   $sCode &= 'if (Res)' & @CRLF
   $sCode &= '{' & @CRLF
   $sCode &= 'p = hex2b64(Res);' & @CRLF
   $sCode &= 'pwd = "";' & @CRLF
   $sCode &= '}' & @CRLF
         $sCode &= 'return p' & @CRLF
   $sCode &= '}' & @CRLF
         MsgBox(0, "代码", $sCode)
   Local $oScript = ObjCreate("MSScriptControl.ScriptControl.1")
   $oScript.language = 'JavaScript'
   $oScript.AddCode($sCode)
   $sResult = $oScript.Run('json2str')
   $oScript = 0
   Return $sResult
EndFunc


页: [1]
查看完整版本: 帮忙看一下，这个调用JS错在哪里？