以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  求助：将VBS代码改为DLL  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=5833)
--  作者：pel46585
--  发布时间：2011/3/23 17:21:51
--  求助：将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语言的