论坛 › 已解决问题区 › 谁能把这段VBS转成au3 [已解决]

tarcy118 发表于 2011-8-20 15:18:24

谁能把这段VBS转成au3 [已解决]

本帖最后由 tarcy118 于 2011-8-21 01:33 编辑

要调用Base64Lib.dll文件 使用前注册regsvr32 /s Base64Lib.dll


Set enc = CreateObject("Base64Lib.Base64Object")
abc = InputBox(abc & "" & msgout & vbCrLf & vbCrLf & "请输入要解密的内容,如下:", "解密 ", msgout)
msgout = enc.MimeDecodeString(abc)
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text",msgout
MsgBox "解密:" & abc & "=" & msgout, 64, ""

smith203 发表于 2011-8-20 18:37:42

vbs 和au3的异同点是什么？ 有没有人指导一下？

www378660084 发表于 2011-8-20 18:47:17

我这里没有你那个com，你看下吧

$enc = ObjCreate("Base64Lib.Base64Object")
$abc = InputBox("解密","请输入要解密的内容")
$msgout = $enc.MimeDecodeString($abc)
ClipPut($msgout)
MsgBox(0,0,"解密:" & $abc & "=" & $msgout)

tarcy118 发表于 2011-8-21 01:34:07

不错感谢提供啊!!!

查看完整版本: 谁能把这段VBS转成au3 [已解决]