以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  【求助】我想试试金字塔的API功能  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=4239)
--  作者：Morgan
--  发布时间：2010/12/1 10:32:37
--  【求助】我想试试金字塔的API功能

On Error Resume Next
dim name
dim length
length=255
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "kernel32.dll","GetComputerName","i=sl","f=s", "r=l"

Name = Wrap.GetComputerName(name,length)

If name=0 then
MsgBox "发现窗口"
Else
MsgBox "没发现"
End If
msgbox name
有错误请问我如何修改