在VBS中执行Javascript语句

标签: , , , ,

一直想写一个VBS版的六维空间作弊程序,无奈没有找到现成的VBS版Sha1函数,也许是VBS没有位操作符的缘故吧。而JavaScript版的早已实现,然后就想能不能在VBS中执行JavaScript代码,这样就可以变相实现了,当时知道的方法是WSC文件,但是我不喜欢额外的文件,只好作罢。最近偶然发现一个MSScriptControl.ScriptControl对象,可以实现这个功能,简单的示例如下,更高级的用法自己查阅帮助文档。

Dim sc
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"
result = sc.Eval("encodeURIComponent('恶魔');")
WScript.Echo result
赞赏

微信赞赏支付宝赞赏

随机文章:

  1. VBS任意进制转换(实现PHP的base_convert函数)
  2. 用JavaScript实现PHP的urldecode函数
  3. “鲜为人知”的SendWindowMessage
  4. 用VBS精确计算100的阶乘
  5. 用bbPress搭建了一个VBS论坛

留下回复