'XML Upload Class 
Class XMLUpload 
Private xmlHttp 
Private objTemp 
Private adTypeBinary, adTypeText 
Private strCharset, strBoundary 

Private Sub Class_Initialize() 
adTypeBinary = 1 
adTypeText = 2 
Set xmlHttp = CreateObject("Msxml2.XMLHTTP") 
Set objTemp = CreateObject("ADODB.Stream") 
objTemp.Type = adTypeBinary 
objTemp.Open 
strCharset = "utf-8" 
strBoundary = GetBoundary() 
End Sub 

Private Sub Class_Terminate() 
objTemp.Close 
Set objTemp = Nothing 
Set xmlHttp = Nothing 
End Sub 

'指定字符集的字符串转字节数组 
Public Function StringToBytes(ByVal strData, ByVal strCharset) 
Dim objFile 
Set objFile = CreateObject("ADODB.Stream") 
objFile.Type = adTypeText 
objFile.Charset = strCharset 
objFile.Open 
objFile.WriteText strData 
objFile.Position = 0 
objFile.Type = adTypeBinary 
If UCase(strCharset) = "UNICODE" Then 
objFile.Position = 2 'delete UNICODE BOM 
ElseIf UCase(strCharset) = "UTF-8" Then 
objFile.Position = 3 'delete UTF-8 BOM 
End If 
StringToBytes = objFile.Read(-1) 
objFile.Close 
Set objFile = Nothing 
End Function 

'获取文件内容的字节数组 
Private Function GetFileBinary(ByVal strPath) 
Dim objFile 
Set objFile = CreateObject("ADODB.Stream") 
objFile.Type = adTypeBinary 
objFile.Open 
objFile.LoadFromFile strPath 
GetFileBinary = objFile.Read(-1) 
objFile.Close 
Set objFile = Nothing 
End Function 

'获取自定义的表单数据分界线 
Private Function GetBoundary() 
Dim ret(12) 
Dim table 
Dim i 
table = "abcdefghijklmnopqrstuvwxzy0123456789" 
Randomize 
For i = 0 To UBound(ret) 
ret(i) = Mid(table, Int(Rnd() * Len(table) + 1), 1) 
Next 
GetBoundary = "---------------------------" & Join(ret, Empty) 
End Function 

'设置上传使用的字符集 
Public Property Let Charset(ByVal strValue) 
strCharset = strValue 
End Property 

'添加文本域的名称和值 
Public Sub AddForm(ByVal strName, ByVal strValue) 
Dim tmp 
tmp = "rn--$1rnContent-Disposition: form-data; name=""$2""rnrn$3" 
tmp = Replace(tmp, "rn", vbCrLf) 
tmp = Replace(tmp, "$1", strBoundary) 
tmp = Replace(tmp, "$2", strName) 
tmp = Replace(tmp, "$3", strValue) 
objTemp.Write StringToBytes(tmp, strCharset) 
End Sub 

'设置文件域的名称/文件名称/文件MIME类型/文件路径或文件字节数组 
Public Sub AddFile(ByVal strName, ByVal strFileName, ByVal strFileType, ByVal strFilePath) 
Dim tmp 
tmp = "rn--$1rnContent-Disposition: form-data; name=""$2""; filename=""$3""rnContent-Type: $4rnrn" 
tmp = Replace(tmp, "rn", vbCrLf) 
tmp = Replace(tmp, "$1", strBoundary) 
tmp = Replace(tmp, "$2", strName) 
tmp = Replace(tmp, "$3", strFileName) 
tmp = Replace(tmp, "$4", strFileType) 
objTemp.Write StringToBytes(tmp, strCharset) 
objTemp.Write GetFileBinary(strFilePath) 
End Sub 

'设置multipart/form-data结束标记 
Private Sub AddEnd() 
Dim tmp 
tmp = "rn--$1--rn" 
tmp = Replace(tmp, "rn", vbCrLf) 
tmp = Replace(tmp, "$1", strBoundary) 
objTemp.Write StringToBytes(tmp, strCharset) 
objTemp.Position = 2 
End Sub 

'上传到指定的URL，并返回服务器应答 
Public Function Upload(ByVal strURL) 
Call AddEnd 
xmlHttp.Open "POST", strURL, False 
xmlHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & strBoundary 
'xmlHttp.setRequestHeader "Content-Length", objTemp.size 
xmlHttp.Send objTemp 
Upload = xmlHttp.responseText 
End Function 
End Class 

Dim UploadData 
Set UploadData = New XMLUpload 
UploadData.Charset = "utf-8" 
UploadData.AddForm "content", "Hello world" '文本域的名称和内容 
UploadData.AddFile "file", "test.jpg", "image/jpg", "test.jpg" 
WScript.Echo UploadData.Upload("http://example.com/takeupload.php") 
Set UploadData = Nothing

原文：http://demon.tw/programming/vbs-post-file.html

由vbs sort引发.NET Framework之间的关系说明
如果问题就这么结束，那么也就不会有这篇文章。怪我手贱，在Google中输入vbssort，回车，看到一段代码，顿时泪流满面。SetoutputLines=_CreateObject("System.Col

VBS中用CDO.Message发送邮件的实现代码
使用CDO.Message对象就可以实现，示例代码演示的是gmail发送纯文本并带附件的邮件，至于其他的电子邮箱，需要修改代码中对应的smtp服务器和端口，原

VBS中的字符串连接的性能问题
当然，对于少量的字符串连接，效率并没有对程序造成多大影响，现在让我们考虑一个极端的问题：将1到100000之间的所有数字连接成一个字符串。最简