【求助】我想试试金字塔的API功能 Post By:2010/12/1 10:32:37 [只看该作者]
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 有错误请问我如何修改