52 lines
No EOL
1.4 KiB
Text
52 lines
No EOL
1.4 KiB
Text
Function Base64Encode(sText)
|
|
Dim oXML, oNode
|
|
|
|
Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
|
|
Set oNode = oXML.CreateElement("base64")
|
|
oNode.dataType = "bin.base64"
|
|
oNode.nodeTypedValue =Stream_StringToBinary(sText)
|
|
Base64Encode = oNode.text
|
|
Set oNode = Nothing
|
|
Set oXML = Nothing
|
|
End Function
|
|
|
|
'Stream_StringToBinary Function
|
|
'2003 Antonin Foller, http://www.motobit.com
|
|
'Text - string parameter To convert To binary data
|
|
Function Stream_StringToBinary(Text)
|
|
Const adTypeText = 2
|
|
Const adTypeBinary = 1
|
|
|
|
'Create Stream object
|
|
Dim BinaryStream 'As New Stream
|
|
Set BinaryStream = CreateObject("ADODB.Stream")
|
|
|
|
'Specify stream type - we want To save text/string data.
|
|
BinaryStream.Type = adTypeText
|
|
|
|
'Specify charset For the source text (unicode) data.
|
|
BinaryStream.CharSet = "utf-8"
|
|
|
|
'Open the stream And write text/string data To the object
|
|
BinaryStream.Open
|
|
BinaryStream.WriteText Text
|
|
|
|
'Change stream type To binary
|
|
BinaryStream.Position = 0
|
|
BinaryStream.Type = adTypeBinary
|
|
|
|
'Ignore first two bytes - sign of
|
|
BinaryStream.Position = 0
|
|
|
|
'Open the stream And get binary data from the object
|
|
Stream_StringToBinary = BinaryStream.Read
|
|
|
|
Set BinaryStream = Nothing
|
|
End Function
|
|
|
|
Dim objHTML
|
|
|
|
Set objHTML = CreateObject("htmlfile")
|
|
text = objHTML.ParentWindow.ClipboardData.GetData("Text")
|
|
|
|
Wscript.Echo Base64Encode(text) |