关于Base64图片转换窗口展示

qxguoxing

感谢论坛中朋友们的帖子，这边我借用了@guoyaqiu的源代码进行修改展示。Local $CodeStream ="data:image/jpeg;base64, /9j/4AAQSkZJRgABAQAAAQABAAD//gA+Q1JFQVRPUjogZ2QtanBlZyB2MS4wICh1c2luZyBJSkcgSlBFRyB2NjIpLCBkZWZhdWx0IHF1YWxpdHkK/9sAQwAIBgYHBgUIBwcHCQkICgwUDQwLCwwZEhMPFB0aHx4dGhwcICQuJyAiLCMcHCg3KSwwMTQ0NB8nOT04MjwuMzQy/9sAQwEJCQkMCwwYDQ0YMiEcITIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIy/8AAEQgAIgCZAwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8Ayti/3R+VGxf7o/KlqSBpFmXylV3J2qpQNkn2Ir6U+cIti/3R+VGxf7o/Kugureys5Ba30Ky364EiwHywCcfLwMEgHr68c9ai1HRI49LTVdPmaazLmNw4+aJvQ44I9/cVCqR08y3Tlr5GJsX+6Pyo2L/dH5UtFWQJsX+6Pyo2L/dH5UtXY7Z7mKNfszo7fLHIqHbIfQ+/uPx9aHZArso7F/uj8qNi/wB0flTiCCQQQR1BpKAE2L/dH5UbF/uj8qcu0Ou8ErnkA4OK3r7StKttEs9QS4uw92H8uJkVsFTg5ORxnFTKai0n1KjFyTa6HP7F/uj8qNi/3R+VdHfaNpum6ejSX/8ApcsYcRSQncoIyOFJAPbk/hXO0QnGaugnCUHZibF/uj8qNi/3R+VLWpoVtDeX6WzzNFLIdq/IGRuOQwyDzTlJRTkxRTbsZWxf7o/KjYv90flWpqWk/YdUNmtxG2ScM+UAHbJIx+NV73TbvTn2XUXltnH3gf5GlGcXaz3Bxkii0UbrtZFI9CKuf2lf/wDQQu/+/wC3+NVqKbSYrhWhoc0VvrtjNOQIknUsT0HPX8Kz6KGrqwJ2dzoPEMTW3jOZpvlVplkDdtpwc/59KtaVIbbwfrtvdKUAZNgbu7enr0BrGbWJp7WO3u4YbpYl2xtKDuQegZSCR7HNMbVJnhS3kSNrVPuwYwq+4PXPvmsfZycVF9Lfgbc8VJyXW/4lGilbG47QQueATk0lbmBt+FtOh1HWP9JANvAhmkB6EDt+ZqC5u7nWtYe4EbuBlkiUZ2ovRQB7U7w9e/ZL+SNldormFoH8tdzKCPvAd8Yq5pegS/2kEkvLaNORvWYbunBA6g5xwcGspO0m2bRV4pIyry9N1aW6Sj9/Gz73xy4O3GT3PBH5VSrd8Uaqb/V7iNVh8mN9qMsY3HHH3sZrCq4fCRP4grsbye30qLwuLuAyLDEZJI2HQM3Jx69/wrmdOl+z3guPkzErOu8AjcAdvB684q5feIrnU4oo7y3tZRFgIRHtKgEfL8pHHGKyqxc5JdF/wxpTkoxb6h4k0ttL1VgJGlt5h5sEpOd6Hpz3P+e9ZFbt94l/tHS4rC4022EcC4haMuDHxjjJOfoawqulz8tp7kVeXmvHYKtaZcfZdUtZ848uVWP0zzVWiraurEJ2dzqdZEUHiG/e6i81YWEsYzjJIXg+oGc/h71zDuXkZ2YsWJJLHJP1rRn1KXVdV+0XG1dyFMDoBtxWZWdGDiknvZF1JJu6CiiitTMqb2/vH86N7f3j+dFFIoN7f3j+dG9v7x/OiigA3t/eP50b2/vH86KKADe394/nRvb+8fzoooAUyOSSXYk980m9v7x/OiikAb2/vH86N7f3j+dFFMA3t/eP50b2/vH86KKADe394/nRvb+8fzoooAN7f3j+dG9v7x/OiigByM24fMfzqzRRTQmf/9k="
$CodeStream = StringReplace($CodeStream, "data:image/jpeg;base64, ", "")
        _CreateWaybillImage($CodeStream)
        ConsoleWrite("$CodeStream :" & $CodeStream & @CRLF)
        Local $codeGUI = GUICreate("验证码", 240, 200, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
        Local $CodePic = @ScriptDir & "\code.jpg"
        Local $Pic = GUICtrlCreatePic($CodePic, 45, 15, 150, 60)
        Local $CodeLabel = GUICtrlCreateLabel("验证码：", 15, 95, 70, 30)
        GUICtrlSetFont($CodeLabel, 12, "", "", "")
        Local $InputCode = GUICtrlCreateInput("", 85, 90, 130, 25)
        GUICtrlSetFont($InputCode, 12, "", "", "")
        Local $CodeBtn = GUICtrlCreateButton("确定", 85, 130, 70, 30)
        Local $CodeValue = ""
        GUISetState(@SW_SHOW, $codeGUI)
        WinSetOnTop($codeGUI, "", $WINDOWS_ONTOP) ;窗口前置
        While 1
                Switch GUIGetMsg()
                        Case $GUI_EVENT_CLOSE
                                GUIDelete($codeGUI)
                                ExitLoop
                        Case $CodeBtn
                                GUIDelete($codeGUI)
                                ExitLoop
                        Case Else
                                $CodeValue = GUICtrlRead($InputCode)
                EndSwitch
        WEnd
        GUIDelete($codeGUI)
        ConsoleWriteLine("输入的验证码：" & $CodeValue & @CRLF)

#Region 将base64转换成图片
Func _CreateWaybillImage($Base64)
        Local $temp
        $objXMLDoc = ObjCreate("Msxml2.DOMDocument")
        $objDocElem = $objXMLDoc.CreateElement("base64")
        $objDocElem.dataType = "bin.base64"
        $objDocElem.nodeTypedValue = $Base64

        $temp = FileOpen("code.jpg", $FO_UTF8 + $FO_BINARY + $FO_OVERWRITE)
        FileWrite($temp, $objDocElem.nodeTypedValue)
        FileFlush($temp)
        FileClose($temp)
        $objXMLDoc = Null
EndFunc   ;==>_CreateWaybillImage
#EndRegion 将base64转换成图片

cfanpc

你为什么不用一下论坛的代码模块呢？晕死

qxguoxing

cfanpc 发表于 2019-6-7 21:03
你为什么不用一下论坛的代码模块呢？晕死

没有明白你什么意思？

cfanpc

qxguoxing 发表于 2019-6-10 08:46
没有明白你什么意思？

论坛有个代码模块，你代码写里面，更好看。

qxguoxing

cfanpc 发表于 2019-7-8 22:20
论坛有个代码模块，你代码写里面，更好看。

好的，下次发代码时用这个。