标题：求助：将VBS代码改为DLL

Set h = CreateObject("Microsoft.XMLHTTP")
URL = mPath
h.Open "get", URL, False
h.send
wen = h.responsebody
For i = 1 To LenB(wen)
    Text = AscB(MidB(wen, i, 1))
    If Text < &H80 Then
        body = body & Chr(Text)
    Else
        file = AscB(MidB(wen, i + 1, 1))
        body = body & Chr(CLng(Text) * &H100 + CInt(file))
        i = i + 1
    End If
Next

这断代码就是读网页数据的代码，在金字塔下可用。但我想将它写成DLL，想更好的调用它。谁帮我将上面的内容改为接受MPATH,返回BODY的DLL啊，要金字塔能用的DLL，即C语言的