перевести JAVA в VBA - VB

Формулировка задачи:

Есть на странице скрипт
<script type="text/javascript">/*<![CDATA[*/eval("var a=\"e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf\";var b=a.split(\"\").sort().join(\"\");var c=\"T4mg9MMfaRpmyM1K0\";var d=\"\";for(var e=0;e<c.length;e++)d+=b.charAt(a.indexOf(c.charAt(e)));document.getElementById(\"e198546040\").innerHTML=\"<a href=\\\"mailto:\"+d+\"\\\">\"+d+\"</a>\"")/*]]>*/</script>
Похоже тут есть все необходимые данные что бы извлечь адрес мыла Ошибаюсь?


textual

Код к задаче: «перевести JAVA в VBA - VB»

Sub bb()
  With CreateObject("ScriptControl")
    .Language = "JScript"
    .AddCode "function eml(){var a='e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf';var b=a.split('').sort().join('');var c='T4mg9MMfaRpmyM1K0';var d='';for(var e=0;e<c.length;e++)d+=b.charAt(a.indexOf(c.charAt(e)));return d}"
    MsgBox .Run("eml")
  End With
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.100 из 5

Источник