欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 求助:将VBS代码改为DLL

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3682人关注过本帖平板打印复制链接

主题:求助:将VBS代码改为DLL

帅哥哟,离线,有人找我吗?
pel46585
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:167 积分:661 威望:0 精华:1 注册:2009/12/25 23:43:24
求助:将VBS代码改为DLL  发帖心情 Post By:2011/3/23 17:21:51 [只看该作者]

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语言的


 回到顶部